Question

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

VB教程中，每次单击按钮都是出现的相同文字，想实现每单击一次按钮而出现不同的文字内容，请高手指点。

Answer 1

如果是已知文字你用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

追问

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

追答

是啊，看窗口标题

追问

啊，是标题呀，我的意思是在窗体中出现不同的文字！

追答

Private Sub Command1_Click()
Static i
i = i + 1
Me.print Chr(Asc("爱") + i) & Chr(Asc("我") + i + 2) & Chr(Asc("中") + i + 2) & Chr(Asc("华") + i + 2)
End Sub

追问

非常希望按本人的意思给个回答。谢谢！

追答

你没说清楚

Answer 2

将单击按钮时出现的文字做成随机获取即可

追问

请告诉怎样做成随机获取？谢谢！

Answer 3

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

追问

非常希望按本人的意思给个回答。谢谢！