UC知道一道vb题 四则运算（控件数组）
来源：百度知道 编辑：UC知道 时间：2024/06/19 10:45:51
编写一个运行界面如图所示的程序，其中"+"、"-"、"×"、"÷"为命令按钮控件数组(控件数组下标分别为0、1、2、3)，2个文本框用于输入数据，当单击四个运算符按钮中的任一个，则开始计算，并在Label1、Label2和Label3上分别显示运算符、等号和运算结果。
说明：
1）数据类型使用变体类型或Double类型
2）除法时，若分母为0，在Label3上显示“ERROR”
说明：
1）数据类型使用变体类型或Double类型
2）除法时，若分母为0，在Label3上显示“ERROR”
Dim a, b As Double
Private Sub Command1_Click(Index As Integer)
If Not IsNumeric(Text1.Text) Or Not IsNumeric(Text2.Text) Then
MsgBox "请输入数字!!"
Exit Sub
End If
a = Val(Text1.Text)
b = Val(Text2.Text)
Select Case Index
Case 0:
Label1 = "+"
Label3 = a + b
Case 1:
Label1 = "-"
Label3 = a - b
Case 2:
Label1 = "*"
Label3 = a * b
Case 3:
Label1 = "/"
If b <> 0 Then
If a / b >= 1 Then
Label3 = a / b
Else
Label3 = "0" & a / b
End If
Else
Label3 = "ERROR"
End If