【問題】請問誰會用 VB 做計算機呢??


Recommended Posts

  • 2 months later...

這是一個簡單的計算機

需要3個TEXT 5 COMMAND

-------------------------------------------------------------

Dim a, b, c

Private Sub Command1_Click()

Cls

'清除

'相加

c = Val(Text1.Text) + Val(Text2.Text)

'c是答案

End Sub

Private Sub Command2_Click()

Cls

'清除

'相減

c = Val(Text1.Text) - Val(Text2.Text)

'c是答案

End Sub

Private Sub Command3_Click()

Cls

'清除

'相乘

c = Val(Text1.Text) * Val(Text2.Text)

'c是答案

End Sub

Private Sub Command4_Click()

Cls

'清除

'相除

c = Val(Text1.Text) / Val(Text2.Text)

'c是答案

End Sub

Private Sub Command5_Click()

'離開

End

End Sub

Private Sub Form_Load()

a = Val(Text1.Text) 'a是變數一

b = Val(Text2.Text) 'b是變數二

c = 0 '這是答案

End Sub

鏈接文章
分享到其他網站
  • 1 month later...

請登入後來留意見

在登入之後,您才能留意見



立即登入