计算机试题库.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程序阅读题
(1)执行下面程序段后,变量c$的值为 。
a="学习VisualBasicProgramming"
b="我们"
c$=b&"喜欢"&UCase(Mid(a,10,5))
(2)执行下面程序后,显示的结果是 。
PrivateSubForm_Click()
DimxAsInteger
x=Int(Rnd)+4
SelectCasex
Case5
Print"优秀"
Case4
Print"良好"
Case3
Print"及格"
CaseElse
Print"不及格"
EndSelect
EndSub
(3)执行下面程序段后,变量x的值为 。
DimxAsInteger
x=5
Fori=1To20Step3
x=x+i\5
Nexti
(4)执行下面程序后,输出的结果是 。
PrivateSubForm_Click()
DimxAsInteger
Fori=1To3
Forj=1Toi
Fork=jTo3
x=x+1
Nextk
Nextj
Nexti
Printx
EndSub
(5)执行下面程序后,输出的结果是 。
PrivateSubForm_Click()
DimxAsInteger
x=0
DoWhilex<50
x=(x+2)*(x+3)
n=n+1
Loop
Print"x=";x;"n=";n
EndSub
(6)执行下面程序后,输出的结果是 。
PrivateSubForm_Click()
DimxAsInteger,aAsInteger
x=0
Forj=1To5
a=a+j
Nextj
x=j
Printx,a
EndSub
(7)以下程序的循环次数是 。
Forj=8To35Step3
Printj;
Nextj
(8)执行下面程序输入4后,程序输出的结果是 。
PrivateSubForm_Click()
x=InputBox(x)
Ifx^2<15Theny=1/x
Ifx^2>15Theny=x^2+1
Printy
EndSub
(9)执行下面程序后,输出的结果是 。
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
ElseIfMaxMax=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)用一元纸币兑换一分、二分和五分的硬币,要求兑换硬币的