Print Male,Female,Boy End If Next Boy Next Female End Sub
5.以下程序用于计算N=1+(1+3)+(1+3+5)+?+(1+3+5+?.39) Private Sub Command 1_Click() T=0 M=1 Sum=0 Do
T=T+__(1)__ Sum=Sum+__(2)__ M=M+2
Loop While__(3)__ Print “Sum=”;Sum End Sub
6.以下程序用于在带垂直滚动条的文框Text1中输入3到100之间的全部素数. Private Sub Command 1_Click() Text1.Text=”” ForN=3 To 100 K=Int(Sqr(N)) I=2 Flag=0
Do While I<__(1)__And Flag=0
If N Mod I=0 Then Flag=1 Else I=I+1 Loop
If__(2)__Then
Text1.Text=Text1.Text&Str(N)&Chr(13)&Chr(10) End If Next N End Sub
7.以下程序用来输出20个在开区(10,87)中的随机整数R,每行输出4个整数. Private Sub Command 1_Click() For I=1 To 20 R=__(1)__ Print R;
If__(2)__Then Print Next I End Sub
8.以下程序在文件框Text1中输入任何一字符串,并按相反的次序显示在文框Text2中. Private Sub Command 1_Click()
Dim N As String,C As String, D As String N=Text1.Text M=__(1)__
20
For I=M To 1 Step -1 C=Mid(N,I,1) D=D&__(2)__ Next I __(3)__=D End Sub
9.单击窗体时输入”:斐波那契数列”的前20项.该数列第一项为0,第二项为1,其后每一项的值都是前两项之和.即:0,1,1,2,3,5,8,13,?从题后供选择的答案中选出正确答案,填入以下程序中相应处,构成完整程序. Private Sub Command 1_Click() X1=1 X2=1 N=0
Do While__(1)__ Print X1,X2 X1=__(2)__ X2=__(3)__ N=N+1 Loop End Sub
供选择的答案:
(1)(A)N<=0(B)N<9(C)N<10(D)N<20 (2)(A)X1+X2(B)X2(C)X1+N(D)X2+N (3)(A)X1+X2(B)X2(C)X1+N(D)X2+N
练习7 数组
一．选择题
1．以下[ ]是Visual Basic合法的数组元素。（多选）
（A）X9 （B）X[9] （C）X(I+1) （D）X(X(5)) （E）x{6} （F）X(0) 2．下面的数组声明语句中[ ]是正确的。
（A）Dim A[3,4] As Integer （B）Dim A(3,4) As Integer （C）Dim A[3;4] As Integer （D）Dim A(3:4) As Integer 3．下面的数组声明语句中[ ]是正确的。（多选）
（A）Dim MA[1:5;1:5]As String （B）Dim MA[5 To 5]As String （C）Dim MA（1 To 5,1 To 5）As String （D）Dim MA[1:5,1:5]As String （E）Dim MA（1 To 5;1 To 5）As String （F）Dim MA（1 To 5,5）As String 4．设有数组声明语句： Option Base 1
Dim A(2, - 1 To 1)
以上语句所定义的数组A为[ ]维数组，共有[ ]个元素，第一维下标从[ ]到[ ]第二维下标从[ ]到[ ]。
（A）- 1 （B）1 （C）2 （D）3 （E）4 （F）5 (G)6 (H)9 5．设有数组声明语句： Option Base 0
Dim B( - 1 To 10,2 To 9,20)As Integer 则数组B中共有[ ]个元素
，21
( A ) 1800 ( B ) 1848 ( C ) 2016 ( D ) 2310 6．以下说法不正确的有[ ]。
（A）使用ReDim语句可以改变数组的维数 （B）使用ReDim语句可以改变数组的类型
（C）使用ReDim语句可以改变数组每一维的大小
（D）使用ReDim语可以对数组中的所有元素进行初始化 7．设有复制、粘贴的方法建立一个命令按钮Command1数组，以下对该数组的说法错误的是： （A）命令按钮中的所有Caption属性都是Command1
（B）在代码中访问任意一个命令按钮只需使用名称Command1 （C）命令按钮的大小都相同
（D）命令按钮共享相同的事件过程
8．在窗体上用复制、粘贴的方法建立一个命令按钮数组，数组名为M1。设窗体Form1标题为 “myform1”，双击控件数组中的第三个按钮,打开代码编辑器，写下如下代码： Private Sub M1_Click(Index As Integer) Form1.Caption= “myform2”
运行时，单击按钮数组中的第一个按钮，窗体标题为[ ]。
（A）Form1 （B）M1 （C）myform1 （D）myform2 二．填空题
1．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1 到5，第二维下标从-2到6，则相应的数组声明语句为：_____________ 2．设有数组声明语句：Dim A( - 1 To 2,2) As Integer，则数组A中包括的所有元素有____ 3．设有数组声明语句：Dim A( - 1 To 2, - 1 To 1) As Long，则数组A中包括的所有元素有：
4．定义动态数组需要分两面步进行，首先在模块级或过程级定义一个没有下标的数组然后在________使用_________语句定义数组的实际元素个数。 三.判断程序或程序段的结果 1.下列程序段的结果为[ ]. Dim M(10) For I=0 To 10 M(I)=2*I Next I
Print M(M(3))
(A)12 (B)6 (C)0 (D)4 2.下列程序段的结果为[ ]. Dim A(5) For I=1 To 5 A(I)=I*I Next I
Print A(I-1)
(A)5 (B)25 (C)0 (D)16 3.下列程序段的结果为[ ]. Option Base 0
Private Sub Command 1_Click() Dim a
a=Array(\
22
Print a(1);a(3);a(5) End Sub
(A)abc (B)bdf (C)ace (D)出错
4.设执行以下程序时依次输入1、 3 、5，执行结果为[ ]。 Dim a(4) As Integer,b(4) As Integer For K=0 To 2
a(K+1)=Val(InputBox(\请输入数据:\b(3-K)=a(K+1) Next K Print b(K)
(A)1 (B)3 (C)5 (D)0 5.下列程序段的结果为[ ]. Dim M(10) For K=1 To 10 M(K)=11-K Next K X=6
Print M(2+M(X))
(A)2 (B)3 (C)4 (D)5 6.下列程序段的执行结果为[ ]. Dim A(10),B(5) For I=1 To 10 A(I)=I Next I
For J=1 To 5 B(J)=J*20 Next J A(5)=B(2)
Print\
(A)A(5)=5 (B)A(5)=10 (C)A(5)=20 (D)A(5)=40 7.下列程序段的结果为[ ]. Dim M(10),N(10) I=3
For T=1 To 5 M(T)=T N(I)=2*I+T Next T
Print N(I);M(I)
(A)3 11 (B)3 15 (C)11 3 (D)15 3 8.下列程序段的结果为[]. Dim M(2) For I=1 To 2 M(I)=0 Next I K=2
23
For I=1 To K For J=1 To K M(J)=M(I)+1 Print M(K) Next J Next I
(A)1 2 2 3 (B)1 2 3 4 (C)0 2 2 3 (D)0 1 2 3 9.下列程序段的结果为[ ]. Dim X(3,5) For I=1 To 3 For J=1 To 5
X(I,J) =X(I-1,J-1)+I+J Next J Next I
Print X(3,4)
(A)10 (B)12 (C)15 (D)18 10.下列程序段的执行结果为[ ]. Dim A(4) N=3 A(1)=1
For K=0 To N-1 For L=1 To K+1 X=K+2-L
A(X)=A(X)+A(X-1)
If K (A)1 2 1 (B)1 2 3 (C)2 4 6 (D)1 3 1 四.给出下列程序段的输出结果。 1) Dim A(3,4) For I=1 To 3 For J=1 To 4 A(I,J)=(I-1)*2+J Print A(I,J);” ”; Next J Print Next I 2). Dim A(5) For I=0 To 4 A(I)=I+1 M=I+1 If M= 3 Then A(M-1)=A(I-2) Else A(M)=A(I) If I=3 Then A(I+1)=A(M-4) A(4)=I 24 百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB程序习题集(新版)(5)在线全文阅读。
相关推荐：