18信息技术选考第二轮复习VB基础4.docxVIP

第二轮VB基础4 行政班： 教学班： 姓名： 学号： 、完善程序，并上机调试完成作品 程序运行（窗体加载）时，在列表框 Listl中显示20个随机数，随机数范围为【10,29】。单 击按钮Commanl后在标签Labell显示最大元素的位置，Label2显示各元素的平均值。该文档为文档投稿赚钱网作品，版权所有，违责必纠 教 教组中元素的平均值为19-55 Const n = 20 Dim a(1 To n) As Integer Private Sub Form_Load() Dim i As Integer J For i = 1 To n a(i) = Int(Rnd * 20) + 10 Listl.AddItem 第+ Str(i) + ”个数据为：+ Str( a(i))该文档为文档投稿赚钱网作品，版权所有，违责必纠 Next i End Sub Private Sub Command1_Click() Dim i As Integer, k As Integer, max As Integer该文档为文档投稿赚钱网作品，版权所有，违责必纠 Dim sum As Integer, ave As Double k = 1 i = 2该文档为文档投稿赚钱网作品，版权所有，违责必纠 Do While i = n If a(i)a(k) Then k = i sum = —sum+a(i) 该文档为文档投稿赚钱网作品，版权所有，违责必纠 i = i+1 j Loop max = a(k) ave = sum / n Label1.Caption =数组中最大元素的值为 + Str(max)该文档为文档投稿赚钱网作品，版权所有，违责必纠 Label2.Caption =数组中元素的平均值为 + Str(ave)该文档为文档投稿赚钱网作品，版权所有，违责必纠 End Sub 二、完善程序，并上机调试完成作品 程序运行时，单击按钮 Commanl后在列表框Listl上产生15个不重复的随机数，随机数范该文档为文档投稿赚钱网作品，版权所有，违责必纠 围为【10,29】。 Q不重复晰戚 | a || H 1|^| |M1)= 24 aC2)= 20 aC3)= 21 kC4)= 15 aC5)= 1 I ! kC6)= 25 :产生 aCf)= 10 — j k(B)= 26 a(?9)= IS itn= 27 aC!E= 17 皿)二 SO aC13]= 11 我1妇二28 |aC15)= 19 Private Sub Command1_Click() Const n = 15 Dim i As Integer, x As Integer Dim flag As Boolean Dim a(1 To n) As Integer i = 1 Do While i = n x = Int(Rnd * 20) + 10 flag = True /Forj = 1 To i- 1 If a(j)=x Then 查找是否已经存在该值 flag = False Exit For End If Next j If flag Then a(i)=x _i = i + 1 End If Loop For i = 1 To n List1.AddItem a( + Str(i) 一 + )= + Str( a(i))该文档为文档投稿赚钱网作品，版权所有，违责必纠 Next i End Sub