计算机试题库文档格式.docx

计算机试题库文档格式.docx

《计算机试题库文档格式.docx》由会员分享，可在线阅读，更多相关《计算机试题库文档格式.docx（37页珍藏版）》请在冰豆网上搜索。

）

（2）Int（68.555*100+0.5）/100

（3）#11/22/2004#-10

（4）"

ZXY"

123&

"

abc"

2.6设a=7，b=3，c=4，求下列表达式的值：

（1）a+3*c

（2）a^2/4

（3）a/2+3\2（4）aMod3+b^3/c\5

2.7写出下列函数的值：

（1）Int（-3.14159）

（2）Fix（-3.14159）

（3）Sqr（Sqr（81））（4）Len（"

VisualBasic程序设计"

（5）Int（Abs（99-100）/2）（6）Sgn（7*3+2）

（7）LCase（"

HellowVB!

"

）（8）Mid（"

4,3）

（9）Left（"

3）（10）Val（"

16个加23个"

（11）Str（-459.55）（12）UCase（"

VisualBasic"

2.8选择题

（1）可以同时删除字符串前导和尾部空格的函数是。

A.LtrimB.RtrimC.TrimD.Mid

（2）函数Int（Rnd

（1）*10）是在哪个范围产生随机整数。

A.（0,1）B.（0,9）C.（1,10）D.（1,9）

（3）数学式子sin25º

写成VisualBasic表达式是。

A.Sin25B.Sin（25）C.Sin（25º

）D.Sin（25*3.14/180）

（4）表达式16/4–2^3*7/4Mod5\2的值是。

A.14B.4C.20D.2

（5）数学关系式

表示成正确的VB表达式为。

A.3<

=x<

10B.x>

=3Andx<

10

C.x>

=3Orx<

10D.3<

=xAnd<

（6）已知A=”12345678”，则表达式Val（Left（a,4）+Mid（a,4,2））的值是。

A.123456B.123445C.8D.6

（7）表达式Len（"

123程序设计ABC"

）的值是。

A.10B.14C.20D.17

（8）表达式LenB（"

（9）下面正确的赋值语句是。

A.x+y=30B.y=x+30C.y=π*r*rD.3y=x+1

（10）为了给x，y，z三个变量赋初值1，正确的赋值语句是。

A.x=1:

y=1:

z=1B.x=1,y=1,z=1C.x=y=z=1D.x,y,z=1

（11）赋值语句g=123+Mid（"

123456"

3,2）执行后，变量g中的值是。

A.“12334”B.123C.12334D.157

（12）赋值语句g=123&

Mid（"

（13）如果x是一个正实数，对x的第3位小数四舍五入的表达式是。

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

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

（14）下列哪组语句可以将变量a，b的值互换。

A.a=b:

b=aB.a=a+b:

b=a-b:

a=a-b

C.a=c:

c=b:

b=aD.a=（a+b）/2:

b=（a-b）/2

（15）下列四个字符串进行比较，最小的是。

A.“9977”B.“B123”C.“Basic”D.“DATA”

（16）下列逻辑表达式中，其值为True的是。

A.“b”>

“ABC”B.“THAT”>

“THE”C.9>

“H”D.“A”>

“a”

（17）表达式a+b=c是。

A.赋值表达式B.字符表达式C.算术表达式D.关系表达式

（18）在下列表达式中，非法的是。

A.a=b+cB.a>

b+cC.a≠b>

cD.a<

b+c

（19）语句PrintFormat（“HELLO”,“<

”）的输出结果是　　　　。

　A.HELLOB.helloC.HeD.he

（20）MsgBox函数的返回值的类型是　　　　。

A.整数　　　　　B.字符串　　　　　　C.逻辑值　　　D.日期

（21）用语句DimA（-3to5）AsLong定义的数组元素个数是。

A.7B.8C.9D.10

（22）用语句DimA（3,-3to0，3to6）AsLong定义的数组元素个数是。

A.12B.27C.64D.80

2.9程序阅读题

（１）执行下面程序段后，变量c$的值为　　　　　　　。

　　　　　a="

学习VisualBasicProgramming"

b="

我们"

c$=b&

喜欢"

UCase（Mid（a,10,5））

（２）执行下面程序后,显示的结果是　　　　　　　　。

　PrivateSubForm_Click（）

DimxAsInteger

x=Int（Rnd）+4

SelectCasex

Case5

　Print"

优秀"

Case4

良好"

Case3

及格"

CaseElse

不及格"

EndSelect

EndSub

　（３）执行下面程序段后，变量ｘ的值为　　　　　　　。

x=5

Fori=1To20Step3

　　　　　　x=x+i\5

Nexti

　（４）执行下面程序后，输出的结果是　　　　　　　。

　　　　　PrivateSubForm_Click（）

Fori=1To3

　　　　　Forj=1Toi

　　　　　Fork=jTo3

　　　　　　x=x+1

　　　　　Nextk

　　　　　Nextj

Printx

　（５）执行下面程序后，输出的结果是　　　　　　　。

PrivateSubForm_Click（）

x=0

DoWhilex<

50

　　　　　　x=（x+2）*（x+3）

　　　　　　n=n+1

Loop

Print"

x="

;

x;

n="

n

　（６）执行下面程序后，输出的结果是　　　　　　　。

DimxAsInteger,aAsInteger

Forj=1To5

a=a+j

　　　Nextj

　　　　x=j

　　　　Printx,a

　（７）以下程序的循环次数是　　　　　　　　。

Forj=8To35Step3

　　　　　Printj;

Nextj

　（８）执行下面程序输入４后，程序输出的结果是　　　　　　　。

x=InputBox（x）

Ifx^2<

15Theny=1/x

Ifx^2>

15Theny=x^2+1

Printy

　（９）执行下面程序后，输出的结果是　　　　　　　。

DimsumAsInteger

sum%=19

sum=2.23

Printsum%;

sum

　（10）执行下面程序后，输出的结果是　　　　　　　。

a=100

　　　　　Do

s=s+a

a=a+1

LoopUntila>

100

Printa

（11）执行下面程序后，输出的结果是　　　　　　　。

a="

ABCD"

efgh"

c=LCase（a）

d=UCase（b）

Printc+d

（12）执行下面程序后，输出的结果是　　　　　　　。

PrivateSubForm_Click（）

x=2:

y=4:

z=6

x=y:

y=z:

z=x

Printx;

y;

z

（13）执行下面程序后，输出的结果是　　　　　　　。

DimcountAsInteger

count=0

Whilecount<

20

count=count+1

Wend

Printcount

（14）执行下面程序后，输出的结果是　　　　　　　。

*"

:

b="

$"

Fork=1To3

x=Str（Len（a）+k）&

b

Nextk

（15）执行下面程序后，输出的结果是　　　　　　　。

k=0:

a=0

DoWhilek<

70

k=k+2

k=k*k+k

a=a+k

（16）执行下面程序后，输出的结果是　　　　　　　。

DimM（10）AsLong,N（10）AsLong

i=3

Fort=1To5

M（t）=t

N（i）=2*i+t

Nextt

PrintN（i）;

M（i）

A.311B.315C.1113D.153

（17）执行下面程序后，输出的结果是　　　　　　　。

Dima（）

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

j=1

Fori=3To0Step-1

s=s+a（i）*j

j=j*10

Prints

A.1234B.4321C.12D.34

（18）执行下面程序后，输出的结果是　　　　　　　。

DimM（10）

Fork=1To10

M（k）=11-k

x=6

PrintM（2+M（x））

A.2B.3C.4D.5

（19）执行下面程序后，输出的结果是　　　　　　　。

Dima（10）AsInteger,p（3）AsInteger

k=5

Fori=1To10

a（i）=i

p（i）=a（i*i）

k=k+p（i）*2

Printk

A.33B.28C.35D.37

（20）执行下面程序后，输出的结果是　　　　　　　。

Dima（10,10）AsInteger

Fori=2To4

Forj=4To5

a（i,j）=i*j

Printa（2,5）+a（3,4）+a（4,5）

A.22B.42C.32D.52

三、判断题

（1）VB6.0中&

H12是8进制的数值常数。

（2）设A="

123"

B=123,则A+B的结果为246。

（3）已知A$="

87654321"

，则表达式Val（Left$（A$，4）+Mid$（A$,4,2））的值是：

876554。

（4）Rnd函数产生的是（0,1）之间不包括0、1的随机小数。

（5）表示x是5的倍数或是9的倍数的逻辑表达式为:

xMod5=0ORxMod9=0。

（6）Len（"

等级考试"

）和LenB（"

）的结果相同。

（7）VB6.0中字符串常量是用双引号或单引号括起来的字符串。

（8）PrintInStr（"

"

I"

）的结果为0。

（9）固定数组中的数组元素个数一旦定义好后，在程序运行过程中不再会发生变化，并且数组中数组元素的值也不会变化。

（10）数组元素的下标可以是常数、变量或表达式。

（11）在For…Next循环中，其中Step步长可以是正数,也可以是负数。

（12）在Do…Loop［While｜Until］循环中，While关键字或Until关键字必须选择其中之一。

（13）在For...Next循环中，ExitFor子句是可选项，它可以放置在循环体语句中的任何位置。

（14）动态数组在定义时已被分配存储空间。

（15）在VB6.0中，OptionBase语句的参数只能是0或1。

2.10填空题

（1）在VB中声明符号常量的关键字是_______。

（2）设a=1,b=2,c=3,则VB6.0表达式：

a<

borb<

candc<

a的值是_______。

（3）"

a"

"

T"

Z"

9"

，这四个字符中，_______的ASCII码值最大。

（4）执行语句B=MsgBox（"

XXX"

,"

YYY"

）后,在消息框中的标题信息是_______。

（5）函数Len（"

Hello!

+Space

（2）+Mid（"

Shanghai"

5,3））的值是_______。

（6）表达式Ucase（Mid（"

abcdefgh"

3,4））的值是_______。

（7）表达式Int（1234.555*100+0.5）/100的结果是_______。

（8）使用数组声明语句Dima（3,-2TO2,5），则数组a包含元素的个数有_______。

（9）For-Next循环的<

step>

子句缺省时，循环变量每次改变的值是_______。

（1）填空，使得程序运行后，能在窗体上打印如图所示的图案。

Print

Fori=1To4

PrintTab（8-i）;

Forj=1To8

Print"

（1）

Print

Nexti

（2）下面程序的功能是利用随机函数产生10个（1~100）之间的随机整数，打印其中能被5整除的数并求其和，请用正确的内容填空。

DimsumAsInteger,xAsInteger

x=Int（Rnd*100+1）

If

（2）=0Then

sum=sum+x

x

EndIf

Ifsum<

>

0Then

sum="

EndIf

（3）用正确的内容填空，使得以下程序能够找出50以内所有能构成直角三角形的整数。

DimaAsInteger,bAsInteger

DimcAsSingle

Fora=1To50

Forb=aTo50

c=Sqr（a^2+b^2）

If（3）ThenPrinta,b,c

Nextb

Nexta

（4）用正确的内容填空，使得以下程序能够计算1+1/3+1/5+……+1/（2N+1），直到1/（2N+1）小于10-5。

sum=1:

n=1

Do

n=n+2

temp=1/n

sum=sum+temp

Iftemp<

0.00001Then（4）

N="

（5）某大奖赛，有7位评委给参赛选手打分。

以下程序是输入7位评委对某选手的打分后，去掉最高分和最低分后计算其平均值作为该选手的成绩。

请填空使得程序能正确运行。

sum=0

Fori=1To7

cj=Val（InputBox（"

请输入第"

i&

位评委的打分"

录入"

））

Ifi=1Then

Max=cj

Min=cj

Else

IfMin>

cjThen

ElseIfMax<

sum=sum+cj

aver=（5）

该选手的成绩为：

aver

（6）以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数，请用正确的内容填空。

Dima（1To6）AsInteger

Randomize

Fori=1To50

n=（6）

a（n）=a（n）+1

Fori=1To6

Printi;

点出现"

a（i）;

次"

2.11编程题

（1）编写程序将1~100自然数中能被3和5同时整除的数打印出来，并统计其个数。

（2）我国现有人口14亿，设年增长率为0.75％，编写程序，计算多少年后将增加到16亿。

（3）编写程序输出100~200之间不能被3整除的自然数。

（4）设计程序，求s=1+（1+2）+（1+2+3）+……+（1+2+3+……+n）的值。

（5）编写程序计算S的近似值，直到最后一项的绝对值小于10-5为止。

并用Print方法输出计算结果。

其中：

（6）假设某项税收的规定如下：

●收入在500元以内，免征；

●收入在500～1000元内，超过500元的部分纳税3%；

●收入超过1000元时，超过的部分纳税4%；

●收入超过2000元时，超过的部分纳税5%。

试编程实现上述操作。

（7）编写程序，用InputBox函数输入3个正整数，打印其中最大的数。

（8）编写程序，任意输入三个整数A，B，C，按由大到小顺序把它们打印出来。

（9）编写程序，计算

直到第n项的绝对值小于10-8

（10）分别编写两个程序，在窗体上分别打印出如下所示的图形。

（11）编写程序，输出1000之内的所有完数。

“完数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3，而6=1+2+3，因而6是完数。

（12）一只小球从10米高度上自由落下，每次落地后反弹回原高度的40％，再落下。

编程计算小球在第8次落地时，共计经过了多少米？

（13）编写程序，求出所有小于或等于100的自然数对。

自然数对是指两个自然数和与差都是平方数，如8和17的和为8+17=25与其差17-8=9都是平方数，则8和17就称为自然数对。

（14）找出100~999之间的所有“水仙花数”。

所谓“水仙花数”是一个三位数，其各位数的立方各等于该数本身，例：

153=13+53+33，故153是“水仙花数”。

（15）编写程序，在窗体上打印下图所示的“数字金字塔”：

（16）用一元纸币兑换一分、二分和五分的硬币，要求兑换硬币的