更多"某人设计了如下程序用来计算并输出7!(7的阶乘) Private S"的相关试题:
[单项选择]某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click（ ）
Dim a(10) As Integer，max As Integer
For k=1 To 10
a(K)=InputBox("输入一个整数")
Next k
Max=0
For k=1 To 10
If a(k)＞max Then
Max＝a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是( )
A. 把If a(k)＞max Then改为If a(k)＜max Then
B. 把max＝a(k)改为a(k)＝max
C. 把第2个循环语句For k＝1 TO 10改为For k=2 TO 10
D. 把max=0改为max=a(10)
[单项选择]某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click（ ） Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。
A. 把If a(k)>max Then 改为 If a(k)＜max Then
B. 把max=a(k)改为a(k)=max
C. 把第2个循环语句For k=1 To 10改为For k=2 To 10
D. 把max=0改为max=a(10)
[单项选择]
某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click（ ）
Dim a(10) As Integer, max As Integer
For k=1 To 10
a(k)=InputBox("输入一个整数")
Next k
max=0
For k=1 To 10
If a(k)＞max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。
下列修改中可以得到正确运行结果的是（）。
A. 把Ifa(k)＞max Then 改为 If a(k)＜max Then
B. 把max=a(k)改为a(k)=max
C. 把第2个循环语句For k=1 To 10改为For k=2 To 10
D. 把max=O改为max=a(10)
[单项选择]现有如下程序：
Private Sub Command1_Click（ ）
s=0
For i=1 To 5
s=s+f(5+i)
Next
Print s
End Sub
Public Function f(x As Integer)
If x＞=10 Then
t=x+1
Else
t=x+2
End If
f=t
End Function
运行程序，则窗体上显示的是( )。
A. 38
B. 49
C. 61
D. 70
[单项选择]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n＜10 Then
Call GetArray(a，n)
End If
End Sub
Private Sub GetArray(b( )As Integer，n As Integer)
Dim c(10)AsInteger
j=0
For i=1 To n
b(i)=CInt(Rnd( )*100)
If b(i)/2=b(i)/2 Then
j=j+1
c(j)=b(i)
End lf
Next
Print j
End Sub
以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时，在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10，则窗体上不显示任何信息
[单项选择]有如下程序：
Private Sub Commandl_Click（ ）
Dim a As Integer
a=2
For i=1 To 3
Print Gad (a)
Next i
End Sub
Function Gad (a As Integer)
b=0
Static c
b=b + 1
c= c + 1
Gad= a + b + C
End Function
运行上面的程序后，单击命令按钮，输出结果为( )。
[单项选择]设有如下程序： Option Base 1 Private Sub Command1 Click（ ） Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n＜ 10 Then Call，GetArray(a， n) End If End Sub Private Sub GetArray(b（ ） As Integer， n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd（ ）*100) If b(i) /2 =b(i) /2 Then j=j + 1 c(j) = b(i) End If Next Print j End Sub 以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时，在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10，则窗体上不显示任何信息
[单项选择]阅读如下程序：
Option Base 1
Private Sub Form Click（ ）
Dim Arr(4，4)As Integer
For i=1 To 4
For j=1 To 4
Arr(i，j)=(i-1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j，i)；
Next j
Print
Next i
End Sub
程序运行后，单击窗体，输出的结果为
A. 5 7 6 8
B. 6 8 7 9
C. 7 9 8 10
D. 8 10 8 11
[填空题]
设有如下程序：
Option Base 1
Private Sub Commandl Click（ ）
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12,435,76,-24,78,54,866,43)
Min=（）
For i=2 To 8
If arrl(i)＜Min Then（）
Next
Print"最小值是:";Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
[单项选择]有如下程序： Option Base 1 Private Sub Form Click（ ） Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。
A. 25
B. 26
C. 27
D. 28
[单项选择]某人编写了下面的程序：
Private Sub Command1_Click（ ）
Dim a As Integer,b As Integer
a=InputBox("请输入整数")
b=InputBox("请输入整数")
pro a
pro b
Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
While(n＞0)
Print n Mod 10：
n=n/10
Wend
Print
End Sub
此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如，若输入123和234，则应该输出：
3 2 1
4 3 2
7 5 3
但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是______。
A. 把过程pro的形式参数"n As Integer"改为"ByVal n As Integer"
B. 把"Call pro(a+b)"改为"pro a+b"
C. 把"n=n/10"改为"n=n/10"
D. 在pro b语句之后增加语句c%=a+b，再把"Call pro(a+b)"改为"pro c/
[单项选择]有如下程序
Private Sub Command1_Chck( )
s=0
DO
s=(s+1) *(s+2)
N=N+1
Loop Until s＞=10
Prim N；s
End Sub
运行后的输出结果是
A. 0 1
B. 30 30
C. 4 30
D. 2 12
[填空题]设有如下程序
Private Sub Form Click（ ）
Dim a As Integer， b As Integer
a=20： b=50
p1 a， b
p2 a， b
p3 a， b
Print "a="； a， "b="； b
End Sub
Sub p1(x As Integer， ByVal y As Integer)
x = x+10
y = Y+20
End Sub
Sub p2(ByVal x As Integer， y As Integer)
x = x+10
y = y+20
End Sub
Sub p3(ByVal x As Integer， ByVal y As Integer)
x = x+10
y = y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。
[单项选择]有如下程序： Private Sub Command1_Click( ) a$="A WORKER IS OVER THERE" x=Len(a ＄) For i=1 To x-1 b$=Mid $(a $，i，2) If b $="ER"Then s=s+1 Next i Pdnt s End Sub 程序运行后的输出结果是
A. 1
B. 2
C. 3
D. 4
[填空题]有如下程序：
Private Sub Form_Click（ ）
n=10
i=0
Do
i=i+n
n=n-2
Loop while n＞2
Print i
End sub
程序运行后，单击窗体，输出结果为 [10] 。
[单项选择]有如下程序：
Private Sub Form_Click（ ）
Dimi As Integer,sumASInteger
sum=0
For i=2To 10
If i Mod2＜＞0 And i Mod 3=0 Then
sum=sum+i
End If
Nexti
Print sum
EndSub
程序运行后，单击窗体，输出结果为( )。
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序： Private Sub Commandl_Click（ ） Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b) End Sub Sub CS(x As Single，y As Single) t=X x=t/y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为A)0 0
B)1 1
C)0 2
D)1 2
