Dim a(9) As Integer, max As Integer, min As Integer, arg As Single, i As Integer
Randomize
For i = 0 To 9
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);
Next
Print "最大值："; max
Print "最小值："; min
Print "平均值："; arg / 10
End Sub
vb 利用随机函数产生10个1~100之间的随机数,显示出最大值最小值,平均...
arg As Single, i As IntegerRandomizeFor i = 0 To 9 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);Next...
...是1到100随机整数,并求出这10个数的最大值,最小值和平均数
Min_num=101 Max_num=-1 Sum_num=0 '循环10次获得10个随机数 for i=1 to 10 randomize Arr_num(i-1)=int(rnd*100)+1 '判断后赋值最小值 if Arr_num(i-1)<Min_num then Min_num=Arr_num(i-1)'判断后赋值最大值 if Arr_num(i-1)>Max_num then Max_num=Arr_num(i-1)'累...
怎么用vb计算10个任意数的平均值
要计算10个任意数的平均值，首先需要随机生成这10个数。这里我们设定这10个数在0到100之间。初始化最大值max为0，最小值min为100。接着，通过一个for循环进行10次迭代。在每次迭代中，调用randomize函数来初始化随机数生成器。随后，使用int函数结合rnd函数生成一个0到99之间的整数n，这个n即是当前的...
VB编程题用冒泡法从大到小输出,并另单独输出最大值和最小值、平均值...
Nsum = 0 For i = 1 To 10 Nsum = Nsum + a(i)Print a(i)Next i Nsum = Nsum \/ 10 Print Print "最大值是 " & a(1)Print "最小值是 " & a(10)Print "平均值是 " & Nsum End Sub Sub Swap(a, b)Tmp = a: a = b: b = Tmp End Sub ...
计算机VB中,利用随机函数产生10个10-100的随机数,并将其赋值给数组a...
Private Sub Command1_Click() Dim a(10) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd() * 91) + 10 Print a(i); s = s + a(i) Next i Print Print "平均值="; s \/ 10End Sub
用vb编程使用随机函数(rnd)生成10个随机数,然后按递减顺序排列。我明...
a(0) = Int(101 * Rnd()) '生成0~100之间的随机整数 j = i - 1 ‘以下是降序的插入排序 While a(j) < a(0)a(j + 1) = a(j)j = j - 1 Wend a(j + 1) = a(0)Next i For i = 1 To 10 Print a(i);Next i Print End Sub ...
利用随机数产生函数rand产生10个整数,输出这10个数,并输出他们中的最...
include <stdlib.h> int main(int argc, char* argv[]){ printf("产生的10个随机数如下:\\n");int nAll =0,nMax =0,nMin = 0;nAll = rand();nMax = nAll;nMin = nAll;printf("%d ",nAll);for (int i = 1 ;i < 10;i++){\/\/只进行9次运算 int nRand = rand();printf("...
VB怎么在LIST里随机产生10个0-100的偶数
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。Rnd 函数返回小于 1 但大于或等于 0 的值。所以你的问题可以这样x=Int((50 - 0 + 1) * Rnd + 0) * 2 ...
请问怎样在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...
