体Form2,请将程序补充完整 Private Sub Command1 Click FormI Form2 End Sub (2)一工程中有两个窗体 forml和form2,一个标准模块 modulel,设在fom1中定义了 过程a,在 modulel中定义了过程bb Sub aa(x, y, z) End Sub Sub bb(x, y, z) End Sub 当在form1中单击命令按钮时,调用以上过程计算两个数的平方和和立方和,并分别 将计算结果显示在文本框text3和text4中,请填空完成调用语句 Private Sub Commandl Click a= Val(TextI Text) b= val(Text2Text) Text3 Text= cl Text4 Text= c2 End Sub (3)在窗体 forml中添加一个通用对话框控件 Common DialogI,程序运行时,首先使用 Common dialog打开一个标准颜色对话框,用于设置对象颜色,其次使用 Common Dialog打开一个标准字体对话框,用于设置对象的字体、字形和字号效果 Private Sub Form Load CommonDialogl. Action=3 CommonDialogl Text1 FontName= Common Dialogl FontName End Sub (4)编写一个求最大公约数的函数,并调用该函数,程序如下: Private Sub Command1 Click Dim x As Integer, y As Integer, z As Integer Print End Sub Function gcd(By Val a As Integer, By Val b As Integer)As Integer Dimr as in Do While b→0 r= a mod b (5)已知菲波纳契数列具有如下递推关系: ∫f1=f2 2 ≥3 下面是计算此数列的函数,请填空 Private Sub Command1 Click体 Form2，请将程序补充完整。 Private Sub Command1_Click() Form1 Form2. End Sub （2） 一工程中有两个窗体 form1 和 form2，一个标准模块 module1，设在 form1 中定义了 过程 aa，在 module1 中定义了过程 bb。 Sub aa(x, y, z) z = x * x + y * y End Sub Sub bb(x, y, z) z = x ^ 3 + y ^ 3 End Sub 当在 form1 中单击命令按钮时，调用以上过程计算两个数的平方和和立方和，并分别 将计算结果显示在文本框 text3 和 text4 中，请填空完成调用语句。 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) Call Text3.Text = c1 bb Text4.Text = c2 End Sub （3） 在窗体 form1 中添加一个通用对话框控件 CommonDialog1，程序运行时，首先使用 CommonDialog1 打开一个标准颜色对话框，用于设置对象颜色，其次使用 CommonDialog1 打开一个标准字体对话框，用于设置对象的字体、字形和字号效果。 Private Sub Form_Load() CommonDialog1.Action = 3 Text1.BackColor = CommonDialog1.Color CommonDialog1. = 4 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1. End Sub （4） 编写一个求最大公约数的函数，并调用该函数，程序如下： Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 96 y = 64 z = Print z End Sub Function gcd(ByVal a As Integer, ByVal b As Integer) As Integer Dim r As Integer Do While b <> 0 r = a Mod b a = b: b=r Loop gcd = a End Function （5） 已知菲波纳契数列具有如下递推关系：    = +  = = f f − f − n 3 f f 1 n n 1 n 2 1 2 下面是计算此数列的函数，请填空。 Private Sub Command1_Click()