1个回答
展开全部
Do Until Response = vbNo
MyValue = Int((10 * Rnd) + 30) ' 产生 1 到 6 之间的随机数。
Delay 500
MsgBox MyValue
Response = MsgBox ("还要继续吗", vbYesNo)
Loop
MyValue = Int((10 * Rnd) + 30) ' 产生 1 到 6 之间的随机数。
Delay 500
MsgBox MyValue
Response = MsgBox ("还要继续吗", vbYesNo)
Loop
追问
谢谢你大哥 ，输入到文本里面。 所以不用出现那个框框也不用出现要不要继续 ， 连续输出 每隔0.5秒输出一个数字就行了两个数字之间不需要空格 我是准备往word里面输出
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
