VB.NET mode

11
 
1
Class rocket
2
  Private quality as Double
3
  Public Sub launch() as String
4
    if quality > 0.8
5
      launch = "Successful"
6
    Else
7
      launch = "Failed"
8
    End If
9
  End sub
10
End class
11
​
Tests OK
Tests OK
Tests OK

MIME type defined: text/x-vb.