二级VB参考书第8章自测题 |
|
www.nanhushi.com 佚名 不详 |
一、选择题: 1.用下面的语句所定义的数组的元素个数是 Dim A(-3 To 5) As Integer A.6 B.7 C.8 D.9 2. 用下面的语句所定义的数组的元素个数是 Dim arr(3 To 5, -2 To 2) A.20 B.12 C.15 D.24 3. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim Arr1(10), arr2(10) As Integer n=3 For i = 1 To 5 Arr1(i) = i arr2(n) = 2 * n + i Next i Print arr2(n); Arr1(n) End Sub 程序运行后,单击命令按钮,输出结果是 A.11 3 B.3 11 C.13 3 D.3 13 4. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a(10), p(3) As Integer k=5 For i= 1 To 10 a(i)= i Next i For i= 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Prim k End Sub 程序运行后,单击命令按钮,输出结果是 A.35 B.28 C.33 D.37 5. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j=1 For i = 4 To 1 Step -1 s = s + a(i)*j j =j * 10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出结果是 A.4321 B.12 C.34 D.1234 6. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim Arr(3) As Integer For i = 1 To 3 For j = 1 To 3 Arr(j) = Arr(i) + 1 Next j Next i Print Arr(3) End Sub 程序运行后,单击命令按钮,其输出结果为 A.7 B.6 C.5 D.4
二、填空题 1.控件数组的名字由__________属性指定,而数组中的每个元素由_________属性指定。 2.由Array函数建立的数组必须是_________类型。 3.在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim n() As Integer Dim a,b As Integer a = InputBox("Enter the first number") b = InputBox("Enter the second number") ReDim n(a To b) For k = LBound(n,1) To UBound(n,1) n(k) = k Print "n("; k; ") = "; n(k) Next k End Sub 程序运行后,单击命令按钮,在输入对话框中分别输入2和3,输出结果为_________。 4.在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim a(5) For i=0 To 4 a(i) = i + 1 t=i+1 If t = 3 Then Print a(i); a(t - 1) = a(i - 2) Else a(t) = a(i) End If If i = 3 Then a(i + 1) = a(t - 4) a(4) = 1 Prim a(i); Next i End Sub 程序运行后,单击命令按钮,输出结果是__________。 5.在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim M(10) As Integer Fork= 1 To 10 M(k) = 12 - k Next k x=6 Print M(2 + M(x)) End Sub 程序运行后,单击命令按钮,输出结果是___________。 6.在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim a(5, 5) For i = 1 To 3 For j = 1 To 4 a(i, j) = i * j Next j Next i For n= 1 To 2 For M = 1 To 3 Print a(M, n); Next M Next n End Sub 程序运行后,单击命令按钮,输出结果是_____________。
三、编程题 1.从键盘上输入 10个整数,并放入一个一维数组中,然后将其前5个元素与后5个元素对换,即:第一个元素与第十个元素互换,第二个元素与 第九个元素互换……第五个元素与第六个元素互换。分别输出数组原来各元素的值和对换后各元素的值。 2.设有如下两组数据: A:2,8,7,6,4,28,70,25 B:79,27,32,41,57,66,78,80 编写一个程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,8+27……25+80,并把相应的结果放 入第三个数组中,最后输出第三个数组的值。 3.有一个n×m的矩阵,编写程序,找出其中最大的那个元素所在的行和列,并输出其值及行号和列号。 4.某单位开运动会,共有10人参加男子100米短跑,运动员号和成绩如下: 207号 14.5秒 077号 15.1秒 156号 14.2秒 231号 14.7秒 453号 15.2秒 276号 13.9秒 096号 15.7秒 122号 13.7秒 339号 14.9秒 302号 14.5秒 编写程序,按成绩排出名次,并按如下格式输出: 名次 运动员号 成绩 1 …… …… 2 …… …… 3 …… …… … …… …… 10 …… ……
|
|
|
文章录入:杜斌 责任编辑:杜斌 |
|
上一篇文章: 二级VB参考书第6章自测题 下一篇文章: 二级VB参考书第9章自测题 |
【字体:小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
|