数组第四讲.doc

第四讲 数组
1. 语句Print Sgn（-6^2）+ Abs（-6^2）+Int（-6^2）的输出结果是
　　A）-36         B）1           C）-1          D）-72
2. 在窗体上画一个文本框和一个计时器控件，名称分别为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
3. 在窗体上画一个名称为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
4. 以下有关数组定义的语句序列中，错误的是
　　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)
6. 有下面的程序段，其功能是按图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所示的规律继续输出数据，则接在上述程序段后面的程序段应该是
A) For i=1 To 5
　　 For j=1 To 3
　　 Print a(j,i);
　　 Next
　　 Print
　　 Next
B) For i=1 To 3
　　 For j=1 To 5
　　 Print a(j,i);
　　 Next
　　 Print
　　 Next
C) 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
7. 若在窗体模块的声明部分声明了如下自定义类型和数组
　　Private Type rec
　　 Code As Integer
　　 Caption As String
　　End Type
　　Dim arr(5) As rec
　　则下面的输出语句中正确的是
　　A)Print arr.Code(2),arr.Caption(2)
　　B)Print arr.Code,arr.Caption
　　C)Print arr(2).Code,arr(2).Caption
　　D)Print Code(2),Caption(2)
8. 下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是
　　Private Sub Comand1_Click()
　　Dim count(25) As Integer, ch As String
　　ch=Ucase(InputBox("请输入字母字符串"))
　　For k=1 To Len(ch)
　　n=Asc(Mid(ch,k,1))-Asc("A")
　　If n>=0 Then
　　Count(n)=Count(n)+ 1
　　End If
　　Next k
　　m=count(0)
　　For k=1 To 25
　　If m< p then
　　m=count(k)
　　End If
　　Next k
　　Print m
　　End Sub
　　A)0　　 B)1　 　C)2　 　D)3
9. 在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
　　Private Sub Command1_Click（）
　　Dim a$, b$，c$, k%
　　a="ABCD"
　　b="123456"
　　c=""
　　k=1
　　Do While k＜= Len（a）Or k＜=Len（b）
　　If k＜=Len（a）Then
　　c=c＆Mid（a, k, 1）
　　End If
　　If k＜=Len（b）Then
　　c=c＆Mid（b, k, 1）
　　End If
　　k=k＋1
　　Loop
　　Print c
　　End Sub
　　运行程序，单击命令按钮，输出结果是
　　A）123456ABCD    B）ABCD123456    C）D6C5B4A321    D）AlB2C3D456
10. 请阅读程序：
　　Private Sub Form_ Click（）
　　m=1
　　For i=4 To 1 Step-1
　　Print Str（m）；
　　m=m＋1
　　For j=1 To i
　　Print”＊”；
　　Next j
　　Print
　　Next i
　　End Sub
　　程序运行后，单击窗体，则输出结果是
　　A）1****          B）4****           C）****          D）*
　　   2***              3***               ***              **
　　   3**               2**                **               ***
　   　 4*                1*                 *                ****
　11. 在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：
　　Private Sub Command l_Click（）
　　Dim a
　　a=Array（1,2,3,4）
　　I=3：j=1
　　Do While i＞=0
　　s=s＋a（i）*j
　　i=i-1
　　j=j*10。
　　Loop
　　Print s
　　End Sub
　　运行上面的程序，单击命令按钮，则输出结果是
　　A）4321        B）123         C）234         D）1234
12. 请阅读程序：
　　Option Base I
　　Private Sub Form_ Click（）
　　Dim Arr（4, 4）As Integer
　　For i=1 To 4
　　For j=I To 4
　　Arr（i, j）=（i - 1）*2＋j
　　Next j
　　Next i

　　For i=3To4
　　For j=3 To 4
　　Print Arr（j, i）;
　　Next j
　　Print
　　Next i
　　End Sub
　　程序运行后，单击窗体，则输出结果是
　　A）5 7    B）6 8    C）7 9     D） 8 10
   　　 6 8       7 9       8 10      8 11
13. 窗体上有一个名称为Combo1的组合框，  其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。

　　Option Base 1
　　Private Sub Command 1_ Click（）
　　Dim city As Variant
　　city=_【6】_（"北京"，"天津"，"上海"，"武汉"，"重庆"，"西宁"）
　　For i=_【7】_To UBound（city）
　　Combo 1.Addltem_【8】_
　　Next
　　End Sub