随机生成100个随机数，并输出最大值的VB代码怎么编写？
如果只是产生最大值和最小值的话,只添加一个command就可以了.
之后写这些代码 .
Private Sub Command1_Click()
Randomize '产生随机数种子 以防止每次生成结果都一样
Dim a(1 To 100) As Integer '声明数组存放数据 用来保存随机数结果
Dim max As Integer, min As Integer '声明两个变量存最大值和最小值
min = 1000: max = 0 '设置初值
For i = 1 To 100 '循环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
Dim a(10)
x = Rnd '第一个随机数总是2
Randomize Timer
'找出随机数
'***********************************************************
For i = 1 To 10
a(i) = Fix(1 + ((100 - 1 + 1) * Rnd)) '公式：Fix(m + (n-m+1 * Rnd))
Randomize Timer
Next i
'**************************************************************
'排序
For i = 1 To 10 - 1
For j = i + 1 To 10
If a(i) > a(j) Then
m = a(i)
a(i) = a(j)
a(j) = m
End If
Next j
Next i
abc = 0
Do While abc = 1
abc = 1
For i = 1 To 10 - 1
For j = i + 1 To 10
If a(i) > a(j) Then
a(j) = Fix(1 + ((100 - 1 + 1) * Rnd))
Randomize Timer
abc = 0
End If
Next j
Next i
Loop
'**************************************************
For i = 1 To 10
MsgBox a(i)
Next i
End
dim a as single
dim i as integer
for i=1 to 100
n=rnd()
if n>a then a=n
next i
print a
因为你没有要求，所以这里产生的是大于等于0而小于1的数。
如果要求要产生从K到J之间的数字(k<j)，把
n=rnd()
换成
n=(j-k+1)*rnd()+k
如果要求是整数，则换成
n=cint((j-k+1)*rnd()+k)
并且把以上所有的single改成Integer。
Private Sub Command1_Click()
Cls
Dim a(100) As Long
For i = 1 To 100
Randomize
a(i) = Int(Rnd * 100) + 1
Next i
For i1 = 1 To 99
For i2 = i1 To 100
If a(i1) < a(i2) Then
b = a(i1)
a(i1) = a(i2)
a(i2) = b
End If
Next i2, i1
For i = 1 To 100
Print a(i);
If i Mod 10 = 0 Then Print
Next i
Print "最大值"; a(1)
End Sub
随机生成100个随机数,并输出最大值的VB代码怎么编写?
for i=1 to 100 n=rnd()if n>a then a=n next i print a 因为你没有要求，所以这里产生的是大于等于0而小于1的数。如果要求要产生从K到J之间的数字(k<j)，把 n=rnd()换成 n=(j-k+1)*rnd()+k 如果要求是整数，则换成 n=cint((j-k+1)*rnd()+k)并且把以上所有的single改...
随机产生100数,输入一个数在100个数中出现的次数
<stdio.h> \/\/随机生成100个数，打印出其最大，最小值 include <stdlib.h> \/\/随机函数rand的头文件 void main(){ int a[100],k,max,min;for(k=0;k<100;k++)\/\/利用数组存储随机数 a[k]=rand();printf("产生的随机数如下:\\n");for(k=0;k<100;k++)\/\/打印出产生的随机数 printf...
利用matlab(或其他任何方式)生成100个随机数,并编制C语言程序进行从小到...
FILE *fp;\/\/ 生成100个随机数 srand(time(NULL));for (i = 0; i < MAX_SIZE; i++) { arr[i] = rand() % 1000;size++;} \/\/ 将随机数存入文件中 fp = fopen("random_numbers.txt", "w");if (fp == NULL) { printf("Failed to open file.\\n");return 1;} for (i =...
c语言随机产生100个数为二维数组,求出数组位置和最大值
} } \/\/先产生100个随机数再赋值给数组 max=b[0][0];mi=0;mj=0; for(i=0;i<10;i++) { for(
用c语言输入100个整数,输出最大值最小值,平均值,并排序
include \/\/产生随机数用 int main(){ int a[100],s=0,i,j,t;srand(time(NULL)); \/\/产生随机数用 printf("开始的100个数:\\n");for(i=0;i<100;i++){ a[i]=rand()%1000; \/\/产生随机数用 \/\/scanf("%d",&a[i]);\/\/读入100个整数用 printf("%4d",a[i]);s+=a[i];...
用LabVIEW编程:产生100个随机数,求最大值和平均值
用for循环结构，N控制为100，然后使用自动索引输出数组。然后用对应函数求最大值和平均值即可。
VB利用随机函数产生100个100~255(包括100和255)范围内的随机数,显示它...
Dim i As Integer, a(100) As Integer, sum As Long Private Sub Command1_Click()Me.Cls 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 En...
VB编程问题:随机产生100个1000以内的整数,并显示出其中的最大值和最...
min = 1000: max = 0 '设置初值 For i = 1 To 100 '循环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) '如果当前数值大于最大值的...
java:随机生成100个1000以内的整数存入数组并排序,然后输出最大的三...
import java.util.Arrays;public class Demo {public static void main(String[] args) {int numCount=100;\/\/随机数个数int maxValue=1000;\/\/随机数的上限int[] ary = new int[numCount];for (int i = 0; i < numCount; i++) {ary[i] = (int)(Math.random()*maxValue);\/\/随机数...
随机生成100到999的整数,输出其中最大值和最小值。
Private Sub Command1_Click()Randomize '产生随机数种子 以防止每次生成结果都一样 Dim a(1 To 100) As Integer '声明数组存放数据 用来保存随机数结果 Dim max As Integer, min As Integer '声明两个变量存最大值和最小值 min = 1000: max = 0 '设置初值 For i = 1 To 100 '...