Question

按键精灵语句问题

麻烦各位了。。。
现在我设置了10个输入框，分别是1号至10号输入框(inputbox1.......inputbox10)，我想产生一个随机数，然后放到一个随机的输入框里，请问怎么实现
（比如随机出来一个数字5，然后再把这个数字5显示在随便一个输入框里）

Answer 1

你有些地方没有交代清楚。
第一，这里有两个随机数，是相互独立的，还是统一的（所谓统一，就是随机数输入的数和随机输入框是不是一个数）？按照你的意思应该是独立的，但是你也要说清楚。
第二，随机数的范围，随机数的类型（是整数，还是多少位小数）你没交代，如果你不交代这点，随机数那就是任意的，不限定范围大小的随机数是弄不出来的，而且任意随机数弄出来没什么意义。

追问

两个随机数是独立的
随机数是1---10之间的整数

追答

在窗体Form1放一个按钮Button1和10个输入框Inputbox1~Inputbox10。
下面是代码，你可以根据自己实际情况适当修改：
Event Form1.Button1.Click
Randomize
Num1 = Int(10 * Rnd + 1)
Randomize
Num2 = Int(10 * Rnd + 1)
Select Case Num2
Case 1 : Form1.InputBox1.Text = Num1
Case 2 : Form1.InputBox2.Text = Num1
Case 3 : Form1.InputBox3.Text = Num1
Case 4 : Form1.InputBox4.Text = Num1
Case 5 : Form1.InputBox5.Text = Num1
Case 6 : Form1.InputBox6.Text = Num1
Case 7 : Form1.InputBox7.Text = Num1
Case 8 : Form1.InputBox8.Text = Num1
Case 9 : Form1.InputBox9.Text = Num1
Case 10 : Form1.InputBox10.Text = Num1
End Select
End Event

Answer 2

如果“条件1”
－－如果“条件2”
－－－－如果“条件3”
－－－－－－执行C命令
－－－－否则
－－－－－－执行B命令
－－－－条件结束
－－否则
－－－－执行A命令
－－条件结束
条件结束

VBSCall n=InputBox(请输入一个数：)
n=Int(n)
If n>0
If n>1
If n>2
VBSCall MessageBox(n>2)
Else
VBSCall MessageBox(1<n<2)
EndIf
Else
VBSCall MessageBox(0<n<1)
EndIf
EndIf

追问

谢谢，但是答非所问啊，你给我一个判断输入数字位数的程序干啥？