2016年计算机二级vb考试试题
在2016年3月计算机考试之前，yjbys小编为大家推荐的是计算机二级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年3月计算机考试之前，yjbys小编为大家推荐的是计算机二级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
收藏