dim p as long,I as integer p=1
for I=1 to x p=p*I next I fact=p end function
调用它的事件过程如下:
Private Sub Command1_Click()
I = Val(InputBox(\请输入数据\ a = fact((I)) Print a End Sub
若输入数据5,则运行结果为( )。 答案: 120 权重：4 难易度：3
题目 ：270、假定有如下的Sub过程： Sub S(x As Single,y As Single) t = x x =t*y y =t/y End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ( ) Dim a As Single Dim b As Single a =5 b =4 S a,b Print a;b End Sub
程序运行后，单击命令按钮，输出结果为( )。
答案: 20 1.25 权重：3 难易度：2
题目 ：271、阅读程序： Function F(a As Integer) b = 0 Static c b = b+2 c = c+2 f = a*b*c End Function
Private Sub Commandl_Click () Dim a As Integer a =2
For I =1 To 2
Print F(a) Next I End Sub
运行上面的程序，单击命令按钮，输出结果为( )。 答案: 8
16 权重：4 难易度：2
题目 ：272、下列程序段，输出结果为( )。 B=1
Do until b>10 B=b*(b+1) Loop
Print b
答案: 42 权重：3 难易度：2
题目 ：273、下列程序执行后，x的值为( )。 X=0
for I=1 to 5 x=x+1
for j=1 to 5 x=x+1 next j next I
答案: 30 权重：2 难易度：1
题目 ：274、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() x = 0
Do Until x = -1
a = InputBox(\请输入a的值\ a = Val(a)
a = InputBox(\请输入b的值\ a = Val(b)
a = InputBox(\请输入x的值\ x = Val(a) a = a + b + x Loop Print a End Sub
程序运行后，单击命令按钮，分别在输入对话框中输入5、4、3、2、1、-1，则输出结果为( )。
答案: -2
权重：3 难易度：2
题目 ：275、在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是( )。 Private sub form_load text1.text=\ text1.setfocus t=1
for k=10 to 6 step -2 t=t*k next k
Text1.text=t End sub
答案: 480 权重：3 难易度：2
题目 ：276、下列命令按纽事件过程执行后，输出的结果是( )。
Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 0
For n = 0.5 To 9.5 Step 2 a = a + 2 Next n Next m Print a End Sub
答案: 10 权重：4 难易度：2
题目 ：277、下列程序运行后，输出的结果为( )。 B=1 I=1
Do until b>10 I=b*(b+1) b=b+1 loop print I
答案: 110 权重：3 难易度：1
题目 ：278、在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为( )。 Private sub_command1_click( ) Dim a( )
A=array(7,8,9,10)
For k=0 to 2 step 0.5 S=s+a(k)
Next k Print s End sub
答案: 40 权重：3 难易度：2
题目 ：279、在窗体上添加一个命令按钮，名为command1，一文本框，名为text1,则执行如下事件过程后，文本框中的输出为( )。 For I = 1 To 4
If x>12 then exit for For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next I
Text1.Text =str( x)
答案: 18 权重：3 难易度：1
题目 ：280、有如下程序，该程序的执行结果为( )。
Dim k As Integer n = 5 m = 1 k = 1
Do until k > n m = m * 2 k = k + 1 Loop Print m
答案: 32 权重：3 难易度：2
题目 ：281、以下程序输出的结果为( )。 X = 1 y = 4
Do while y <= 4 x = x * y y = y + 1 Loop Print x
答案: 4 权重：4 难易度：2
题目 ：282、以下程序段执行后整型变量度n 的值为( )。 N=0
for I=25 to 5 step -5 n=n+1 next I
答案: 5 权重：4 难易度：1
题目 ：283、在窗体上添加一命令按纽，其名为Command1，然后编写代码如下： option base 1
Private Sub Command1_Click() Dim arr(4) As Integer Dim arr1(4) As Integer n = 3
For I = 1 To 4 arr(I) = I
arr1(n) = 2 * n + I Next I
Print arr1(n); arr(n) End Sub
程序的运行结果为( )。
答案: 10 3 权重：4 难易度：3
题目 ：284、有如下函数过程：
Function gys(ByVal x As Integer, ByVal y As Integer) As Integer Do While y <> 0 reminder = x / y x = y
y = reminder Loop
gys = x End Function
以下是调用该函数的事件过程，该程序的运行结果是( )。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 10 b = 2
x = gys(a, b) Print x End Sub
答案: 5 权重：3 难易度：2
Dim a(20) As Integer,c(20) As Integer
Private Sub Command1_Click() Print \输入的原数组是:\
For i = 1 To 20
a(i) = InputBox(\请输入数组
\
Print a(i); n = n + 1
If n / 10 = n \\ 10 Then Print Next i
Print \对换后的数组是:\Call dn(a()) End Sub
Private Sub dn(b() As Integer) For i = 1 To 20
c(21 - i) = b(i) Next i
For i = 1 To 20
Print c(i); n = n + 1
If n / 10 = n \\ 10 Then Print
Next i End Sub