英语翻译Private Sub Command20_Click()If Text49.Text = 1 ThenText22.Text = Val(Label14.Caption) + 1End IfIf Text49.Text = 2 ThenText22.Text = Val(Label14.Caption) + 3End IfLabel14.Caption = Text22.TextDim X,Y As IntegerX = Label14.CaptionY = Label

来源：学生作业帮助网编辑：作业帮时间：2024/04/29 22:25:41

英语翻译Private Sub Command20_Click()If Text49.Text = 1 ThenText22.Text = Val(Label14.Caption) + 1End IfIf Text49.Text = 2 ThenText22.Text = Val(Label14.Caption) + 3End IfLabel14.Caption = Text22.TextDim X,Y As IntegerX = Label14.CaptionY = Label
英语翻译
Private Sub Command20_Click()
If Text49.Text = 1 Then
Text22.Text = Val(Label14.Caption) + 1
End If
If Text49.Text = 2 Then
Text22.Text = Val(Label14.Caption) + 3
End If
Label14.Caption = Text22.Text
Dim X,Y As Integer
X = Label14.Caption
Y = Label14.Caption
Select Case X
Case Is > 0
Command11.BackColor = vbRed
End Select
Select Case Y
Case Is < 0
Command11.BackColor = &H8000000F
End Select
End Sub
Private Sub Command35_Click()
Dim m As Integer
m = Command35.Caption
If Label23.TabIndex = 12 Then
Label23.Caption = Label23.Caption & m
End If
If Label24.TabIndex = 12 Then
Label24.Caption = Label24.Caption & m
End If
If Label25.TabIndex = 12 Then
Label25.Caption = Label25.Caption & m
End If
If Label26.TabIndex = 12 Then
Label26.Caption = Label26.Caption & m
End If
If Label27.TabIndex = 12 Then
Label27.Caption = Label27.Caption & m
End If
If Label28.TabIndex = 12 Then
Label28.Caption = Label28.Caption & m
End If
If Label29.TabIndex = 12 Then
Label29.Caption = Label29.Caption & m
End If
If Label30.TabIndex = 12 Then
Label30.Caption = Label30.Caption & m
End If
If Label31.TabIndex = 12 Then
Label31.Caption = Label31.Caption & m
End If
If Label32.TabIndex = 12 Then
Label32.Caption = Label32.Caption & m
End If
If Label33.TabIndex = 12 Then
Label33.Caption = Label33.Caption & m
End If
If Label34.TabIndex = 12 Then
Label34.Caption = Label34.Caption & m
End If
If Label35.TabIndex = 12 Then
Label35.Caption = Label35.Caption & m
End If
If Label36.TabIndex = 12 Then
Label36.Caption = Label36.Caption & m
End If
If Label37.TabIndex = 12 Then
Label37.Caption = Label37.Caption & m
End If
If Label38.TabIndex = 12 Then
Label38.Caption = Label38.Caption & m
End If
If Label39.TabIndex = 12 Then
Label39.Caption = Label39.Caption & m
End If
If Label40.TabIndex = 12 Then
Label40.Caption = Label40.Caption & m
End If
End Sub
Private Sub Command37_Click()
Label19.Caption = ""
Label20.Caption = ""
Label21.Caption = ""
Label23.Caption = ""
Label24.Caption = ""
Label25.Caption = ""
Label26.Caption = ""
Label27.Caption = ""
Label28.Caption = ""
Label29.Caption = ""
Label30.Caption = ""
Label31.Caption = ""
Label32.Caption = ""
Label33.Caption = ""
Label34.Caption = ""
Label35.Caption = ""
Label36.Caption = ""
Label37.Caption = ""
Label38.Caption = ""
Label39.Caption = ""
Label40.Caption = ""
End Sub