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

《2006年4月全国计算机等级考试二级VB笔试试题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、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　　Ifarr

2、ItemMod7=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)设有命令按钮Command

3、1的单击事件过程，代码如下：　　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

4、()　　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所示。为了实现上述功能

5、，在程序中的问号(？)处应填入的内容是。　　图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

6、)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

7、月笔试试卷第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=""

8、　　EndSub　　PrivateSubCommand1_Click()　　x=Val(Tex