zyal 发表于 2008-6-23 23:46

找个人，帮我看下错在那里？新手上路

我编写的一个计算器。。。
下面是我全部的响应代码

Private Sub Label1_Click()

End Sub

Private Sub AddOptin_Click()
SymbelLabel.Caption = "+"
OutputText.Text = ""
End Sub

Private Sub DivideOption_Click()
SymbelLabel.Caption = "/"
OutputText.Text = ""
End Sub

Private Sub MisnusOption_Click()
SymbelLabel.Caption = "-"
OutputText.Text = ""
End Sub

Private Sub MultiOption_Click()
SymbelLabel.Caption = "*"
OutputText.Text = ""
End Sub

Private Sub RunCommand_Click()
Dim Number1, Number2, Result As Single

Number1 = Val(InputText1.Text)
Number2 = Val(InputText2.Text)

If AddOption.Value = True Then
Result = Number1 + Number2
End If
If Minusption.Value = True Then
Result = Number1 - Number2
End If
If MultiOption.Value = True Then
Result = Number1 * Number2
End If
If DiviOption.Value = True Then
Result = Number1 / Number2
End If
End Sub

但是运行不了。。。我点调试，它说

If AddOption.Value = True Then
Result = Number1 + Number2
End If
If Minusption.Value = True Then
Result = Number1 - Number2
End If
If MultiOption.Value = True Then
Result = Number1 * Number2
End If
If DiviOption.Value = True Then
Result = Number1 / Number2
End If
End Sub
错了。。。。麻烦你们帮我看下

jxyga111 发表于 2008-6-24 08:10

你錯在那啊,怎麼不標出來,不然大家怎麼知道你錯在那

zyal 发表于 2008-6-24 12:39

系统说我这里错了
If AddOption.Value = True Then
Result = Number1 + Number2
End If
If Minusption.Value = True Then
Result = Number1 - Number2
End If
If MultiOption.Value = True Then
Result = Number1 * Number2
End If
If DiviOption.Value = True Then
Result = Number1 / Number2
End If
End Sub

nolike 发表于 2008-6-24 16:26

If DiviOption.Value = True Then
Result = Number1 / Number2
End If
End Sub
是不是if DevideOption.value...哈？

jxyga111 发表于 2008-6-24 17:07

將Number1 VAL(Number1)
Number2 VAL(Number2)

chunxue2002 发表于 2008-6-26 18:32

4个意见
1、定义变量
Dim Number1, Number2, Result As Single是不规范的
这样一来，number1和number2都是变体变量，而不是single
应该Dim Number1 as single, Number2 as single, Result As Single
2、对于多分支结构，最好使用select...case结构，简单明了，且提高程序效率。
3、对比Private Sub MisnusOption_Click()
If Minusption.Value = True Then
你的控件名错了
4、对比If DiviOption.Value = True Then
Private Sub DivideOption_Click()
控件名错了

页: [1]

编程论坛