数组第四讲.doc

第四讲 数组 语句Print Sgn（-6^2）+ Abs（-6^2）+Int（-6^2）的输出结果是　　A）-36???????? B）1?????????? C）-1????????? D）-72在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：　　Private Sub Command1_Click()　　　　Timer1._________　　End Sub　　Private Sub Timer1_Timer()　　　　Text1.Text = Time　　End Sub　　在______处应填入的内容是　　　　A)Enabled=True　　B)Enabled=False　　C)Visible=True　　D)Visible=False在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：　　Option Base 1　　　　Private Sub Command1_Click()　　　　d = 0　　　　c = 10　　　　x = Array(10, 12, 21, 32, 24)　For i = 1 To 5　　　　If x(i) c Then　　　　d = d + x(i)　　　　c = x(i)　　　　Else　　　　d = d－c　　　　End If　　Next i　　　　Print d　　　　End Sub　　　　程序运行后，如果单击命令按钮，则在窗体上输出的内容为　　　　A）89 B）99 C）23 D）77以下有关数组定义的语句序列中，错误的是　　A） Static arr1(3)　　　　arr1(1) = 100　　　　arr1(2) = Hello　　　　arr1(3) = 123.45　　B）Dim arr2() As Integer　　Dim size As Integer　　　　Private Sub Command2_Click()　　　　size = InputBox(输入：)　　　　ReDim arr2(size)　　　　．．．．．．　　　　End Sub　　C）Option Base 1　　　　Private Sub Command3_Click()　　　　Dim arr3(3) As Integer　　　　．．．．．．　　　　End Sub　　D）Dim n As Integer　　　　Private Sub Command4_Click()　　　　Dim arr4(n) As Integer　　End Sub 2010 年3月份真题 5. 下面正确使用动态数组的是　　A) Dim arr() As Integer　　　　…ReDim arr(3,5) 　　B) Dim arr() As Integer　　… 　　ReDim arr(50)As String 　　C) Dim arr()　　… 　　ReDim arr(50) As Integer 　　D)Dim arr(50) As Integer 　　… 　　ReDim arr(20) 有下面的程序段，其功能是按图1所示的规律输出数据　　Dim a(3,5) As Integer　　For i=1 To 3 　　For j=1 To 5 　　A(i,j)=i+j 　　Print a(i,j); 　　Next 　　Print 　　Next　　　若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是For i=1 To 5 　　For j=1 To 3 　　Print a(j,i); 　　Next 　　Print 　　Next For i=1 To 3 　　For j=1 To 5 　　Print a(j,i); 　　Next 　　Print 　　Next For j=1 To 5 　　For i=1 To 3 　　Print a(j,i); 　　Next 　　Print 　　Next 　　D) For i=1 To 5　　For j=1 To 3 　　Print a(i,j); 　　Next 　　 Print　　Next若在窗体模块的声明部分声明了如下自定义类型和数组　　Private Type rec　　Code As Integer 　　Caption As String 　　End Type　　Dim arr(5) As rec　　则下面的输出语句中正确的是　　A)Print arr.C