Question

vb6.0：程序运行时，在text1和text2中输入两个整数，单击command1，计算这两个整数的积，并在text3中显示

在线等，求助我自己写的有问题啊啊啊啊，是新手啊啊啊，可是我的财富值没有了T-T谁能好心帮个忙
Private Sub command1_click()
Text3.Text = Val(Text2.Text) * Val(Text1.Text)
End Sub

Private Sub Text1_click()
Text1.Text = Val(Text1.Text)
End Sub

Private Sub Text2_click()
Text2.Text = Val(Text2.Text)
End Sub

Answer 1

代码如下：

Private Sub command1_click()
if isnumeric(text1.text)=Flase or text1.text="" then exit sub '如果不是数字或为空，不继续
if isnumeric(text2.text)=Flase or text2.text="" then exit sub '如果不是数字或为空，不继续
Text3.Text =CInt(Text1.Text)*CInt(Text2.Text)
End Sub

Answer 2

只需要一个方法就可以啦

Private Sub command1_click()
    Dim x As Integer, y As Integer
    If Trim(Text1.Text)="" Then 
        x = 0
    Else
        x = CInt(Text1.Text)
    End If
    If Trim(Text2Text)="" Then 
        y = 0
    Else
        y = CInt(Text2.Text)
    End If
    Text3.Text = x*y
 End Sub