2006年4月全国计算机等级考试二级VB笔试试题.doc

2006年4月全国计算机等级考试二级VB程序设计试题及答案y=-xEndSelectEndSub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。A)执行y=x*xB)执行y=-xC)先执行y=x*x，再执行y=-xD)程序出错(21)设有命令按钮Command1的单击事件过程，代码如下：PrivateSubCommand1_Click()Dima(30)AsIntegerFori=1To30a(i)=Int(Rnd*100)NextForEacharrItemInaIfarrItemMod7=0ThenPrintarrItem；IfarrItem90ThenExitForNextEndSub对于该事件过程，以下叙述中错误的是。A)a数组中的数据是30个100以内的整数B)语句ForEacharrItemIna有语法错误C)IfarrItemMod7=0语句的功能是输出数组中能够被7整除的数D)IfarrItem90语句的作用是当数组元素的值大于90时退出For循环2006年4月笔试试卷第3页(共12页)2006年4月笔试试卷第4页(共12页)(22)设有命令按钮Command1的单击事件过程，代码如下：PrivateSubCommand1_Click()Dima(3，3)AsIntegerFori=1To3Forj=1To3a(i，j)=i*j+iNextjNextiSum=0Fori=1To3Sum=Sum+a(i，4-i)NextiPrintSumEndSub运行程序，单击命令按钮，输出结果是。A)20B)7C)16D)17(23)在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()a=0Fori=1To2Forj=1To4IfjMod20Thena=a-1EndIfa=a+1NextjNextiPrintaEndSub程序运行后，单击命令按钮，输出结果是。A)0B)2C)3D)4(24)窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问号(？)处应填入的内容是。图1图2PrivateSubOption1_Click(IndexAsInteger)IfText1。TextThenSelectCase？Case0Text2。Text=Val(Text1。Text)Case1Text2。Text=Val(Text1。Text)*10Case2Text2。Text=Val(Text1。Text)*100EndSelectEndIfEndSubA)IndexB)Option1。IndexC)Option1(Index)D)Option1(Index)。Value(25)在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：PrivateSubCommand1_Click()Dima(10)AsIntegerDimxAsIntegerFori=1To10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionf(xAsInteger)x=x+3f=xEndFunction程序运行后，单击命令按钮，输出结果为。A)12B)15C)17D)182006年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=EndSubPrivateSubCommand1_Click()x=Val(Text1。Text)y=Val(Text2。Text)Text3。Text=f(x，y)EndSubFunctionf(ByValxAsInteger，ByValyAsInteger)DoWhiley0tmp=xModyx=yy=tmpLoopf=xEndFun