vb编程单击窗体实现如下功能 帮帮我吧～

来源：百度知道 编辑：UC知道 时间：2024/06/16 04:39:51
单击窗体，实现下述功能：
利用随机函数Rnd产生n个随机两位数（整数），显示在窗体上（一行），然后再第二行输出这N个数中的最大值和平均值。（利用InputBox函数输入n）

private sub form_click()
dim max as integer, S as integer, i as integer, n as integer,K as integer
n=inputbox("请输入N的值：","","20")
max=0
for i=1 to n
randomize
K=int(rnd*90+10)
print K;
if K>max then max=K
s=s+K
next i
print
pirint "最大值：";max; "，平均值：";s/n
end sub

Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer, h As Integer
Cls
Randomize
c = 0
a = InputBox("产生多少个数:")
For i = 0 To a - 1
b = Int((90 * Rnd) + 10)
Print b;
If b > c Then c = b
h = h + b
Next i
Print: Print "最大数:" & c & " 平均值为:" & h / a
End Sub

Dim suiji() As Integer
Private Sub Form_Click()
Cls
n = InputBox("请输入n值！", "", "")
ReDim suiji(1 To n) As Integer
For i = 1 To n
mm: suiji(i) = Int(Rnd() *