计算机试题库.docx

计算机试题库.docx

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

计算机试题库

习题1

1.填空题

（1）VisualBasic是一种面向的可视化程序设计语言，采取了的编程机制。

（2）VisualBasic的对象主要分为和两大类。

（3）在VisualBasic中，用来描述一个对象外部特征的量称之为对象的。

（4）在VisualBasic中，设置或修改一个对象的属性的方法有两种，它们分别是：

和。

（5）在VisualBasic中，每个对象一般都能感知和接收多个不同的事件，并能对这些事件作出响应，其响应方式就是通过调用执行一个与之相对应的来实现的。

（6）在VisualBasic中，事件过程的名字由、和所构成。

（7）若用户单击了窗体Form1，则此时将被执行的事件过程的名字应为：

。

（8）VisualBasic的集成开发环境主要由6个部分组成，它们分别是：

、

、、、、。

2.简答题

（1）简述VisualBasic的特点

（2）什么是对象的属性、事件和方法？

（3）VisualBasic如何完成对用户操作的响应?

（4）什么是事件?

事件过程的一般格式是怎样的？

如何编写对象的事件过程?

习题2

2.1说明下列哪些是VisualBasic合法的直接常量，并分别指出它们的类型。

100.0%1001E1123D3123,4560100

“ASDF”“1234.5”#2004/10/7#100#π

&O78&H123TrueT-1123!

345.54#

2.2下列数据哪些是变量，哪些是常量？

是什么类型的常量？

Name“name”Falseff“11/16/99”cj

“120”n#11/12/2004#12.345

2.3下列符号中，哪些可以是VisualBasic的合法变量名？

A123a12_3123_aa,123a123Integer

XYZFalseSin（x）变量名sinxπ

2.4把下列数学表达式写成VisualBasic表达式：

（1）

（2）

（3）

（4）

（5）

（6）

2.5写出下列表达式的值：

（1）123+23Mod10\7+Asc（"A"）

（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（"HellowVB!

",4,3）

（9）Left（"HellowVB!

",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<10

（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（"123程序设计ABC"）的值是。

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

（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（"123456",3,2）执行后，变量g中的值是。

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

（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

（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

　Print"良好"

Case3

　Print"及格"

CaseElse

　Print"不及格"

EndSelect

EndSub

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

DimxAsInteger

x=5

Fori=1To20Step3

　　　　　　x=x+i\5

Nexti

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

　　　　　PrivateSubForm_Click（）

DimxAsInteger

Fori=1To3

　　　　　Forj=1Toi

　　　　　Fork=jTo3

　　　　　　x=x+1

　　　　　Nextk

　　　　　Nextj

Nexti

Printx

EndSub

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

PrivateSubForm_Click（）

DimxAsInteger

x=0

DoWhilex<50

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

　　　　　　n=n+1

Loop

Print"x=";x;"n=";n

EndSub

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

　　　　　PrivateSubForm_Click（）

DimxAsInteger,aAsInteger

x=0

Forj=1To5

a=a+j

　　　Nextj

　　　　x=j

　　　　Printx,a

EndSub

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

Forj=8To35Step3

　　　　　Printj;

Nextj

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

PrivateSubForm_Click（）

x=InputBox（x）

Ifx^2<15Theny=1/x

Ifx^2>15Theny=x^2+1

Printy

EndSub

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

PrivateSubForm_Click（）

DimsumAsInteger

sum%=19

sum=2.23

Printsum%;sum

EndSub

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

PrivateSubForm_Click（）

a=100

　　　　　Do

s=s+a

a=a+1

LoopUntila>100

Printa

EndSub

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

PrivateSubForm_Click（）

a="ABCD"

b="efgh"

c=LCase（a）

d=UCase（b）

Printc+d

EndSub

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

PrivateSubForm_Click（）

x=2:

y=4:

z=6

x=y:

y=z:

z=x

Printx;y;z

EndSub

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

PrivateSubForm_Click（）

DimcountAsInteger

count=0

Whilecount<20

count=count+1

Wend

Printcount

EndSub

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

PrivateSubForm_Click（）

a="*":

b="$"

Fork=1To3

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

Printx;

Nextk

EndSub

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

PrivateSubForm_Click（）

k=0:

a=0

DoWhilek<70

k=k+2

k=k*k+k

a=a+k

Loop

Printa

EndSub

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

PrivateSubForm_Click（）

DimM（10）AsLong,N（10）AsLong

i=3

Fort=1To5

M（t）=t

N（i）=2*i+t

Nextt

PrintN（i）;M（i）

EndSub

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

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

PrivateSubForm_Click（）

Dima（）

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

j=1

Fori=3To0Step-1

s=s+a（i）*j

j=j*10

Nexti

Prints

EndSub

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

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

PrivateSubForm_Click（）

DimM（10）

Fork=1To10

M（k）=11-k

Nextk

x=6

PrintM（2+M（x））

EndSub

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

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

PrivateSubForm_Click（）

Dima（10）AsInteger,p（3）AsInteger

k=5

Fori=1To10

a（i）=i

Nexti

Fori=1To3

p（i）=a（i*i）

Nexti

Fori=1To3

k=k+p（i）*2

Nexti

Printk

EndSub

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

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

PrivateSubForm_Click（）

Dima（10,10）AsInteger

Fori=2To4

Forj=4To5

a（i,j）=i*j

Nextj

Nexti

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

EndSub

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（"VisualBasic","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

（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循环的子句缺省时，循环变量每次改变的值是_______。

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

PrivateSubForm_Click（）

Print

Fori=1To4

PrintTab（8-i）;

Forj=1To8

Print"*";

（1）

Print

Nexti

EndSub

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

PrivateSubForm_Click（）

DimsumAsInteger,xAsInteger

Fori=1To10

x=Int（Rnd*100+1）

If

（2）=0Then

sum=sum+x

Print"x=";x

EndIf

Nexti

Ifsum<>0Then

Print"sum=";sum

EndIf

EndSub

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

PrivateSubForm_Click（）

DimaAsInteger,bAsInteger

DimcAsSingle

Fora=1To50

Forb=aTo50

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

If（3）ThenPrinta,b,c

Nextb

Nexta

EndSub

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

PrivateSubForm_Click（）

sum=1:

n=1

Do

n=n+2

temp=1/n

sum=sum+temp

Iftemp<0.00001Then（4）

Loop

Print"N=";n

Print"sum=";sum

EndSub

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

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

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

PrivateSubForm_Click（）

sum=0

Fori=1To7

cj=Val（InputBox（"请输入第"&i&"位评委的打分","录入"））

Ifi=1Then

Max=cj

Min=cj

Else

IfMin>cjThen

Min=cj

ElseIfMax

Max=cj

EndIf

EndIf

sum=sum+cj

Nexti

aver=（5）

Print"该选手的成绩为：

",aver

EndSub

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

PrivateSubForm_Click（）

Dima（1To6）AsInteger

Randomize

Fori=1To50

n=（6）

a（n）=a（n）+1

Nexti

Fori=1To6

Printi;"点出现";a（i）;"次"

Nexti

EndSub

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）用一元纸币兑换一分、二分和五分的硬币，要求兑换硬币的