77问答网
所有问题
vb编写程序,利用随机函数产生并显示10 个1~100 之间的随机整数并找出这个数中的最大及该元素
编写程序,利用随机函数产生并显示10 个1~100 之间的随机整数:并找出这个数中的最大值及该元素对应的下标。(
举报该问题
推荐答案 2018-11-14
Private Sub Command1_Click()
Dim a(10) As Integer
Randomize
Max = 1
For i = 1 To 10
a(i) = 1 + Int(Rnd * 100)
Print a(i);
If a(i) > a(Max) Then Max = i
Next i
Print
Print "a("; Max; ")="; a(Max)
End Sub
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://77.wendadaohang.com/zd/I33p3vIp8pIvv8G3pW.html
其他回答
第1个回答 2018-11-14
私聊我
追问
....
相似回答
...
一
个
随机数程序,
生成10个范围是1到
100随机整数
,
并
求出这
10个数的最
...
答:
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程序
设计
利用
随即
函数
RND
产生10个1
到
100的整数,
输出这10个
数,并
...
答:
Private Sub Command1_Click()Dim min As Integer Dim max As Integer Dim av As Integer Dim i As Integer av = a(0)min = a(0)max = a(0)Text1.Text = Text1.Text + "第 0 个数=" + CStr(a(0)) + vbCrLf For i = 1 To 9 av = av + a(i)Text1.Text = Text1.Tex...
vb
利用随机函数产生10个1~100之间的随机数,显示
出最大值最小值,平均...
答:
NextPrintPrint "最大值:"; maxPrint "最小值:"; minPrint "平均值:"; arg / 10End Sub
vb编写程序,
将
利用随机函数产生的10个
不大于
100的整数
保存在数组中...
答:
程序如下:Private Sub Form_Activate()Dim a(1 To 10) As Integer '定义存放10个小于等于
100的整数
数组 Dim sum, i, max, min As Integer '定义sum存放10个数的和,min放
10个数中最
小值,max放最大值,i循环控制变量 Dim aver As Single '定义aver放平均值 sum = 0 max = 0 ...
vb程序
通过
随机函数
生成10个正
整数,
存放在数组中,然后查找这
10个数
...
答:
Private Sub Command1_Click()Dim a(10) As Integer Randomize j = 1 Print "
产生的10个数
是"For i = 1 To 10 a(i) = 1 + Rnd *
100
If a(i) < a(j) Then j = i Print a(i);Next i Print Print "最小数是第"; j; "个,"; a(j)End Sub ...
VB编程
:使用一维数组
编写程序,随机产生10个
0
~100的整数
,求出最大值...
答:
min As Integer max = 0 min =
100
For i = 1 To 10 If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) Next i Print "max"; max; "min"; minEnd SubPrivate Sub Command3_Click() Dim ave As Double For i = 1 To 10 ...
VB
怎么
写随机
生成
10个
[
1,100
]
之间的数,并
从大到小排列的
程序
?
答:
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) > ...
大家正在搜
vb产生随机数的函数
vb随机函数10~100
vb随机函数怎么用
vb随机数函数
VB随机函数的应用
vb随机函数公式
vb如何编写程序代码
vb游戏编写程序
vb随机数rnd
相关问题
vb编写程序,利用随机函数产生并显示10 个1~100 之间...
VB利用随机函数Rnd生成10个10-99的整数,并计算其中...
编写程序,利用随机函数产生并显示10 个1~100 之间的随...
在 VB中,利用随机函数产生 10个 1---100 之间的...
VB编程问题:1使用随机函数产生10个10~100之间的随机...
vb编写程序,将利用随机函数产生的10个不大于100的整数保...
vb:编写一程序 产生10个100~200间的随机整数,找出...
用VB编程:随机产生10个0~100之间的随机整数,存放在一...