1．给定程序的功能是输出一组数的最大值和最小值，在画线处填入适当内容，将程序补充完整。 Private Sub
End Function
4．给定程序的功能是建立并输出除主、副对角线上的元素为5外，其余元素都为1的方阵，在画线处填入适当内容，将程序补充完整。
Command1_Click( )
X=Array( -112, 18, 20, -5, -100, 82, 91, 56, 78, 99, Private Sub Command1_Click( ) 100)
Max=x( 0 ) Min=x( 0 ) For I=1 To 10 If x( I )>Max Then _____________ End if
If x( I )>Min Then _____________ End if Next I
Print “MAX=” ; Max , “MIN=” ; Min End Sub
2．若A2+B2+C2 , 则A，B，C称为一组勾股数，如下程序是找出100以内的所有勾股数，并按A，B，C顺序输出。请在画线处填入适当内容。
Private Sub Command1_Click( ) For A=2 To 99 For B=A+1 To 100 C=_____________
If ____________ And C<=100 Then Print A, B, C End If Next B Next A End Sub
3．本程序的功能是计算输入数的阶乘，请在画线处填上适当的内容使程序完整。
Private Sub form_Click( ) Do
N=Val(InputBox(“请输入一个大于0的整数：”))
Loop Until N>0 Print Fact( N) End Sub
Private Function Fact( M ) Fact= _______________（1分） For I=2 To ____________（2分） Fact = ______________（2分） Next I
Dim A( 10,10 ) For I=1 To 10
For J=_______________（2分）
If __ _____________ Then A( I, J )=5 Else A( I, J)=1 （1分） Next J Next I For I=1 To 10 For J=1 To 10 Print A( I, J ); Next J
__ __________ （2分） Next I End Sub
编写一个程序，在程序运行时输入一个0—99999之间的整数，判断输入的是几位数，并在窗体输出结果。
编写一个程序，在窗体上添加两个命令按钮，运行程序时，单击[开始]按钮，在窗体输出1~100之间所有能被3整除的数。单击[结束]按钮，结束程序。
9