计算机二级vb试题及答案

时间:2020-09-16 11:19:21 计算机等级 我要投稿

2016年计算机二级vb试题及答案

  为帮助同学们更好复习九月的计算机等级考试,yjbys小编为大家分享最新计算机vb考试试题及答案如下,快来瞧瞧吧!

2016年计算机二级vb试题及答案

  1.基本操作(2小题,每小题15分,共计30分)

  (1)在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“等级考试”,BorderStyle属性为1,可以根据标题自动调整大小;然后再画一个命令按钮,其名称和标题均为Command1,编写适当的事件过程。程序运行后,其界面如图1所示,此时如果单击命令按钮,则标签消失,同时用标签的标题作为命令按钮的标题,如图2所示。

  注意:

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

  Private Sub Command1_Click()

  Command1.Caption = Label1

  Label1.Visible = False

  End Sub

  (2)在名称为Form1的窗体上画两个文本框,名称分别为Text1、Text2,再画两个命令按钮,名称分别为Command1、Command2,标题分别为“复制”、“删除”。程序运行时,在Text1中输入一串字符,并用鼠标托拽的方法选择几个字符,然后单击“复制”按钮,则被选中的字符被复制到Text2中(如图所示)。若单击“删除”按钮,则被选择的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。

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

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

  Private Sub Command1_Click()

  'Text2 = Text1.SelText

  '或

  Me.Text2.Text = Form1.Text1.SelText

  End Sub

  Private Sub Command2_Click()

  Form1.Text1.SelText = ""

  End Sub

  2.简单应用(2小题,每题20分,计40分)

  (1)在考生目录下有一个工程文件sjt21.vbp,包含了所有控件和部分程序,如图所示。

  要求: 1)利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;

  2)请编写适当的程序完成以下功能:在Text1中输入40(度数),选择组合框中的一个项目,单击“计算”按钮,则根据所选择的项目,计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在Text2中。

  注意: 考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一种计算;在Text1中输入的必须是40;必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,按原文件名存盘。

  Private Sub Command1_Click()

  Const PI = 3.14159

  Select Case Combo1.Text

  Case "sin": a = Sin(CInt(Text1.Text) * PI / 180)

  Case "cos": a = Cos(CInt(Text1.Text) * PI / 180)

  Case "tg": a = Tan(CInt(Text1.Text) * PI / 180)

  Case "ctg": a = 1 / Tan(CInt(Text1.Text) * PI / 180)

  ' Case "tg": a = Sin(CInt(Text1.Text) * PI / 180) / Cos(CInt(Text1.Text) * PI / 180)

  ' Case "ctg": a = Cos(CInt(Text1.Text) * PI / 180) / Sin(CInt(Text1.Text) * 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 "out3.txt" For Output As #1

  Print #1, Form1.Combo1.Text, Form1.Text1.Text, Form1.Text2.Text

  Close #1

  End Sub

  (2)在考生文件夹下有一个工程文件sjt22.vbp,窗体上已经画出所有控件。程序的'作用是构成一个简单的时钟。刚运行时,不计时,选择一个单选按钮后,再单击“计时”按钮,则开始计时,并根据所选的单选按钮决定是每秒显示一次秒数,还是每10秒显示一次秒数。Text2用于显示秒,如图所示。窗体文件中已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。

  Dim num

  Private Sub Command1_Click()

  Timer1.Enabled = True

  End Sub

  Private Sub Timer1_Timer()

  num = num + 1

  ' num = ?

  If num < 60 Then

  If Option1.Value = True Then

  Text2.Text = num

  Else

  If (num / 10 = CInt(Int(num / 10))) Then

  Text2.Text = Text2.Text + 10

  ' Text2.Text = Text2.Text + ?

  End If

  End If

  Else

  Text2.Text = 0

  num = 0

  Text1.Text = Text1.Text + 1

  ' Text1.Text = Text1.Text + ?

  End If

  End Sub

  3.综合应用(1小题,计30分)

  在考生文件夹下有一个工程文件sjt5.vbp,其名称为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

  Text3.Text = Text1.Text

  ElseIf which = 2 Then

  Text3.Text = Text2.Text

  End If

  End Sub

  Private Sub cut_Click()

  If which = 1 Then

  Text3.Text = Text1.Text

  Text1.Text = ""

  ElseIf which = 2 Then

  Text3.Text = Text2.Text

  Text2.Text = ""

  End If

  End Sub

  Private Sub edit_Click()

  If which = 1 Then

  ' If which = ? Then

  If Text1.Text = "" Then

  cut.Enabled = False

  copy.Enabled = False

  Else

  cut.Enabled = True

  copy.Enabled = True

  End If

  ElseIf which = 2 Then

  ' ElseIf which = ? Then

  If Text2.Text = "" Then

  cut.Enabled = False

  copy.Enabled = False

  Else

  cut.Enabled = True

  copy.Enabled = True

  End If

  End If

  If Text3.Text = "" Then

  paste.Enabled = False

  Else

  paste.Enabled = True

  End If

  End Sub

  Private Sub paste_Click()

  If which = 1 Then

  Text1.Text = Text1 + Text3.Text

  ' Text1.Text = ?

  ElseIf which = 2 Then

  Text2.Text = Text2 + Text3.Text

  ' Text2.Text = ?

  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试题库及答案

【2016年计算机二级vb试题及答案】相关文章:

2017年计算机二级access试题及答案05-06

2016年计算机二级MS Office习题及答案05-09

2017年计算机二级Java模拟试题及答案06-08

2017年计算机二级《VFP》模拟试题及答案07-06

2017年计算机二级VB考试试题下载05-27

2017年计算机二级考试JAVA冲刺试题及答案06-27

2017年计算机二级高级Office练习试题及答案06-08

2017年计算机二级MSOffice考试试题及答案05-22

2016年计算机一级考试WPS试题及答案09-30

2017年9月计算机二级VB考试试题及答案06-22