Question

关于VB程序问题 高手进啊 哪位高手帮小弟做一下 跪谢！

在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，在文本框中输入一个不大于50的正整数N，单击命令按钮完成以下工作：
①随机产生N个两位随机正整数，存入一个一维数组中，并显示在窗体左侧，一行5个数；
②求出所有元素的平均值（保留2位小数），并显示在窗体右侧如下图所示的标签中。

Answer 1

Private Sub Cmd1_Click()
Dim a%(), n%, avg%
n = Val(Text1.Text)
If IsNumeric(Text1.Text) And n >= 1 And n <= 50 Then
ReDim a(1 To n)
For i = 1 To n
a(i) = Int(Rnd * 90) + 10
avg = avg + a(i)
Print a(i);
If i Mod 5 = 0 Then Print
Next
Label1.Caption = "平均值：" & Round(avg / n, 2)
Else
MsgBox "输入的数据：" & Text1.Text & "不正确"
End If

End Sub

追问

谢谢啊！

追答

刚才那个回答为什么删掉？

追问

我也不知道怎么弄的 不好意思 帮忙在做一下这个好吗 明天考试http://zhidao.baidu.com/question/444818358.html?quesup2

追答

已回答

Answer 2

Private Sub Cmd1_Click()
Dim i As Integer
Dim count As Integer
Dim myValue As Integer
Dim mySum As Integer
Dim mytext As String
mySum = 0 '求和
mytext = "" '显示文本
Cls '清除窗体
If IsNumeric(Text1.Text) Then '是数字
If Text1.Text > 50 Then
Else '小于50
count = Text1.Text
For i = 1 To count
myValue = Int((90 * Rnd) + 10)
mySum = mySum + myValue
mytext = mytext & Space(1) & myValue '连接显示的字符串
If i Mod 5 = 0 Then '满5个显示
Print mytext
mytext = ""
Else
End If
Next
Print mytext '显示不足5个的
Label3.Caption = Round(mySum / count, 2) '计算平均数并显示，两位小数
End If
End If

End Sub

Answer 3

？