mcs/mbas/Test/tests/AssignmentStatementsB.vb

   1 Imports System\r
   2 Imports Microsoft.VisualBasic\r
   3 \r
   4 Module AssignmentStatementsB\r
   5 \r
   6     Sub main()\r
   7 \r
   8         Dim b As Byte = 0\r
   9         Dim ch As Char = "a"\r
  10         Dim i As Integer = 0\r
  11         Dim str As String = "Hello "\r
  12 \r
  13         b += 1\r
  14         If b <> CByte(1) Then\r
  15             Throw New Exception("#ASB1-Assignment Statement Failed")\r
  16         End If\r
  17 \r
  18         b += i\r
  19         If b <> CByte(1) Then\r
  20             Throw New Exception("#ASB2-Assignment Statement Failed")\r
  21         End If\r
  22 \r
  23         b += CByte(i)\r
  24         If b <> CByte(1) Then\r
  25             Throw New Exception("#ASB3-Assignment Statement Failed")\r
  26         End If\r
  27 \r
  28         ch += ChrW(65)\r
  29         If ch <> CChar("aA") Then\r
  30             Throw New Exception("#ASB4-Assignment Statement Failed")\r
  31         End If\r
  32 \r
  33         str &= "World"\r
  34         If str <> "Hello World" Then\r
  35             Throw New Exception("#ASB5-Assignment Statement Failed")\r
  36         End If\r
  37 \r
  38         i += "12"\r
  39         If i <> 12 Then\r
  40             Throw New Exception("#ASB6-Assignment Statement Failed")\r
  41         End If\r
  42 \r
  43     End Sub\r
  44 \r
  45 End Module\r