急求VB答案。。谢谢！！

xie0307 2010-04-21 10:00:48

单击窗体，实现下述功能：
利用随机函数Rnd产生n个随机两位数（整数），显示在窗体上（一行），然后再第二行输出这10个数中的最大值和平均值。（利用InputBox函数输入n）

...全文

99 11 打赏收藏转发到动态举报

写回复

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

dl20070302 2010-04-29

打赏
举报

先看书.看了语法后就找例子做.

xie0307 2010-04-27

打赏
举报

能告诉我VB该怎样学吗？我的确是菜鸟，什么都不懂，但我想把它学好。

myy168 2010-04-27

打赏
举报

并不太难啊。。。

chinaboyzyq 2010-04-25

打赏
举报



Private Sub Command1_Click()

   Dim n As Integer, i As Integer

   Dim tmp1 As Integer, tmp2 As Integer

   Dim maxNum As Integer, avgNum As Single

   n = Val(InputBox("请输入个数"))

   For i = 1 To n

       tmp1 = Int(Rnd * 100) + 10

       Print tmp1;

       If maxNum < tmp1 Then maxNum = tmp1

       tmp2 = tmp2 + tmp1

   Next

   avgNum = tmp2 / n

   Print: Print maxNum; avgNum

   

End Sub

threenewbee 2010-04-24

打赏
举报

Private Sub Command1_Click()

    Dim n  As Long

    Dim na() As Long

    Dim max As Long

    Dim avg As Double

    n = InputBox("please input n")

    If n = 0 Then Exit Sub

    ReDim na(1 To n)

    Randomize

    For i = 1 To n

        na(i) = Int(Rnd * 90) + 10

        If na(i) > max Then max = na(i)

        avg = avg + na(i)

    Next

    avg = avg / n

    For i = 1 To n

        Print na(i);

    Next

    MsgBox "max is " & max & vbCrLf & "avg is " & avg

End Sub