2006年4月全国计算机等级考试二级VB程序设计试题及答案

　　y=-x

　　EndSelect

　　EndSub

　　程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。

　　A)执行y=x*xB)执行y=-x

　　C)先执行y=x*x，再执行y=-xD)程序出错

　　(21)设有命令按钮Command1的单击事件过程，代码如下：

　　PrivateSubCommand1_Click()

　　Dima(30)AsInteger

　　Fori=1To30

　　a(i)=Int(Rnd*100)

　　Next

　　ForEacharrItemIna

　　IfarrItemMod7=0ThenPrintarrItem；

　　IfarrItem>90ThenExitFor

　　Next

　　EndSub

　　对于该事件过程，以下叙述中错误的是。

　　A)a数组中的数据是30个100以内的整数

　　B)语句ForEacharrItemIna有语法错误

　　C)IfarrItemMod7=0……语句的功能是输出数组中能够被7整除的数

　　D)IfarrItem>90……语句的作用是当数组元素的值大于90时退出For循环

　　2006年4月笔试试卷第3页(共12页)2006年4月笔试试卷第4页(共12页)(22)设有命令按钮Command1的单击事件过程，代码如下：

　　PrivateSubCommand1_Click()

　　Dima(3，3)AsInteger

　　Fori=1To3

　　Forj=1To3

　　a(i，j)=i*j+i

　　Nextj

　　Nexti

　　Sum=0

　　Fori=1To3

　　Sum=Sum+a(i，4-i)

　　Nexti

　　PrintSum

　　EndSub

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

　　A)20B)7

　　C)16D)17

　　(23)在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：

　　PrivateSubCommand1_Click()

　　a=0

　　Fori=1To2

　　Forj=1To4

　　IfjMod2<>0Then

　　a=a-1

　　EndIf

　　a=a+1

　　Nextj

　　Nexti

　　Printa

　　EndSub

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

　　A)0B)2

　　C)3D)4

　　(24)窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问号(？)处应填入的内容是。

　　图1图2PrivateSubOption1_Click(IndexAsInteger)

　　IfText1。Text<>""Then

　　SelectCase？

　　Case0

　　Text2。Text=Val(Text1。Text)

　　Case1

　　Text2。Text=Val(Text1。Text)*10

　　Case2

　　Text2。Text=Val(Text1。Text)*100

　　EndSelect

　　EndIf

　　EndSub

　　A)IndexB)Option1。Index

　　C)Option1(Index)D)Option1(Index)。Value

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

　　PrivateSubCommand1_Click()

　　Dima(10)AsInteger

　　DimxAsInteger

　　Fori=1To10

　　a(i)=8+i

　　Next

　　x=2

　　Printa(f(x)+x)

　　EndSub

　　Functionf(xAsInteger)

　　x=x+3

　　f=x

　　EndFunction

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

　　A)12B)15

　　C)17D)18

　　2006年4月笔试试卷第5页(共12页)2006年4月笔试试卷第6页(共12页)(26)以下关于过程的叙述中，错误的是。

　　A)事件过程是由某个事件触发而执行的过程

　　B)函数过程的返回值可以有多个

　　C)可以在事件过程中调用通用过程

　　D)不能在事件过程中定义函数过程

　　(27)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。

　　编写如下程序：

　　PrivateSubForm_Load()

　　Text1。Text=""

　　Text2。Text=""

　　Text3。Text=""

　　EndSub

　　PrivateSubCommand1_Click()

　　x=Val(Text1。Text)

　　y=Val(Text2。Text)

　　Text3。Text=f(x，y)

　　EndSub

　　Functionf(ByValxAsInteger，ByValyAsInteger)

　　DoWhiley<>0

　　tmp=xMody

　　x=y

　　y=tmp

　　Loop

　　f=x

　　EndFunction

　　运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。

　　A)4B)6