请教:怎样用vb解决下面这道题?谢谢。
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/22 15:31:36
请教:怎样用vb解决下面这道题?谢谢。
窗体上有九个command1,caption设为空白,当单击9个按钮中的任一按钮时,被单击的按钮上交替显示“A”、“B”、“C”。即当第1、4、7……次单击某按钮时,被单击的按钮上显示字符“A”;而当第2、5、8……次单击某按钮时,被单击的按钮上显示“B”;第3、6、9……次单击某按钮时,被单击的按钮上显示“C”。
窗体上有九个command1,caption设为空白,当单击9个按钮中的任一按钮时,被单击的按钮上交替显示“A”、“B”、“C”。即当第1、4、7……次单击某按钮时,被单击的按钮上显示字符“A”;而当第2、5、8……次单击某按钮时,被单击的按钮上显示“B”;第3、6、9……次单击某按钮时,被单击的按钮上显示“C”。
![请教:怎样用vb解决下面这道题?谢谢。](/uploads/image/z/19633666-58-6.jpg?t=%E8%AF%B7%E6%95%99%EF%BC%9A%E6%80%8E%E6%A0%B7%E7%94%A8vb%E8%A7%A3%E5%86%B3%E4%B8%8B%E9%9D%A2%E8%BF%99%E9%81%93%E9%A2%98%EF%BC%9F%E8%B0%A2%E8%B0%A2%E3%80%82)
Private Sub Command1_Click()
Static i As Integer
i = i + 1
'Print i
t = i Mod 3
Select Case t
Case 0
Command1.Caption = "C"
Case 1
Command1.Caption = "A"
Case 2
Command1.Caption = "B"
End Select
If i = 9 Then i = 0
End Su
Static i As Integer
i = i + 1
'Print i
t = i Mod 3
Select Case t
Case 0
Command1.Caption = "C"
Case 1
Command1.Caption = "A"
Case 2
Command1.Caption = "B"
End Select
If i = 9 Then i = 0
End Su