Visual Basic程序设计期末综合练习(2)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Visual Basic程序设计期末综合练习(2)在线全文阅读。