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

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

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

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

基本操作题

1.(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框,它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性,满足如下要求:

①Text2可以显示多行文本,并且有垂直和水平两个滚动条;

②程序运行时在Text1中显示输入的字符为“*”.

程序运行后的窗体如图所示。

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

(2)在名称为Form1的窗体上添加一个名称为Imagel的图像框,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件picl.bmp载入图像框;再画两个命令按钮控件,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。

要求:

①请编写适当的事件过程,程序运行后,如果单击“放大”按钮,则将图像框的高度、宽度均增加100;单击“缩小”按钮,则将图像框的高度、宽度均减少100,要求程序中不得使用任何变量。

②通过属性窗口设置图像框的适当属性,使得在放大、缩小图像框时,其中的图像也自动放大、缩小。

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

(1)

【操作步骤】

步骤1:新建一个窗体,按照题目要求建立文本框控件并设置其属性,程序中涉及的控件及属性见表3.8和表3.9。

[*]

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

(2)

【操作步骤】

步骤1:新建一个窗体,按照题目要求建立控件并设置图像框相应属性,如图3.17所示。

[*]

步骤2:按照步骤1设置其他控件相关属性,程序中涉及的控件及属性见表3.10。

[*]

步骤3:打开代码编辑窗口,在指定位置编写如下代码。

Private Sub C1 C1ick()’当单击”放大”按钮时,依次将Image1的高与宽分别加100

Image1.Height=Image1.Height+i00

Image1.Width=Image1.Width+100

End Sub

Private Sub C2 Click()’当单击”缩小”按钮,则依次将Image1的高与宽分别减100

Image1.Height=Image1.Height—100

Image1.Width=Image1.Width一100

End Sub

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

解析:

简单应用题

2.(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行后,单击“读人数据”按钮,可将考生文件夹下in3.txt文件中的所有英文单词读入,并在Textl文本框中显示;单击“插入列表框”按钮,则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。

在in3.txt文件中,每个单词之间用一个空格字符隔开,最后一个单词的后面没有空格。已经给出了所有控件和程序,但程序不完整。

要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经添加所有控件,如图所示。在程序运行时,如果单击“开始”按钮,则每隔0.1秒窗体上的汽车图标向右移动一次(初始状态下不移动);如果单击“停止”按钮,则停止移动。

请完成以下工作:

(1)

【操作步骤】

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

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

Private Sub Commandl_Click()

Dim St$.ch$

Open App.Path&”\in3.txt”For In

put As #1’打开文件

Do While Not EOF(1)’文件指针是否到达文件末尾

Input #1,ch’达到文件末尾返回true.否则返回false

st=at&ch’将读出的数据加到原有数据末尾

Loop

Close #1’关闭文件

Text1=st’将内容显示在文本框中

End Sub

Private Sub Command2_Click()

Dim st$,word$,C$

St=Text1

n=Len(St)

For k=1 To n

c=Mid(st,k,1)’从st中依次取出1个字符进行比较

If C<>””Then

word=WOrd&C

Else

List1.AddItem word

word=“”’将word清空,为下一次作准备

End If

Next

List1.AddItem Word

End Sub

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

(2)

【操作步骤】

步骤1:打开本题工程文件,设置计时器Interval的属性为100,将Enabled属性设置为False。

步骤2:打开代码编辑窗口,在指定位置编写如下代码。

Private Sub Timerl_Timer()

P1.Left=P1.Left+20

End Sub

’需要考生编写的内容

Private Sub C1_Click()

Timer1.Enabled=True

End Sub

Private Sub C2_Click()

Timer1.Enabled=False

End Sub

步骤3

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号