哪位大哥给个随机抽数的vb代码啊?要求:在0~9中随机抽取一个数。
按钮控件
复制一下代码
Private
Sub
Command1_Click()
Me.Caption
=
(0
-
9
+
1)
*
Rnd
+
9
End
Sub
如果需要随机整数
Private
Sub
Command1_Click()
Me.Caption
=
int（(0
-
9
+
1)
*
Rnd
+
9）
End
Sub
为了生成某个范围内的随机整数，可使用以下
公式
:
Int((上限
-
下限
+
1)
*
Rnd
+
下限)
针对您的问题，可采用以下
语句
:
Dim
MyRnd
Randomize
'初始化随机数
MyRnd
=
Int((9
-
0
+
1)
*
Rnd
+
0)
'也可简化表示成:Int(10
*
Rnd)
'随机数此时已抽取至
MyRnd
变量，下面就可输入其它语句了。
~
哪位大哥给个随机抽数的vb代码啊?要求:在0~9中随机抽取一个数。
答：复制一下代码 Private Sub Command1_Click()Me.Caption = (0 - 9 + 1)Rnd + 9 End Sub 如果需要随机整数 Private Sub Command1_Click()Me.Caption = int（(0 - 9 + 1)Rnd + 9）End Sub
哪位大哥给个随机抽数的vb代码啊?要求:在0~9中随机抽取一个数。
答：MyRnd = Int((9 - 0 + 1) * Rnd + 0) '也可简化表示成：Int(10 * Rnd)'随机数此时已抽取至 MyRnd 变量，下面就可输入其它语句了。
急VB随机抽取数字代码
答：Text1.Text = Int((42 - 1 + 1) * Rnd + 1) '随机数读取方法：Int((upperbound（上限） - lowerbound（下限） + 1) * Rnd + lowerbound)End Sub
VB中如何产生随机数,一直滚到,知道按下回车键才停止,产生一个号码,像电...
答：完全可以，写一个随机抽取1-10之间的任意一个数，按Enter显示。请用VB创建一个标准EXE，在窗体上添加一个 Label 和 一个 Timer 控件，然后，右键窗体-查看代码，粘贴以下代码即可运行：Private Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Timer1.Enabled = False End Sub Private...
请问VB的随机抽数器怎么做???
答：'你可以在list里面进行随机数的抽取 '以下是代码(在此之前，你必须在窗体上画一个listBox控件和一个按钮)'先是在list1中随机添加一些数字 private sub form_load()list1.addItem str(fix(rnd 100))list1.addItem str(fix(rnd 100))list1.addItem str(fix(rnd 100))end sub '下面是随机抽取...
...抽奖程序.要求:点一下按钮在一个文本框中出来一个1-9的随机数...
答：随机不重复抽取，抽完停止 一个按钮，输入代码如下：Private Sub Command1_Click()Static num(1 To 9), c As Integer If c = 9 Then Exit Sub c = c + 1 Dim s, i Randomize begin:s = Int(Rnd() * (9 - 1 + 1)) + 1 If num(s) <> 1 Then i = s num(s) = 1 Else...
VB中数字随机抽选
答：For i = 0 To 4 Controls("Label" & i + 1).Caption = arr(a(i))Next i End Sub Public Function GetRndNotRepeat(ByVal NumMin As Integer, ByVal NumMax As Integer, ByVal n As Integer)'作者:xsfhlzh '功能:取NumMin到NumMax间的n个随机整数 '说明:取数标志数组是Byte，每一...
VB随即抽取一个号码程序
答：代码如下：Private Sub Command1_Click()Dim num As Integer Do num = Int(Rnd * 51 + 1)Loop While num = 20 ‘当随机值num等于20 的时候返回do 循环 Text1.Text = Str(num)End Sub
VB随机抽数,就是类似秒表那种数字会不断变化的那种
答：，一个Timer控件(Timer1)Private Sub Command1_Click()Timer1.Interval = 50 Timer1.Enabled = True End Sub Private Sub Command2_Click()Timer1.Enabled = False End Sub Private Sub Timer1_Timer()Randomize n = Int(Rnd() * Abs(1 - 100)) + 1 Text1.Text = n End Sub ...
vb抽奖程序
答：Timer1.Enabled = True Command1.Caption = "停止"Else Command1.Caption = "开始"Timer1.Enabled = False End If End Sub Private Sub Form_Load()Command1.Caption = "开始"Timer1.Interval = 50 Timer1.Enabled = False End Sub Private Sub Timer1_Timer()Static a a = a + 1 Label1...
