29.(7分) Public Sub changel(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x-y y=t End Sub Public Sub change2(x As Integer,y As Integer) Dim t As Integer t=x x-y y=t End Sub Private Sub Form_Click() Dim a As Integer,b As Integer a=20:b=40 changel a,b Forml.Print "Al=";a,"B1=";b a=20:b=40 change2 a,b Forml.Print "A2=";a,"B2=";b End Sub 写出程序运行时，单击窗体Forml上的输出结果。 得 分 评卷人 四、完善程序题（共10分】 30.假设用Access创建了一个名为“HRM.mdb”的数据库，并在其中创建了一张名为“档 案”的数据表，表中存放了人员的基本信息，如图1所示。 要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序结果。程序的设计界 面和运行结果如图2所示。 壁竹么： 历 王 0002 邦进 0003 图1用Access创建的档案数据表 142229. (7 Public Sub changel<ItyVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x=y y=t End Sub Public Sub change2(x As Integer, y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Form_ClickO Dim a As Integer, b As Integer a = 20 , b = 40 change1 a , b Forml.Print "A1="; a , "B1="; b a = 20: b = 40 change2 a , b Forml. Print IIA2="; a , "B2="; b End Sub 写出程序运行时，单击窗体 1上的输出结果。 |得分|评卷人| I I I 四、完善程序题{共 30. 用Access 为"HRM. mdb" 一张 案"的数据表，表中存放了人员的基本信息，如图 1所示。 要求使用 O对象和 d控件设计数据库列表显示程序结果。程序的设计界 面和运行结果如图 2所示。 l用 ccess创建的档案数据表 1422