mcs/mbas/Test/tests/AssignmentStatementsB.vb

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