VB中怎样实现每单击一次按钮出现不同的文字
VB教程中,每次单击按钮都是出现的相同文字,想实现每单击一次按钮而出现不同的文字内容,请高手指点。...
VB教程中,每次单击按钮都是出现的相同文字,想实现每单击一次按钮而出现不同的文字内容,请高手指点。
展开
展开全部
将单击按钮时出现的文字做成随机获取即可
追问
请告诉怎样做成随机获取?谢谢!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
Dim a As Integer
Randomize
a = Int(Rnd() * 10)
Select Case a
Case 0: MsgBox "0"
Case 1: MsgBox "1"
Case 2: MsgBox "2"
Case 3: MsgBox "3"
Case 4: MsgBox "4"
Case 5: MsgBox "5"
Case 6: MsgBox "6"
Case 7: MsgBox "7"
Case 8: MsgBox "8"
Case 9: MsgBox "9"
Case 10: MsgBox "10"
End Select
End Sub
Dim a As Integer
Randomize
a = Int(Rnd() * 10)
Select Case a
Case 0: MsgBox "0"
Case 1: MsgBox "1"
Case 2: MsgBox "2"
Case 3: MsgBox "3"
Case 4: MsgBox "4"
Case 5: MsgBox "5"
Case 6: MsgBox "6"
Case 7: MsgBox "7"
Case 8: MsgBox "8"
Case 9: MsgBox "9"
Case 10: MsgBox "10"
End Select
End Sub
更多追问追答
追答
你的意思是按钮的内容不同。Caption后的内容你自已看着办了
Private Sub Command1_Click()
Dim a As Integer
Randomize
a = Int(Rnd() * 10)
Select Case a
Case 0: Form1.Caption="0"
Case 1: Form1.Caption="1"
Case 2: Form1.Caption="2"
Case 3: Form1.Caption="3"
Case 4: Form1.Caption="4"
Case 5: Form1.Caption="5"
Case 6: Form1.Caption="6"
Case 7: Form1.Caption="7"
Case 8: Form1.Caption="8"
Case 9: Form1.Caption="9"
Case 10: Form1.Caption="10"
End Select
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询