国家二级VB新题库

《国家二级VB新题库》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、*****第01套简单应用题（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签Label1，请添加一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为"飞机"、"火车"、"汽车"，再添加一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按钮

2、时，在Text1中显示"我开汽车去"，如图所示。注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。PrivateSubOp1_Click(IndexAsInteger)DimaAsString,bAsString,cAsStringa="我坐"b="我开"'SelectCase?*****Index*****Case0Text1.Text=a+Me.Op1(0).Caption+"去"Case1'Text1.Text=?+Me.Op1(1).Caption+"去"*****a*****Cas

3、e2Text1.Text=b+Me.Op1(2).Caption+"去"EndSelectEndSub（2）在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上添加两个框架控件，名称分别为F1、F2，标题分别为"性别"、"身份"；在F1中添加两个单选按钮控件Op1、Op2，标题分别为"男"、"女"；在F2中添加两个单选按钮控件Op3、Op4，标题分别为"学生"、"教师"；再添加一个命令按钮，名称为C1，标题为"确定"。如图所示。请编写适当的事件过程，使得在

4、运行时，在F1、F2中各选一个单选按钮，然后单击"确定"按钮，就可以按照下表把结果显示在文本框中。性别身份在文本框中显示的内容男学生我是男学生男教师我是男教师女学生我是女学生女教师我是女教师最后把修改后的文件以原来的文件名存盘。注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。‘*****请考生编写程序*****Ifop1andop3thenText1.Text=”我是男学生”Ifop1an

5、dop4thenText1.Text=”我是男教师”Ifop2andop3thenText1.Text=”我是女学生”Ifop2andop4thenText1.Text=”我是女教师”*****第01套综合应用题以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数都是其前面两个数之和。在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击"计算"按钮，则计算出上述数列的第n项的值，并在文本框中显

6、示，n是选中的单选按钮后面的数值。(提示：因计算结果较大，应使用长整型变量。)注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击"计算"按钮获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。PrivateSubCommand1_Click()‘*****请考生编写程序*****Dima(35)AsLongIfop1(0)thenn=30Ifop1(1)thenn=33Ifop1(2)thenn=35a(1)=1a(

7、2)=1Fori=3Tona(i)=a(i-1)+a(i-2)NextText1.Text=a(n)EndSub*****第02套简单应用题（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为"发射"，还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求：①设置Timer1的属性，使其在初始状态下不计时；②设置Timer1的属性，使其每隔0.1秒调用Timer事件过程一

8、次。③去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击"发射"按钮，则航天飞机每隔0.1秒向上移动一次，当到达P2的下方时停止移动，如图所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。PrivateSubC1_Click()'　Timer1.Enabled=?*****True*****EndSubPrivateSubTimer1_Timer()Statica%a=a=+1