VISUAL BASIC 急急急急急急 20分

2008-09-06 4:47 am

點樣可以用VB寫個程式寫個程式可以比我打兩個數落去
求到個和

更新1:

錯誤1'Public Function Str(Number As Object) As String' 的引數太多。C:\Documents and Settings\Leon\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb349WindowsApplication1 甘點

回答 (1)

keaneutd

2008-09-06 7:29 pm

✔ 最佳答案

我假設在form上有三個textbox: txt1, txt2 用來打兩個數, txtSum 用來輸出兩個數的和
再加上一個command button (cmdSum) 來執行

最簡單的方法:

Private Sub cmdSum_Click()
txtSum.text = Str(Int(txt1.text) Int(txt2.text))
End Sub

其中 Int() 可以把 String 變成 Integer, Str() 可以把 Integer, decmial 等變成 String

如果要檢查 txt1,txt2 內的 text 是不是 integer, 可以用

If IsNumeric(txt1.text)=True AND IsNumeric(txt2.text)=True then
...
Else
Msgbox "Please enter an integer"
Exit Sub
End If

👍 0 👎 0