考无忧小编送福利-计算机等级考试题库！以下是一些计算机二级VB试题，希望能帮到你们~
1.与数学表达式ln(a+b)/(3x)+5对应的VisualBasic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】
2.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】
3.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
PrivateSubOption1_Click(IndexAsInteger)
SelectCase【Index】
Case0
a="宋体"
Case1
a="黑体"
Case2
a="楷体_GB2312"
EndSelect
text1.fontname=a
EndSub
4.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseindex
Case0
a="宋体"
Case1
a="黑体"
Case2
a="楷体_GB2312"
EndSelect
text1.【fontname】=a
EndSub
5.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
PrivateSubCombo1_Click()
CallShowItem(Combo1,Label1)
EndSub
PrivateSubCombo2_Click()
CallShowItem(Combo2,Label2)
EndSub
PublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)
【tmplabel】.Caption=tmpCombo.Text
EndSub
6.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
PrivateSubCombo1_Click()
CallShowItem(Combo1,Label1)
EndSub
PrivateSubCombo2_Click()
CallShowItem(Combo2,Label2)
EndSub
PublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)
tmpLabel.Caption=【tmpcombo】.Text
EndSub
7.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
n=5
f=1
s=0
Forc=1Ton
f=f*【7】
s=s+f
Nextc
Prints
EndSub
该事件过程的功能是计算1!+2!+3!+…+n!的值。
8.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click()
Dima10）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，调换数组中数值的存放位置，即a1）与a10）的值互换，a2）与a9）的值互换，……，a5）与a6）的值互换。
9.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click()
Dima10）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，调换数组中数值的存放位置，即a1）与a10）的值互换，a2）与a9）的值互换，……，a5）与a6）的值互换。
10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click()
Dima10）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
二级VB试题偏题怪题不要怕，认真审题沉着应答；遇到难题不要慌，思路清晰势难挡；遇到大题不着忙，心情沉稳答题理想，祝备考顺利，取得优异成绩。
文章推荐：
2019年全国计算机等级考试题库“二级MS Office 高级应用考试大纲”
全国计算机等级考试报考成功后可以退费吗？（内附计算机等级考试题库）
温馨提示：
考试想拿高分吗？更多计算机等级考试题库二级ms office试题请点击查看>>>二级ms office
想要了解更多的计算机等级考试题库请点击下载>>>计算机等级考试题库
想知道更多关于计算机等级考试题库的近期资讯吗？点击进入>>>计算机等级考试题库资讯
