台灣最大程式設計社群網站
線上人數
1701
 
會員總數:245250
討論主題:189110
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> + 法演算的不同變化形
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
+ 法演算的不同變化形
價值 : 0 QP  點閱數:636 回應數:0

樓主

kikikokoko
初學者
13 2
50 8
發送站內信

捐贈 VP 給 kikikokoko
VB的學習不能馬乎,馬步要先站穩.在這裡討論一下 +法的各種寫法,希望可以互相切搓.

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

-
還有更多招下次分享 ^___^

搜尋相關Tags的文章: [ + ] , [ 加法 ] , [ 演算式 ] , [ 數學 ] ,
本篇文章發表於2007-10-22 16:21
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.