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

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

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

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

基本操作题

1.(1)在名称为Form1的窗体上添加两个名称分别为Frame1、Frame2的框架,标题分别为“字号”、“修饰”;在Frame1中添加两个单选按钮,名称分别为Option1、Option2,标题分别为“10号字”、“20号字”,且标题显示在单选按钮的左边;在Frame2中添加一个名称为Checkl的复选框,怀题为“下划线”。程序运行后的窗体如图所示。

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

(2)在名称为Form1的窗体上从上到下添加两个文本框,名称分别为Text1、Text2;再添加一个命令按钮,名称为Command1,标题为“选中字符数是”。程序运行时,在Text1中输入若干字符,选中部分内容后,单击“选中字符数是”按钮,则选中的字符个数显示在Text2中(如图所示)。请编写按钮的Click事件过程。

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

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

(1)步骤1:建立界面,添加相应的控件并设置控件的属性。程序中的控件及属性见表3.43。

[*]

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

(2)步骤l:建立界面,添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3.44。

[*]

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

参考答案

PriVate sub Command1_Slick()

Text2 =Text1.SelLength

End Sub

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

解析:(1)通过框架的Name和Caption属性设置框架的名称和标题,通过单选按钮的Name和Caption属性设置单选按钮的名称和标题,通过复选框的Name和Caption属性设置复选框的名称和标题。

(2)SelLength属性用于返回/设置选定的字符数,通过文本框的Name和Caption属性设置文本框的名称和标题,通过命令按钮的Name和Caption属性设置命令按钮的名称和标题。

简单应用题

2.(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。

要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp。程序运行后,单击“开始”按钮,图片自上而下移动,同时滚动条的滑块随之移动。每隔0.5秒移动一次,当图片顶端移动到距窗体下边界的距离少于200时,则再回到窗体的顶部,重新向下移动,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。

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

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

参考答案

Private Sub Command1_Click()

Dim y As Integer

For i=0 To 2’循环三个单选按钮

If Option1(i).Value=True Then’当某个按钮被选

Y=Val(Optionl(i).Caption)’提取按钮名并转换为数值

End If

Next

Call calc(y)’调用子函数

End Sub

Private Sub calc(y As Integer)

ClearList’执行子函数

i=1

x=Val(Text1.Text)+1

Do While i<=5’只需要显示5个数

If x Mod y=0 Then’判断x是否能被y整除

List1.AddItem x’添加满足条件的数至表

i=i+1’统计

End If

x=x+1’自加,判断下次循环

Loop

End Sub

Private Sub ClearList()’清空列表框的项目

For k=LiStl.LiStCount一1 To 0 Step—1

List1.RemoveItem k

Next k

End Sub

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

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

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

参考答案

Private Sub Command1_Click()

Timerl.Enabled=True

End Sub

Private Sub Command2_Click()

Timerl.Enabled=False

End Sub

Private Sub Form Load()

Timerl.Interval=500’设置Timerl执行间隔数,以毫秒计算

End Sub

Private Sub Timerl_Timer()

Picturel.Top=Picturel.Top+200’顶端位置保持一致

Vscroll1.Value=Picturel.Top’滚动条滑块的位置与图片顶端位置保持一致

If VScrolll.Value +200 >=Form1.Height一200 Then

Picturel.Top=0’当图片顶端移动到距窗体下边界距离少于200时,则图片重新向下移动

End If

End Sub

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

解析:(1)calc()函数实现将大于文本框中的正整数,并且能够被所选除数整除的5个数添加

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号