首页 > 全部 > 二级VB > 国家二级VB机试(上机操作)模拟试卷358

国家二级VB机试(上机操作)模拟试卷358

本单篇文档共3256字,内容预览3600字,预览为有答案版,源文件无水印,下载后包含无答案空白卷版和有答案版,同时也有计算机类NCRE全国计算机二级整科真题模拟题,讲义课件,思维导图,易错高频题等下载。
二级VB 章节练习 5340人下载
价格: 1.00 原价:¥9.00
收藏

国家二级VB机试(上机操作)模拟试卷358

基本操作题

1.(1)在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签,并设置适当属性以满足以下要求:

①标签的内容为“计算机等级考试”;

②标签可根据显示内容自动调整其大小;

③标签带有边框,且标签内容显示为三号字。

运行后的窗体如图3.122所示。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。

(2)在名称为Form1的窗体上画一个名称为Hscrolll的水平滚动条,其刻度范围为1~100;再画一个名称为Text1的文本框,初始内容为1。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时,文本框中实时显示滚动框的当前位置。运行情况如图3。123所示。

注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

(1)步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个标签,并设置它的相关属性,其属性和值如表4-72所示。

[*]

步骤2:按要求将文件保存至考生文件夹中。

(2)步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个文本框和一个水平滚动条,在属性设置窗口中设置其相关属性,其属性及值如表4-73所示。

[*]

步骤2:打开代码编辑窗口,编写水平滚动条的Change事件过程。参考代码:

PriVate Sub HScroll1_Change()

Text1.Text=HScroll1.Value

End Sub

步骤3:按要求将文件保存至考生文件夹中。

解析:(1)本题只需按要求画出控件并设置其相应属性即可。

(2)根据题意,本题需在滚动条的Change事件过程中编写在文本框中输出滚动条当前Value值的语句。

简单应用题

2.(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有两个文本框,名称分别为Text1、Text2;一个命令按钮,名称为C1,标题为“确定”;请画两个单选按钮,名称分别为Op1、Op2,标题分别为“男生”、“女生”;再画两个复选框,名称分别为Ch1、Ch2,标题分别为“体育”、“音乐”。请编写适当的事件过程,使得在运行时,单击“确定”按钮后实现下面的操作:

①根据选中的单选按钮,在Text1中显示“我是男生\\

(1)步骤1:打开考生文件夹下的工程文件sjt3.vbp。

步骤2:在窗体Form1中加入两个单选按钮和两个复选框,分别设置它们的相关属性,属性及其值如表4.79所示。

[*]

步骤3:打开代码编辑窗口输入如下代码。参考代码:

Private Sub C1_Click()

Dim a As Strina

a=\\

解析:(1)根据题目要求,在本题的程序设计上,首先以Op1是否选中作为If…Then…Else语句的条件,由此分出两种情况:Op1被选中或Op2被选中。在条件为真(即Op1被选中)时文本框1中显示“我是男生”,否则显示“我是女生”;接下来分别判断两个复选框是否选中并相应在文本框2上显示内容。以上判断和显示操作均在Cl的Click事件中完成。

(2)要实现本题中的功能,在窗体的Load事件过程中,令全局变量i的初值为0,然后设置计时器的Interval属性为1000并启用计时器;在计时器的Timer事件中把列表框的第i项显示在标签中,接下来令i+1,一旦i超过了3就将其重新置0以便实现循环显示。

综合应用题

3.为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法,编写判断一个正整数是否为素数的函数prime,然后用这个函数找出200~300之间的所有素数,求出这些素数的和,将该数在文本框中显示出来,并存入文件out5.txt中。

要求:编写函数prime的代码,然后在Form Click事件过程中调用该函数,并计算素数的和。事件过程中已给出了把素数和保存到文件中的代码,考生不得修改。

注意:请务必把求得的和在文本框中显示出来,这样才能存入文件out5.txt,否则没有成绩。

步骤1:打开考生文件夹中的工程文件sjt5.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码:

Function prime(ByVal n As Integer) As

Boolean

’ ****** 考生编写 ******

Dim flaq As Boolean

flag= IIf(n>1,True,False)

For m=2 To n/2

If n Mod m=0 Then

flag=False

Exit For

End If

Next m

prime=flag

’ **********************************

End Function

Private Sub Form Click()

’******考生编写******

Dim sun As Integer

For n=200 To 300

If prime(n) Then

Sum=Sum+n

End If

Next n

Text1.Text=Sum

’ ************************

Open App.Path &\\

解析:题目要求计算200~300之间的素数和,可通过一个循环来实现,在循环里面逐个判断200~300之间的数是否为素数,如果是计算累加和。

  函数prime用来判断输入参数n是否为素数,方法是2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。设计程序的时候,通过循环来实现,循环变量m从2开始,循环结束条件为n/2,Step为1,如果n mod m为0,表示m将n整除,n不是素数。

本文档预览:3600字符,共3256字符,源文件无水印,下载后包含无答案版和有答案版,查看完整word版点下载

剩余未完,查看全文
收藏
国家二级VB机试(上机操作)模拟试卷358

推荐资源

客服

扫码添加客服微信

热线

官方客服

如遇问题,请联系客服为您解决

电话客服:

客服微信:pujinet

工作时间:9:00-18:00,节假日休息

公众号

扫码关注微信公众号