谁给我一些学VB的建议?50分

来源:百度知道 编辑:UC知道 时间:2024/09/21 21:47:15
我现在已经会写计算器了,不过还有很多不懂,请大虾们给点建议。下面是我编计算器的代码,希望能对症下药:Dim a, b, c As String

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
c = a + b
End Sub

Private Sub Command2_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
c = a - b
End Sub

Private Sub Command3_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
c = a * b
End Sub

Private Sub Command4_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
c = a / b
End Sub

Private Sub Command5_Click()
Text3.Text = c
MsgBox "得数是:" & c
End Sub

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
c = a / b

这个这个```
太过复杂了点
直接写:text3=val(text1)/val(text2)

Dim c As String '这里Dim定义,如果是String可以省略,默认就是String 再说,如果是数学上用的,建议使用:Long整型,Integer单精度,Double双精度,Single这些来表示数字的定义类型。
' 而Val()就是把字符变成为Double 与其这样,直接Dim a ,b,c as Double

Private Sub Command1_Click()
on error resume next '上楼兄弟命令是禁止错误,这个命令是忽略错误,哈哈~就是遇到错误直接过去,不显示。呼呼~
c=val(text1) + val(text2) '在Text文本中,默认是String类型,就是字符形,而写Text1.text 就等于直接写Text1他们具有相同的效果。
End Sub

Private Sub Command2_Click()
on error resume next
c=val(text1) - val(text2)
End Sub

Private Sub Command3_Click()
on error resume next
c=val(text1) * val(text2)
End Sub

Private Sub Command4_Click()
on error resume next
c=val(text1) / val(text2)
End Sub

Private Sub Command5_Click()
on error resume next
text3