VB基本知识及选择循环结构习题Word下载.doc
《VB基本知识及选择循环结构习题Word下载.doc》由会员分享，可在线阅读，更多相关《VB基本知识及选择循环结构习题Word下载.doc（8页珍藏版）》请在冰点文库上搜索。
）（8）Mid（"
4,3）
（9）Left（"
3）（10）Val（"
16个加23个"
（11）Str（-459.55）（12）UCase（"
VisualBasic"
二、选择题
（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*8/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）下面正确的赋值语句是。
A.x+y=30B.y=3π*r*rC.y=x+30D.3y=x+1
（9）为了给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
（10）赋值语句g=123+Mid（"
123456"
3,2）执行后，变量g中的值是。
A.“12334”B.123C.12334D.157
（11）表达式Not（a+b=c-d）是_______。
A.逻辑表达式B.字符表达式C.算术表达式D.关系表达式
（12）如果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）
（13）下列哪组语句可以将变量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
（14）下列四个字符串进行比较，最小的是。
A.“9977”B.“B123”C.“Basic”D.“DATA”
（15）下列逻辑表达式中，其值为True的是。
A.“b”>
“ABC”B.“THAT”>
“THE”C.9>
“H”D.“A”>
“a”
（16）表达式a+b=c是。
A.赋值表达式B.字符表达式C.算术表达式D.关系表达式
（17）在下列表达式中，非法的是。
A.a=b+cB.a>
b+cC.a≠b>
cD.a<
b+c
（18）语句PrintFormat（“HELLO”,“<
”）的输出结果是 。
A.HELLOB.helloC.HeD.he
（19）MsgBox函数的返回值的类型是 。
A.整数 B.字符串 C.逻辑值 D.日期
（20）用语句DimA（-3to5）AsLong定义的数组元素个数是。
A.7B.8C.9D.10
三、判断题
（1）VB6.0中&
H12是8进制的数值常数。
（2）设A="
123"
B=123,则A+B的结果为246，A-B的结果为0。
（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）执行下面程序段后，变量ｘ的值为 。
DimxAsInteger
x=5
Fori=1To20Step3
x=x+i\5
Nexti
（3）执行下面程序后，输出的结果是 。
PrivateSubForm_Click（）
Fori=1To3
Forj=1Toi
Fork=jTo3
x=x+1
Nextk
Nextj
Printx
EndSub
（4）执行下面程序后，输出的结果是 。
PrivateSubForm_Click（）
x=0
DoWhilex<
50
x=（x+2）*（x+3）
n=n+1
Loop
Print"
x="
;
x;
n="
n
（5）执行下面程序后，输出的结果是 。
DimxAsInteger,aAsInteger
Forj=1To5
a=a+j
Nextj
x=j
Printx,a
（6）以下程序的循环次数是 。
Forj=8To35Step3
Printj;
Nextj
（7）执行下面程序输入４后，程序输出的结果是 。
x=InputBox（x）
Ifx^2<
15Theny=1/x
Ifx^2>
15Theny=x^2+1
Printy
（8）执行下面程序后，输出的结果是 。
DimsumAsInteger
sum%=19
sum=2.23
Printsum%;
sum
（9）执行下面程序后，输出的结果是 。
a=100
Do
s=s+a
a=a+1
LoopUntila>
100
Printa
（10）执行下面程序后，输出的结果是 。
a="
ABCD"
b="
efgh"
c=LCase（a）
d=UCase（b）
Printc+d
（11）执行下面程序后，输出的结果是 。
PrivateSubForm_Click（）
x=2:
y=4:
z=6
x=y:
y=z:
z=x
Printx;
y;
z
（12）执行下面程序后，输出的结果是 。
DimcountAsInteger
count=0
Whilecount<
20
count=count+1
Wend
Printcount
（13）执行下面程序后，输出的结果是 。
PrivateSubForm_Click（）
*"
:
b="
$"
Fork=1To3
x=Str（Len（a）+k）&
b
Nextk
（14）执行下面程序后，输出的结果是 。
k=0:
a=0
DoWhilek<
70
k=k+2
k=k*k+k
a=a+k
（15）执行下面程序后，输出的结果是 。
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）
（16）执行下面程序后，输出的结果是 。
PrivateSubForm_Click（）
Dima（）
a=Array（1,2,3,4）
j=1
Fori=3To0Step-1
s=s+a（i）*j
j=j*10
Prints
（17）执行下面程序后，输出的结果是 。
PrivateSubForm_Click（）
DimM（10）
Fork=1To10
M（k）=11-k
x=6
PrintM（2+M（x））
（18）执行下面程序后，输出的结果是 。
Dima（10）AsInteger,p（3）AsInteger
k=5
Fori=1To10
a（i）=i
p（i）=a（i*i）
k=k+p（i）*2
Printk
（19）执行下面程序后，输出的结果是 。
Dima（10,10）AsInteger
Fori=2To4
Forj=4To5
a（i,j）=i*j
Printa（2,5）+a（3,4）+a（4,5）
（20）以下程序运行的结果是_______。
OptionBase1
PrivateSubCommand1_Click（）
Dima,b（3,3）
a=array（1,2,3,4,5,6,7,8,9）
Fori=1To3
Forj=1To3
b（i,j）=a（i*j）
If（j>
=i）ThenPrintTab（j*3）;
Format（b（i,j）,"
###"
）;
Nextj
Print
Nexti
EndSub
A.123B.1C.147D.123
4564524646
7897893699
五、填空题
（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>
子句缺省时，循环变量每次改变的值是_______。
（10）填空，使得程序运行后，能在窗体上打印如图所示的图案。
Print
Fori=1To4
PrintTab（8-i）;
Forj=1To8
Print"
（）
Print
（11）下面程序的功能是利用随机函数产生10个（1~100）之间的随机整数，打印其中能被5整除的数并求其和，请用正确的内容填空。
DimsumAsInteger,xAsInteger
x=Int（Rnd*100+1）
If（）=0Then
sum=sum+x
Print"
x
EndIf
Ifsum<
>
0Then
sum="
EndIf
（12）用正确的内容填空，使得以下程序能够找出50以内所有能构成直角三角形的整数。
DimaAsInteger,bAsInteger
DimcAsSingle
Fora=1To50
Forb=aTo50
c=Sqr（a^2+b^2）
If（）ThenPrinta,b,c
Nextb
Nexta
（13）用正确的内容填空，使得以下程序能够计算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（）
N="
（14）某大奖赛，有7位评委给参赛选手打分。
以下程序是输入7位评委对某选手的打分后，去掉最高分和最低分后计算其平均值作为该选手的成绩。
请填空使得程序能正确运行。
sum=0
Fori=1To7
cj=Val（InputBox（"
请输入第"
i&
位评委的打分"
录入"
））
Ifi=1Then
Max=cj
Min=cj
Else
IfMin>
cjThen
ElseIfMax<
EndIf
EndIf
sum=sum+cj
Nexti
aver=（）
Print"
该选手的成绩为：
aver
（15）以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数，请用正确的内容填空。
Dima（1To6）AsInteger
Randomize
Fori=1To50
n=（）
a（n）=a（n）+1
Nexti
Fori=1To6
Printi;
点出现"
a（i）;
次"
六、编程题
（1）编写程序将1~100自然数中能被3和5同时整除的数打印出来，并统计其个数。
（2）我国现有人口13亿，设年增长率为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）假设某项税收的规定如下：
l收入在500元以内，免征；
l收入在500～1000元内，超过500元的部分纳税3%；
l收入超过1000元时，超过的部分纳税4%；
l收入超过2000元时，超过的部分纳税5%。
试编程实现上述操作。
（7）编写
升级会员 