什么是VB控件数组下标

2024-11-26 11:51:14

推荐回答（3个）

回答1：

“如图所示”？图呢？

Private Sub Command1_Click(Index As Integer)

On Error Resume Next

Select Case Index

Case 0

Label3.Caption = CDbl(Text1.Text) + CDbl(Text2.Text)

Case 1

Label3.Caption = CDbl(Text1.Text) - CDbl(Text2.Text)

Case 2

Label3.Caption = CDbl(Text1.Text) * CDbl(Text2.Text)

Case 3

If Text2.Text = 0 Then

Label3.Caption = "ERROR"

Else

Label3.Caption = CDbl(Text1.Text) / CDbl(Text2.Text)

End If

End Select

Label1.Caption = Command1(Index).Caption

End Sub

回答2：

大一？我也是耶~
不告诉你！

回答3：

楼主的意思是要帮忙写个程序吗