VB等级考试模拟题16.docx
- 文档编号:11881014
- 上传时间:2023-04-08
- 格式:DOCX
- 页数:98
- 大小:327.97KB
VB等级考试模拟题16.docx
《VB等级考试模拟题16.docx》由会员分享,可在线阅读,更多相关《VB等级考试模拟题16.docx(98页珍藏版)》请在冰豆网上搜索。
VB等级考试模拟题16
二级VisualBasic模拟考试题一
一.选择题
1.在Windows95中,若己选定某文件,不能将该文件复制到同一文件夹下的操作是1。
A.用鼠标右键将该文件拖动到同一文件夹下
B.先执行“编辑”菜单中的复制命令,再执行粘贴命令
C.用鼠标左键将该文件拖动到同一文件夹下
D.按注Ctrl键,再用鼠标右键将该文件拖动到同一文件夹下
2.在Windows95的“我的电脑”窗口中,若已选定了文件或文件夹,为了设置其属性,可以打开属性对话框的操作是2。
A.用鼠标右键单击“文件”菜单中的“属性”命令
B.用鼠标右键单击该文件或文件夹名,然后从弹出的快捷菜单中选“属性”项
C.用鼠标右键单击“任务栏”中的空白处,然后从弹出的快捷菜单中选择“属性”项
D.用鼠标右键单击“查看”菜单中“工具栏”下的“属性”图标
3.Word97中,为了防止文件内容因意外事故(如断电)丢失,在编辑文档时,你可以设置3。
A.加上保护口令B.使用保护文档功能C.设置增强功能D.自动保存功能
4.从4可以判断一个图标是快捷方式还是程序文档图标。
A.说明文字B.图案C.是否有箭头D.双击是否可以运行程序
5.为关闭一个程序窗口不可以采用5。
A.Ctrl+F4B.Alt+F4C.单击×按钮D.双击控制菜单图标
6.在Windows95中,如果同时运行有几个程序则切换可以用6。
A.Alt+TabB.Ctrl+ESCC.Alt+SD.Ctrl+SHIFT
7.Windows95中,在缺省情况下,当你用Delete键删除一个程序或文档的图标时,该程序或文档7。
A.只是图标被删,内容丝毫未损B.被放到回收站C.被真正删除D.被转移到剪贴板
8.回收站中的文件8。
A.只要你不清除就永远可以恢复B.如果删除的内容太多,前面的内容删除的就不能恢复
C.如果你又建立了一个重名的文件就不可以恢复D.如果文件所在的文件夹已被删除就不能恢复
9.Windows95的口令可以9。
A.防止其它用户删除你的文件B.防止其它用户使用你的计算机
C.防止其它用户格式化你的计算机硬盘D.防止其它用户更改你的桌面和控制对网络的使用
10.按照汉字的“输入→处理→输出打印”的处理流程,不同阶段使用的汉字编码分别对应为10。
A.国际码→交换码→字型码B.输入码→国际码→机内码
C.输入码→机内码→字型码D.拼音码→交换码→字型码
11.要清除磁盘中存在的分散且不连续的存储空间,以提高磁盘读写速度,应使用Windows95的系统工具11。
A.磁盘扫描程序B.磁盘备份工具C.磁盘碎片整理程序D.磁盘空间压缩程序
12.执行下列二进制逻辑乘运算(即逻辑与运算)01011001^10100111其运算结果是12。
A.00000000B.11111111C.00000001D.11111110
13.在WORD的编辑状态,按先后顺序依次打开了d1.doc、d2.doc、d3.doc、d4.doc四个文档,当前的活动窗口是13。
A.d1.doc的窗口B.d2.doc的窗口C.d3.doc的窗口D.d4.doc的窗口
14.算术式(100)10+(10)16-(100)8的值是14。
A.(50)10B.(60)8C.(32)16D.(110100)2
15.按通信距离划分,计算机网络可以分为局域网和广域网。
下列网络中属于局域网的是15。
A.InternetB.CERNETC.NovellD.CHINANET
16.设WlndowS95桌面上已经有某应用程序的图标,要运行该程序,可以16。
A.用鼠标左键单击该图标B用鼠标右键单击该图标C.用鼠标左键双击该图标D.用鼠标右键双击该图标
17.如果想在Word97主窗口中显示常用工具按扭,应当使用的菜单是17。
A.“工具”菜单B.“视图”菜单C.“格式”菜单D.“窗口”菜单
18.Windows95中的“剪贴板”是18。
A.硬盘中的一块区域B.软盘中的一块区域C.高速缓存中的一块区域D.内存中的一块区域
19.在VisualBasic代码中,将多个语句合并在一行上的并行符是是19。
A.撇号(’)B.冒号(:
)C.感叹号(!
)D.问号(?
)
20.用Msgbox“你好”,vbokonly,“Hello”显示的消息对话框窗口的标题是20。
A.你好B.vbokonlyC.OkD.Hello
21.下列说法正确的是21。
A.设i=1,x=2,y=2,则x=2OrNoty>0And(x-y)/i<>0的结果是True
B.(7-3<=4)Xor(1>-1)Or(7=5)的结果是True
C.(NotTrueOrTrue)And(TrueOrFalse)的结果是False
D.a$=“Visual”,b$=“Basic”,则a$&b$和a$+b$结果都是“VisualBasic”
22.下列说法错误的是22。
A.PrintString$(3,65)的运行结果是AAA,PrintAsc(“Basic”)的结果是66
B.25\3Mod3.2*Int(2.5)的值是2
C.产生0.01至100.99范围内的随机数,包括两端点,间隔为0.01的表达式可写成Myvalue=Int(101.98*Rnd+0.01)
D.表达式5\3/Asc("c")*Fix(44.2)*CInt(7.8-5.2)的值是1
23.在Form_Click事件中执行下列语句后错误的结果是23。
A.PrintFormat(12345.6,"000,000.00")的输出结果是012,345.60
B.PrintFormat(12345.6,"+##,##0.0%")的输出结果是+1,234,560.0%
C.PrintFormat(12345.6,"$###,##0.00")的输出结果是$12,345.60
D.PrintFormat(12345.6,"0.00E+00")的输出结果是0.12E+05
24.算术表达式
的VB表达式是24。
A.(e^(2*π*x-5)*log(x)+(sin(2x))^2)/sqr(abs(arctg(x)-cos(x^2)))
B.(exp(2*3.14159*x-5)*log(x)+(sin(2*x))^2)/sqr(abs(atn(x)-cos(x^2)))
C.(exp(2*π*x-5)*ln(x)+(sin(2*x))^2)/sqr(abs(atn(x)-cos(x^2)))
D.(e^(2*3.14159*x-5)*ln(x)+(sin(2*x))^2)/sqr(abs(arctg(x)-cos(x^2)))
25.对于所定义的Sub过程:
PrivateSubConvert(YAsInteger),下列25传递方式参数X的值是按址传递的。
A.Call Convert((X))B.Call Convert(X*1)C.Convert(X)D.ConvertX
26.要实现驱动器列表框、目录列表框及文件列表框之间数据的同步,须在驱动器列表框和目录列表框的Change事件分别添加以下代码26。
A.Dir1.Path=Drive1.DriveFile1.Path=Drive1.Drive
B.Dir1.Path=Drive1.DriveFile1.Path=Dir1.Path
C.File1.Path=Drive1.DriveDir1.Path=Drive1.Drive
D.File1.Path=Dir1.PathDir1.Path=Drive1.Drive
27.以下哪个是合法的窗体名27。
A._fristfrmB.2frm_1C.secondfrm>aD.lastfrm_as
28.以下哪个是合法的变量名28。
A.LenB.Test@qwC.6cost_1D.count2s
29.某过程有语句Frm1.Caption=”Hello”,在界面设计时,该窗体的标题属性取缺省值,则执行该语句前后,标题属性值分别为29。
A.Form1,Frm1B.Frm1,HelloC.Form,HelloD.Form1,Hello
30.语句Open”Mjq.Txt”ForInputAs#Freefile表示30。
A.打开一二进制文件”Mjq.Txt”,为读数据做准备B.打开一顺序制文件”Mjq.Txt”,为读数据做准备
C.打开一随机文件”Mjq.Txt”,为写数据做准备D.打开一随机文件”Mjq.Txt”,为读数据做准备
二.填空题
1.用以下公式求Sin(x)的值。
当最后一项的绝对值小于10-7时,停止计算,x的值由键盘输入。
请完善如下程序:
PrivateSubForm_Click()
Dimx!
t!
n%,s!
Consteps=0.0000001
x=
(1)
t=x:
s=x:
n=1
DoUntil
(2)
n=n+1
t=t*(-x*x)/((2*n-2)*(2*n-1))
(3)
Loop
Print"Sin(";x;")=";s
EndSub
2.设a和b均为整型变量,分别具有初值3和100:
请指出下列语句的循环体执行了(4)次,结束循环后a的值为(5),b的值为(6)。
Do
s=s+1
a=b\a
b=b-a
LoopWhileb>a
3.下列程序段的第一行输出结果是(7);第二行输出结果是(8)。
PrivateSubForm_Click()
s=0
Fori=9To42Step11
s=s+i
Nexti
Print"i=";i
Ifi>50Thens=s+iElses=s-i
Print"s=";s
EndSub
4.下列程序段的第一行输出结果是(9);第二行输出结果是(10)。
PrivateSubCommand1_Click()
a=1:
b=1:
s=0
Forj=2To4
Fork=jTo1Step-1
b=b+k
s=s+1
Nextk
a=a+b
Nextj
Print"j=";j,"k=";k
Print"s=";s,"a=";a;
EndSub
5.下列程序段的第一行输出结果是(11);第二行输出结果是(12)。
PrivateSubCommand1_Click()
Dima%,bAsInteger
a=5:
b=2
Printf(a,b);f(a,b)
Printf(b,b);f(f(a,b),b)
EndSub
PublicFunctionf(x%,Y%)AsInteger
x=x-Y
Ifx<>0Then
f=x
Else
f=Y
EndIf
EndFunction
6.下列程序段的第一行输出结果是(13);第二行输出结果是(14);第三行输出结果是(15)。
PrivateSubCommand1_Click()
DimXAsInteger,YAsInteger
X=2:
Y=3
CallP(Y,X):
PrintX,Y
CallP(X,X):
PrintX,Y
CallP(Y,X):
PrintX,Y
EndSub
PrivateSubP(X%,ByValY%)
Y=X+Y
X=YMod4
PrintX,Y,
EndSub
7.下面的程序用来找出满足下列条件的四位整数:
(1)是一个完全平方数;
(2)第一、二位数,第三、四位两两相等。
完善程序。
PrivateSubForm_Click()
Dimn,s
s=0
Fori=32To99
n=i*i
If(16)Then
Printn;
(17)
EndIf
Nexti
MsgBox"共找出"&s&"个符合条件的四位数"
EndSub
8.下列程序的主要功能是通过随机函数产生数组a(由10个[0,100]之间的整数组成),并将数组a的元素按升序排列(选择排序)。
请完善程序:
PrivateSubForm_Click()
DimiAsInteger,jAsInteger,kAsInteger
Statica(1To10)AsInteger
Print"排序前:
"
Fori=1To10
a(i)=(18)
'产生[0,100]间的随机整数
Printa(i);'输出原始序列
Nexti
Fori=1To9
l=i
Forj=i+1To10'寻找最小元素
Ifa(l)>a(j)Then(19)
Nextj
Ifl<>iThen
temp=a(i)'交换数组元素
a(i)=a(l):
(20)
Nexti
Print"排序后:
"
Fori=1To10'输出排序后数组元素
Printa(i);
Nexti
EndSub
9.运行下面代码段后,窗体上第一行的打印结果是(21),第二行的打印结果是(22)。
OptionExplicit
PrivateFunctionExam(nAsInteger)AsInteger
StaticxAsInteger
DimyAsInteger
x=x+n
y=y+n
Exam=x+y
EndFunction
PrivateSubForm_Click()
DimiAsInteger,st1AsInteger,st2AsInteger
Fori=1To3
st1=st1+Exam(i)
st2=st2+Exam(i)
Nexti
Print“st1=”;st1
Print“st2=”;st2
EndSub
10.随机生成12个二位正整数,分别赋给一个3×4的数组,找出每一行中的最大元素。
运行后界面如下图所示:
OptionExplicit
Dima(3,4)AsInteger
PrivateSubForm_Click()
DimiAsInteger,jAsInteger
Randomize
Print"数组:
"
Fori=1To3
Forj=1To4
a(i,j)=(23)
Printa(i,j),
Nextj
(24)
Nexti
Print"其中:
"
Fori=1To3
Print(25)
Nexti
EndSub
PrivateFunction(26)
DimjAsInteger
DimrAsInteger
mmax=a(k,1)
Forj=1To4
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 等级 考试 模拟 16