m=m+1 Loop Labell Caption=Str(s) End Sub 运行程序,单击 Commandl按钮,在下面的 Labell中显示 2. Sub tryout( x As Integer, By Val y As Integer) +100 Print“x=”;x,"y=”;y End sub Sub form Click() Dim a as integer. b as integer a=10:b=20 tryout a, b Print“a=”;a,"b=”;b End sub 运行程序,单击窗体 Forml,在窗体上显示: 五、程序填空。(共24分,每空2分) 1.编写一个计算矩形面积的Sub过程,然后调用该过程计算矩形 面积 Private Sub Form Click() Dim AAs Single, BAs(1 A= Val(InputBox(What is the length?)) B=Val( InputBox( What is the width? )) Call Recarea( (2), B) End sub Sub recarea(rlen as single Rwid As single) Dim area as singleS=S+m m=m+1 Loop Label1.Caption=Str(S) End Sub 运行程序，单击 Command1 按钮，在下面的 Label1 中显示 Label1 2. Sub tryout( x As Integer, ByVal y As Integer) x=x+100 y=y*6 Print “x=” ; x , ”y=” ; y End Sub Sub Form_Click( ) Dim a As Integer, b As Integer a=10: b=20 tryout a , b Print “a=” ; a , ”b=” ; b End Sub 运行程序，单击窗体 Form1，在窗体上显示: 五、 程序填空。（共 24 分, 每空 2 分） 1．编写一个计算矩形面积的 Sub 过程，然后调用该过程计算矩形 面积。 Private Sub Form_Click( ) Dim A As Single, B As (1) A = Val(InputBox("What is the length? ")) B =Val( InputBox("What is the width? ")) Call Recarea ( (2) , B ) End Sub Sub Recarea(Rlen As Single, Rwid As Single) Dim Area As Single Area = (3)