菜鸟寻求帮助，关于计算器问题

Question

本帖最后由 bcrun 于 2010-09-29 19:21:48 编辑

Answer 1

MSDN98光盘里有现成的代码，不必自己再写

Answer 2

.........
放到VB里面后的代码：Dim a As Single, b As Single, c As Single
Public jia1 As Boolean, jian1 As Boolean, cheng1 As Boolean, chu1 As Boolean
jia1 = False
jian1 = False
cheng1 = False
chu1 = FalsePrivate Sub cheng_Click()
a = Val(Text1.Text)
Text1.Text = ""
cheng = True
End SubPrivate Sub chu_Click()
a = Val(Text1.Text)
Text1.Text = ""
chu = True
End SubPrivate Sub deng_Click()
b = Val(Text1.Text)
If (jia1 = True) Then
a b = c
ElseIf (jian1 = True) Then
a -b = c
ElseIf (cheng1 = True) Then
a * b = c
ElseIf (chu1 = True) Then
a * b = c
End If
Text1.Text = c
End Sub..............
请问：你的是VB程序代码吗？

Answer 3

a * b = c
***************
c=a * b 

Answer 4

 
jia1 = False
jian1 = False
cheng1 = False
chu1 = False
***************
Private Sub Form_Load()
      Text1.Text = ""
     jia1 = False
     jian1 = False
     cheng1 = False
     chu1 = False
End Sub

Answer 5

Public jia1 As Boolean, jian1 As Boolean, cheng1 As Boolean, chu1 As Boolean
******************************
如果多个窗体用，应该放在模块里
如果只是本窗体用，用dim