[]
[我要回覆]
|
|||||
|
|||||
樓主 kikikokoko 
 發送站內信
|
1. 加法第一招: 開兩個textbox,兩個label,一個button. [txt_Num1] + [txt_Num2] = [btn_Sum] Dim sum As Integer sum = CInt(Val(Me.txt_Num1.Text)) + CInt(Val(Me.txt_Num2.Text)) Me.lbl_Sum.Text = sum.ToString Me.lbl_Sum.Text = Convert.ToString(sum) 2. 加法第二招: Me.lbl_Sum.Text = Convert.ToUInt32(Me.txt_Num1.Text) + Convert.ToUInt32(Me.txt_Num2.Text) 3. 加法第三招: a1 = Convert.ToInt32(Me.txt_Num1.Text) a2 = Convert.ToInt32(Me.txt_Num2.Text) Me.lbl_Sum.Text = a1 + a2 4. 加法第四招: a1 = Convert.ToInt32(Me.txt_Num1.Text) a2 = Convert.ToInt32(Me.txt_Num2.Text) sum = a1 + a2 Me.lbl_Sum.Text = sum.ToString 5. 加法第五招: a1 = Convert.ToInt32(Val(Me.txt_Num1.Text)) a2 = Convert.ToInt32(Val(Me.txt_Num2.Text)) sum = a1 + a2 Me.lbl_Sum.Text = sum.ToString 6. 加法第六招: 多加一個textbox; 命名 'txt_sign] MsgBox("enter +,-,*,/:") a1 = CInt(Val(Me.txt_Num1.Text)) a2 = CInt(Val(Me.txt_Num2.Text)) sum = CInt(Val(Me.lbl_Sum.Text)) If Me.txt_Sign.Text = "+".ToString Then sum = a1 + a2 Me.lbl_Sum.Text = sum.ToString End If 7. 加法第七招: MsgBox("enter +,-,*,/:") a1 = CInt(Val(Me.txt_Num1.Text)) a2 = CInt(Val(Me.txt_Num2.Text)) sum = 0 If Me.txt_Sign.Text = "+".ToString Then sum = a1 + a2 Me.lbl_Sum.Text = sum.ToString End If - 還有更多招下次分享 ^___^ |
||||
13
2
50
8
