计算机二级VB考试练习题及答案
为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是小编搜索整理的计算机二级VB考试练习题及答案,供参考练习,预祝考生们考出自己理想的成绩!
计算机二级VB考试练习题及答案
1、在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",
第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。
程序如下:(程序运行刚开始时,四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋体", "黑体")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时,先单击单选按钮option2,然后单击命令按钮command1,则文本框text1的变化效果是(B) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
2.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",
第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。
程序如下:(程序运行刚开始时,四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋体", "黑体")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时,先单击单选按钮option3,然后单击命令按钮command1,则文本框text1的变化效果是(C) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
3.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",
第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。
程序如下:(程序运行刚开始时,四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋体", "黑体")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时,先单击单选按钮option1,然后单击命令按钮command1,则文本框text1的变化效果是(A) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
4.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",
第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。
程序如下:(程序运行刚开始时,四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋体", "黑体")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时,先单击单选按钮option4,然后单击命令按钮command1,则文本框text1的变化效果是(D) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
5.在窗体中建立了一个名称为lstBooks的列表框,一个名称为txtItem的文本框,四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。
如下程序:
Sub Form_Load( )
lstBooks.AddItem "计算机文化基础"
lstBooks.AddItem "VB程序设计教程"
lstBooks.AddItem "操作系统"
End Sub
Sub cmdAdd_Click( )
lstBooks.AddItem txtItem
txtItem = ""
End Sub
对该程序说法不正确的是(D) (单)
A.窗体启动时,在列表框中有三个列表项目,依次为:计算机文化基础、VB程序设计教程、操作系统
B.单击cmdAdd命令按钮后,把文本框中的信息添加到列表框中
C.在列表框中添加列表项目的方法为additem方法
D.以上说法都不正确
6.在窗体中建立了一个名称为LSTBOOKS的列表框,一个名称为txtItem的文本框,四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。如下程序的功能是将修改后的项目送回列表框,替换原项目,实现修改:
Sub cmdModify_Ok_Click( )
LSTBOOKS.List【Lstbooks.lstindex】 = txtItem
txtItem = ""
End Sub
7.对以下程序说法不正确的是(C) (单)
Private Sub Combo1_LostFocus( )
flag = False
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then
flag = True
Exit For
End If
Next i
If Not flag Then
Combo1.AddItem Combo1.Text
End If
End Sub
A.当焦点离开组合框时组合框的LostFocus事件被触发
B.添加到组合框的新项目不能永久保存,下次运行该程序中看不到上次保存的项目,利用该事件过程能够将输入的新内容添加到组合框中,下次运行该程序中能够看到上次保存的项目
C.逻辑变量flag=true时,表示组合框的项目中有该输入新项目
D.逻辑变量flag=false时,表示组合框的项目中有该输入新项目
8.窗体中有两个检查框名称分别为check1和check2,一个命令按钮名称为command1,一个列表框名称为list1,两个单选按钮名称分别为option1和option2。如下程序:
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌:松下"
List1.AddItem "数量:3台"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系统:Windows 2000"
Else
List1.AddItem "操作系统:Windows 98"
End If
End If
End Sub
当窗体启动后,先选中检查框check1,然后单击命令按钮command1,运行效果为(A) (单)
A.列表框List1中的列表项目分别为:品牌:松下数量:3台
B.列表框List1中的列表项目分别为:操作系统:Windows 2000 操作系统:Windows 98
C.没有任何显示
D.以上都不正确
*9.窗体中有两个检查框名称分别为check1和check2,一个命令按钮名称为command1,一个列表框名称为list1,两个单选按钮名称分别为option1和option2。如下程序:
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌:松下"
List1.AddItem "数量:3台"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系统:Windows 2000"
Else
List1.AddItem "操作系统:Windows 98"
End If
End If
End Sub
当窗体启动后,先选中检查框check2(其中单选按钮option1被选中),然后单击命令按钮command1,运行效果为(B)(单)
A.列表框List1中的列表项目分别为:品牌:松下数量:3台
B.列表框List1中的列表项目分别为:操作系统:Windows 2000 操作系统:Windows 98
C.列表框List1中的列表项目为:操作系统:Windows 2000
D.以上都不正确
53430.窗体中有两个检查框名称分别为check1和check2,一个命令按钮名称为command1,一个列表框名称为list1,两个单选按钮名称分别为option1和option2。如下程序:
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌:松下"
List1.AddItem "数量:3台"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系统:Windows 2000"
Else
List1.AddItem "操作系统:Windows 98"
End If
End If
End Sub
当窗体启动后,先选中检查框check2(其中单选按钮option2被选中),然后单击命令按钮command1,运行效果为(B)(单)
A.列表框List1中的列表项目分别为:品牌:松下数量:3台
B.列表框List1中的列表项目为:操作系统:Windows 98
C.列表框List1中的'列表项目为:操作系统:Windows 2000
11 .传值:形参得到的是实参的值,形参值的改变不会影响实参的值。在定义形参前加关键字Byval。√
12.以下利用SUB关键字定义的子过程Rate,其调用格式不正确的是(B) (单)
A.call Rate(12,56)
B.Rate(12,56)
C.Rate 12,56
D.以上A和C正确
13.如下程序运行后显示结果为(B) (单)
Public Temp As integer
Sub Form_Load( )
Dim Temp As Integer
Temp=10
Form1.Temp=20
Print Form1.Temp;"和";Temp
End Sub
A.10和20
B.20和10
C.10和10
D.20和20
14.以下对静态变量说法不正确的是(D) (单)
A.定义格式为:Static 变量名 [AS 类型]
B.在子过程名/函数名前加Static,表示该过程/函数体内局部变量全部都是静态变量
C.静态变量必须在过程体内定义
D.静态变量可以在窗体的"通用声明部"定义
15 .过程在自身定义的内部调用自己本身的结构称为递归。√
16.如下程序功能是求n的阶层:
Function fac(n As Integer) As Integer
If n = 1 Then
fac = 1
Else
fac = n * fac(n - 1)
End If
End Function
Sub Command1_Click( )
n=val(inputbox("请输入数值"))
Print "fac(n)=";fac(n)
End Sub
以下说法不正确的是(D) (单)
A.若fac函数中If n = 1 Then fac = 1没有,仅有语句:fac = n * fac(n - 1) ,程序运行将会出错
B.若输入的n<=0 ,程序运行将会出错
C.若n=4,则输出结果为:fac(n)=24
D.以上说法都不正确
17.利用递归求最大公约数的程序为:
Public Function gcd(m As Integer, n As Integer) As Integer
If (m Mod n) = 0 Then
gcd =【n】
Else
gcd = gcd(n, m Mod n)
End If
End Function
Private Sub Form_Click( )
Print gcd(10, 4)
End Sub
18 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√
Private Sub Check1_Click( )
Text1.FontBold = Not Text1.FontBold
End Sub
*19 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√
Private Sub Check1_Click( )
Text1.FontItalic = Not Text1.FontItalic
End Sub
*20 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√
Private Sub Check1_Click( )
Text1.FontUnderline = Not Text1.FontUnderline
End Sub