5 運算子

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "運算子"

Me.Size = New Size(400, 500)
Label1.Font = New Font("Times New Roman", 14, FontStyle.Regular)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim abc As Integer = 5
Dim d As Integer = 6
Dim cd as Integer = abc / d
'''''abc,d,cd 都是變數名

'''''cd的資料型別需注意
Label1.Text = cd

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim abc As Integer = 5
Dim d As Integer = 6
Label1.Text = abc / d
'''''同Button1，但直接運算
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim s1 As String = "字串運算子"
Dim s2 As String = "連接"
Dim s3 As String = "測試"
Dim s4 As String
s4 = s1 + s2 + s3
'''''s4 = s1 s2 s3
'''''若改成上一行的敘述會如何?

'''''若把s1,s2,s3之值改成2,3,4又會如何?
Label1.Text = s4
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim s1 As String = "字串運算子"
Dim s2 As String = "連接"
Dim s3 As String = "測試"
Dim a1 As Integer = 5
Label1.Text = s1 + s2 + s3
'''''同Button3，但直接連接
'''''Label1.Text = s1 + s2 + s3 + a1
'''''若改成上一行的敘述會如何?
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim s1 As String = "整數"
Dim s2 As String = "除以"
Dim s3 As String = "等"
Dim s4 As String = "於"
Dim a1 As Integer = 5
Dim a2 As Single = 4
Dim a3 as Single= a1 / a2
Dim v1 = s1 & a1 & s2 & a2 & s3 + s4 & a3
Label1.Text = v1
'''''以&連接不同型別的資料
End Sub

End Class