VB程序题：设计一个如图G.8所示的程序。它对列表框具有随机产生10个数据、删除最小值/最大值、添加数据、统计的功能。统计结果显示在如图G.9所示的窗体中。

VB程序题：设计一个如图G.8所示的程序。它对列表框具有随机产生10个数据、删除最小值/最大值、添加数据、统计的功能。统计结果显示在如图G.9所示的窗体中。
图G.8:

 G.9图：

解题，如上图所示，建立好2个窗体，窗体1建立好菜单，再画一个列表框控件，窗体2画三个文本框，三个标签控件，窗体1的相关的代码如下，窗体2没有代码。
Private Sub 结束_Click()
    End
End Sub

Private Sub 删除最大值_Click()
    max = List1.List(0)
    For i = 1 To List1.ListCount - 1
        If max < List1.List(i) Then max = List1.List(i): j = i
    Next i
    List1.RemoveItem j
End Sub

Private Sub 删除最小值_Click()
    min = List1.List(0)
    For i = 1 To List1.ListCount - 1
        If min > List1.List(i) Then min = List1.List(i): j = i
    Next i
    List1.RemoveItem j
End Sub

Private Sub 随机产生_Click()
    Randomize
    For i = 0 To 9
        List1.List(i) = Int(Rnd * 30 + 70)
    Next i
End Sub

Private Sub 添加数据_Click()
    List1.AddItem Int(Rnd * 30 + 70)
End Sub

Private Sub 统计_Click()
    Dim max%, min%, ave!, m%, n%
    max = List1.List(0)
    min = List1.List(0)
    ave = List1.List(0)
    m = 0
    n = 0
    For i = 1 To List1.ListCount - 1
        If max < List1.List(i) Then max = List1.List(i): m = i
        If min > List1.List(i) Then min = List1.List(i): n = i
        ave = ave + List1.List(i)
    Next i
    Form2.Text1 = List1.List(n)
    Form2.Text2 = List1.List(m)
    Form2.Text3 = Format(ave / List1.ListCount, "0.00")
    Form2.Show

End Sub

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/106.html