vb 做计算器无法计算

Text3;您的分母为零，请重试&quot为什么按了等号以后没反应, B As Single Dim T As Integer Private Sub Command1_Click(Index As Integer) Text1？新手求教 Dim A.Text + ".Visible = False ' B End If line1;Text2.Text = A /.Text = Val(Text1.Text + Str(Index)) End Sub Private Sub Command2_Click(Index As Integer) If Index = 2 Then T = 1 End If If Index = 1 Then T = 2 End If If Index = 0 Then T = 3 End If If Index = 3 Then T = 4 End If A = Val(Text1.Text = A ' End Sub Private Sub Command5_Click() B = Val(Text1.Text) Text2;Text4.Text = A * B End If If T = 4 And B = 0 Then MsgBox "测试T '.Text = A + B End If If T = 2 Then Text1.Text = A - B End If If T = 3 Then Text1.Visible = False If T = 1 Then Text1: Text1; End Sub Private Sub Command4_Click() Text1.Text = Text1.Text = T '测试A Text3.Text = B '测试B Text4." GoTo line1 Else Text1.Text) Text1.Text = "&quot.Visible = False '.Text = "" End Sub Private Sub Command6_Click() Text1

rivate Sub Command5_Click()
中
line1:
Text1.Text = ""
将Text1前面输出的内容又清除了。删掉Text1.Text = "&quot

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息