mcs/btests/AssignmentStatementsC.vb

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