文本框里。输入一个插入数据,插入到数组A中后,使数组仍然有序。
将程序空白处填写完整即可。
Dim a(1 To 11) AsInteger
Private SubCommand1_Click()
Dim i As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Next i
‘请在下面空白处将程序补充完整。
End Sub
Private SubCommand2_Click()
Dim d As Integer, m As Integer
Dim k As Integer, i As Integer
d = Val(Text3.Text)
‘请在下面空白处将程序补充完整。
For i = 1 To 11
Text2.Text = Text2.Text & Str(a(i))
Next i
EndSub
2.
随机产生10个100~200之间的正整数,把它们存放到数组中,求该数组中最大数、最小数及它们的平均数。
3.使用随机函数产生10个10~100之间的随机数存放在一维数组a中,并把该数组排序后显示在一个文本框里。删除其中一个数,并使数组仍然有序。