vb基础第7章习题.doc

第七章习题 班级（专业） ______________ 姓名 ______________ 学号 ______________ 选择题 1、下面的数组声明语句中正确的是（ ）。 （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 2、设有数组声明语句： Option Base 0 Dim B(-1 To10，2 To9，20) As Integer 则数组B中共有（ ）个元素。 （A）1800 （B）1848 （C）2016 （D）2310 3、以下说法不正确的是（ ）。 使用ReDim语句可以改变数组的维数 使用ReDim语句可以改变数组的类型 使用ReDim语句可以改变数组每一维的大小 使用ReDim语句可以对数组中的所有元素进行初始化 4、使用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是（ ）。 命令按钮的所有Caption属性都是Command1 在代码中访问任意一个命令按钮只需使用名称Command1 命令按钮的大小都是相同的 命令按钮共享相同的事件过程 5、在窗体上用复制、粘贴的方法建立了一个命令按钮的数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第三个按钮，打开代码编辑器，写下如下代码： Private Sub M1_Click (Index As Integer) Form1.Caption=”myform2” End Sub 运行时，单击按钮数组中的第一个按钮，窗体标题为（ ）。 （A）Form1 （B）M1 （C）myform1 （D）myform2 写出下列程序段的执行结果。 Dim A(5) 运行结果： For I =1 To 5 A(I)=I*I Next I Print A(I-1) 2、 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) 3、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 KN-1 Then Exit For Print A(X); Next L Next K 4、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 Print A(I); Next I Dim A(5，5) As Integer 运行结果： For I =1 To 5 For J =1 To 5 A（I，J）= I –J Print A（I，J）; Next J Print Next I For Each X In A S=S+X Next X Print “S=”;S 二 、程序填空 下面程序代码实现单击命令按钮Command1时输出如下结果： 1 -1 -1 1 1 -1 1 1 1 Private Sub Command1_Click () Dim X(3,3) For I= 1 To 3 For J= 1 To 3 If (1) Then X(I,J)=1 If (2) Then X(I,J)= -1 Next J Next I For I= 1 To 3 For J= 1 To 3 Print X(I, J); Next J (3) Next I End Sub 2、以下程序代码实现单击命令按钮Command1时生成20个（0，1