VB自动生成1－100的随机数

请问怎样在vb生成一个1到100的随机整数？~

VB生成1-100之间的随机整数，可以使用系统自带的Rnd()方法进行实现，代码如下：
Private Sub Command_Click() Dim MyValue //定义一个随机数 MyValue = Int((100 * Rnd) + 1) //rnd()函数生成随机数 Print MyValue //打印出这个随机数End SubPrivate Sub Form_Load() Randomize //初始化随机数生成器End Sub

先把Text1的MultiLine属性设为True,这样文本框才能进行换行
Private Sub Command1_Click()
Text1 = "" '清空Text1中的现有文本
Dim score(1 To 20) As Integer, i As Integer, j As Integer
For i = 1 To 20 '用随机函数给数组score（）赋100以内的值
score(i) = Int(Rnd * 100)
Next i
For i = 20 To 2 Step -1 '用冒泡排序法对已赋值的数组进行排序
For j = 1 To i - 1
If score(j) > score(j + 1) Then
t = score(j)
score(j) = score(j + 1)
score(j + 1) = t
End If
Next j
Next i
For i = 1 To 20 '在文本框中输出排好序的数组
Text1.Text = Text1.Text & Space(3) & score(i)
If i Mod 5 = 0 Then '输出五后个换行
Text1.Text = Text1.Text & Chr(13) + Chr(10)
End If
Next i
End Sub

你这个程序能够运行。
既能让1-100各个数字按随机顺序排列，也能把这个序列的各个数字保存到文件中。
只是，这个方法效率太低，应该用更好的算法提高效率。
有什么问题请留言。

Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。

MyValue = Int((100 * Rnd) + 1) ' 生成 1 到 100 之间的随机数值。

这个程序是对的。只是程序的效率不高。生成100个随机整数，其中的语句If a(j) = a(k) Then i = i - 1竟然执行3万~8万多次。
其中的Text1控件，必须要设置初始值为空，而且设置Multyline属性为True。

4个整数的排序，有使用单个变量和使用数组二种方法实现。
使用单个变量的方法：
#include<stdio.h>
int main()
{int a,b,c,d,t;
scanf("%d%d%d%d",&a,&b,&c,&d);
if(a>b){t=a;a=b;b=t;}
if(a>c){t=a;a=c;c=t;}
if(a>d){t=a;a=d;d=t;}
if(b>c){t=b;b=c;c=t;}
if(b>d){t=b;b=d;d=t;}
if(c>d){t=c;c=d;d=t;}

printf("%d %d %d %d\n",a,b,c,d);
return 0;
}

使用数组和循环的方法：
#include<stdio.h>
int main()
{int a[4],i,j,t;
for(i=0;i<4;i++) //读入4个数据
scanf("%d",&a[i]);
for(i=0;i<3;i++) //冒泡排序
for(j=0;j<3-i;j++)
if(a[j]>a[j+1])
{t=a[j];a[j]=a[j+1];a[j+1]=t;}

for(i=0;i<4;i++) //输出4个数据
printf("%d ",a[i]);
printf("\n");
return 0;
}

rnd*100+1
rnd*100+1
rnd*100+1

---

涡阳县13753636014： VB编程随机数VB中随机产生一个 1 到 100的数的代码! 知道的说下!谢谢了!!!! - ？
斐剑谷悦：[答案] Int(Rnd * 100 + 1)

涡阳县13753636014： VB自动生成1 - 100的随机数 - ？
斐剑谷悦： 你这个程序能够运行. 既能让1-100各个数字按随机顺序排列,也能把这个序列的各个数字保存到文件中. 只是,这个方法效率太低,应该用更好的算法提高效率. 有什么问题请留言.

涡阳县13753636014： 如何用vb编程随机排列从1到100 - ？
斐剑谷悦： 使用Rnd 函数完成随机数取得.1. Rnd 函数,返回一个包含随机数值的 Single.2. Dim MyValue Randomize ' 对随机数生成器做初始化的动作.MyValue = Int((100 * Rnd) + 1) ' 生成 1 到100之间的随机数值.

涡阳县13753636014： 在vb中怎样随机产生⑴00到100之间的数？
斐剑谷悦： Sub 随机数() Dim R As Integer Randomize R = Int(Rnd(2) * 200) - 100 MsgBox REnd Sub以上程序产生1个随机数,如果需产生多个随机数,可在程序中加入循环.

涡阳县13753636014： 用VB写出产生10个1到100的随机整数 - ？
斐剑谷悦： dim a(10) as integer randomize for i=1 to 10a(i)=int(100*rnd)+1 next i

涡阳县13753636014： 用VB编写可连续生成十个0至100之间的随机整数 - ？
斐剑谷悦： 建一个按钮,两个label控件: private sub command1_Click()dim i as integer dim rInt as integer dim s1 as string dim s2 as string s1=＂＂ s2=＂＂ for i= 1 to 10 Randomize rInt=int(rnd() * 100) s1=s1 & cstr(rInt) if rInt mod 2 =0 then s2=s2 & cstr(rInt) end if next i label1.caption=s1 label2.caption=s2end sub

涡阳县13753636014： vb编程 编写一个产生n*m个1到100的随机数存入二维数组的通用过程 - ？
斐剑谷悦： Dim n, m As Integer n = InputBox(＂请输入二维数组的行数＂) m = InputBox(＂请输入二维数组的列数＂) Dim a(n, m) As Integer For i = 1 To n For j = 1 To m a(i, j) = Int(Rnd() * 100 + 1) Next Next

涡阳县13753636014： 如何用VB生成1至100这个范围内的100个不重复乱序随机数 - ？
斐剑谷悦： 正在做,请稍等......已经做完了,不需要控件,代码如下:Private Sub Form_Load()Dim A(100) As Integer, B(100) As IntegerDim I As Integer, J As Integer, K As IntegerForm1.AutoRedraw = TrueRandomizeFor I = 1 To 100A(I) =...

涡阳县13753636014： VB编程产生100个0 - 100之间的随机整数找出其中能被3整除的数,并且按由小到大顺序十个一行排列? - ？
斐剑谷悦： 一、要产生1到100之间的随机数,首先了解Rnd函数的用法,Rnd函数产生的是0和1之间的随机数,范围是[0,1),包括0,但不包括1.因此要产生1~100之间的随机数,可以使用Rnd*98,产生的是[0,98)的随机数,而int(Rnd*98)产生的是[0,...

涡阳县13753636014： 用VB实现产生0到100的随机数不重复,并且显示最值 - ？
斐剑谷悦： 下载附件或窗口放以下控件List1Option1Caption = ＂最小值＂Option2 Caption = ＂最大值＂Text1Text = ＂＂ Command1Caption = ＂生成＂ 查口代码粘帖如下:Option ExplicitPrivate Const ValueLimit As Long = 100 ' 生成的最大数...