《可视化程序设计》试卷五

用RecordSource属性选择__________
8.Adodc控件用___________属性表示数据表中记录集合，在该集合上添加记录、删除记录、更新记录的方法分别是_________方法、Delete方法、Update方法
9.ADO对象模型主要由4个类组成
其中___________类用于连接数据库，________类用于存放SQL命令或数据表，______________类用于表示数据表中的记录集，_________类用于表示数据集中某个字段
Text1 = "": Text2 = ""
For I = 1 To 10
A(I) = _____________________ '产生小于10的随机整数
Text1 = Text1 & Str(A(I))
Next I
4.通用对话框CommonDialog控件是通过其__________方法显示"打开文件对话框"，通过_________________方法显示"保存文件对话框"，通过ShowPrinter方法显示"打印对话框"
5. 在MID多文档程序设计中，是用窗体的______________属性来设置父窗体或子窗体
Option Base 1
Temp As Integer
For I = 1 To N - 1
K = I
For J = I + 1 To N
If Arry(K) > Arry(J) Then
K = J
I = N + 1
Do While I <= Ub
If _______________ Then
For J = I To Ub - 1
__________________
Next J
_______________________
Loop
StatusBar1._______________ _= "学生人数： " & Sum
End With
End Select
End Sub
统计按钮的功能是统计班级数与学生人数，并在状态栏（Statusbar1）中显示
t1 = ______________
s = s + ____________
i = i + 1
Loop
Text1.Text = Str(Format(1 / t
"0.000000"))
Text2.Text = Str(s)
_____________________
10. MSFlexGrid控件能以表格形式显示二维字符数组中每个单元的数据
二维数组的行数和列数分别用_____________________属性动态确定，数组元素用___________________表示
二、读程序（10分）
1．读下列程序，并写出程序运行结果（4分）
Private Sub Cmd1_Click()
要求，用汉字显示字段名称，并适当调整列宽，如图1所示
其数据源属性
DataSource=____________________
（4）编写单击工具栏（Toolbar1）中退出按钮（Exit）与统计按钮(Sata)的事件过程
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
2．读下列程序，并写出程序运行结果（6分）
Private Sub Sub2(X As Integer
Y As Integer)
Static N As Integer
Dim I As Integer
For I = 1 .用ADO Data控件设计学生档案查询程序（20分）
（1）在主窗体内编写程序调用子窗体Form_XSDA31
（2）放置工具栏，添加二个按钮，分别用于退出(Exit)、打印（Print）
（3）在窗体内添加Adodc_TB06、DataCombo_TB06控件，使用这两个控件与系部编码表TB06连接，用于选择系部
StatusBar1.Panels(1).Text = "班级数： " & ___________________________
Sun = 0
Do While Not .EOF
Sum = Sum +______________________
Dim n As Integer
Sum As Integer
Select Case ________________________
Case "Exit"
Unload Me
Case "Stat"
With Data_TB03.Recordset
（2）在窗体添加四个Data控件：Data_TB03、Data_TB04、Data_TB06、Data_TC04，分别与班级编码表TB03、专业编码表TB04、系部编码表TB06、毕业标志编码表TC04连接
数据库文件与目录为：e:\vb\xsda.mdb
写出Data控件的属性值：
属性 Data_TB03 Data_TB04 Data_TB06 Data_TC04 Caption： 班级编码表 专业编码表 系部编码表 毕业标志编码表 Connect Access Access Access Access DataBaseName e:\vb\xsda.mdb 同前 同前 同前 RecordSource TB03 TB04 TB06 TC04 （3）在窗体添加一个DBGrid控件，能显示与编码班级编码表TB03中的字段内容
Dim a As Integer
b As Integer
a = 0: b = 2
Do While a <= 3
b = b + a * 2
a = a + 1
Loop
Print a
b
End Sub 答：4 14
（3 分）
（2）编写通用函数Ave()求一维整型数组平均值
（2分）
（3）编写命令按钮事件处理过程，在过程内定义数组Arra()，输入十个2位随机整数（2分），调用Sort()过程排序，Ave()函数求平均值
用三个文本框控件分别显示排序前、排序后的一维数组元素值及平均值（2分）
要求画出程序设计界面（1分）
Call Sub2(I
N)
Print I
N
Next IEnd Sub： 4 12 1 28
三、完善程序（10分，每空1分）
1．用Do While--Loop语句计算 直到为止
编写单击命令按钮控件事件过程，计算s值，并用Print语句输出s值
6.VB中常用的数据界面控件有TextBox
DBGrid、DBList、DBCombo、Msflexgrid等，数据界面控件用____________属性连接数据表，用_____________属性选择要显示与编辑字段名
7. Data控件用Connect属性选择连接数据库的类型
用DatabaseName属性选择________
Ub = Ub - 1
ReDim Preserve A(Ub)
Else
I = I + 1
End If
Loop
N = N + 1
Loop
Print Ub
1.用Date控件设计班级编码维护程序（15分）
在学生档案管理系统工程（xsdagl.vbp）中建立班级编码维护程序，要求如下
（1）在工程文件xsdagl.vbp中添加新窗体，设置新窗体属性如下：
Name=Form_XSDA62
Caption：班级编码维护程序
MDIChild：_______________》试卷五
班级______________ 姓名_____________ 学号__________ 得分__________
一、填空题（共20分，每空1分）
1.在窗体中使用控件设计程序界面的方法称为_____________________
2. VB工程由窗体、控件、程序代码、环境设置等组成
一个VB工程包括如下文件工程文件(_______)、窗体文件（_______）、代码文件（.bas）等组成
3. 窗体的显示与隐藏方法分别是Show方法、Hide方法
装载窗体的事件是______<窗体名>，卸载窗体事件是 ____________ <窗体名>
For N = 1 To Ub
Text2 = Text2 & Str(A(N))
Next N
End Sub
四、编程题（10分）
编写程序完成对一维整型数组进行排序、求平均值的功能
具体要求如下
（1）编写通用过程Sort()对一维整型数组用擂台法进行升序排序
X = X - 1
Next I
Y = Y + N
End Sub
Private Sub Cmd1_Click()
Dim N As Integer
I As Integer
N = 1
For I = 6 To 1 Step -1
End Sub
2．完善删除相同数程序
Option Explicit
Option Base 1
Dim A() As Integer