Sub Change2(x As Integer,y As Integer) t x:x-y:y=t End Sub 写出程序运行时，单击窗体Forml上的输出结果。 得 分 评卷人 四、完善程序题（共10分） 30.假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为 “学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。 现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是： 首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”"按钮(Command1),如果数 据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用 户“记录不存在”并使Textl获得焦点，要求用户重新输人。当点击退出按钮(Command2)时 关闭本窗体。 学生基本精汉：表 @▣☒ 学号， 姓名 籍贯 2009001 王进 天津 2009002 烨 河北 12009003 郭峰 山东对 记录：① 3D可刀心肃共有记录数 图1用Access创建的学生基本情况数据表 学生信息查询 面松 输入查询条件 要查询的学号 2009003 查询 查询结果 学号 2009003 姓名 郭哗 籍提 面系 退出 图2查询程序运行界面 1420Sub ChangeZ(x As Integer, y As Integer) t = x: x = y: y = t End Sub 写出程序运行时，单击窗体 1上的输出结果。 得分|评卷人 四、完善程序题{共 0分} 30. 用Access 生.MDB" 据 库 一 张 "学生基本情况"的数据表，表中存放了学生的基本信息，如图1所示。 现在要求利用 B编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是: 首先文本框 )中输入希望查询的学生学号，然后点击"查询"按钮 nd ，如果数 据库中存在该学号，则分别在 Z、 3、 4中显示学号、姓名、籍贯信息，否则提示用 户"记录不存在"并使 1获得焦点，要求用户重新输人。当点击退出按钮 mm )时 关闭本窗体。 1用 e s s创建的学生基本情况数据表 2查询程序运行界面 1420