11问答网
所有问题
当前搜索:
vb中产生随机数
vb
编程,用
随机
函数
产生
50个10~100之间的互不相同的整数存于一数组中...
答:
Private Sub Command1_Click()Dim x(90) As Integer '高效代码,
产生
无重复
随机数
For i = 10 To 100 x(i - 10) = i Next Randomize For i = 1 To 50 j = Int(Rnd * (91 - i)) + i t = x(i)x(i) = x(j)x(j) = t Next '排序 For i = 1 To 50 For j = 1 ...
VB
生成
随机数
问题
答:
Dim x As Integer 你这个x要改成公用变量,否则Private Sub Timer1_Timer()里面的x值就是null,怎么行? 修改如下,复制进去即可:Dim x As Integer Private Sub Form_Load()x = InputBox("请输入需设定数的最大值。", "键入数值", 0)End Sub Private Sub Command1_Click()Timer1.Enabled ...
VB中
如何
产生
一个范围在1—7之间的
随机数
答:
Private Sub Command1_Click()MsgBox Int(7 Rnd + 1)End Sub 这个就是
产生
一个1-7的
随机
整数,如果你想避免每次程序运行的数都一样,可以在前面加上randomize ,如果不要整数就把int去掉就可以了
VB
~单击
产生随机数
命令按钮,产生10个两位正整数,并显示到窗体上_百度...
答:
Private Sub Command1_Click()Dim i As Integer For i = 1 To 10 Print Int(Rnd() * 90) + 10;Next i Print End Sub Private Sub Form_Load()Command1.Caption = "
产生随机数
"End Sub
vb产生
10个不同
随机数
答:
其实呢,思考了一个晚上,还是有解决的办法的.就是用循环嵌套选择句再加上rnd配合起使用的话.低位\高位都可以取到了.代码如下:已经测试成功..绝对符合你的要求..要给分哦 dim i%,wei%,a#(1 to 100)randomize for i = 1 to 100 wei = int(rnd 9 + 1)select case wei case is = 1 a(...
vb
语言如何
产生随机
数组并使数组在text中显示
答:
产生
100个1000以内
随机数
并在Text中显示 Private Sub Form_Load()Dim a(100) As Integer Randomize Timer For k = 1 To 100 a(k) = Int(Rnd() * 1000)Text1 = Text1 & Str(a(k))Next k End Sub
关于
VB中
Rnd函数的问题、
答:
vb中
Rnd函数
产生
的
随机数
,范围在: 0<=Rnd<1
vb 中
如何
产生
9个不同的
随机数
答:
给你一个函数,是生成不重复的
随机数
数组的 'Min是随机数的最小整数, Max是最大整数 Function mRnds(Min As Long, Max As Long) As Long()Dim i As Long, Be As Long, Bes() As Long, Indes As String ReDim Bes(Max - Min)For i = Min To Max Indes = ""Do Be = Int((Max ...
VB
编程
中随机数产生
答:
randomize a=(int(rnd()*1000+1))*10 a就是你要的数字
用
VB
编写一个程序:
随机产生
10个递增的100~400的
随机数
,存放到数组中...
答:
private sub FORM1_LOAD()dim a(1 to 10) as Integer,I AS INTEGER FOR I=1 TO 10 A(I)=RAND*300+100 NEXT 对数组排序,课本上有的,抄过来就可以,我就不往上敲了 END SUB 如果不行就是你窗体的属性设置不对,具体我忘那个属性了,你做一个按钮,把时间改为单击按钮事件 ...
棣栭〉
<涓婁竴椤
7
8
9
10
12
13
14
15
16
11
涓嬩竴椤
灏鹃〉
其他人还搜