Visual Basic程序设计基础答案

《Visual Basic程序设计基础》教材
习题参考答案
第1章 Visual Basic 6.0程序设计概述
一、判断题
1．√ 2．√
3．× 说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。
4．√ 5．× 6．√ 7．× 8．√ 9．√ 10．× 11．√ 12．√
13．× 14．√ 15．× 16．√ 17．√ 18．√ 19．√ 20．√
二、选择题
1. C 2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．A 11．C 12．D
三、填空题
1．对象、事件 2．属性、方法、事件 3．控件、屏幕（Screen）
4．对象 5．Left、Top 6．属性、<对象名>.<属性名>=<表达式>
7．网格 8．F orm1
9．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）
10．Activate、Deactivate
四、程序设计题
程序1．界面设计参看图10-1、10-2以及表10-1。
表10-1 实例2各控件的主要属性设置
控件 属性（属性值） 属性（属性值）
标签控件1 Name(Label1) Caption("我的第一个VB程序")
标签控件2 Name(Label2) Caption("请输入你的姓名")
FontUnderLine(True) FontItalic(True)
命令按钮1 Name(Command1) Caption("确定(&O)")
命令按钮2 Name(Command2) Caption("结束(&X)")
过程设计如下：
Private sub Form_Click()
Command2.Enabled = False
Een Sub
Private Sub Command1_Click()
Label2.Visible = False
Label1.Caption = Text1.Text + ": 欢迎使用" + Label1.Caption
Text1.Visible = False
Command1.Enabled = False: Command2.Enabled = True
End Sub
Private Sub Command2_Click()
End
End Sub
程序2．界面设计略，过程设计如下：
Private Sub Command1_Click() '字体变大
Form1.FontSize = Form1.FontSize + 3
Form1.Cls: Print "欢迎使用VB"
End Sub
Private Sub Command2_Click() '字体变小
Form1.FontSize = Form1.FontSize - 3
Form1.Cls: Print "欢迎使用VB"
End Sub
Private Sub Command3_Click() '字体加粗
Form1.FontBold = True
Form1.Cls: Print "欢迎使用VB"
End Sub
Private Sub Command4_Click() '字体不加粗
Form1.FontBold = False
Form1.Cls: Print "欢迎使用VB"
End Sub
运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。
程序3．界面设计略，过程设计如下（窗体Height值的计量包括标题、边框，而ScaleHeight值仅与窗体有效绘图区域的高度有关）：
Private Sub Form_Load()
Text1.Text = "Visual Basic 程序设计"
End Sub
Private Sub Form_Resize()
Text1.Top = 0: Text1.Left = 0
Text1.Width = Form1.ScaleWidth/2 '用 Form1.ScaleWidth效果优于用Form1. Width
Text1.Height = Form1.ScaleHeight/2 '用 Form1.ScaleHeight优于用Form1. Height
Command1.Top = Form1.ScaleHeight - Command1.Height
Command1.Left = Form1.ScaleWidth - Comman

d1.Width
End Sub
第2章 程序设计基础
一、判断题
1．√ 2．× 3．× 4．× 5．√ 6．× 7．√ 8．√ 9．√ 10．×
二、选择题
1．B 2．D 3．A 4．C 5．C 6．B 7．A 8．D 9. C 10．A
三、填空题
1．String 2．4 3．"aaa" 4．145 5．6 6．3 7．18 8．False
9．(x Mod 10) * 10 + x \ 10 10．10 + Int( Rnd * 90 ) 11．a * b Mod c
12．Log(x)+Sin(3.141593/6) 13．Const PI=3.1415926 14．日期 15．Int(x)+1
四、程序设计题
程序1．界面设计略，过程设计如下：
方法一、用文本框控件输入圆的半径
Private Sub Command1_Click()
Dim x As Single
x = Text1.Text
Label1.Caption = x * x * 3.141593
End Sub
方法二、用InputBox函数输入圆的半径
Private Sub Command1_Click()
Dim x As Single '若要求计算结果具有15位有效位数，声明x为Double类型
x = InputBox("r=","输入圆的半径")
Label1.Caption = x * x * 3.141593
End Sub
第3章 结构化程序设计与数组
一、判断题
1．√ 2．× 3．√ 4．× 5．√ 6．× 7．× 8．√ 9．× 10．√
二、选择题
1．A 2．D 3．C 4．C 5．D 6．B
三、填空题
1．If x>y Then t=y: y=x: x=t 2．IS
3．For i = 0 to 9: B(i) = InputBox("B(" & i & ")="): Next i
4．Dim 5．String 6．8
四、程序阅读题（写出下列程序的运行结果）
程序1. 0 5 程序2. 20 程序3. 2 4 7 11 16
程序4. 1 4 9 16 25
程序5. 程序6.
五、程序填空题
1．（1）q * i （2）s + p * i / q （3）Next i
2．（1）r = 0 （2）m Mod n
3．（1）i + j - 1 （2）7 - i （3）Print
4．（1）10 + Int(Rnd * 90) （2）i + 1 To 30 （3）a(i)=a(j) （4）a(i) Mod 2 = 1
六、程序设计题
程序1．界面设计略，过程设计如下：
Private Sub Form_Click()
Dim x As Integer, y As Integer, z As Integer
Dim max As Integer, midd As Integer, min As Integer
x = InputBox("请输入x的值：")
y = InputBox("请输入y的值：")
z = InputBox("请输入z的值：")
If x > y Then max = x Else max = y
If z > max Then max = z
If x < y Then min = x Else min = y
If z < min Then min = z
midd = x + y + z - max - min
Print max; midd; min
End Sub
程序2．界面设计略，过程设计如下：
Private Sub Form_Click()
Dim x As Single, y As Single
x = InputBox("请输入x的值：")
If x > 3 Then
y = x + 3
ElseIf x >= 1 Then
y = x * x
ElseIf x > 0 Then
y = Sqr(x)
Else
y = 0
End If
Print y
End Sub
程序3．界面设计略，过程设计如下：
Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To 9
Print Tab((j - 1) * 4); i * j;
Next j
Print
Next i
End Sub
程序4．界面设计略，过程设计如下：
Private Sub Form_Click(

)
Dim x As Single, s As Single, t As Single
Dim i As Integer, n As Integer
x = InputBox("请输入x的值：")
n = InputBox("请输入n的值：")
t = x / 2: s = t
For i = 3 To n
t = t * x / i
s = s + t
Next i
Print s
End Sub
程序5．界面设计略，过程设计如下：
Private Sub Form_Click()
Dim e As Single, t As Single, i As Integer
e = 2: t = 1: i = 1
While t >= 0.0001
i = i + 1: t = t / i: e = e + t
Wend
Print e
End Sub
程序6．界面设计略，过程设计如下：
Option Base 1
Private Sub Form_Click()
Dim n As Integer, a(9, 9) As Integer, i As Integer, j As Integer
On Error GoTo k '下列代码中若出现错误，转到标号为K的语句执行。
n = InputBox("请输入n，0For i = 1 To n: a(i, 1) = 1: a(i, i) = 1: Next i
For i = 3 To n
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i
For i = 1 To n
Print Tab(30 - 2 * i);
For j = 1 To i
Print Space(4 - Len(Trim(Str(a(i, j))))); Trim(Str(a(i, j)));
Next j
Print
Next i
Exit Sub
k: MsgBox "输入n值小于1或大于10，数组下标超界。"
End Sub
第4章 函数与过程
一、判断题
1．× 2．√ 3．× 4．× 5．√ 6．× 7．× 8．√
二、填空题
1．按地址传送 2．b() As Long 3．6 4．按值传递 5．按地址传递
6．Public x As Single 7．Static x As Integer 8．Form2.y
三、程序阅读题（写出下列程序的运行结果）
程序1. s = 2 程序2. 1 程序3. 1 1 2 1 1 2 1 2 2 2 2 3
s = 5 1 1
s = 9 1 2 1
1 3 3 1
1 4 6 4 1
四、程序填空题
1．（1）ByeVal （2）k Mod i （3）k = k \ i （4）Call pp(i)
2．（1）a() Aa Double （2）n-1 （3）a(j) < a(k)
3．（1）a() As Double, n As Integer （2）t = t * x （3）f = s
五、程序设计题
程序1．界面设计略，过程设计如下：
Private Function fsum(x() As Double, n As Integer) As Double
Dim i As Integer
For i = 1 To n
fsum = fsum + x(i)
Next i
fsum = fsum / n
End Function
程序2．界面设计略，过程设计如下：
Private Sub ff(a() As Single, n As Integer)
Dim i As Integer, x As Single
For i = 1 To n \ 2
x = a(n - i + 1): a(n - i + 1) = a(i): a(i) = x
Next i
End Sub
程序3．界面设计略，过程设计如下：
Private Sub find(x() As Single, m As byte, n As Byte, _
xmax As Single,ki As Byte,kj As Byte）
xmax = x(1,1): ki = 1: kj = 1
For i = 1 To m
For j = 1 To n
If Abs(x(i, j)) > Abs(xmax) Then xmax = x(i, j): ki = i: kj = j
Next j, i
End Sub
第5章 常用控件
一、判断题
1．× 2．× 3．× 4．√ 5．× 6．√ 7．× 8．√ 9．√
10．√ 11．× 12．× 13．√

14．√ 15．× 16．× 17．× 18．√
19．√ 20．× 21．√ 22．× 23．√ 24．× 25．√
二、选择题
1．C 2．D 3．B 4．B 5．B 6．C 7．B 8．B 9．B 10．A
11．D 12．C 13．B 14．B 15．A 16．D 17．B 18．B 19．B 20．A
三、填空题
1．上、下、左、左 2．缇、无关 3．&、+ 4．Enabled 5．MaxLength
6．Text1.SetFocus 7．MultiLine 8．Visible 9．Alignment 10．AutoSize
11．ForeColor 12．0或1 13．True 14．1 15．AddItem
16．1 17．List1.Clear 18．文本框、列表框
19．下拉式组合框、简单组合框、下拉式列表框 20．Scroll 21．Value
22．Change 23．定时器不起作用 24．Timer 25．65535
四、程序阅读题
程序1. 116 程序2. 8
程序3. 23451 程序4. 小，你好！ 程序5. 您好
34512 小李，你好！ 欢迎使用Visual Basic!


程序6. 李子 程序7. y = 6 程序8. n = 1
苹果 y = 14 n = 3
橘子 n = 5
葡萄
柚子
香蕉
五、程序填空题
1．（1）a(i) = Mid(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1)
（2）p = j （3）a(i) = a(p) （4）Command2.Enabled = True
2．（1）1 To 2*i–1 （2）Command2.Enabled = True （3）Command2.Enabled = False
3．（1）Text2.Enabled = False （2）p = 2 （3）Print i
（4）Val(Text1.Text) < 2 或 Val(Text1.Text) <= 1 （5）KeyAscii = 13
4．（1）List1.ListCount （2）List1.RemoveItem I （3）i = i + 1
5．（1）Timer1.Enabled = True （2）x \ 3600
（3）(x Mod 3600) \ 60 或 (x - 3600 * h) \ 60 （4）x = x + 1
6．（1）Label1.Left （2）Label1.Left = -Label1.Width
六、程序设计题
程序1. 界面设计略，过程设计如下：
Private Sub Command1_Click()
If Command1.Caption = "显示" Then
Print "欢迎使用Visual Basic！": Command1.Caption = "清除"
Else
Form1.Cls: Command1.Caption = "显示"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Form1.Cls: Command1.Caption = "显示": Command2.Caption = "退出"
End Sub
程序2．界面设计略，过程设计如下：
Private Sub Form_Load()
Text1.MaxLength = 1: Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Label1.Caption = CStr(KeyAscii)
End Sub
程序3．界面设计略，过程设计如下：
Const pwd As String = "123456" '预设密码为123456
Private Sub Command1_Click()
Cls: Print "欢迎进入！"
End Sub
Private Sub Form_Load()
Command1.Caption = "进入": Command1.Enabled = Falsew
Text1.Text = "": Text1.PasswordChar = "*"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
If Text1.Text = pwd Then
m = MsgBox("口令正确，欢迎进入！"): Command1.Enabled = True
Else
m = MsgBox("口令错误,请重新输入！"): Text1.Text = ""
End If
End If
End Sub
程序4．界面设计略，过程设计如下：
Dim num As Integer, m As Integer, rec As Integer
Private Sub Form_Load()
Command1.Caption = "出题": Command1.Enabled = True
Text1.Text = "": Text1.Enabled = False: rec = 0
End Sub
Private Sub Command1_Click()
Randomize: num = Int(Rnd * 100) + 1: Text1.Enabled = True
Label1.Caption = "": Command1.Enabled = False
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
m = Val(Text1.Text): rec = rec + 1: Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text): Text1.SetFocus
If rec > 10 Then
Label1.Caption = "差！重新开始": Call Form_Load
Else
If m > num Then
Label1.Caption = Str(m) & "大了！"
ElseIf m < num Then
Label1.Caption = Str(m) & "小了！"
Else
If rec < 5 Then
Label1.Caption = "好！猜对了。"
Else
Label1.Caption = "还行！猜对了。"
End If
Call Form_Load
End If
End If
End If
End Sub
程序5．界面设计如图10-3所示，过程设计如下：
Private Sub Form_Load()
Command1(0).Enabled = False: Command1(1).Enabled = False
Command1(2).Enabled = False: Label1.Caption = ""
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Clipboard.Clear: Clipboard.SetText Text1.SelText
Text1.SelText = "": Label1.Caption = "请选择要粘贴的位置！"
Command1(0).Enabled = False: Command1(1).Enabled = False
Command1(2).Enabled = True
Case 1
Clipboard.Clear: Clipboard.SetText Text1.SelText
Label1.Caption = "请选择要粘贴的位置！": Command1(0).Enabled = False
Command1(1).Enabled = False: Command1(2).Enabled = True
Case Else
Text1.SelText = Clipboard.GetText(): Form_Load
Label1.Caption = "粘贴完成！"
End Select
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Dim n As Integer
n = Text1.SelLength
If n > 0 Then
Label1.Caption = "选择了" & n & "个字,请选择下一步操作！"
Command1(0).Enabled = True: Command1(1).Enabled = True
Else
Label1.Caption = ""
End If
End Sub
程序6．界面设计如图10-4所示，过程设计如下：
Private Sub Form_Load()
Label1.Caption = " 当前日期：": Text1.Text = Date
Option1(0).Caption = "显示日期": Option1(1).Caption = "显示时间"
Option1(0).Value = True: Command1.Caption = "退出"
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Label1.Caption = "当前日期：": Text1.Text = Date
Case 1

Label1.Caption = "当前时间：": Text1.Text = Time
End Select
End Sub
Private Sub Command1_Click()
End
End Sub
程序7．过程设计如下：
Private Sub Form_Load()
Label1.Caption = " 当前日期：": Text1.Text = Date
Option1(0).Caption = "显示日期": Option1(1).Caption = "显示时间"
Option1(0).Value = True: Command1.Caption = "退出"
Combo1.AddItem "年-月-日": Combo1.AddItem "月-日-年"
Combo1.AddItem "日-月-年": Combo1.Text = "年-月-日"
End Sub
Private Sub Combo1_Click()
Dim n As String
Select Case Combo1.ListIndex
Case 0: n = "yyyy-mm-dd"
Case 1: n = "mm-dd-yyyy"
Case 2: n = "dd-mm-yyyy"
End Select
Text1.Text = Format(Date, n)
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0: Label1.Caption = "当前日期：": Text1.Text = Date
Case 1: Label1.Caption = "当前时间：": Text1.Text = Time
End Select
End Sub
Private Sub Command1_Click()
End
End Sub
程序8. 界面设计如图10-5所示，过程设计如下：
Private Sub Form_Load()
List1.AddItem "happy": List1.AddItem "apple"
List1.AddItem "student": List1.AddItem "computer"
End Sub
Private Sub Command1_Click()
List1.AddItem Text1.Text: Text1.SetFocus
Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Command3_Click()
List1.Clear
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command2_Click()
If List1.ListIndex <> -1 Then List1.RemoveItem List1.ListIndex
End Sub
9．界面设计如图10-6所示，过程设计如下：
Private Sub Form_Load()
Option1(0).Caption = "八进制": Option1(1).Caption = "十六进制"
Option1(2).Caption = "二进制"
End Sub
Private Function tran(k As Long, n As Integer) As String
Dim x As Integer, y As String * 1, k1 As Long
tran = "": k1 = Abs(k)
Do While k1 > 0
x = k1 Mod n
If x >= 10 Then y = Chr(Asc("A") + x - 10) Else y = CStr(x)
tran = y + tran
k1 = k1 \ n
Loop
If k < 0 Then tran = "-" + tran
End Function
Private Sub Option1_Click(Index As Integer)
Dim k As Long, n As Integer
k = Val(Text1.Text)
Select Case Index
Case 0
Label2.Caption = "八进制": n = 8
Case 1
Label2.Caption = "十六进制": n = 16
Case 2
Label2.Caption = "二进制": n = 2
End Select
Text2.Text = tran(k, n)
End Sub
10．界面设计如图10-7所示，过程设计如下：
Private Sub Form_Load()
Label1.Left = Width / 2 - Label1.Width / 2
Label1.AutoSize = True
HScroll1.Min = 1: HScroll1.Max = 1000
HScroll1.SmallChange = 10: https://www.doczj.com/doc/126959474.html,rgeChange = 100
HScroll1.Value = 500: Timer1.Interval = 500
End Sub
Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Call HScroll1_Change
End Sub
Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 2
Label1.Left = Width / 2 - Label1.Width / 2
If Label1.FontSize

>= 72 Then Timer1.Enabled = False
End Sub
第6章 图形控件和图形方法
一、判断题
1．√ 2．× 3．√ 4．× 5．√ 6．× 7．× 8．× 9．√ 10．√
二、选择题
1．C 2．B 3．C 4．A 5．A 6．C 7．A 8．C 9．C 10．B
11．A 12．B 13．B 14．C 15．C
三、填空题
1． Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 800
2．LoadPicture 3．AutoSize、Stretch、False、False 4．选中、属性
5．形状、矩形 6．Picture1.Picture=LodePicture("C:\Windows\Cloud.bmp")
7．图片框、其他控件 8．缇、SclaeMode 9．颜色
10．颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比
四、程序阅读题
程序1. 转动一条红色直线，其轨迹形成一个圆
程序2. 在窗体上随机的位置、用随机的颜色、半径绘制1000个空心的圆。
程序3. 在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变换。
五、程序填空题
1．（1）Combo1.ListIndex （2）Shape1.BorderStyle （3）Combo2.AddItem Str(i)
2．（1）Call pic （2）False （3）n = n + 1
（4）LoadPicture("c:\windows\1.bmp") （4）LoadPicture(fn)
六、程序设计题
程序1．界面设计略，过程设计如下：
Private Sub Form_Load()
Picture1.ScaleMode = 3
End Sub
Private Sub Command1_Click()
Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single
x1 = InputBox("x1="): y1 = InputBox("y1=")
x2 = InputBox("x2="): y2 = InputBox("y2=")
Picture1.Line (x1, y1)-(x2, y2), , B
End Sub
程序2．界面设计略，过程设计如下：
Private Sub Form_click()
Dim r As Single, xo As Single, yo As Single
If Form1.ScaleHeight < Form1.ScaleWidth Then
r = Form1.ScaleHeight / 3
Else
r = Form1.ScaleWidth / 3
End If
xo = Form1.ScaleLeft + Form1.ScaleWidth / 2
yo = Form1.ScaleTop + Form1.ScaleHeight / 2
Form1.FillStyle = 0: Form1.FillColor = vbBlue
Form1.DrawWidth = 2: Form1.ScaleMode = 6
Form1.Circle (xo, yo), r, vbYellow
End Sub
程序3．界面设计略，过程设计如下：
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 7: List1.AddItem i: Next i
Form1.ScaleMode = 1
End Sub
Private Sub List1_Click()
Form1.Cls: Form1.ScaleMode = List1.Text
Form1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _
Form1.ScaleTop + Form1.ScaleHeight / 2), 50
End Sub
第7章 对话框与菜单程序设计
一、判断题
1．√ 2．√ 3．√ 4．× 5．× 6．× 7．√ 8．√ 9．√ 10．√
二、选择题
1．D 2．A 3．C 4．C 5．B 6．D 7．A 8．B 9．D 10．B
三、填空题
1．窗体控制菜单、下拉式菜单、快捷菜单 2．ShowFont
3．打开文件、另存为、颜色、字体、打印对话框 4．工程

、部件
5．CommonDialog1.Action =3、CommonDialog1.ShowColor
6．提示信息、对话框类型、对话框标题 7．Click
8．工具 9．代码窗口、Click 10．相同、正
四、程序阅读题
程序1. 显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。
程序2. 显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的消息框。
五、程序填空题
1．（1）Int(Rnd*100) （2）Str(i) （3）Exit For
2．（1）False （2）Date （3）CommonDialog1.Color （4）m1
六、程序设计题
程序1．界面设计略，过程设计如下：
Private Sub Command1_Click()
CommonDialog1.ShowOpen
List1.AddItem CommonDialog1.FileName
End Sub
程序2．界面设计略，过程设计如下：
Private Sub Command1_Click()
CommonDialog1.ShowSave
List1.AddItem CommonDialog1.FileName
End Sub
程序3．界面设计如图10-9、表10-2所示，过程设计如下：
Private Sub Sqr_Click()
Shape1.Shape = 1
End Sub
Private Sub Rec_Click()
Shape1.Shape = 0
End Sub
Private Sub Oval_Click()
Shape1.Shape = 2
End Sub
Private Sub Circle_Click()
Shape1.Shape = 3
End Sub
Private Sub Rrec_Click()
Shape1.Shape = 4
End Sub
Private Sub RSqr_Click()
Shape1.Shape = 5
End Sub
Private Sub Shp_Click()
Shape1.FillStyle = 2
End Sub
Private Sub Shzh_Click()
Shape1.FillStyle = 3
End Sub
Private Sub Xiex_Click()
Shape1.FillStyle = 4
End Sub
Private Sub ShPJ_Click()
Shape1.FillStyle = 6
End Sub
Private Sub XJ_Click()
Shape1.FillStyle = 7
End Sub
Private Sub FillColor_Click()
CommonDialog1.ShowColor
Shape1.FillColor = CommonDialog1.Color
End Sub
Private Sub Exit_Click()
End
End Sub
第8章 文 件
一、判断题
1．× 2．√ 3．× 4．√ 5．√ 6．× 7．√ 8．×
9．√ 10．√ 11．× 12．× 13．√ 14．× 15．×
二、选择题
1．A 2．C 3．B 4．B 5．A 6．C 7．C 8．B
9．C 10．B 11．D 12．D 13．B
三、填空题
1．ChDir 2．FileLen 3．Change 4．EOF 5．Line Input
四、程序阅读题
程序1. y= 1 a= 1 程序2. NO. 1 3 程序3.
y= 3 a= 2 NO. 2 4 窗体：36 25 16 9 4 1
y= 6 a= 3 NO. 3 7 文件：1 4 9 16 25 36
y= 10 a= 4 NO. 4 11
程序4. 程序5. 1 程序6. 1
窗体上显示内容：20 2 2 1 2
文件中内容：4 6 8 10 12 3 3 3 1 2 3
4 4 4 4
5 5 5 5 5
五、程序填空题
1．（1）Dim n As Integer （2）"C:\windows\calc.exe" （3）Output （4）End
2

．（1）For Output As #2 （2）0 （3）"temp.dat" As "c:\a1.dat"
3．（1）Open "e:\dataout.txt" For Output As #1
（2）t1 Mod t2 = 0 （3）If flag Then （4）Print coun
六、程序设计题
程序1．界面设计如图10-10所示，过程设计如下：
Dim fn As String
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
If Right(File1.Path, 1) = "\" Then
fn = File1.Path + File1.FileName
Else
fn = File1.Path + "\" + File1.FileName
End If
End Sub
Private Sub Command1_Click()
Dim yesno As Byte
yesno = MsgBox("确认要删除吗？", vbYesNo, "删除文件")
If yesno = vbYes Then Kill fn
File1.Refresh
End Sub
程序2．建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮追加该记录到磁盘文件d:\student.dat。过程设计如下：
Private Sub Command1_Click()
Dim b As Date, m As Byte, e As Byte
Open "d:\student.dat" For Append As #1
b = Text2.Text: m = Text3.Text: e = Text4.Text
Write #1, Text1.Text, b, m, e
Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = ""
Close #1
End Sub
程序3．界面设计如图10-11所示，过程设计如下：
Private Sub Form_Load()
Dim ss As String
Open "e:\student.txt" For Append As #1 '如文件不存在则先建立该文件
Close #1
Open "d:\student.dat" For Input As #1 '将文件中所有记录在列表框中显示
While Not EOF(1)
Line Input #1, ss: List1.AddItem ss
Wend
Close #1 '在选中表项之前“删除”、“修改”按钮不可用
Command2.Enabled = False: Command3.Enabled = False
End Sub
Private Sub List1_Click() '选中表项后可“删除”或“修改”，不可“追加”。
Command1.Enabled = False: Command2.Enabled = True
Command3.Enabled = True: Text1.Text = List1.Text
End Sub
Private Sub Command1_Click() '追加记录
If Trim(Text1.Text) <> "" Then List1.AddItem Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click() '修改记录
List1.AddItem Text1.Text, List1.ListIndex
List1.RemoveItem List1.ListIndex
Command1.Enabled = True: Command2.Enabled = False
Command3.Enabled = False: Text1.Text = "" '修改后，不可“删除”、“修改”
End Sub
Private Sub Command3_Click() '删除记录
List1.RemoveItem List1.ListIndex '删除后，不可“删除”、“修改”
Command1.Enabled = True: Command2.Enabled = False
Command3.Enabled = False: Text1.Text = ""
End Sub
Private Sub Command4_Click() '保存文件，将列表框中所有表项输出到文件
Dim i As Integer
Open "d:\student.dat" For Output As #1
For i = 0 To List1.ListCount - 1: Print #1, List1.List(i): Next i
Close #1
End Sub
Private Sub Command5_Click() '退出之前先保存文件
Call Com

mand4_Click: End
End Sub
第9章 数据库与数据访问技术
一、判断题
1. √ 2. √ 3. × 4. √ 5. × 6. × 7. √ 8. √ 9. ×
10.× 11.√ 12.√ 13.√ 14.√ 15.√ 16.× 17.× 18.×
19.√ 20.√ 21.√ 22.×
二、选择题
1.A 2.D 3.C 4.B 5.C 6.A 7.C 8.D
9.D 10.C 11.A 12.D 13.A 14.B 15.B 16.C
三、程序设计题
程序1.
（1）数据访问控件以及数据绑定控件的相关属性设置如下
Data1：Connect("Access")、DatabaseName("d:\学籍.mdb")、RecordSource("学生)"
Text1：DataSource("Data1")、DataField("学号")
Text2：DataSource("Data1")、DataField("姓名")
Check1：DataSource("Data1")、DataField("性别")
Text3：DataSource("Data1")、DataField("出生日期)
Text4：DataSource("Data1")、DataField("奖学金")
Text5：DataSource("Data1")、DataField("简历")
OLE1：DataSource("Data1")、DataField("照片")
Adodc1：ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _
Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False")
CommandType("1-adCmdText")、RecordSource("select * from 成绩")
DataGrid1：DataSource("Adodc1")
（2）主要事件过程代码
Option Explicit
Private Sub Form_Load()
Caption = "学籍信息编辑浏览"
Label1.Caption = "学号:" : Label2.Caption = "姓名:"
Label3.Caption = "出生年月:" : Label4.Caption = "奖学金:"
Label5.Caption = "简历:" : Label6.Caption = "照片:"
Check1.Caption = "性别(选中表示男,否则为女)"
Label7.Caption = "成绩信息查询显示": Adodc1.Visible = False
End Sub
Private Sub Data1_Reposition()
Adodc1.RecordSource = "select 成绩.课程号,课程名,成绩 from 学生,课程,成绩 " _
& "where 学生.学号 = 成绩.学号 and " & "成绩.课程号 = 课程.课程号 and " & _
"成绩.学号='" & Data1.Recordset("学号") & "'" & " order by 成绩.课程号"
Label7.Caption = Trim(Data1.Recordset("姓名")) & "成绩信息查询显示"
Adodc1.Refresh
End Sub
程序2.
（1）数据访问控件以及数据绑定控件的相关属性设置如下：
Adodc1：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _
Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False"
CommandType("1-adCmdText")、RecordSource("select * from 学生)
DataGrid1：DataSource("Adodc1")
（2）主要事件过程代码
Option Explicit
Private Sub Form_Load()
Dim i As Integer
Caption = "学籍信息查询浏览": Adodc1.Visible = False
Label1.Caption = "选择查询方式：": Combo1.Text = "全部都显示"
Label2.Caption = "全部表文件数据浏览表格：" : Label3.Visible = False
Text1.Visible = False: Text1.Text = ""
For i = 0 To 2
Combo1.AddItem Mid("全部都显示按学号查询按姓名查询", 5 * i + 1, 5)
Next i
End Sub
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Text1.Visible = False: Label3.Visible = False
Adodc1.Re

cordSource = "select * from 学生"
Label2.Caption = "全部表文件数据浏览表格：": Adodc1.Refresh
Case 1
Label3.Caption = "输入查询条件(学号):" : Text1.Visible = True
Label3.Visible = True: Text1.SetFocus
Case 2
Label3.Caption = "输入查询条件(姓名):" : Text1.Visible = True
Label3.Visible = True: Text1.SetFocus
End Select
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If Combo1.ListIndex = 1 Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "学号='" & Text1.Text & "'"
If Adodc1.Recordset.EOF Then
Adodc1.RecordSource = "select * from 学生"
Label2.Caption = "全部表文件数据浏览表格："
Adodc1.Refresh: MsgBox "查无此人!"
Else
Adodc1.RecordSource = "select * from 学生 " & "where _
学号='" & Text1.Text & "'"
Label2.Caption = "学生" + Text1.Text + "的数据浏览表格："
End If
Else
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "姓名='" & Text1.Text & "'"
If Adodc1.Recordset.EOF Then
Adodc1.RecordSource = "select * from 学生"
Label2.Caption = "全部表文件数据浏览表格："
Adodc1.Refresh: MsgBox "查无此人!"
Else
Adodc1.RecordSource = "select * from 学生 " & _
"where 姓名='" & Text1.Text & "'"
End If
End If
Adodc1.Refresh
End If
End Sub
程序3.
（1）数据访问控件以及数据绑定控件的相关属性设置如下：
Adodc1(xs)：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _
Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")
CommandType("2-adCmdTable")、RecordSource("学生")
Adodc2(kc)：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _
Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")
CommandType("2-adCmdTable")、RecordSource("课程")
Adodc3(cjcx)：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _
Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")
CommandType("1-adCmdText")
RecordSource（" select 成绩.学号,学生.姓名,成绩.课程号,课程.课程名, _
成绩.成绩 from 学生,课程,成绩 where 成绩.课程号 = 课程.课程号 _
and 成绩.学号 = 学生.学号 "
DataGrid1：DataSource("cjcx")
DataList1：RowSource("xs")、ListField ("姓名"）、BoundColumn("学号")
DataList2：RowSource("kc")、ListField("课程名")、BoundColumn("课程号")
（2）主要事件过程代码
Option Explicit
Dim p As Byte
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 4
Label1(i).Caption = Mid("优秀良好中等及格差等", 2 * i + 1, 2)
Text1(i).Text = "": Text1(i).BackColor = RGB(205, 205, 192)
Text1(i).Locked = True
Next i
cjcx.RecordSource = "select 成绩.学号,学生.姓名,成绩.课程号,课程.课程名, " _
& "成绩.成绩from 学生,课程,成绩 " & _
"where

成绩.课程号=课程.课程号 and 成绩.学号=学生.学号"
cjcx.Refresh: Label2.Caption = "成绩信息列表"
Label3.Caption = "选择学生姓名:" : Label4.Caption = "选择课程名:"
xs.Visible = False: kc.Visible = False: cjcx.Visible = False
Caption = "学籍信息查询": p = 0
End Sub
Private Sub DataList1_Click()
p = 0: Call cjdctj
End Sub
Private Sub DataList2_Click()
p = 1: Call cjdctj
End Sub
Private Sub cjdctj()
Dim cjdcjs(5) As Integer, dcase As Byte, i As Byte
If p = 0 Then
cjcx.RecordSource = "select 成绩.学号,学生.姓名,成绩.课程号, " _
& "课程.课程名,成绩.成绩 from 学生,课程,成绩 " _
& "where 成绩.学号='" & DataList1.BoundText & "' " _
& "and (成绩.课程号=课程.课程号 and " _
& "成绩.学号=学生.学号) order by 成绩.课程号"
Frame1.Caption = "单位：门"
Label2.Caption = Trim(DataList1.Text) & "成绩信息列表"
Else
cjcx.RecordSource = "select 成绩.学号,学生.姓名,成绩.课程号, " _
& "课程.课程名,成绩.成绩 from 学生,课程,成绩 " _
& "where成绩.课程号='" & DataList2.BoundText & "' " _
& "and (成绩.课程号=课程.课程号 and " _
& "成绩.学号=学生.学号) order by 成绩.学号"
Frame1.Caption = "单位：人"
Label2.Caption = Trim(DataList2.Text) & "成绩信息列表"
End If
cjcx.Refresh
If Not cjcx.Recordset.EOF Then cjcx.Recordset.MoveFirst
While Not cjcx.Recordset.EOF
If cjcx.Recordset("成绩") < 60 Then
dcase = 0
Els
dcase = (cjcx.Recordset("成绩") \ 10) – 5
End If
Select Case dcase
Case 4, 5: cjdcjs(0) = cjdcjs(0) + 1
Case 3: cjdcjs(1) = cjdcjs(1) + 1
Case 2: cjdcjs(2) = cjdcjs(2) + 1
Case 1: cjdcjs(3) = cjdcjs(3) + 1
Case 0: cjdcjs(4) = cjdcjs(4) + 1
End Select
cjcx.Recordset.MoveNext
Wend
For i = 0 To 4: Text1(i).Text = cjdcjs(i): Next i
End Sub
程序4.
（1）数据访问控件以及数据绑定控件的相关属性设置如下：
Adodc1：ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _
Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False")
CommandType("2-adCmdTable")、RecordSource("学生")
LockType("4-adBatchOptimistic)
Adodc2：ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _
Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")
CommandType("2-adCmdTable")、RecordSource("课程")
LockType("4-adBatchOptimistic")
Adodc3：ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _
Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False")
CommandType("2-adCmdTable")、RecordSource("成绩")
LockType("4-adBatchOptimistic")
Text1：用于显示编辑"学号"，但是本字段不设置数据绑定属性，输入或修改后的"学号"数据通过代码方式写入数据源中。
Text2：DataSource("Adodc1")、DataField("姓名")
Check1：DataSource("Adodc1")、DataField("性别")
Text3：DataSource("Adodc1")、DataField("

出生日期")
Text4：DataSource("Adodc1")、DataField("奖学金")
Text5：用于显示编辑"课程号"，但是本字段不设置数据绑定属性，输入或修改后的"课程号"数据通过代码方式写入数据源中。
Text6：DataSource("Adodc2")、DataField("课程名")
Text7：DataSource("Adodc2")、DataField("学时数")
Text8：DataSource("Adodc2")、DataField("学分数")
Text9：DataSource("Adodc2")、DataField("开课学期")
Text10：DataSource("Adodc2")、DataField("考试考查标志")
Text11：用于显示编辑成绩表中的"学号"，但是本字段不设置数据绑定属性，输入或修改后的"学号"数据通过代码方式写入数据源中。
Text12：用于显示编辑成绩表中的"课程号"，但是本字段不设置数据绑定属性，输入或修改后的"课程号"数据通过代码方式写入数据源中。
Text12：DataSource("Adodc3")、DataField("成绩")
（2）主要事件过程代码
Option Explicit
Dim vlt As Boolean, rn As Variant
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 7
Command1(i).Caption = Mid("追加更新删除表首前翻后翻表尾返回", 2 * i + 1, 2)
Next i
Command1(3).Enabled = False: Command1(4).Enabled = False
Label1.Caption = "学号：" : Label2.Caption = "姓名："
Label3.Caption = "出生年月：" : Label4.Caption = "奖学金："
Check1.Caption = "性别（选中为男，否则为女）"
Label5.Caption = "课程号：" : Label6.Caption = "课程名："
Label7.Caption = "学时数：" : Label8.Caption = "学分数："
Label9.Caption = "开课学期：": Label10.Caption = "考试考查标志："
Label11.Caption = "学号：" : Label12.Caption = "课程号："
Label13.Caption = "成绩"
Label14.Caption = "“追加”、“删除”或是修改操作完成之后必须按“更新”按钮"
Caption = "学籍信息浏览编辑"
Text1.Text=Adodc1.Recordset("学号"): Text5.Text=Adodc2.Recordset("课程号")
Text11.Text=Adodc3.Recordset("学号"): Text12.Text=Adodc3.Recordset("课程号")
vlt = True
End Sub
Private Sub Command1_Click(Index As Integer)
Dim xh As String, kch As String, answer As Byte
On Error GoTo errshow
Select Case Index
Case 0
Select Case SSTab1.Tab
Case 0
Adodc1.Recordset.AddNew: Adodc1.Recordset ("学号") = "000000"
Case 1
Adodc2.Recordset.AddNew: Adodc2.Recordset ("课程号") = "0000"
Case 2
Adodc3.Recordset.AddNew: Adodc3.Recordset ("学号") = "000000"
Adodc3.Recordset ("课程号") = "0000"
End Select
Case 1
Select Case SSTab1.Tab
Case 0: Adodc1.Recordset.UpdateBatch
Case 1: Adodc2.Recordset.UpdateBatch
Case 2: Adodc3.Recordset.UpdateBatch
End Select
Case 2
answer = MsgBox("真的确定要删除当前记录吗？", 1 + 32, "删除确认")
If answer = 1 Then
Select Case SSTab1.Tab
Case 0
xh = Adodc

1.Recordset("学号"): Adodc3.Recordset.MoveFirst
Do
Adodc3.Recordset.Find "学号='" & xh & "'"
If Not Adodc3.Recordset.EOF Then
Adodc3.Recordset.Delete: Adodc3.Recordset.MoveNext
Else
Exit Do
End If
Loop
Adodc3.Recordset.MoveFirst: Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Case 1
kch = Adodc2.Recordset("课程号"): Adodc3.Recordset.MoveFirst
Do
Adodc3.Recordset.Find "课程号='" & kch & "'"
If Not Adodc3.Recordset.EOF Then
Adodc3.Recordset.Delete: Adodc3.Recordset.MoveNext
Else
Exit Do
End If
Loop
Adodc3.Recordset.MoveFirst: Adodc2.Recordset.Delete
Adodc2.Recordset.MoveNext
Case 2
Adodc3.Recordset.Delete: Adodc3.Recordset.MoveNext
End Select
End If
Case 3
Select Case SSTab1.Tab
Case 0: Adodc1.Recordset.MoveFirst
Case 1: Adodc2.Recordset.MoveFirst
Case 2: Adodc3.Recordset.MoveFirst
End Select
Command1(3).Enabled = False: Command1(4).Enabled = False
Command1(5).Enabled = True: Command1(6).Enabled = True
Case 4
Select Case SSTab1.Tab
Case 0
If Not Adodc1.Recordset.BOF And Adodc1.Recordset.Bookmark > 1 Then
Adodc1.Recordset.MovePrevious
Else
Command1(3).Enabled = False: Command1(4).Enabled = False
End If
Case 1
If Not Adodc2.Recordset.BOF And Adodc2.Recordset.Bookmark > 1 Then
Adodc2.Recordset.MovePrevious
Else
Command1(3).Enabled = False: Command1(4).Enabled = False
End If
Case 2
If Not Adodc3.Recordset.BOF And Adodc3.Recordset.Bookmark > 1 Then
Adodc3.Recordset.MovePrevious
Else
Command1(3).Enabled = False: Command1(4).Enabled = False
End If
End Select
Command1(5).Enabled = True: Command1(6).Enabled = True
Case 5
Select Case SSTab1.Tab
Case 0
If Not Adodc1.Recordset.EOF And _
Adodc1.Recordset.Bookmark < Adodc1.Recordset.RecordCount Then
Adodc1.Recordset.MoveNext
Else
Command1(5).Enabled = False: Command1(6).Enabled = False
End If
Case 1
If Not Adodc2.Recordset.EOF And _
Adodc2.Recordset.Bookmark < Adodc2.Recordset.RecordCount Then
Adodc2.Recordset.MoveNext
Else
Command1(5).Enabled = False: Command1(6).Enabled = False
End If
Case 2
If Not Adodc3.Recordset.EOF And _
Adodc3.Recordset.Bookmark < Adodc2.Recordset.RecordCount Then
Adodc3.Recordset.MoveNext
Else
Command1(5).Enabled = False: Command1(6).Enabled = False

End If
End Select
Command1(3).Enabled = True: Command1(4).Enabled = True
Case 6
Select Case SSTab1.Tab
Case 0: Adodc1.Recordset.MoveLast
Case 1: Adodc2.Recordset.MoveLast
Case 2: Adodc3.Recordset.MoveLast
End Select
Command1(6).Enabled = False: Command1(5).Enabled = False
Command1(4).Enabled = True: Command1(3).Enabled = True
Case 7
Unload Me
End Select
If Not Adodc1.Recordset.EOF Then Text1.Text = Adodc1.Recordset("学号")
If Not Adodc2.Recordset.EOF Then Text5.Text = Adodc2.Recordset("课程号")
If Not Adodc3.Recordset.EOF Then
Text11.Text = Adodc3.Recordset("学号")
Text12.Text = Adodc3.Recordset("课程号")
End If
Exit sub
errshow:
MsgBox Err.Description
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
If Not Adodc1.Recordset.EOF Then Text1.Text = Adodc1.Recordset("学号")
If Not Adodc2.Recordset.EOF Then Text5.Text = Adodc2.Recordset("课程号")
If Not Adodc3.Recordset.EOF Then
Text11.Text = Adodc3.Recordset("学号")
Text12.Text = Adodc3.Recordset("课程号")
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim xh As String
If KeyCode = vbKeyReturn Then
rn = Adodc1.Recordset.Bookmark: Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "学号='" & Text1.Text & "'"
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.Bookmark = rn: xh = Adodc1.Recordset("学号")
Adodc1.Recordset ("学号") = Text1.Text
Adodc3.Recordset.MoveFirst
Do
Adodc3.Recordset.Find "学号='" & xh & "'"
If Not Adodc3.Recordset.EOF Then
Adodc3.Recordset ("学号") = Text1.Text
Else
Exit Do
End If
Loop
Adodc3.Recordset.MoveFirst: SendKeys "{tab}" : vlt = True
Else
MsgBox "学号重号，重新输入！", , "输入验证！"
Adodc1.Recordset.Bookmark = rn : vlt = False: Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End If
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
If vlt = True Then
Cancel = False
Else
MsgBox "学号重号，重新输入！", , "输入验证！"
Cancel = True
End If
End Sub
Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer)
Dim kch As String
If KeyCode = vbKeyReturn Then
rn = Adodc2.Recordset.Bookmark: Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find "课程号='" & Text5.Text & "'"
If Adodc2.Recordset.EOF Then
Adodc2.Recordset.Bookmark = rn: kch = Adodc2.Recordset("课程号")
Adodc2.Recordset ("课程号") = Text5.Text: Adodc3.Recordset.MoveFirst
Do
Adodc3.Recordset.Find "课程号='" & kch & "'"
If Not Adodc3.Recordset.EOF Then
Adodc3.Recordset("课程号") = Text5.Text
Else
Exit Do
End If
Loop
Adodc3.Recordset.MoveFirst: SendKeys "{tab}": vlt = True
Else
MsgBox "课程号

重号，重新输入！", , "输入验证！"
Adodc2.Recordset.Bookmark = rn: vlt = False: Text5.SelStart = 0
Text5.SelLength = Len(Text5.Text)
End If
End If
End Sub
Private Sub Text5_Validate(Cancel As Boolean)
If vlt = True Then
Cancel = False
Else
MsgBox "课程号重号，重新输入！", , "输入验证！"
Cancel = True
End If
End Sub
Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer)
Dim xh As String
If KeyCode = vbKeyReturn Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "学号='" & Text11.Text & "'"
If Not Adodc1.Recordset.EOF Then
Adodc3.Recordset("学号") = Text11.Text: SendKeys "{tab}": vlt = True
Else
MsgBox "学号不存在，重新输入！", , "输入验证！"
vlt = False: Text11.SelStart = 0: Text11.SelLength = Len(Text11.Text)
End If
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Text11_Validate(Cancel As Boolean)
If vlt = True Then
Cancel = False
Else
MsgBox "学号不存在，重新输入！", , "输入验证！"
Cancel = True
End If
End Sub
Private Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer)
Dim kch As String
If KeyCode = vbKeyReturn Then
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find "课程号='" & Text12.Text & "'"
If Not Adodc2.Recordset.EOF Then
Adodc3.Recordset("课程号") = Text12.Text: SendKeys "{tab}": vlt = True
Else
MsgBox "课程号不存在，重新输入！", , "输入验证！"
vlt=False:Text12.SelStart=0:Text12.SelLength= Len(Text12.Text)
End If
Adodc2.Recordset.MoveFirst
End If
End Sub
Private Sub Text12_Validate(Cancel As Boolean)
If vlt = True Then
Cancel = False
Else
MsgBox "课程号不存在，重新输入！", , "输入验证！": Cancel = True
End If
End Sub