国家二的级vb新题库.doc

*****第01套 简单应用题 （1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签Label1，请添加一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为飞机、火车、汽车，再添加一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击飞机或火车单选按钮时，在Text1中显示我坐飞机去或我坐火车去，单击汽车单选按钮时，在Text1中显示我开汽车去，如图所示。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a = 我坐 b = 我开 Select Case ? ***** Index ***** Case 0 Text1.Text = a + Me.Op1(0).Caption + 去 Case 1 Text1.Text = ? + Me.Op1(1).Caption + 去 ***** a ***** Case 2 Text1.Text = b + Me.Op1(2).Caption + 去 End Select End Sub （2）在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上添加两个框架控件，名称分别为F1、F2，标题分别为性别、身份；在F1中添加两个单选按钮控件Op1、Op2，标题分别为男、女；在F2中添加两个单选按钮控件Op3、Op4，标题分别为学生、教师；再添加一个命令按钮，名称为C1，标题为确定。如图所示。请编写适当的事件过程，使得在运行时，在F1、F2中各选一个单选按钮，然后单击确定按钮，就可以按照下表把结果显示在文本框中。 性别 身份 在文本框中显示的内容 男 学生 我是男学生 男 教师 我是男教师 女 学生 我是女学生 女 教师 我是女教师 最后把修改后的文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 ‘ ***** 请考生编写程序 ***** If op1 and op3 then Text1.Text=”我是男学生” If op1 and op4 then Text1.Text=”我是男教师” If op2 and op3 then Text1.Text=”我是女学生” If op2 and op4 then Text1.Text=”我是女教师” *****第01套 综合应用题 以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击计算按钮，则计算出上述数列的第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值。(提示：因计算结果较大，应使用长整型变量。) 注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击计算按钮获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click() ‘ ***** 请考生编写程序 ***** Dim a(35) As Long If op1(0) then n=30 If op1(1) then n=33 If op1(2) then n=35 a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) Next Text1.Text = a(n) End Sub *****第02套 简单应用题 （1）在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为发射，还有一个计时器，