- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第7章 习题与答案
一、????????? 选择题
1.如下数组声明语句,正确的是
(A)Dim a[3,4]As Integer (B)Dim a(3,4)As Integer
(C)Dim a(n,n) As Integer (D)Dim a(3,4)As Integer
2.要分配存放如下方阵的数据:
1.1 2.2 3.3
4.4 5.5 6.6
7.7 8.8 9.9
数组声明语句能实现(不能浪费空间)的是
(A) Dim a(9) As Single (B)Dim a(3,3) As Single
(C)Dim a (-1 To 1,-5 To -3) As Single
(D)Dim a (-3 To 1,-5 To 7) As Integer
3.如下数组声明语句:
Dim a(3,-2 To 2,5)
则数组a包含的元素的个数为
(A)120 (B)75 (C)60 (D)13
4.以下程序
Dim a
a=Array(1,2,3,4,5,6,7)
For i=Lbound (a) To Ubound (a)
a(i)=a(i)*a(i)
Next i
Print a(i)
输出结果是
(A)49 (B)0 (C)不确定 (D)程序出错
5.以下程序
Option Base 1
Private Sub Command1 _Click()
Dim a%(3,3)
For i=1 To 3
For j=1 To 3
If j>1 And i>1 Then
a(i,j)=a(a(i-1,j-1),a(i,j-1))+1
Else
a(i,j)=i*j
End If
Print a(I,j);“”;
Next j
Print
Next i
End Sub
输出结果是
(A)1 2 3 (B)1 2 3 (C)1 2 3 (D)1 1 1
2 3 1 1 2 3 2 4 6 2 2 2
3 2 3 1 2 3 3 6 9 3 3 3
6.以下程序
Option Base 1
Private Sub Command1_Click()
Dim a,B(3,3)
a=Array(1,2,3,4,5,6,7,8,9)
For i=1 To 3
For j=1 To 3
B(i,j)=a(i*j)
If(j>=i) Then Print Tab(j*3);format(B(i,j),“###”);
Next j
Print
Next I
End Sub
输出结果是
(A)1 2 3 (B)1 (C)1 4 7 (D)1 2 3
4 5 6 4 5 2 4 6 4 6
7 8 9 7 8 9 3 6 9 9
7.要存储n个单精度数,下列语句正确的是
(A)n=InputBox(“input n”) (B)Dim a()As Single
Dim a (1 To n)As Single n=InputBox(“input n”)
ReDim a(1 To n)
(C)Dim a()As Integer (D)Dim a(n)As Single
n=InputBox(“input n”)
ReDim a(n) Single
8.已知有数组声明:Dim a(-1 To 3,2 To 5)As integer,如下引用数组中的元素,正确的是
(A)a(-1,2) (B)a(4) (C)a[-1,2] (D)a(0,6)
9.下列有关控件数组与一般控件的区别的叙述中,最合理的是
(A)?? 控件数组一定由多个同类型的控件组成,一般控件只有一个控件; (B) 控件数组的Index为0,而一般控件的Index为空;
(C) 控件数组的Index为1,而一般控件的Index为0; (D)控件数组的建立通过Dim语句声明,而一般控件不必声明。
?
二、填空题
1.矩阵转置
矩阵转置就是将一个n×m的矩阵行和列互换。例如矩阵:
a= ,转置后的矩阵为b=
要实现如本例所示的功能,程序如下:
Option Base 1
Private
文档评论(0)