帮忙翻译下VB程序,谢谢了.

来源：百度知道编辑：UC知道时间：2024/06/08 12:09:54

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

私人的Sub命令 20_Click()
如果 Text49.文本 =1 然后
Text22.Text=Val(Label14. 说明)+1
结束如果
如果 Text49.文本 =2 然后
Text22.Text=Val(Label14. 说明)+3
结束如果
分类 14 。说明 = Text22.文本
使 X 暗淡, 如完整的事物 Y
X= 分类 14.说明
Y= 分类 14.说明
选择情形 X
情形是 >0
命令 11 。BackColor= vbRed

结束选择
选择情形 Y
情形是 <0
命令 11 。BackColor=&H8000000 F
结束选择
结束Sub

私人的Sub命令 35_Click()
使如完整的事物 m 暗淡
m= 命令 35.说明
如果分类 23.TabIndex=12 然后
分类 23 。说明 = 分类 23.说明 & m
结束如果
如果分类 24.TabIndex=12 然后
分类 24 。说明 = 分类 24.说明 & m
结束如果
如果分类 25.TabIndex=12 然后
分类 25 。说明 = 分类 25.说明 & m
结束如果
如果分类 26.TabIndex=12 然后
分类 26 。说明 = 分类 26.说明 & m
结束如果
如果分类 27.TabIndex=12 然后
分类 27 。说明 = 分类 27.说明 & m
结束如果
如果分类 28.TabIndex=12 然后
分类 28 。说明 = 分类 28.说明 & m
结束如果
如果分类 29.TabIndex=12 然后
分类 29 。说明 = 分类 29.说明 & m
结束如果
如果分类 30.TabIndex=12 然后
分类 30 。说明 = 分类 30.说明 & m<

VB的程序大家帮忙看下叙述下就好！！谢谢了！ vb问题，高手帮忙下，谢谢了 VB小程序低级错误帮忙下谢谢请好人心帮忙详解下这个VB程序~~谢谢！帮忙翻译下，谢谢了帮忙翻译下谢谢了帮忙翻译下`谢谢了` 帮忙翻译下谢谢了~！帮忙翻译下，谢谢了~~ 帮忙翻译下..谢谢了