2005年9月第22次全国计算机等级考试二级VB考试真题

　　A）108B）18C）810D）出错

　　（18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：

　　PrivateSubForm_Load()

　　Show

　　Text1。Text=""

　　Text2。Text=""

　　Text1。SetFocus

　　EndSub

　　PrivateSubText1_Change()

　　Text2。Text=Mid(Text1。Text，8)

　　EndSub

　　程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是

　　A）BeijingChinaB）ChinaC）BeijingD）BeijingC

　　（19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：

　　PrivateSubForm_Load()

　　List1。AddItem"Item1"

　　List1。AddItem"Item2"

　　List1。AddItem"Item3"

　　EndSub

　　PrivateSubCommand1_Click()

　　List1。List(List1。ListCount)="AAAA"

　　EndSub

　　程序运行后，单击命令按钮，其结果为

　　A）把字符串“AAAA”添加到列表框中，但位置不能确定

　　B）把字符串“AAAA”添加到列表框的最后（即“Item3”的后面）

　　C）把列表框中原有的最后一项改为“AAAA”

　　D）把字符串“AAAA”插入到列表框的最前面（即“Item1”的前面）

　　（20）假定有如下事件过程：

　　PrivateSubForm_Click()

　　DimxAsInteger，nAsInteger

　　x=1

　　n=0

　　DoWhilex<28

　　x=x*3

　　n=n+1

　　Loop

　　Printx，n

　　EndSub

　　程序运行后，单击窗体，输出结果是

　　A）814B）563

　　C）281D）2435

　　（21）有如下程序：

　　PrivateSubForm_Click()

　　DimCheck，Counter

　　Check=True

　　Counter=0

　　Do

　　DoWhileCounter<20

　　Counter=Counter+1

　　IfCounter=10Then

　　Check=False

　　ExitDo

　　EndIf

　　Loop

　　LoopUntilCheck=False

　　PrintCounter，Check

　　EndSub

　　程序运行后，单击窗体，输出结果为

　　A）150B）20-1

　　C）10TrueD）10False

　　（22）有如下程序：

　　PrivateSubForm_Click()

　　DimiAsInteger，sumAsInteger

　　sum=0

　　Fori=2To10

　　IfiMod2<>0AndiMod3=0Then

　　sum=sum+i

　　EndIf

　　Nexti

　　Printsum

　　EndSub

　　程序运行后，单击窗体，输出结果为

　　A）12B）30C）24D）18

　　（23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

　　PrivateSubCommand1_Click()

　　Dimarray1(10，10)AsInteger

　　DimiAsInteger，jAsInteger

　　Fori=1To3

　　Forj=2To4

　　array1(i，j)=i+j

　　Nextj

　　Nexti

　　Text1。Text=array1(2，3)+array1(3，4)

　　EndSub

　　程序运行后，单击命令按钮，在文本框中显示的值是

　　A）12B）13C）14D）15

　　（24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

　　PrivateSubCommand1_Click()

　　Dima1(4，4)，a2(4，4)

　　Fori=1To4

　　Forj=1To4

　　a1(i，j)=i+j

　　a2(i，j)=a1(i，j)+i+j

　　Nextj

　　Nexti

　　Printa1(3，3)；a2(3，3)

　　EndSub

　　程序运行后，单击命令按钮，在窗体上输出的是

　　A）66B）105C）721D）612

　　（25）有如下程序：

　　OptionBase1

　　PrivateSubForm_Click()

　　Dimarr，Sum

　　Sum=0

　　arr=Array(1，3，5，7，9，11，13，15，17，19)

　　Fori=1To10

　　Ifarr(i)/3=arr(i)\3Then

　　Sum=Sum+arr(i)

　　EndIf

　　Nexti

　　PrintSum

　　EndSub

　　程序运行后，单击窗体，输出结果为

　　A）25B）26C）27D）28

　　（26）在窗体上画一个命令按钮，然后编写如下事件过程：

　　PrivateSubCommand1_Click()

　　Dima(5)AsString

　　Fori=1To5

　　a(i)=Chr(Asc("A")+(i-1))

　　Nexti

　　ForEachbIna

　　Printb；

　　Next

　　EndSub

　　程序运行后，单击命令按钮，输出结果是