10年VB笔试.docx

10年VB笔试.docx

《10年VB笔试.docx》由会员分享，可在线阅读，更多相关《10年VB笔试.docx（13页珍藏版）》请在冰豆网上搜索。

10年VB笔试

四川省计算机等级考试

（2010年4月）

一、单项选择题（1*10分）

1.在VB中不正确的常量是（）

A.12.3#B.X10！

C.TrueD."hjk18"

2.X是一正实数，保留2为小数，第3位四舍五入的是（）

A.0.01*Int（x+0.05）B.0.01*Int（100*（x+0.005））

C.0.01*Int（100*（x+0.05））D.0.01*Int（x+0.5）

3.赋值语句：

a=123&Mid（"123456",3,2）执行后，a中的值是（）

A.12312B.12323C.12334D.12345

4.以下Case子句，错误的是（）

A.Case1,5,7B.CaseIs<=6

C.Case2To12D.CaseIs>2andIs<8

5.表达式2*3^2+2*8/4+3^2的值是（）

A.64B.22C.49D.31

6.要访问组合框Combo1中被选中的选项，应使用（）

A.Combo1.TextB.Combo1.List

C.Combo1.ListIndexD.Combo1.ListCount

7.若要一个文本框具有垂直滚动条，则应该（）

A.MultiLine=True:

ScrollBars=0

B.MultiLine=True:

ScrollBars=1

C.MultiLine=True:

ScrollBars=2

D.MultiLine=True:

ScrollBars=3

8.窗体上有一个命令按钮“确定”，代码窗口中与之对应的OK_Click事件过程，则该按钮的Name和Caption属性分别是（）

A.OK、确定B.确定、OK

C.Command1、确定D.Command1、确定

9.设计菜单时，必须输入的选项是（）

A.快捷键B.标题C.索引D.名称

10.不能用作容器控件的是（）

A.FormB.PictureBoxC.ShapeD.Frame

二、阅读程序（3*15）

1.程序代码如下：

OptionBase1

PrivateSubCommand1_Click（）

Dima

a=Array（4,3,2,1）

s=0:

k=1

Fori=4To1Step-1

s=s+a（i）*k

k=k*10

Nexti

Prints

EndSub

1）以下关于OptionBase1的描述正确的是（）

1声明数组下标下界为1

2强制定义变量

3声明一维数组

④以上均不对

2）程序运行结束时，变量i的值是（）

①0②1③-1④4

3）程序的运行结果是（）

①1234②4321③12④34

2.代码如下：

PrivateSubForm_Click（）

Cls

s=String（8,"@"）

Fori=1To4

n=8-2*i

t=s

r=Space（n）

L1:

Mid（t,i+1,n）=r

Printt

Nexti

EndSub

1）String（8,"@"）的功能是（）

1产生由8个"@"组成的字符串

2将数值型数据转换成字符串型数据

3产生8个空格

4判断一个字符串是否是另一个字符串子串

2）程序运行并单击窗体输出结果为（）

①@@@@@@@@②@@

@@@@@@@@@@@@

@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@

③@@@@@@@@④@@

@@@@@@

@@@@@@@@

@@@@@@@@@@

3）将L1改为:

Mid（s,i+1,n）=r,程序运行单击窗体输出结果为（）

①@@@@@@@@②@@

@@@@@@@@@@@@

@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@

③@@@@@@@@④@@

@@@@@@

@@@@@@@@

@@@@@@@@@@

3.程序代码如下：

PrivateSubCommand1_Click（）

Dimsum%,i%

Fori=5To1Step-1

sum=sum+Factorial（i）

Nexti

Printsum,i

EndSub

PrivateFunctionFactorial（nAsInteger）AsInteger

Dimm%

m=1

DoWhilen>0

m=m*n

n=n-1

Loop

Factorial=m

EndFunction

1）程序运行结果是（）

①1531②1530③1201④120-1

2）将函数中（nAsInteger）改为（ByValnAsInteger）,运行结果是（）

①1531②1530③1201④120-1

5.程序代码如下：

PrivateSubForm_Click（）

Dima%（2,4）,b%（4）

Dimi%,j%

DoWhilei<=4

a（1,i）=a（1,i）+2*i-1

a（2,i）=a（2,i）+12-2*i

i=i+1

Loop

Fori=1To2

Forj=1To4

Printa（i,j）;

Nextj

Print

Nexti

L1:

i=0

DoWhilei<=4

b（i）=a（1,i）+a（2,4-i）

text1.Text=b（i）

i=i+1

Loop

EndSub

1）程序执行到L1时输出结果（）

①1357②7531

1086410864

③10864④46810

75311357

2）本程序执行完成后，b

（2）的值是（）

①3②7③11④15

3）本程序执行完成后，显示在文本框中结果是（）

①19171511②19③15④3

5.程序界面如下：

OptionExplicit

PrivateSubText1_LostFocus（）

Dimi%,n%

n=Len（Text1）

Fori=1Ton

c=Mid（Text1,i,1）

IfNot（c>="0"Andc<="9"Orc>="A"Andc<="Z"）Then

MsgBox"输入不合法字符，重新输入"

Text1=""

Text1.SetFocus

ExitFor

EndIf

Nexti

EndSub

PrivateSubCommand1_Click（）

IfISH（Text1）Then

Text2="yes"

Else

Text2="no"

EndIf

EndSub

PrivateFunctionISH（ssAsString）AsBoolean

Dimi%,ls%

ISH=True

ss=Trim（ss）

ls=Len（ss）

Fori=1Tols\2

IfMid（ss,i,1）<>Mid（ss,ls+1-i,1）Then

ISH=False

ExitFor

EndIf

Nexti

EndFunction

1）程序对文本框中输入的字符串要求是（）

1必须是大写字母或数字

2只能是大写字母

3只能是数字

4不能输入大写字母和数字

2）函数ISH的功能是（）

1判断字符串是否是回文

2判断字符串是否是字母字符串

3判断字符串是否是数字字符串

4判断字符串长度是否是奇数

三、程序填空题（15*2）

1.程序的功能是，计算阶乘的累加和，1!

+2!

+3!

+…+n!

。

OptionExplicit

PrivateSubCommand1_Click（）

Dimn%

n=Val（InputBox（"请输入1~10之间的整数"））

PrintSigma（n）

EndSub

FunctionSigma（nAsInteger）AsDouble

Dimi%

DimsumAs①

sum=0

Fori=1Ton

sum=sum+Fact（i）

Nexti

②

EndFunction

FunctionFact（nAsInteger）AsDouble

Dimi%,fAsDouble

f=1

Fori=1Ton

f=③

Nexti

Fact=f

EndFunction

2.在各类电视节目中，常用抽奖方式产生幸运观众。

假设为本场到场的500名观众分配一个唯一的三位数随机编号，为产生幸运观众，本程序将产生100~999之间的随机整数作为幸运号，然后再遍历所有的观众号，若有与之相同的观众号，则该观众就是幸运观众，并在屏幕上显示该编号及观众，否则显示“太遗憾了，无幸运观众”

OptionBase1

Dimaudience（500）AsInteger

PrivateSubCommand1_Click（）

Dimi%,num%

Randomize

num=①

Fori=1To500

If②Then

MsgBox（Str（num）&"是幸运观众"）

ExitFor

EndIf

Nexti

If③ThenMsgBox（"太遗憾了，未能产生幸运观众"）

EndSub

3．以下程序功能是，用冒泡法将a中10个数按升序排列。

OptionExplicit

OptionBase1

PrivateSubCommand1_Click（）

Dima

Dimi%,j%,temp%

a=Array（12,22,32,52,43,36,87,92,27,26）

Fori=1To9

Forj=1To①

If②Then

temp=a（j）

③

a（j+1）=temp

EndIf

Nextj

Nexti

Fori=1To10

Printa（i）;

Nexti

EndSub

4.以下程序的功能是验证哥德巴赫猜想：

每个大于等于6的偶数都可表示为两个素数之和，要求验证5000以内的整数。

PrivateSubCommand1_Click（）

Dima%,n%

Fora=①

Forn=3Toa/2Step2

If②Then

Printa&"="&n&"+"&（a-n）;"满足条件"

ExitFor

EndIf

Nextn

Nexta

EndSub

FunctionisPrime（ByValnAsInteger）AsBoolean

DimflagAsBoolean,i%

flag=True

Fori=2Ton-1

IfnModi=0Then

③

ExitFor

EndIf

Nexti

isPrime=flag

EndFunction

5.界面如下，功能是在文本框中输入一些字符，单击“统计”时，则统计在文本框中数字字符（0~9）分别出现的次数，并将统计结果写入图2所示的顺序文件“统计结果.txt”。

PrivateSubCommand1_Click（）

Dima（0To9）AsInteger,cAsString*1

Dimnum%,le%,i%,j%

Cls

le=①

Fori=1Tole

c=Mid（Text1,i,1）

Ifc>="0"Andc<="9"Then

j=Val（c）

a（j）=②

EndIf

Nexti

Open"统计结果.txt"③

Print#1,"数字";Tab（6）;"次数"

Forj=0To9

Print#1,j;Tab（6）;a（j）

Nextj

Close

EndSub