10道vb考试题求解 有几题已经有答案

1. 在名称为 Form1的窗体上随机产生10个100~200(包括100,200)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果.运行后如图所示.
Dim a(9) As Integer
Dim max As Integer
Dim min As Integer
Dim sum As Integer
Private Sub Form_Load()
Randomize
For i = 0 To 9
a(i) = Int(Rnd * 101 + 100)
Print a(i)
Next i
max = a(0)
min = a(0)
sum = 0
For i = 0 To 9
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
sum = sum + a(i)
Next i
Print "最小值是："; min
Print "最大值是："; max
Print "平均值是:"; sum / 10
End Sub

2. 在名称为Form1的窗体上,设计一个运行界面如下图的应用程序。当选择“改变颜色按钮”时候弹出颜色对话框，为标签标题选择一个颜色；选择打开文件对话框，就打开一个文本文件进行编辑。

3. 用可视化数据库管理器visdata 建立一个Access数据库 st5.mdb ，包含表为 student 并以学号为索引名建立索引.

4. 使用数据控件与绑定控件浏览第一题建立的st5.mdb数据库.要求如下:
设计Form1窗体,通过文本框、标签等绑定控件,显示st5.mdb中student表内的记录,显示参考图如下.

5.在名称为 Form1的窗体上做一个简单加法计算器程序,运行后如图所示.
Private Sub Text3_GotFocus()
If Combo1.Text =

1. 在名称为 Form1的窗体上随机产生10个100~200(包括100,200)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果.运行后如图所示.
Dim a(9) As Integer
Dim max As Integer
Dim min As Integer
Dim sum As Integer
Private Sub Form_Load()
Randomize
For i = 0 To 9
a(i) = Int(Rnd * 101 + 100)
Print a(i)
Next i
max = a(0)
min = a(0)
sum = 0
For i = 0 To 9
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
sum = sum + a(i)
Next i
Print "最小值是："; min
Print "最大值是："; max
Print "平均值是:"; sum / 10
End Sub
——————————————————————————————————————————————————————————
2. 在名称为Form1的窗体上,设计一个运行界面如下图的应用程序。当选择“改变颜色按钮”时候弹出颜色对话框，为标签标题选择一个颜色；选择打开文件对话框，就打开一个文本文件进行编辑。
CommonDialog控件在工程菜单-----部件 选中Microsoft Common Dialog Control 6.0 应用----确认

Private Sub 颜色_Click()
【CommonDialog1.Action = 3
Text1.BackColor = CommonDialog1.Color】
End Sub

Private Sub 文件_Click()