28.(6分) Function F(a As Integer) b=2 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 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(By Val x As Integer,ByVal y As Integer) t=x:x=y:y t End Sub 141928. (6 Function F(a As Integer) b = 2 Static c b=b 十1 c = F=a 十b + c End Function Private Sub Commandl_ClickO Dim a As Integer a=2 For j = 1 To 3 Print F(a) Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 29. (7 Private Sub Commandl_ClickO Dim a As Integer: Dim b As Integer a = 10: b = 20 Change1 a , b Print "A1="; a , "Bl="; b a = 10: b = 20 Change2 a , b Print "A2="; a , "B2="; b End Sub Sub Changel(ByVal x As Integer, ByVal y As Integer) t = x: x = y: y = t End Sub 1419