VB编程问题:1使用随机函数产生10个10~100之间的随机整数存放在一维数组A中,并把该数组排序后显示在一个
文本框里。输入一个插入数据,插入到数组A中后,使数组仍然有序。将程序空白处填写完整即可。Dima(1To11)AsIntegerPrivateSubCommand1_Cl...
文本框里。输入一个插入数据,插入到数组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中,并把该数组排序后显示在一个文本框里。删除其中一个数,并使数组仍然有序。 展开
将程序空白处填写完整即可。
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中,并把该数组排序后显示在一个文本框里。删除其中一个数,并使数组仍然有序。 展开
1个回答
展开全部
根据已有的程序行,缺的内容主要就是一个排序过程。添加一个排序的过程就行了。但是不知道该添在哪里,请说明程序的空白处是在哪里?能不能标出来,比如用括号,星号什么的,标一下需要补充到哪里?
或者,能不能说明一下,各文本框,按钮的功能是什么? d = Val(Text3.Text),这个应该是要插入的数据了,说明text3是用来输入的,Text2.Text = Text2.Text & Str(a(i)),这说明text2是显示排序后的结果的,
那有没有text1?用作什么?两个按钮定义的功能是什么?插入的数据怎么插?是随机插入一个位置,并替换掉原来的数据还是将数组重新定义随机插入后,后面的数向后移?
这些需要说明一下,或者把需要填写的位置标清楚,不然,不好确定该怎么填。
或者,能不能说明一下,各文本框,按钮的功能是什么? d = Val(Text3.Text),这个应该是要插入的数据了,说明text3是用来输入的,Text2.Text = Text2.Text & Str(a(i)),这说明text2是显示排序后的结果的,
那有没有text1?用作什么?两个按钮定义的功能是什么?插入的数据怎么插?是随机插入一个位置,并替换掉原来的数据还是将数组重新定义随机插入后,后面的数向后移?
这些需要说明一下,或者把需要填写的位置标清楚,不然,不好确定该怎么填。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询