VB对口升学数组考试

VＢ对口升学数组测试

———————————————————————————————— 作者: ———————————————————————————————— 日期:

循环数组测试题

１、 在Ｖiｓuaｌ Baｓic中,组合框是文本框和( ）特性的组合。

Ａ）复选框 Ｂ)标签???C)列表框??D）目录列表框 2、 以下程序段的运行结果是___＿__＿。 A

Ｐrivate Sub Ｆorm_Cｌick()

Diｍ s As Lｏｎg, f Ａs Lｏｎｇ

Ｄim n Aｓ Iｎtｅgｅr, ｉ Aｓ Ｉnteger ｆ = 1 n = ４

Fｏr ｉ = １ Ｔo n f = f * i s = s + f Nｅxt i Prｉｎｔ \Ｅｎd Suｂ

A. ３3 Ｂ. 3４ C. 35 D. 36 3、 以下程序段的运行结果是＿_＿＿___。 A

Pｒｉvaｔe Sub Ｆorm_Clｉcｋ() a = 1 ｂ = a

Dｏ Uｎtiｌ a ＞＝ 5 X = a ＊ ｂ

Ｐｒint Str（ａ） & ＂＊\ｔr(b) & ＂=\Ｘ）; a = a + ｂ b = b + ａ Ｌoop End Sub

A. １*1=１ ２*3=6 B. 1*1=2 2＊2=4 C． 1*1=1 3＊３=９ Ｄ. 1*1=２ 3*2=６ ４、 下列语句声明的数组ａ包含的元素个数有_＿_＿__＿。 A

Diｍ a（３ ,-２ ｔo ２，５)

A. １20 B. 75 C. 60 D． 13 ５、 定义数组Array(1 tｏ 5,5）后，下列哪一个数组元素不存在_＿__＿＿_。 C A． Ａｒray(1,1) B. Aｒｒａｙ（1,0) Ｃ. Ａｒray(0，1) D. Ａrｒay(５,5)

6、在窗体上画一个命令按钮,其名称为Cｏmmand1,然后编写如下事件过程： Prｉvａtｅ Ｓub Coｍmand1＿Cｌick(） Dim ａ1(4, 4）, a２(4, ４) Ｆor ｉ = １ Tｏ 4 Ｆoｒ j = 1 Tｏ ４ a1(i, j） ＝ i + j

ａ2(ｉ， j) ＝ a1(i， j) ＋ i ＋ j Nｅxt j Neｘｔ i

Prｉｎt a1（3, 3)； a2(3, ３） Ｅnd Ｓub

程序运行后，单击命令按钮,在窗体上输出的是 A）６ 6 Ｂ)10 5 C)7 21 D)６ 12

7、在窗体上面画一个命令按钮和一个标签，其名称分别为 Cｏmmandl 和 Labeｌl ，然后编写如下事件过程：

Privaｔe Sub Comｍanｄl_Ｃlｉcｋ() Ｃounter＝0 Fｏr i=1 Tｏ ４