国家二级VB机试（简单应用题）模拟试卷16 (题后含答案及解析)
题型有：1.
1． (1)在考生文件夹下有一个工程文件sjt3．vbp，窗体上已经有一个标签Label1，请添加一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Text1中显示“我坐飞机去”或”我坐火车去”，单击“汽车”单选按钮时，在Text1中显示“我开汽车去”，如图所示。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4．vbp，Form1窗体中有一个文本框，名称为Text1；请先在窗体上添加两个框架控件，名称分别为F1、F2，标题分别为“性别”、“身份”；然后在F1中添加两个单选按钮控件Op1、Op2，标题分别为“男”、“女”；其次在F2中添加两个单选按钮控件Op3、Op4，标题分别为“学生”、“教师”；最后再添加一个命令按钮，名称为C1，标题为“确定”，如图所示。请编写适当的事件过程，使得运行时，在F1、F2中各选一个单选按钮，然后单击“确定”按钮，就可以按照下表把结
果显示在文本框中。 最后把修改后的文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。
正确答案：(1)【操作步骤】 步骤1：打开本题工程文件，按照题目要求建立单选按钮数组，如图3．9所示。 步骤2：按照题目要求建立其他控件并设置其属性，见表3．4。 步骤3：打开代码编辑窗口，去掉程序中的注释符“‘”将问号改为正确的内容。 参考答案 Private Sub Op1_Click(Index As Integer) Dim a As String，b As String，c As String a＝”我坐” b＝vb开始按钮代码”我开” Select Case Index ‘通过Index值决定响应哪一个控件数组 Case 0 Text1．Text＝a＋Me．Opl(0)．Caption＋”去” Case 1 Text1．Text＝a＋Me．op1(1)．Caption＋”去” ‘当Index值为1时，选择”我坐” Case 2 Text1．Text＝b＋Me．Opl(2)．Caption＋”去” End Select End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件，按照题目要求建立框架控件并设置其属性，如图3．10所示。 步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3．5和表3．6。 步骤3：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub c1_click( ) Text1．Text＝”我是” ‘首先确定不论选什
么情况Text1的内容一定以”我是”开头 If Op1．Value Then Text1．Text＝Text1．Text＆Op1．Caption Else Text1．Text＝Text1．Text&Op2．Caption End If ‘通过单选按钮的Value值(选择为true，否则为false)确认性别，最后把其Caption值接至Text1后 If Op3．Value Then Text1．Text＝Text1．Text＆Op3．Caption Else Text1．Text＝Text1．Text ＆Op4．Caption End If ‘确认身份，思路同上 End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。
2． (1)在考生文件夹中有工程文件sjt3．vbp，程序界面如图3－3所示。当在文本框中输入正整数N，单击“计算”命令按钮，进行计算。若N是奇数，计算1＋3!＋5!＋……＋N!，若N是偶数，计算1＋3!＋!＋……＋N!)!。在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4．vbp，该程序的功能是显示月历。运行程序后，在Text1、Text2中分别输入年份和月份，并在左．边的框架中选择该年的1月1日是星期几，然后单击“显示月历”按钮，即可在下面的图片框内显示该年该月的月历。如图3－4所示的是2008年2月份的月历。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。 注意：不能修改程序的其他部分和
控件属性。最后把修改后的文件按原文件名存盘。
正确答案：第1小题 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口中，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。参考代码： m＝n＋1 m＝n For i＝1 To m Step 2 sum＝sum＋f(i) For i＝1 To x 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。参考代码： month_days(2)＝IIf(leap_year(year)，29，28) For k＝1 To month－1 n＝0 Priva Function leap_year(year As Integer) As Boolean 步骤2：按要求将文件保存至考生文件夹中。
3． (1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中，如图3—80所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按
原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0．5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图3—81所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
正确答案：第1小题步骤1：打开考生文件下的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。参考代码：If Option1．Item(i)=True Theny=val(Option1(i)．Caption)Do While i＜=5List1．AddItem x步骤2：按要求将文件保存至考生文件夹中。第2小题步骤1：打开考生文件夹下的工程文件sjt4．vbp。步骤2：进入代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。参考代码：Timer1．Interva1=500VScroll1．Value=Picture1．TopPicture1．Top=0步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：判断整数A能被整数B整除的条件表达式为：A Mod B=0。本题源程序在“计
算数据”的单击事件过程中，通过For循环逐一判断单选按钮数组中的每个元素是否选中，用变量y记录选中单选按钮所标识的数字，并调用过程“calc”计算满足条件的正整数。在过程“calc”中，通过Do循环依次判断大干文本框中数的正整数是否能被变量y整除，将能被整除的前5个数添加到列表框List1中。第2小题：本题源程序利用计时器的Timer事件来控制图片的移动，因此单击“开始”按钮启动计时器，而单击“停止”按钮就是要停止计时器。在计时器的Timer事件过程中，通过每次使图片框的Top属性值增量200实现移动，并让垂直滚动条滑块的位置随图片框的Top属性值变化。当图片顶端移动到距窗体的下边界的距离少于200时(即VScroll1．Value+200＞=Form1．Height．200)时，则重新从窗体顶端开始移动，即Picture1．Top=0。由于题目要求不能在设计阶段修改控件属性，要想在单击“开始”按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的Interval属性，即Timer1．Interva1=500。
4． (1)在考生目录下有一个工程文件sjt3．vbp，窗体文件中已给出所有控件和部分程序，如图3—119所示。要求： ①利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐； ②请编写适当的程序完成以下功能：在Text1中输入40(度数)，选择一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值(保留3位小数，第4位截去，
π取3．14159)，并显示在Text2中。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在Text1中输入的必须是40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上已经给出所有控件。程序运行时，单击“开始”按钮，则汽车图标向右运动；单击“停止”按钮则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度(滚动框向右移动，速度减慢)。如图3—120所示。 要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。 提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动10，程序通过改变计时器控件的：Interval属性来改变汽车的运动速度。 注意：不得修改控件的属性。最后按原文件名存盘。
正确答案：(1)【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，程序界面如图4—4所示。 步骤2：依次选中窗体中的两个文本框，将其Alignment属性值设置为1-Right Justify。 步骤3：双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码：Private Sub Command1_Click( ) If Option1．Item(0)＝True Then Text2．Text＝Format(Sin(Val _(Text1．Text)*3．14159／_180)，”0．00 0”) End If If Option1．Item(1)＝True Then Text2．Text＝Format(Cos(Val(_ Text1．Text)*
3．14159／180)， _”0．000”) End IfEnd Sub 步骤4：按键运行程序，在左侧文本框中输入“40”，选择不同选项，单击“计算”按钮，结果图4—5所示。 步骤5：单击窗体右上角的关闭按钮以结束程序。 步骤6：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。参考代码：Timer1．Enabled＝TrueTimer1．Interval＝HSCrol11．ValuePicture1．Left＝PiCture1．Left＋10 步骤2：按要求将文件保存至考生文件夹中。
5． （1）考生文件夹下有工程文件sjt3.vbp，窗体上有两个标题分别为“分解”和“退出”的命令按钮。请再画一个名称为Text1，初始值为空的文本框。程序功能如下： ①单击“分解”按钮，程序提示输入一个大于2的整数，并将该数分解为因数的乘积，最后将分解结果显示在Text1 文本框内（如图1－146所示）。 ②单击“退出”按钮，则结束程序运行。 请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 （2）考生文件夹下有工程文件sjt4.vbp，窗体上有一个名称为Cmd1的命令按钮，请对其属性进行设置，使其左边界与窗体左边框的距离为300，标题为“产生可变正方形图案”。程序功能为：单击“产生可变
正方形图案”按钮，则弹出输入框，要求输入可变数；在输入可变数后，将根据可变数在窗体上显示可变正方形图案；图案的最外圈为第1层，且每层上显示的数字与其所处的层数相同。 图1－147（a）为输入可变数6时的可变正方形图案。图1－147（b）为输入可变数7时的可变正方形图案。 Cmd1按钮的Click事件过程已经给出，但不完整，请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已存在的程序，最后将程序按原文件名存盘。
正确答案：第1小题 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，在其中画出一个名为Text1，初始内容为空的文本框。 步骤2：打开代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。 参考代码： Loop Until n > 2 Do While n Mod Factor = 0 Factor = Factor + 1 步骤3：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。 参考代码： For j = k To n - k + 1 a(i, j) = k Print Tab(j * 3); a(i, j); Print 步骤2：按要求将文件保存至考生文件夹中。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论