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() *