2016年计算机二级vb试题及答案
为帮助同学们更好复习九月的计算机等级考试,yjbys小编为大家分享最新计算机vb考试试题及答案如下,快来瞧瞧吧!
1.基本操作(2小题,每小题15分,共计30分)
(1)在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“等级考试”,BorderStyle属性为1,可以根据标题自动调整大小;然后再画一个命令按钮,其名称和标题均为Command1,编写适当的事件过程。程序运行后,其界面如图1所示,此时如果单击命令按钮,则标签消失,同时用标签的标题作为命令按钮的标题,如图2所示。
注意:
存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。
Private Sub Command1_Click()
ion = Label1
ble = False
End Sub
(2)在名称为Form1的窗体上画两个文本框,名称分别为Text1、Text2,再画两个命令按钮,名称分别为Command1、Command2,标题分别为“复制”、“删除”。程序运行时,在Text1中输入一串字符,并用鼠标托拽的方法选择几个字符,然后单击“复制”按钮,则被选中的字符被复制到Text2中(如图所示)。若单击“删除”按钮,则被选择的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。
注意: 要求程序中不得使用变量,事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。
Private Sub Command1_Click()
'Text2 = ext
'或
= ext
End Sub
Private Sub Command2_Click()
ext = ""
End Sub
2.简单应用(2小题,每题20分,计40分)
(1)在考生目录下有一个工程文件,包含了所有控件和部分程序,如图所示。
要求: 1)利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;
2)请编写适当的程序完成以下功能:在Text1中输入40(度数),选择组合框中的一个项目,单击“计算”按钮,则根据所选择的项目,计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在Text2中。
注意: 考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一种计算;在Text1中输入的必须是40;必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,按原文件名存盘。
Private Sub Command1_Click()
Const PI = 3.14159
Select Case
Case "sin": a = Sin(CInt() * PI / 180)
Case "cos": a = Cos(CInt() * PI / 180)
Case "tg": a = Tan(CInt() * PI / 180)
Case "ctg": a = 1 / Tan(CInt() * PI / 180)
' Case "tg": a = Sin(CInt() * PI / 180) / Cos(CInt() * PI / 180)
' Case "ctg": a = Cos(CInt() * PI / 180) / Sin(CInt() * PI / 180)
End Select
Text2 = Int(a * 1000) / 1000
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call mysub
End Sub
Sub mysub()
Open "" For Output As #1
Print #1, , ,
Close #1
End Sub
(2)在考生文件夹下有一个工程文件,窗体上已经画出所有控件。程序的作用是构成一个简单的时钟。刚运行时,不计时,选择一个单选按钮后,再单击“计时”按钮,则开始计时,并根据所选的单选按钮决定是每秒显示一次秒数,还是每10秒显示一次秒数。Text2用于显示秒,如图所示。窗体文件中已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的?改为正确的.内容。
Dim num
Private Sub Command1_Click()
led = True
End Sub
Private Sub Timer1_Timer()
num = num + 1
' num = ?
If num < 60 Then
If e = True Then
= num
Else
If (num / 10 = CInt(Int(num / 10))) Then
= + 10
' = + ?
End If
End If
Else
= 0
num = 0
= + 1
' = + ?
End If
End Sub
3.综合应用(1小题,计30分)
在考生文件夹下有一个工程文件,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及程序。请完成以下工作:
1)在属性窗口中修改Text3的适当属性,使其在运行时不显示,窗体如图所示;
2)建立下拉式菜单,如下表所示:
标题 | 名称 |
编辑 | Edit |
剪切 | Cut |
复制 | Copy |
粘贴 | Paste |
3)窗体文件中给出了所有事件过程,但不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。以便实现以下功能:当光标所在的文本框中无内容时,“剪切”、“复制”不可用,否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容,则“粘贴”不能用,否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
Dim which As Integer
Private Sub copy_Click()
If which = 1 Then
=
ElseIf which = 2 Then
=
End If
End Sub
Private Sub cut_Click()
If which = 1 Then
=
= ""
ElseIf which = 2 Then
=
= ""
End If
End Sub
Private Sub edit_Click()
If which = 1 Then
' If which = ? Then
If = "" Then
led = False
led = False
Else
led = True
led = True
End If
ElseIf which = 2 Then
' ElseIf which = ? Then
If = "" Then
led = False
led = False
Else
led = True
led = True
End If
End If
If = "" Then
led = False
Else
led = True
End If
End Sub
Private Sub paste_Click()
If which = 1 Then
= Text1 +
' = ?
ElseIf which = 2 Then
= Text2 +
' = ?
End If
End Sub
Private Sub Text1_GotFocus() '本过程的作用是:当焦点在Text1中时,which = 1
which = 1
End Sub
Private Sub Text2_GotFocus() '本过程的作用是:当焦点在Text2中时,which = 2
which = 2
End Sub
Private Sub Text3_Change()
End Sub
更多计算机二级相关试题推荐:
1.2016计算机二级VB考试试题
2.2016年计算机二级VB考试冲刺题(含答案)
3.2016年计算机二级考试vb题库及答案
4.2016年计算机二级vb试题及答案
5.2016计算机二级考试vb复习试题及答案
6.2016年计算机二级《VB》备考练习题及答案
7.2016年全国计算机二级vb考试题库及答案
8.2016年计算机二级VB模拟试题及答案
9.2016年计算机二级vb试题库
10.2016年计算机二级vb试题库及答案
-
四川旅游学院2017年3月计算机考试公告
根据教育部考试中心的统一部署,全国计算机等级考试(NationalComputerRankExamination,简称NCRE)第48次考试,将于2017年3月举行。我校于本月开始第48次全国计算机等级考试的报名工作。现将有关报名的事宜,通知如下:一、报名范围已修完计算机基础课程,但未获得NCRE证书...
-
2017计算机一级考试WPS office备考练习及答案
一、选择题1.计算机之所以能按人们的意志自动进行工作,最直接的原因是因为采用了A二进制数制B高速电子元件C存储程序控制D程序设计语言2.微型计算机主机的主要组成部分是A运算器和控制器BCPU和内存储器CCPU和硬盘存储器DCPU、内存储器和硬盘3.一个完整的计算机...
-
全国计算机一级MSOffice高频考点
计算机等级考试分为四个等级,不同等级的内容不同,一级主要考核微型计算机基础知识和使用办公软件及因特网(Internet)的基本技能。下面是小编整理的关于全国计算机一级MSOffice高频考点,欢迎大家参考!计算机病毒的特征、分类与防治1.计算机病毒的概念计算机病毒(Co...
-
C程序的三种基本控制结构
C语言的表现能力和处理能力极强。它不仅具有丰富的运算符和数据类型,便于实现各类复杂的数据结构。下面是yjbys小编收集一些关于C程序的三种基本控制结构,希望大家认真阅读!算法做任何事情都有一定的步骤。为解决一个问题而采取的方法和步骤,就称为算法。算法是一...