为什么我的VB程序执行不了啊?

来源:百度知道 编辑:UC知道 时间:2024/06/07 12:32:31
Private Sub Command1_Click()

Text1.Text = 10 * Text1.Text + 1

End Sub

Private Sub Command10_Click()
Text1.Text = 10 * (Text1.Text) + 0

End Sub

Private Sub Command11_Click()
a = Text1.Text
Text1.Text = 0
m = 1

End Sub

Private Sub Command12_Click()

a = Text1.Text
Text1.Text = 0
m = 2
End Sub

Private Sub Command13_Click()

m = 3
a = Text1.Text
Text1.Text = 0
End Sub

Private Sub Command14_Click()

a = Text1.Text
Text1.Text = 0
m = 4
End Sub

Private Sub Command15_Click()
b = Text1.Text
If m = 1 Then
n = a + b
End If
Text1.Text = n

If m = 2 Then
n = a - b
End If
Text1.Text = n

If m = 3 Then
n = a * b
End If
Text1.Text = n

If m = 4 Then
n = a / b
End If
Text1.Text = n

End Sub

你的程序我试过了,可以运行,你是要做个计算器还是什么啊
你在Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim m As Integer
Dim n As Integer
End Sub
中在加Text1.Text = 0 试试吧

数据类型不对,写成"10*val(text1.text)",直接text1.text是字符型的肯定不行啊!