早教吧作业答案频道 -->其他-->
1.随机产生30个两位正整数,将其中互不相同的数存入数组a中,按从小到大的顺序排序并在窗体中每行5个输出,最后输出互不相同数的个数.把程序补充完整.PrivateSubFormClick()Dima(30)AsInteger,iA
题目详情
1.随机产生30个两位正整数,将其中互不相同的数存入数组a中,按从小到大的顺序排序并在窗体中每行5个输出
,最后输出互不相同数的个数.把程序补充完整.
Private Sub Form_Click()
Dim a(30) As Integer,i As Integer,j As Integer
Dim x As Integer,count As Integer,temp As Integer
count = 0
For i = 1 To 30
x = ______ ( 1 )______
For j = 1 To count
If a(j) = x Then Exit For
Next j
If j > count Then
______ ( 2 )______
a(count) = x
End If
Next i
For i = 1 To count - 1
For j = ______ ( 3 )______
If a(i) > a(j) Then
______ ( 4 )______
a(i) = a(j)
a(j) = temp
End If
Next j
______ (5 )______
For i = 1 To count
Print a(i);
If ______ (6 )______ Then Print
Next i
______ (7 )______
End Sub
,最后输出互不相同数的个数.把程序补充完整.
Private Sub Form_Click()
Dim a(30) As Integer,i As Integer,j As Integer
Dim x As Integer,count As Integer,temp As Integer
count = 0
For i = 1 To 30
x = ______ ( 1 )______
For j = 1 To count
If a(j) = x Then Exit For
Next j
If j > count Then
______ ( 2 )______
a(count) = x
End If
Next i
For i = 1 To count - 1
For j = ______ ( 3 )______
If a(i) > a(j) Then
______ ( 4 )______
a(i) = a(j)
a(j) = temp
End If
Next j
______ (5 )______
For i = 1 To count
Print a(i);
If ______ (6 )______ Then Print
Next i
______ (7 )______
End Sub
▼优质解答
答案和解析
Private Sub Form_Click()
Dim a(30) As Integer,i As Integer,j As Integer
Dim x As Integer,count As Integer,temp As Integer
count = 0
For i = 1 To 30
x = Int((90 * Rnd) + 10):Randomize
For j = 1 To count
If a(j) = x Then Exit For
Next j
If j > count Then
count = count + 1
a(count) = x
End If
Next i
For i = 1 To count - 1
For j = i To count
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 1 To count
Print a(i);
If i Mod 5 = 0 Then Print
Next i
Print
End Sub
Dim a(30) As Integer,i As Integer,j As Integer
Dim x As Integer,count As Integer,temp As Integer
count = 0
For i = 1 To 30
x = Int((90 * Rnd) + 10):Randomize
For j = 1 To count
If a(j) = x Then Exit For
Next j
If j > count Then
count = count + 1
a(count) = x
End If
Next i
For i = 1 To count - 1
For j = i To count
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 1 To count
Print a(i);
If i Mod 5 = 0 Then Print
Next i
End Sub
看了1.随机产生30个两位正整数,...的网友还看了以下:
成本问题很急资料:某厂生产的A产品顺序经过第一、第二、第三叁道工序加工,单位产品原材料消耗定额为1 2020-05-16 …
如何在Matlab中利用已产生的m序列产生gold序列?rt,阶数是6,两个m序列系数分别是100 2020-05-17 …
数学方面应用题.一共有3台机床,有1200件毛坯需要加工成零件.这些零件用两个工序就能完成,计划先 2020-05-20 …
具有同一功能,能产生同一运行结果的计算机程序是同一个计算机程序。( ) 2020-05-23 …
在一棵二叉树的前序遍历、中序遍历、后序遍历所产生的序列中,所有叶结点的先后顺序( )。A.都不相同B 2020-05-23 …
在一棵二叉树的先序遍历、中序遍历、后序遍历所产生的序列中,所有叶节点的先后顺序A.都不相同B.完 2020-05-23 …
在一棵二叉树的先序遍历、中序遍历、后序遍历所产生的序列中,所有叶节点的先后顺序()。A.都不相同B. 2020-05-24 …
在一棵二叉树的先序遍历、中序遍历、后序遍历所产生的序列中,所有叶结点的先后顺序A.都不相同B.完 2020-05-24 …
下面是关于解释程序和编译程序的叙述,正确的是()A.编译程序和解释程度均能产生目标程序B.编译程序 2020-06-12 …
这题成本会计,怎么计算?甲产品顺序经过两道工序加工,原材料在第一道工序生产开始时投入90%,第二道工 2020-12-01 …