VB程序设计试题及答案（一）

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