mcs/btests/AssignmentStatementsC.vb

   1 Imports System
   2 Imports Microsoft.VisualBasic
   3
   4 Module AssignmentStatementsC
   5
   6     Private str As String = "Hello VB.NET World"
   7     Public Property mystr() As String
   8         Get
   9             Return str
  10         End Get
  11         Set(ByVal Value As String)
  12             str = Value
  13         End Set
  14     End Property
  15
  16     Sub main()
  17
  18         Mid(str, 7) = "MS.NET"
  19         If str <> "Hello MS.NET World" Then
  20             Throw New Exception("#ASC1 - Assignment Statement failed")
  21         End If
  22
  23         Mid(str, 7, 5) = "ASP.NET"
  24         If str <> "Hello ASP.NT World" Then
  25             Throw New Exception("#ASC2 - Assignment Statement failed")
  26         End If
  27
  28         Mid(str, 7) = "VisualBasic .NET World"
  29         If str <> "Hello VisualBasic " Then
  30             Throw New Exception("#ASC3 - Assignment Statement failed")
  31         End If
  32
  33         Mid(str, 7) = 2.5 * 34.59
  34         If str <> "Hello 86.475Basic " Then
  35             Throw New Exception("#ASC4 - Assignment Statement failed")
  36         End If
  37
  38         Mid(mystr, 7) = "MS.NET"
  39         If mystr <> "Hello MS.NETBasic " Then
  40             Throw New Exception("#ASC5 - Assignment Statement failed")
  41         End If
  42
  43     End Sub
  44
  45 End Module