计算机二级考试vb试题

时间:2020-09-08 14:29:55 计算机等级 我要投稿

2016年计算机二级考试vb试题

  2016年9月计算机等级考试,同学们复习好了吗?下面yjbys小编为大家分享的是计算机等级考试vb复习试题,同学们赶紧来学习吧!

2016年计算机二级考试vb试题

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

  Private Sub C2_Click()

  C1.SetFocus

  End Sub

  (2)在名称为Form1的窗体上画一个文本框,名称为Text1,其宽度为1000;再画一个滚动条,名称为HS1。其刻度值的范围是1000-2000。请编写滚动条的Change事件过程,程序运行后,如果移动滚动框,则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图所示。程序中不能使用任何变量,事件过程只能写一条语句。

  Private Sub HS1_Change()

  Text1.Width = HS1.Value

  End Sub

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

  (1)在考生文件夹下有一个工程文件sjt21.vbp,窗体上有两个列表框,名称分别为List1、List2,在List2中己经预设了内容,还有两个命令按钮,名称分别为C1、C2,标题分别为“添加”、“清除”。如图所示。程序的功能是在运行时,如果选中右边列标框中的一个列表项,单击“添加”按钮,则把该项移到左边的列表框中;若选中左边列标框中的`一个列表项,单击“清除”按钮,则把该项移回右边的列表框中。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。

  Private Sub Form_Load()

  List1.AddItem "性别"

  List1.AddItem "班号"

  List1.AddItem "简历"

  List2.AddItem "学号"

  List2.AddItem "姓名"

  List2.AddItem "年龄"

  List2.AddItem "照片"

  End Sub

  Private Sub C1_Click()

  List2.AddItem List1.Text

  List1.RemoveItem List1.ListIndex

  End Sub

  Private Sub C2_Click()

  Dim k As Integer

  k = 0

  While (k < List2.ListCount)

  If List2.Selected(k) = True Then

  List1.AddItem List2.Text

  List2.RemoveItem k

  End If

  k = k + 1

  Wend

  End Sub

  (2)在考生文件夹下有一个工程文件sjt22.vbp,请在Form1窗体上建立一个名称为Op1的单选按钮数组,含有三个单选按钮,其标题分别为“10!”“11!”“12!”,Index属性分别为0、1、2;再画一个名称为C1的命令按钮,标题为“计算”;画一个名称为Text1的文本框,如图所示。程序的功能是在选定一个单选按钮并单击“计算”按钮后,可以计算出相应的阶乘值,在Text1中显示该阶乘值。请画出上述控件并编写程序。

  Private Sub C1_Click()

  Dim n As Integer, k As Integer

  Dim fact As Long

  For k = 0 To 2

  If Form1.Op1(k).Value Then

  n = Val(Left$(Form1.Op1(k).Caption, 2))

  End If

  Next k

  fact = 1

  k = 1

  Do While k < n

  fact = fact * k

  k = k + 1

  Loop

  Text1.Text = fact

  End Sub

  Private Sub Form_Unload(Cancel As Integer)

  unload_sub

  End Sub

  Private Sub unload_sub()

  Dim fn As String

  fn = App.Path & "\dataout.txt"

  Open fn For Output As #1

  Print #1, Text1.Text

  Close #1

  End Sub

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

  在考生文件夹下有一个工程文件sjt31.vbp,其窗体上有一个文本框,名称为Text1,可以多行显示;有一个名称为CD1的通用对话框;还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“打开文件”、“转换”、“存盘”,如图所示。

  命令按钮的功能是:“打开文件”——弹出打开文件对话框,默认打开文件的类型为“文本文件”。选择考生文件夹下的in5.txt文件后,该文件中的内容显示在Text1中;“转换”——把Text1中的所有小写英文字母转换成大写;“存盘”——把Text1中的内容存入考生文件夹下的out5.dat文件中。在窗体中已经给出了部分程序,要求:

  1) 请去掉程序中的注释符,把程序中的?改为正确的内容,但不能修改程序中的其他部分,也不能修改控件的属性。

  2) 编写“转换”按钮的Click事件过程。最后把修改后的文件按原文件名存盘。

  Private Sub C1_Click()

  Dim a As String

  CD1.Filter = "所有文件?*.*?文本文件?*.txt?Word文件?*.doc"

  CD1.FilterIndex = 2

  CD1.Action = 1

  Open CD1.FileName For Input As #1

  Input #1, a

  Close #1

  Text1.Text = a

  End Sub

  Private Sub C2_Click()

  Text1.Text = UCase(Text1.Text)

  End Sub

  Private Sub C3_Click()

  CD1.FileName = "out5.dat"

  CD1.Action = 2

  Open CD1.FileName For Output As #1

  Print #1, Text1.Text

  Close #1

  End Sub

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

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

2017计算机二级VB考试试题06-21

2017下半年计算机二级考试VB检测试题06-22

2017全国计算机二级VB考试试题06-22

2016年计算机二级考试备考指南10-29

2017年计算机二级考试WEB试题06-30

计算机二级考试VB重要考点05-27

计算机二级考试VB重点内容05-27

2017年9月计算机二级考试VB考试试题06-20

2017下半年计算机二级考试VB考试选择题06-20