VB等级考试模拟题16.docx

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

Print

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

Print

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

Print

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

Ifmmax

Nextj

EndFunction

11．在当前路径下有一数据文件Cj.dat如下：

99001,88,78,90

99002,89,90,76

99003,68,90,100

99004,65,56,93

99005,71,97,65

第一列数据表示学号，第二列表示英语成绩，第三列表示计算机成绩，第四列表示高等数学成绩，要求根据学号计算学生的总分，并按总分从高到低次序从窗体上输出，界面运行后结果如下：

OptionExplicit

Dima（5,5）AsLong

PrivateSubForm_Click（）

DimiAsInteger,jAsInteger

OpenApp.Path&"\cj.dat"ForInputAs#1

Fori=1To5

Forj=1To4

（27）

Nextj

a（i,5）=a（i,2）+a（i,3）+a（i,4）

Nexti

（28）

Print"名次","学号","英语","计算机","高数","总分"

Fori=1To5

Printi,

Forj=1To5

（29）

Nextj

Print

Nexti

Close

EndSub

PrivateSubsort（）

DimiAsInteger,jAsInteger,kAsInteger,tempAsLong

Fori=1To4

Forj=i+1To5

If（30）Then

Fork=1To5

temp=a（i,k）

a（i,k）=a（j,k）

a（j,k）=temp

Nextk

EndIf

Nextj

Nexti

EndSub

三．改错题：

1．用筛选法找出100以内的所有素数，每行5个显示在窗体上。

筛选法的思路：

（1）把2~m以内的所有数放入筛中。

（2）找筛中最小的素数，在筛中去掉该素数的所有倍数。

（3）重复

（2），直到要找的筛中的最小素数已超出m范围。

（4）打印筛中的素数。

PrivateSubForm_Click（）

Dimm%,i%,j%,p%

Dimprime（100）AsInteger

DimflagAsBoolean

m=100

Cls

Fori=2Tom'筛子充满数

prime（i）=i

Nexti

p=2

flag=True

Do

DoWhilep

'找筛中最小素数

p=p+1

Loop

Ifp=mThenflag=False

'筛中的数全处理过，结束

Fori=pTomStepp

'在筛中清除该素数的倍数,使它们为0

prime（i）=0

Nexti

p=p+1

LoopUntilflag=True

i=0

Forj=2Tom'打印素数

Ifprime（j）<>0Then

Printj,

i=i+1

IfjMod5=0ThenPrint

'换行，一行打印5个素数

EndIf

Nextj

EndSub

[要求]

1.新建工程，输入上述代码，改正程序中的错误；

2.改错时，不得增加或删除句子；

3.以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到A:

的根目录。

四．编程题

1．编一帐号和密码输入的检验程序。

要求如下：

1）帐号不超过6位数，密码为4位字符，本题的密码假设为"majq"。

2）密码输入时，屏幕上不能显示输入字符，以“*”代替。

3）输入不正确，显示有关信息。

若选择“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框，再输入；若选择“取消”按钮，则停止程序的运行。

4）密码检验运行界面和输入密码错误显示信息分别如下图所示。

密码检验运行界面输入密码错误显示信息

解：

1）分析：

要使帐号不超过6位数字，只需将文本框的MaxLength属性设置为6；当输入结束时，按Tab键时，引发LostFocus事件，判断帐号输入是否正确。

出错时，显示出错信息，再输入。

密码为4位字符，要使密码文本输入框在输入每一个字符时都显示“*”，只需将该文本框的PasswordChar属性设置为“*”，同时要将文本框置初值空；当输入结束时，按“确定”按钮，引发Click事件，判断密码输入的正确性。

出错时显示“重试”或“取消”，按钮值取5或VbretryCancel,要显示感叹号，取按钮值48或VbExclamation。

2）控件属性设置如下表：

默认控件名

设置的控件名Name

标题

Caption

文本

Text

边框

BorderStyle

其他属性

Label1

LblNo

帐号

无定义

1

Label2

Lblpas

密码

无定义

1

Text1

txtNo

无定义

空白

1

MaxLength=6

Text2

txtPas

无定义

空白

1

MaxLength=4

PasswordChae=”*”

Command1

cmdok

确定

无定义

无定义

3）代码如下：

PrivateSubCmdok_Click（）

DimiAsInteger

IfTxtpas.Text="majq"Then

MsgBox"输入正确"

Else

i=MsgBox（"密码错误",5+vbExclamation,"输入密码"）

Ifi<>4Then

End

Else

Txtpas.Text=""

Txtpas.SetFocus

EndIf

EndIf

EndSub

PrivateSubForm_Load（）

Txtpas.Text=""

EndSub

PrivateSubTxtno_LostFocus（）

IfNotIsNumeric（Txtno）Then

MsgBox"帐号有非数字字符",vbExclamation,"输入帐号"

Txtno.Text=""

Txtno.SetFocus

EndIf

EndSub

二级VisualBasic模拟考试题一答案

选择题答案

1．C2.