计算机二级VB考试题及答案.docx
- 文档编号:24998188
- 上传时间:2023-06-03
- 格式:DOCX
- 页数:11
- 大小:16.25KB
计算机二级VB考试题及答案.docx
《计算机二级VB考试题及答案.docx》由会员分享,可在线阅读,更多相关《计算机二级VB考试题及答案.docx(11页珍藏版)》请在冰豆网上搜索。
计算机二级VB考试题及答案
计算机二级VB考试题及答案
为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是搜索的计算机二级VB考试题及答案,供参考练习,预祝考生们考出自己理想的成绩!
1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:
PrivateSubCommand1_Click()
n=Val(Text1.Text)
Ifn2=n/2Then
f=f1(n)
Else
f=f2(n)
EndIf
Printf;n
EndSub
PublicFunctionf1(ByRefx)
x=x*x
f1=x+x
EndFunction
PublicFunctionf2(ByValx)
x=x*x
f2=x+x+x
EndFunction
程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)
A.7236
B.10836
C.726
D.273
2.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
c="1234"
Fori=1To4
c1=Trim(Str())
Printc1
Nexti
EndSub
程序运行后,单击命令按钮,要求在窗体上显示如下内容
12
123
1234
则在下划线处应填入的内容为(B)(单)
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
PrivateSubCommand1_Click()
n=Val(Text1.Text)
Fori=2Ton
Forj=2Tosqr(i)
IfiModj=0ThenExitFor
Nextj
Ifj>Sqr(i)ThenPrinti
Nexti
EndSub
该事件过程的功能是(C)(单)
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
4.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
PrivateFunctionf(mAsInteger)
IfmMod2=0Then
f=m
Else
f=1
EndIf
EndFunction
PrivateSubCommand1_Click()
DimiAsInteger
s=0
Fori=1To5
s=s+f(i)
Next
Prints
EndSub
程序运行后,单击命令按钮,在窗体上显示的是(C)(单)
A.11
B.10
C.9
D.8
5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Dimarray1(10,10)AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=2To4
array1(i,j)=i+j
Nextj
Nexti
Text1.Text=array1(2,3)+array1(3,4)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)
A.15
B.14
C.13
D.12
6.VisualBasic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
7.在菜单器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。
PrivateSubForm_【mousedown】(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
popupmenumnuEdit
EndIf
EndSub
8.在菜单器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。
以下是实现上述功能的程序,请填空。
PrivateSubFormmousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
【popupmenu】mnuEdit
EndIf
9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的【Interval】属性设置为500。
10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的Interval属性设置为【500】。
11.与数学表达式ln(a+b)/(3x)+5对应的VisualBasic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】
12.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】
13.在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换。
PrivateSubOption1_Click(IndexAsInteger)
SelectCase【Index】
Case0
a="宋体"
Case1
a="黑体"
Case2
a="楷体"
EndSelect
text1.fontname=a
EndSub
14.在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换。
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseindex
Case0
a="宋体"
Case1
a="黑体"
Case2
a="楷体"
EndSelect
text1.【fontname】=a
EndSub
15.在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2。
程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。
PrivateSubCombo1_Click()
CallShowItem(Combo1,Label1)
EndSub
PrivateSubCombo2_Click()
CallShowItem(Combo2,Label2)
EndSub
PublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)
【tmplabel】.Caption=tmpCombo.Text
EndSub
16.在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2,程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。
PrivateSubCombo1_Click()
CallShowItem(Combo1,Label1)
EndSub
PrivateSubCombo2_Click()
CallShowItem(Combo2,Label2)
EndSub
PublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)
tmpLabel.Caption=【tmpbo】.Text
EndSub
17.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
n=5
f=1
s=0
Forc=1Ton
f=f*【7】
s=s+f
Nextc
Prints
EndSub
该事件过程的功能是计算1!
+2!
+3!
+…+n!
的值。
18.在窗体上画一个名称为Command1的'命令按钮,然后编写如下程序:
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
ForI=1To10
a(I)=I
NextI
Call【swap】a()
ForI=1To10
Printa(I);
Next
EndSub
Subswap(b()AsInteger)
n=ubound(b)
ForI=1Ton/2
t=b(I)
b(I)=b(n)
b(n)=t
n=n-1
NextI
EndSub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a
(1)与a(10)的值互换,a
(2)与a(9)的值互换,……,a(5)与a(6)的值互换。
19.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
ForI=1To10
a(I)=I
NextI
Callswap(a())
ForI=1To10
Printa(I);
Next
EndSub
Subswap(b()AsInteger)
n=【ubound(b)】
ForI=1Ton/2
t=b(I)
b(I)=b(n)
b(n)=t
n=n-1
NextI
EndSub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a
(1)与a(10)的值互换,a
(2)与a(9)的值互换,……,a(5)与a(6)的值互换。
20.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
ForI=1To10
a(I)=I
NextI
Callswap(a())
ForI=1To10
Printa(I);
NextI
EndSub
Subswap(b()AsInteger)
n=ubound(b)
ForI=1Ton/2
t=b(I)
b(I)=b(n)
b(n)=t
n=【n-1】
NextI
EndSub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a
(1)与a(10)的值互换,a
(2)与a(9)的值互换,……,a(5)与a(6)的值互换。
模板,内容仅供参考
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 VB 考试题 答案