b=b+2 c=c+2 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 写出程序运行时，单击命令按钮在窗体上的输出结果。 29.(7分) Private Sub Command1_Click() Dim a As Integer:Dim b As Integer a=10:b=20 Changel a,b Print"Al=";a,"B1=";b a=10:b=20 Change2 a,b Print"A2=";a,"B2=";b End Sub Sub Changel(x As Integer,y As Integer) t=x:x=y:y=t End Sub Sub Change2(ByVal x As Integer,ByVal y As Integer) t=x:x=y:y=t End Sub 写出程序运行时，单击窗体Forml上的输出结果。 1073b=b 十2 c=c十2 F=a+b+c End Function Private Sub CommandLClick() Dim a As Integer a=5 For i=1 To 3 Print F(a) Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 29.{7 Private Sub CommaIidLClick() Dim a As Integer: Dim b As Integer a=10 ,b=20 Change1 a ,b Print"A1=" ;a ,"B1="; b a=10:b=20 Change2 a ,h Print"A2= 飞a ，"B2=";h End Sub Sub Change1 (x As Integer,y As Integer) t=x:x=y:y=t End Sub Sub Change2(ByVal x As Integer,ByVal y As Integer) t=x:x=y:y=t End Sub 写出程序运行时，单击窗体 1上的输出结果。 1073