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

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

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

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

基本操作题

1.(1)在称为Form1的窗体上添加一个名称为Shape1的形状控件,通过设置参数使其形状为圆形;添加一个名称为Label1的标签,标题为“形状”,标签的大小能够根据标签内容的字数、大小而定;添加一个名称为Text1的文本框,文本框最多能够显示5个字符,文小框中初始内容为“圆形”,如图所示。

注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为四件套1.frm,工程文件名为sjt1.vhp。

(2)在名称为Form1的窗体上添加一个名称为Label1的标签,字号大小为四号,标题为“等级考试”,如图1所示。通过设置属性使标签初始为不显示。请编写适当的程序,使得运行程序时,窗体的标题立即变为“标签”,单击窗体时,显示标签,如图2所示。

注意:存盘时,将文件保存至考生文件夹下,且窗体文件名保存为sjt2.Inn,工程文件名保存为四件套2.vbp。要求程序中小得使用变量,每个事件过程中只能写一条语句。

(1)步骤1:新建一个窗体,按照题目要求建立形状控件、标签控件及文本框控件并设置其属性,如图3.27所示。程序中用到的控件及属性见表3.36。

[*]

步骤2:调试并运行程序,关闭程序后按题目要求存盘。

(2)步骤1:新建一个窗体,按照题目要求建立控件并设置其属性,如表3.37所示。

[*]

步骤2:编写程序代码。

参考答案

Private Sub Form_Click()

Label1.Visible=True

End Sub

Private Sub Form_Load()

Form1.Caption=\\

解析:(1)Shape属性用来设置形状控件的形状。其取值及边框形状如下。

取0值:矩形,默认设置;取1:正方形;取2:椭圆;取3:圆;取4:圆角矩形;取5:圆角正方形。

AutoSize属性决定控件是否能自动调整大小以显示所有的内容。

MaxLength属性设置文本框中输入的字符串长度。默认值为0,表示该单行文本框中字符串的长度只受操作系统内存的限制。如果设置为大于0的数,则表示能够输入的最大字符数目。

(2)通过标签的。Name、Caption和FontSize属性设置标签的名称、标题和字体大小,通过设置标签的Visible属性为False,使标签初始为不可见。编写适当的程序,在Form_Load事件过程中,窗体的Caption属性值立即变为“标签”,在Foim_Click事件过程中单击窗体时,设置标签的Visible属性为True显示标签。

简单应用题

2.(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1,如图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在Text1文本框中。近似公式女口下:e=1+1/1!+1/2!+1/3!+…+1/n!+…请将程序代码中的注释符去掉,把?改为正确内容,以实现上述程序功能。

注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp。其窗体中有1个名称为Command1,标题为“查找”的命令按钮;3个初始内容为空的文本框Text1、Text2和Text3,其中Text1允许显示多行内容,且有垂直滚动条,如图所示。程序功能为:首先在Text1中输入原始字符串,在Text2中输入要查找的单个字符,然后单击“查找”按钮,则在Text3中显示查找的结果。图示为某一次的运行效果。

请将“查找”命令按钮Click事件过程中的注释符去掉,把?改为正确内容,以实现上述程序功能。

注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。

(1)步骤1:打开本题项目工程,并在窗体中添加文本控件Text1,

并按照表4.6设置文本控件Text1的属性,结果如图4.5所示。

[*]

步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。

参考答案

Private Sub Command1_Click()

Dim e As Single.x As Single

Dim i As Integer

e=0:i=0

x=1

Do While x>0.001301

e=e+x

i=i+1

x=1/je(i)

Loop

Text1.Text=e

End Sub

Function jc(n As Integer)As Long

Dim i As Integer

Dim t As Long

t=1

For i=1 To n

t=t*i

Next

jc=t

End Function

步骤3:调试并运行程序,关闭程序后按题目要求存盘。

(2)步骤1:打开本题工程文件。

步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。

参考答案

Private Sub Command1_Click()

Dim x As String

Dim num As Integer,i As Integer

i=1

num=0

Do while i<=Len(Text1)

If Mid(Text1,i,1)=Text2 Then

num=num+1

End If

i=i+1

Loop

If num=0 Then

x=\\

解析:(1)在窗体中添加Text控件,首先将Text控件中的内容设置为空,然后进入“计算”按钮的单击事件过程,Do While循环结构中调用求阶乘函数jc,依次求变量i的阶乘结果,将最后的计算结果,显示在Text控件上。

(2)利用Do While循环遍历Text1中的字符串,并使用Mid(Text1,i,1)取出Text1中相应位置的字符,判断该字符是否与Text2中的字符

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号