VB中怎样实现每单击一次按钮出现不同的文字

VB教程中,每次单击按钮都是出现的相同文字,想实现每单击一次按钮而出现不同的文字内容,请高手指点。... VB教程中,每次单击按钮都是出现的相同文字,想实现每单击一次按钮而出现不同的文字内容,请高手指点。 展开
 我来答
zx001z7d53
2013-03-15 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5601万
展开全部
如果是已知文字你用SELECT判断就是了
其它的你可以用
Private Sub Command1_Click()
Static i
i = i + 1
Me.Caption = Chr(Asc("爱") + i) & Chr(Asc("我") + i + 2) & Chr(Asc("中") + i + 2) & Chr(Asc("华") + i + 2)
End Sub
更多追问追答
追问

粘贴您的代码后运行出现:

追答
是啊,看窗口标题
百度网友126e4f3
2013-03-15 · 超过50用户采纳过TA的回答
知道小有建树答主
回答量:257
采纳率:0%
帮助的人:162万
展开全部
将单击按钮时出现的文字做成随机获取即可
追问
请告诉怎样做成随机获取?谢谢!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
笑年1977
2013-03-15 · TA获得超过7.2万个赞
知道大有可为答主
回答量:2.2万
采纳率:81%
帮助的人:1.2亿
展开全部
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
更多追问追答
追问

先谢谢您!我想让在窗体显示不同文字,而您的是:

追答
你的意思是按钮的内容不同。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
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式