2005年4月全国计算机等级考试二级VB笔试试卷及答案

　　t="旅游景点："_

　　&IIf(a>0Anda<=10，"长城"，"")_

　　&IIf(a>10Anda<=20，"故宫"，"")_

　　&IIf(a>20Anda<=30，"颐和园"，"")

　　Text1。Text=t

　　EndSub

　　程序运行后，如果从键盘输入16，则在文本框中显示的内容是：

　　A)旅游景点：长城故宫

　　B)旅游景点：长城颐和园

　　C)旅游景点：颐和园

　　D)旅游景点：故宫

　　(28)在窗体上画一个名称为Label1的标签，然后编写如下事件过程：

　　PrivateSubForm_Click()

　　Dimarr(10，10)AsInteger

　　DimiAsInteger，jAsInteger

　　Fori=2To4

　　Forj=2To4

　　arr(i，j)=i*j

　　Nextj

　　Nexti

　　Label1。Caption=Str(arr(2，2)+arr(3，3))

　　EndSub

　　程序运行后，单击窗体，在标签中显示的内容是

　　A)12

　　B)13

　　C)14

　　D)15

　　(29)在窗体上画一个名称为Comamnd1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：

　　PrivateFunctionfun(ByValmAsInteger)

　　IfmMod2=0Then

　　fun=2

　　Else

　　fun=1

　　EndIf

　　EndFunction

　　PrivateSubCommand1_Click()

　　DimiAsInteger，sAsInteger

　　s=0

　　Fori=1To5

　　s=s+fun(i)

　　Next

　　Prints

　　EndSub

　　程序运行后，单击命令按钮，则窗体上显示的是：

　　A)6

　　B)7

　　C)8

　　D)9

　　(30)阅读程序：

　　OptionBase1

　　Dimarr()AsInteger

　　PrivateSubForm_Click()

　　DimiAsInteger，jAsInteger

　　ReDimarr(3，2)

　　Fori=1To3

　　Forj=1To2

　　arr(i，j)=i*2+j

　　Nextj

　　Nexti

　　ReDimPreservearr(3，4)

　　Forj=3To4

　　arr(3，j)=j+9

　　Nextj

　　Printarr(3，2)+arr(3，4)

　　EndSub

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

　　A)21

　　B)13

　　C)8

　　D)25

　　(31)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

　　OptionBase1

　　PrivateSubCommand1_Click()

　　DimcAsInteger，dAsInteger

　　d=0

　　c=6

　　x=Array(2，4，6，8，10，12)

　　Fori=1To6

　　Ifx(i)>cThen

　　d=d+x(i)

　　c=x(i)

　　Else

　　d=d-c

　　EndIf

　　Nexti

　　Printd

　　EndSub

　　程序运行后，如果单击命令按钮，则在窗体上输入的内容为

　　A)10

　　B)16

　　C)12

　　D)20

　　(32)设有如下程序：

　　PrivateSubCommand1_Click()

　　DimcAsInteger，dAsInteger

　　c=4

　　d=InputBox("请输入一个整数")

　　DoWhiled>0

　　Ifd>cThen

　　c=c+1

　　EndIf

　　d=InputBox("请输入一个整数")

　　Loop

　　Printc+d

　　EndSub

　　程序运行后，单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是：

　　A)12

　　B)11

　　C)10

　　D)9

　　(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：

　　MicrosoftVisualBasicProgramming

　　然后编写如下事件过程：

　　PrivateSubCommand1_Click()

　　Open"d：\temp\outf。txt"ForOutputAs#1

　　Fori=1ToLen(Text1。Text)

　　c=Mid(Text1。Text，i，1)

　　Ifc>="A"Andc<="Z"Then

　　Print#1，LCase(c)

　　EndIf

　　Nexti

　　Close

　　EndSub

　　程序运行后，单击命令按狃，文件outf。txt中的内容是：

　　A)MVBP

　　B)mvbp

　　C)M

　　V

　　B

　　P

　　D)m

　　v

　　b

　　p

　　(34)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

　　DimSWAsBoolean

　　Functionfunc(XAsInteger)AsInteger

　　IfX<20Then

　　Y=X

　　Else

　　Y=20+X