按键精灵 输入随机数文本
4个回答
展开全部
Randomize
dim text(2)
Text(0) = Plugin.File.ReadFileEx("C:\文本1.txt")
Text(1) = Plugin.File.ReadFileEx("C:\文本2.txt")
Text(2) = Plugin.File.ReadFileEx("C:\文本3.txt")
MessageBox (Split(Text(Int(3 * Rnd)), "|")(0))
追问
Dim a(3)
a(0)="文本1"
a(1)="文本2"
a(2)="文本3"
Randomize
SayString a(Int(3 * Rnd))
这样就行了。
已赞过
已踩过<
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
UserVar a="0" "这里是文本1"
UserVar b="1" "这里是文本2"
UserVar c="2" "这里是文本3"
Rem start
WaitKey
Randomize
//得到1~3的随机数一个
x = Int((3 * Rnd) + 1)
If x = 1 Then
SayString a
End If
If x = 2 Then
SayString b
End If
If x = 3 Then
SayString c
End If
Goto start
UserVar b="1" "这里是文本2"
UserVar c="2" "这里是文本3"
Rem start
WaitKey
Randomize
//得到1~3的随机数一个
x = Int((3 * Rnd) + 1)
If x = 1 Then
SayString a
End If
If x = 2 Then
SayString b
End If
If x = 3 Then
SayString c
End If
Goto start
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
嗯，这个用循环
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
先问一下 是用txt文件读取行数分割还是界面的控件?
更多追问追答
追问
就是用脚本完成输出，要重复输入许多次，随机出现，要输入的文本比较长的，就用“文本123代替一下”，最好是用随机数。
追答
先在脚本将你要输入的文本赋值给了文本1、文本2、文本3
然後waitkey 如果key=XX jiiu随机产生1-3内的其中一个号码
如果获得1 就saystring 文本1
获得2就saystring 文本二
如此类推
测试完成过后请在waitkey与输出文本三前后加上循环结构
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
