Next i End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。 6．
Private Sub Form_Click()
Dim c As Integer, j As Integer, k As Integer k = 1 c = 2
For j = 1 To 5 If j > 3 Then c = c + 6 Exit For Else
k = k + 3 End If Next j Print c, k End Sub
写出程序运行时单击窗体后，Form1上的输出结果。 7.
Private Sub Command1_Click()
Dim a As Integer: Dim b As Integer a = 10: b = 20 Change1 a, b
Print \ a = 10: b = 20 Change2 a, b
Print \End Sub
Sub Change1(ByVal x As Integer, ByVal y As Integer) t = x: x = y: y = t End Sub
Sub Change2(x As Integer, y As Integer) t = x: x = y: y = t End Sub
写出程序运行时,单击窗体Form1上的输出结果。
8．
6
Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 3 c = c + 3 F = a + b + c End Function
Private Sub Command1_Click() Dim a As Integer a = 5
For i = 1 To 3 Print F(a) Next i End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。
四、完善程序题 1．假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。
现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。
图1用Access创建的学生基本情况数据表
7
图2 查询程序运行界面
程序如下，请补充完整。 Private ADOcn As Connection Private Sub Form_Load() [1] ADOcn.Open \学生.MDB\End Sub
Private Sub Command1_Click() Dim strSQL As String
Dim ADOrs As [2] Recordset ADOrs.ActiveConnection = ADOcn
strSQL = \学生基本情况 Where 学号=\ .[3] If [4] ADOrs.EOF Then
Text2 = ADOrs.Fields(\学号\ Text3 = ADOrs.Fields(\姓名\ Text4 = ADOrs.Fields(\籍贯\ Else
MsgBox \要查询的学号不存在，请重新输入!\信息提示\ Text1 = \
[5] End If End Sub
Private Sub Command2_Click() UnLoad Me End
8
2.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求
程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图3所示。
图3
程序如下，请补充完整。 Private Sub Form_Load()
[1] File1.Pattern = \End Sub
Private Sub Drive1_change()
Dir1.Path = [2] Text1.Text = Drive1.Drive
End Sub
Private Sub Dir1_Change()
[3] Text1.Text = [4] End Sub
Private Sub File1_click()
Picture1. [5] = LoadPicture(File1.Path + \ FileName = File1.Path + \ Text1.Text = FileName End Sub
五、编写程序题
9
1.编写一工资调整程序。若基本工资大于等于3000元，增加工资10%，若小于3000元大于2000元，则增加工资15%；若小于2000元则增加工资18%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。
图4
2．列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把课程名称添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图5所示。
图5
10