vb程序阅读题.doc

vb程序阅读题.doc1、下列For-Next循环的循环体的执行次数为（6 ）。
For 1=1 to 11
1=1+1
Next I
2、 下列程序的输出结果是（0 ）o
P=0
For 1=1 to 4
p=p*I
Next I
Print p
3、 下列程序段的输出为（30 ）o
s=o
For 1=1 to 10
1=1+1 :s=s+I
Next I
Print s
4、 以下程序段的输出结果是（4 ）o
X=l:y=4
do until y>4
x=x*y： y=y+l
loop
Print x”
5、 以下程序段的输出结果是（5 ）o
N=4： k=l： 1=0
For 1=1 to n
k=k*I
Next I
Print I"
6、 以下程序段的输出结果是（24）O
N=4： k=l： 1=0
For 1=1 to n
k=k*I
Next I
Print kn
7、 以下程序段的输出结果是（12 3）o
Num=0
While num<=2
num=num+l
Print num;
Wend" 8、以下程序段运行的结果为（25 ）。
Dim m(10)
For 1=1 to 5
m(I)=I*I
Next I
Print m(I-l)n
9、 以下程序段运行的结果为(16)o
Dim m(10)
For 1=1 to 5
m(I)=I*I
Next I
Print m(I-2)n
10、 假定有以下程序段
For 1=1 to 3
For j=5 to 1 step -1
Print I*j
Next j,I
则语句Print Fj的执行次数是(15 )。
2、设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arrl, Max as Integer
arrl 二 Array (12, 435, 76, 24, 78, 54, 866, 43)
= arrl (1)
For i = 1 To 8
If arrl(i) > Max Then
Next i
Print最大值是：〃；Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元 素的最大值。请填空。
答案：Max
Max=arr(i)
本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当 于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是TextK Text2> Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。 程序运行后，在文本框Textl中输入总次数，然后单击“开始”按钮，按照输入的次数模拟 投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空 Private Sub Command1_Click()
Randomize
n = CInt ()
nl = 0
n2 = 0
For i = 1 To
r = CInt(Rnd*2)
If r
Then
nl = nl + 1
Else n2