UC知道这个vb源码问题有错误么?
来源：百度知道 编辑：UC知道 时间：2024/05/06 08:01:43
帮我看看 哪错了?
Private Sub Command1_Click()
If Text1.Text = 0 Then Text1.Text = "1" Else Text1.Text = Text1.Text + Command1.Caption
End Sub
Private Sub Command10_Click()
If Text1.Text = 0 Then Text1.Text = "0" Else Text1.Text = Text1.Text + Command10.Caption
End Sub
Private Sub Command11_Click()
Dim Num As Long
If Val(Text1.Text) <> Num Then Text1.Text = Text1.Text + "." Else Text1.Text = Text1.Text
End Sub
Private Sub Command12_Click()
Text1.Text = -1 * Val(Text1.Text)
End Sub
Private Sub Command13_Click()
Dim a, b As Long
Text2.Text = Text1.Text
b = "1"
Text1.Text = "0"
End Sub
Private Sub Command14_Click()
Dim a, b As Long
Text2.Text = Text1.Text
b = "2"
Text1.Text = "0"
End Sub
Private Sub Command15_Click()
Dim a, b As Long
Private Sub Command1_Click()
If Text1.Text = 0 Then Text1.Text = "1" Else Text1.Text = Text1.Text + Command1.Caption
End Sub
Private Sub Command10_Click()
If Text1.Text = 0 Then Text1.Text = "0" Else Text1.Text = Text1.Text + Command10.Caption
End Sub
Private Sub Command11_Click()
Dim Num As Long
If Val(Text1.Text) <> Num Then Text1.Text = Text1.Text + "." Else Text1.Text = Text1.Text
End Sub
Private Sub Command12_Click()
Text1.Text = -1 * Val(Text1.Text)
End Sub
Private Sub Command13_Click()
Dim a, b As Long
Text2.Text = Text1.Text
b = "1"
Text1.Text = "0"
End Sub
Private Sub Command14_Click()
Dim a, b As Long
Text2.Text = Text1.Text
b = "2"
Text1.Text = "0"
End Sub
Private Sub Command15_Click()
Dim a, b As Long
难道是在锻炼回答者的人生意志？
自己调试一下，看哪里出了问题，是代码错误，还是算法错误
一上来就18个command，吓都吓死了。
Private Sub Command11_Click()
Dim Num As Long
If Val(Text1.Text) <> Num Then Text1.Text = Text1.Text + "." Else Text1.Text = Text1.Text
End Sub
这句有问题：Val(Text1.Text) <> Num
应该这样：IsNumeric(Text1.Text)=false
死了~你自己运行一下不就知道了……
要问也应该问错在哪里啊~
Private Sub Command11_Click()
Dim Num As Long
If [[[[[[Val(Text1.Text) <> Num]]]]]] Then Text1.Text = Text1.Text + "." Else Text1.Text = Text1.Text
End Sub
Val(Text1.Text) <> Num→int(text1.text)<>text1.text
没有见过这样问的......