2016年计算机二级vb考试试题
来源:才华咖 本文已影响1.24W人
来源:才华咖 本文已影响1.24W人
在2016年3月计算机考试之前,yjbys小编为大家推荐的是计算机二级VB考试题,希望对大家有所帮助!
1.基本操作(2小题,每题15分,共计30分)
Private Sub C2_Click()
ocus
End Sub
(2)在名称为Form1的窗体上画一个文本框,名称为Text1,其宽度为1000;再画一个滚动条,名称为HS1。其刻度值的范围是1000-2000。请编写滚动条的Change事件过程,程序运行后,如果移动滚动框,则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图所示。程序中不能使用任何变量,事件过程只能写一条语句。
Private Sub HS1_Change()
h = e
End Sub
2.简单应用(2小题,每题20分,计40分)
(1)在考生文件夹下有一个工程文件,窗体上有两个列表框,名称分别为List1、List2,在List2中己经预设了内容,还有两个命令按钮,名称分别为C1、C2,标题分别为“添加”、“清除”。如图所示。程序的功能是在运行时,如果选中右边列标框中的一个列表项,单击“添加”按钮,则把该项移到左边的列表框中;若选中左边列标框中的一个列表项,单击“清除”按钮,则把该项移回右边的列表框中。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
Private Sub Form_Load()
tem "性别"
tem "班号"
tem "简历"
tem "学号"
tem "姓名"
tem "年龄"
tem "照片"
End Sub
Private Sub C1_Click()
tem
veItem Index
End Sub
Private Sub C2_Click()
Dim k As Integer
k = 0
While (k < Count)
If cted(k) = True Then
tem
veItem k
End If
k = k + 1
Wend
End Sub
(2)在考生文件夹下有一个工程文件,请在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 1(k)e Then
n = Val(Left$(1(k)ion, 2))
End If
Next k
fact = 1
k = 1
Do While k < n
fact = fact * k
k = k + 1
Loop
= fact
End Sub
Private Sub Form_Unload(Cancel As Integer)
unload_sub
End Sub
Private Sub unload_sub()
Dim fn As String
fn = & ""
Open fn For Output As #1
Print #1,
Close #1
End Sub
3.综合应用(1小题,计30分)
在考生文件夹下有一个工程文件,其窗体上有一个文本框,名称为Text1,可以多行显示;有一个名称为CD1的通用对话框;还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“打开文件”、“转换”、“存盘”,如图所示。
命令按钮的功能是:“打开文件”——弹出打开文件对话框,默认打开文件的类型为“文本文件”。选择考生文件夹下的文件后,该文件中的内容显示在Text1中;“转换”——把Text1中的所有小写英文字母转换成大写;“存盘”——把Text1中的内容存入考生文件夹下的文件中。在窗体中已经给出了部分程序,要求:
1) 请去掉程序中的注释符,把程序中的?改为正确的内容,但不能修改程序中的其他部分,也不能修改控件的属性。
2) 编写“转换”按钮的Click事件过程。最后把修改后的文件按原文件名存盘。
Private Sub C1_Click()
Dim a As String
er = "所有文件?*.*?文本文件?*文件?*"
erIndex = 2
on = 1
Open Name For Input As #1
Input #1, a
Close #1
= a
End Sub
Private Sub C2_Click()
= UCase()
End Sub
Private Sub C3_Click()
Name = ""
on = 2
Open Name For Output As #1
Print #1,
Close #1
End Sub
2016年计算机二级考试VB测试题及答案
2016年9月计算机二级《VB》考试试题
vb计算机二级考试试题2016
2016计算机二级VB上机考试试题题库
2016计算机二级VB考试试题
2016年计算机二级《VB》考试试题及答案
2016下半年计算机二级vb考试试题及答案
2016计算机二级《VB》考试试题
2016年计算机二级VB上机考试解题技巧
2016年9月计算机二级vb考试试题及答案
2016年计算机二级VB语言考试试题及答案
2016年计算机VB二级考试上机题及答案
2016年计算机二级考试试题VB真题
2016年计算机VB二级考试上机题带答案
2016年9月计算机二级考试VB考试试题及答案
2016计算机二级VB上机考试答题攻略
2016计算机二级考试试题VB练习题及答案
2017年全国计算机二级vb考试试题
2016年12计算机二级VB上机考试答题攻略
2016年计算机二级考试《VB》考前练习题
计算机二级考试真题和答案
2016计算机二级考试vb复习试题及答案
2016年计算机二级《VB》考试题及答案
2016年计算机二级考试vb题库及答案
2017年计算机二级VB考试试题下载
2016年9月全国计算机vb二级考试题库
2016计算机二级VB语言考试试题及答案
2016计算机VB二级考试上机题及答案
2017年9月计算机二级考试VB考试题
2016年计算机二级考试VB试卷及答案
2017年计算机二级考试试题VB冲刺题
2017年9月计算机二级VB考试试题
2016年3月计算机二级VB考试题及答案
2016最新计算机二级vb考试试题及答案
VB笔试题
2016年计算机二级vb考试试题
2017年计算机二级VB考试试题及答案
2016计算机等级考试二级VB模拟试题及答案
计算机二级VB考试题及答案
2016年计算机二级vb试题