VB点击按钮1 然后在Text随机出现设定好的字符
2个回答
展开全部
调用随机函数,使要随机出现的字符与随机函数相关,随机数种子与系统时间关联,就行了。
创建一个工程,在Form1上创建一个Text1和一个Command1:
Dim S(4) As String
Private Sub Command1_Click()
Dim n As Integer
Randomize
n = Int(5 * Rnd)
Text1.Text = S(n)
End Sub
Private Sub Form_Load()
S(0) = "Hello!"
S(1) = "亲爱的"
S(2) = "你好!"
S(3) = "对不起!"
S(4) = "再见!"
End Sub
创建一个工程,在Form1上创建一个Text1和一个Command1:
Dim S(4) As String
Private Sub Command1_Click()
Dim n As Integer
Randomize
n = Int(5 * Rnd)
Text1.Text = S(n)
End Sub
Private Sub Form_Load()
S(0) = "Hello!"
S(1) = "亲爱的"
S(2) = "你好!"
S(3) = "对不起!"
S(4) = "再见!"
End Sub
追问
可以详细点么 ←_←
追答
每次运行都是随机产生的,但可能与上次相同
2013-08-23
展开全部
加一句Randomize 语句
追问
求完整吧 感觉不会再想写了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询