Randomize() '产生随机数种子 以防止每次生成结果都一样
Dim a(100) As Integer '声明数组存放数据 用来保存随机数结果
Dim max As Integer, min As Integer '声明两个变量存最大值和最小值
min = 1000 : max = 0 '设置初值
For i = 0 To 99 '循环100次
a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一个随机数 由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000之间
If a(i) >= max Then max = a(i) '如果当前数值大于最大值的变量就保存
If a(i) <= min Then min = a(i) '如果当前数值小于最小值的变量就保存
Next
MsgBox("最大值为" & max)
MsgBox("最小值为" & min)
End Sub追问
谢谢！想问为什么min的初值为1000，max初值为0呢？
vb.net程序,利用随机函数产生100个1到100之间的整数,求其中的最大最小...
Dim max As Integer, min As Integer '声明两个变量存最大值和最小值 min = 1000 : max = 0 '设置初值 For i = 0 To 99 '循环100次 a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一个随机数 由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000...
VB利用随机函数产生100个100~255(包括100和255)范围内的随机数,显示它...
Print "100个随机数："Randomize For i = 1 To 100 a(i) = Int((Rnd() * (255 - 100 + 1)) + 100)sum = sum + a(i)Print a(i);If i Mod 10 = 0 Then Print Next i Print End Sub Private Sub Command2_Click()max = a(1): min = a(1): maxi = 1: mini = 1 ...
VB编程产生100个0-100之间的随机整数找出其中能被3整除的数,并且按由...
函数代码如下：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End Function二、举个例子，要产生10个1到100之间的随机整数，如下：1、打开VB6.0开发软件，新建一个标准exe工程；2、在设计界面上添加一个Text控件和一个Command控件；3、Command1控件的Caption属性设置为"产生10...
随机产生100个 1~100之间的整数,存放在一个一维数组中,显示所有小于60...
Private Sub Command1_Click()Dim a(1 To 100) As Integer Cls For i = 1 To 100 Randomize a(i) = Int(Rnd * 100 + 1)If a(i) < 60 Then n = n + 1 Print a(i);If n Mod 10 = 0 Then Print End If Next i Print Print "小于60的元素共有"; n; "个"End Sub ...
vb产生随机数1至100
VB生成1-100之间的随机整数，可以使用系统自带的Rnd()方法进行实现，代码如下：Private Sub Command_Click()MyValue = Int((100 * Rnd) + 1) d()函数生成随机数 Print MyValue \/\/打印出这个随机数 Private Sub Form_Load()Randomize \/\/初始化随机数生成器 End Sub ...
vb 随机数 最大值 最小值
VB编程生成随机数：Randomize '必要代码，不然的话每次随机生成都是一样的数a=int(rnd*(m-n+1))+n '其中m>n生成n~m间（包括n，m）的随机整数'假如想随机生成20-100间'那么就是n=20，m=100'代码如下：int(rnd*(100-20+1))+20VB编程数值比较求最大值、最小值：Private Sub ...
vb 利用随机函数产生10个1~100之间的随机数,显示出最大值最小值,平均...
a(i) = Int(Rnd * 100) + 1 arg = arg + a(i) If i = 0 Or a(i) > max Then max = a(i) If i = 0 Or a(i) < min Then min = a(i) Print a(i);NextPrintPrint "最大值："; maxPrint "最小值："; minPrint "平均值："; arg \/ 10End Sub ...
Python 随机产生[0,100]以内的随机数,找到最大值和最小值并交换位置
过程如图所示：获取1~100以内的随机数有两种方法：方法1：可以通过Math类中的random方法获取随机数，再乘以100加1，然后转换为int类型即可。方法2：可以通过Random类中的nextInt方法获取随机数。
VB编程题:编写一个产生1 至100之间的随机整数的Function 过程_百度...
可以使用Rnd*98，产生的是[0,98)的随机数，而int(Rnd*98)产生的是[0,97]之间的随机整数，那么int(Rnd*98)+2产生的就是[2,99]之间的随机整数了，符合目标1到100之间的随机数目的。函数代码如下：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2 End Function ...
C语言:通过随机函数产生100个( 0--100 )之间的整数,统计其中各个数据段...
if (*(x + i) == 100)(y + 10) = ++count_100;} } \/\/输出x执行的内存空间中的n个数据 void arrayOut(int *x, int n) { int m = 0;if (n == 11) { printf("0-9\\t10-19\\t20-29\\t30-39\\t40-49\\t50-59\\t60-69\\t70-79\\t80-89\\t90-99\\t100\\n");for (int i ...
