求VB实验报告，（程序设计基础，实验项目——数组）

一、实验目的

1． 掌握定义数组的方法；

2． 能配合循环语句编程对数组进行操作；

3． 了解控件数组的基本概念与简单编程。

二、实验内容

1． 填空完成下列程序段，产生一组[100，200]间的随机整数，显示这组数，并求出它们的平均值。

Private Sub Command1_Click()

Dim ab(20) As Integer ' 数组ab有______个元素

Dim i%, s As Integer

For i = 1 To 20

ab(i) = ____________ ' 填空为数组元素赋值

Print "第"; i; "个数是 "; ab(i) ' 试改为用标签输出

s = ____________

__________

Print "平均值是:"; s / 20

End Sub

2．编程输入10名学生某一门课的成绩，求出其中的最高分、最低分和所有学生的平均分。

3．编程输入10名学生姓名和一门课的成绩，输出最高分的学生姓名及其成绩，再显示成绩低于平均分的学生姓名及其成绩。

4． 用计算机模拟掷骰子游戏。编程序统计掷N次（N尽量的大，例如100000次）后各点数出现的次数。

〔提示〕定义数组Dian(1 To 6)，分别存放1至6点出现的次数。产生一个[1，6]间的随机整数x，如果是3，就将Dian(3)的值增加1，依此类推。

5．制作一个模拟电话拨号的界面。按下标题为0~9的十个数字键时文本框中显示相应数字号码；按“退格”键时清除最后一位数字；按“清空”键时清除文本框中的所有数字。

[提示] 10个数字键设计成一