UC知道3． 建立一个VB应用程序，
来源：百度知道 编辑：UC知道 时间：2024/06/24 12:49:51
请高手帮忙
3． 建立一个VB应用程序，创建工程vb3.vbp和窗体vb3.frm文件，生成可执行文件vb3.exe，保存路径均为C:\VB实验1\ 目录。要求利用随机函数随机产生10个10~99的随机整数，利用数组将它们从小到大以及从大到小排列并显示，并显示平均数。
3． 建立一个VB应用程序，创建工程vb3.vbp和窗体vb3.frm文件，生成可执行文件vb3.exe，保存路径均为C:\VB实验1\ 目录。要求利用随机函数随机产生10个10~99的随机整数，利用数组将它们从小到大以及从大到小排列并显示，并显示平均数。
我只发过来代码了哈
Dim a(10) As Byte, m As Integer
Private Sub Form_Click()
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Print "第 "; i; "个数;"; a(i)
Next
For i = 1 To 10
For j = i To 10
If a(i) < a(j) Then m = a(j): a(j) = a(i): a(i) = m: m = 0
Next
Next
Print "从大到小排列为";
For i = 1 To 10
Print a(i);
Next
Print
Print "从小到大排列为";
For i = 10 To 1 Step -1
Print a(i);
Next
Print
For i = 1 To 10
m = m + a(i)
Next
m = m / 10
Print "平均数为";
Print m
End Sub
你只要再保存一下，再工具——发布——建立输出就能生成可执行文件了哈