早教吧作业答案频道 -->其他-->
产生20个1-100之间的整数,存入一个数组中。实现以下功能。(1)输出数组。(2)求最大值及最大值所在的下标。(3)完成数组排序,并输出。请用vb解决
题目详情
产生20个1-100之间的整数,存入一个数组中。实现以下功能。
(1)输出数组。
(2)求最大值及最大值所在的下标。
(3)完成数组排序,并输出。
请用vb解决
(1)输出数组。
(2)求最大值及最大值所在的下标。
(3)完成数组排序,并输出。
请用vb解决
▼优质解答
答案和解析
Option Base 1
Private Sub Command1_Click()
Dim a(20) As Integer
'以下代码功能是产生20个随机数并输出
For i = 1 To 20
a(i) = Int(100 * Rnd) + 1
Print a(i),
If i Mod 5 = 0 Then Print
Next i
'以下代码功能是求数组最大值和最小值的下标
Max = 1: Min = 1
For i = 1 To 20
If a(Max) < a(i) Then
Max = i
End If
If a(Min) > a(i) Then
Min = i
End If
Next
Print "数组最大值的下标是:"; Max
Print "数组最小值的下标是:"; Min
'以下代码功能是将数组从大到小排序
For i = 1 To 19
For j = 20 To i + 1 Step -1
If a(j) > a(j - 1) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
Next i
'以下代码功能是输出排序的结果
For i = 1 To 20
Print a(i),
If i Mod 5 = 0 Then Print
Next i
End Sub
Private Sub Command1_Click()
Dim a(20) As Integer
'以下代码功能是产生20个随机数并输出
For i = 1 To 20
a(i) = Int(100 * Rnd) + 1
Print a(i),
If i Mod 5 = 0 Then Print
Next i
'以下代码功能是求数组最大值和最小值的下标
Max = 1: Min = 1
For i = 1 To 20
If a(Max) < a(i) Then
Max = i
End If
If a(Min) > a(i) Then
Min = i
End If
Next
Print "数组最大值的下标是:"; Max
Print "数组最小值的下标是:"; Min
'以下代码功能是将数组从大到小排序
For i = 1 To 19
For j = 20 To i + 1 Step -1
If a(j) > a(j - 1) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
Next i
'以下代码功能是输出排序的结果
For i = 1 To 20
Print a(i),
If i Mod 5 = 0 Then Print
Next i
End Sub
看了 产生20个1-100之间的整...的网友还看了以下:
命题“如果实数x能被2整除,则x是偶数”的否命题是()A.如果实数x不能被2整除,则x是偶数B.如 2020-04-09 …
已知X1,X2是一元二次方程4KX平方-4KX+k+1=0的两个实数根.1.是否存在实数K、使(2 2020-05-17 …
例如我们约定正整数a和b中,如果a除以b的商的整数部分记作Z(b分之a),而它的余数记作R(b分之 2020-06-17 …
例如:他借了我10钱搞不清楚到底是他借给我10元钱还是他向我借走了10元钱再例如:4被2整除我开始 2020-06-30 …
1、已知2^12-1可以被60-70之间的两个整数整除,则这两个整数是多少?2、计算:(1-2^2 2020-07-19 …
根号2和2分之根号3是不是整式.为什么啊.根号2分之根号三为什么不是整式.那是什么.,我初三别说的 2020-07-30 …
数学题实数1.绝对值小于根号7的整数有.2.下列说法中,正确的是()A.实数-X的绝对值是XB.绝 2020-08-01 …
判断下面哪个集合势最大?1,实数集合2,整数到整数的所有函数集合3,实数集合到{0,1}集合的所有 2020-08-01 …
2分之1x-y,5a,x^2-y+3分之2,太分之1,xyz,-y的5分之1,3分之x+y-z中有( 2020-10-31 …
分数4分之23介于正整数()和()之间分数8分之35介于正整数()和()之间分数10分之81介于正整 2020-11-28 …