VB程序设计阶段练习2专科.docx
- 文档编号:893111
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:24
- 大小:24.03KB
VB程序设计阶段练习2专科.docx
《VB程序设计阶段练习2专科.docx》由会员分享,可在线阅读,更多相关《VB程序设计阶段练习2专科.docx(24页珍藏版)》请在冰点文库上搜索。
VB程序设计阶段练习2专科
《VB程序设计(专)》第二阶段练习题
一、选择题
1.下面选项中C是算术运算符。
A.% B.& C.Mod D.And
2.下列选项中,把R定义为双精度型变量的是 C 。
A.r% B.r!
C.r# D.r$
3.30Mod4的值为B。
A.1 B.2 C.4 D.10
4.下列运算符中 A 的优先级最高。
A./ B.\C.ModD.+
5.Len(“程序设计”)的值是B。
A.0 B.4C.8D.不能确定
6.下面不合法的标示符是D 。
A.Lab1B.PrintC.标号D.Int
7.下列赋值语句中,正确的是____B____。
A.a%=”VBP” B.a!
=100 C.1+a=10e D.a+%=10
8.下列赋值语句中,正确的是___B_____。
A.Text1.text%=”VBP”B.Text2.text=100
C.Label1.Caption!
=10eD.Label2.Caption+1=10
9.下列语句中,不正确的是____C____。
A.x=MsgBox("除数为零,请重新输入!
",vbCritical,"警告框")
B.x=MsgBox("除数为零,请重新输入!
",vbCritical+vbOKOnly,"警告框")
C.MsgBox("除数为零,请重新输入!
",vbCritical,"警告框")
D.MsgBox"除数为零,请重新输入!
",vbCritical+vbOKOnly,"警告框"
10.下列语句中,正确的是__A______。
A.x=MsgBox("除数为零,请重新输入!
",,"警告框")
B.x=MsgBox("除数为零,请重新输入!
","警告框")
C.MsgBox("除数为零,请重新输入!
",,"警告框")
D.MsgBox"除数为零,请重新输入!
","警告框"
11.下列语句中,不能交换变量a和b的值的是____D____。
A.t=b:
b=a:
a=t B.a=a+b:
b=a-b:
a=a-b
C.t=a:
a=b:
b=tD.a=b:
b=a
12.在一行内写多条语句时,每个语句之间用 B 符号分隔。
A. , B. :
C. 、 D. ;
13.一句语句要在下一行继续写,用 C 符号作为续行符。
A.+ B.- C._ D.…
14.下面 A 是合法的变量名。
A.X_yzB.123abcC.integerD.X-Y
15.下面 D 是不合法的整常数。
A.100 B.&O100 C.&H100 D.%100
16.下面 B 是合法的字符常数。
A.ABC$B.”ABC”C.’ABC’D.ABC
17.下面 A 是合法的单精度型变量。
A.num!
B.sum%C.xinte$D.mm#
18.下面 D 是不合法的单精度常数。
A.100!
B.100.0C.1E+2D.100.0D+2
19.表达式16/4-2^5*8/4MOD5\2的值为 B 。
A.14 B.4C.20D.2
20.数学关系3≤x<10表示成正确的VB表达式为 B 。
A.3<=x<10B.3<=xANDx<10C.x>=3ORx<10D.3<=xAND<10
21.下列四个算术运算符中,优先级别最低的是 C 。
A.\ B./ C.Mod D.*
22.Rnd函数不可能为下列 B 值。
A.0 B.1C.0.1234D.0.0005
23.Int(198.555*100+0.5)/100的值是 C 。
A.198 B.199.6C.198.56D.200
24.已知A$=”12345678”,则表达式Val(Left$(A,4)+Mid$(A,4,2))的值为 B 。
A.123456 B.123445 C.8 D.6
25.表达式Len(“123程序设计ABC”)的值是 A 。
A.10 B.14 C.20 D.17
26.表达式LenB(“123程序设计ABC”)的值是 C 。
A.10 B.14 C.20 D.17
27.下面正确的赋值语句是 C 。
A.x+y=30B.y=π*r*rC.y=x+30D.3y=x
28.为了给变量x,y,z三个变量赋初值1,下面正确的赋值语句是 A 。
A.x=1:
y=1:
z=1B.x=1,y=1,z=1C.x=y=z=1D.xyz=1
29.赋值语句a=123+Mid$(“123456”,3,2)执行后,a变量中的值是 D 。
A.”12334”B.123C.12334D.157
30.赋值语句a=123&Mid$(“123456”,3,2)执行后,a变量中的值是 A 。
A.”12334”B.123C.12334D.157
31.结构化程序由三种基本结构组成,下面属于三种基本结构之一的是B。
A.递归结构 B.选择结构 C.过程结构 D.输入、输出结构
32.以下不正确的单行结构条件语句是D。
A.Ifx>yThenPrint“x>y” B.IfxThent=t*x
C.IfxMod3=2Then?
x D.Ifx<0Theny=2*x-1:
PrintxEndIf
33.给定程序段
Dima%,b%,cAsInteger
A=1:
b=2:
c=3
Ifa=c-bThenPrint“####”ElsePrint“*****”
以上程序C。
A.没有输出 B.有语法错 C.输出##### D.输出*****
34.把a,b之中的最大值存放于max,下面语句书写正确的是D。
A.Ifa>bThenmax=aelsemax=bEndIf
B.Ifa>bThenmax=a
Else
max=b
EndIf
C.Ifa>bThen
max=a
Else
max=b
D.Ifa>bThen
max=a
Else
max=b
EndIf
35.下列Case语句中正确的是C。
A.SelectCasexB.SelectCasex
Case1Or3Or5Case1Or3Or5
y=x*x-1y=2*x-1
CaseIs>10CaseIs<=1
y=x+1y=2-x+1
EndSelectEndSelect
C.SelectCasexD.SelectCasex
CaseIs<=0Casex>=1Andx<=5
y=x-1y=x-1
CaseIs>0CaseIs>10
y=sqr(x)+1y=x*x+1
EndSelectEndSelect
36.下列多分支选择结构的Case语句,写法错误的是C。
A.Case1,5,7,9B.Case8To12
C.Case5To2D.CaseIs<“Man”
37.VB提供了结构化程序设计的三种基本结构,三种基本结构是 D 。
A.递归结构、选择结构、循环结构 B.选择结构、过程结构、顺序结构
C.过程结构、输入、输出结构、转向结构 D.选择结构、循环结构、顺序结构
38.下面程序段运行后,显示的结果是 A 。
Dimx
IfxThenPrintxElsePrintx+1
A.1 B.0 C.(1 D.显示出错信息
39.语句Ifx=1Theny=1,下列说法正确的是 C 。
A.x=1和y=1均为赋值语句 B.x=1和y=1均为关系表达式
C.x=1为关系表达式,y=1为赋值语句
D.x=1为赋值语句,y=1为关系表达式
40.下面程序段,显示的结果是 A 。
Dimx
x=Int(Rnd)+5
SelectCasex
Case5
Print"优秀"
Case4
Print"良好"
Case3
Print"通过"
CaseElse
Print"不通过"
EndSelect
A.优秀 B.良好 C.通过 D.不通过
41.以下 B 是正确的For…Next结构。
A.Forx=1ToStep10B.Forx=3To–3Step–3
……
NexxNextx
C.Forx=1ToStep10D.Forx=3To–3Step–3
l1:
……
NexxNexty
Ifi=10ThenGotol1
42.设有程序段
Dimk%
K=5
DoUntilk=0
K=k-1
Loop
则下面对循环语句描述正确的是C。
A.循环体1次也不执行B.循环体执行1次
C.循环体执行5次D.循环体执行无限次
43.执行下列程序段的结果为C。
Dimi,SumasInteger
Whilei>1
Sum=Sum+i
i=i-1
Wend
PrintSum
A.无显示B.10C.0D.55
44.下面描述中错误的是A。
A.执行条件DoUntil<条件>…Loop语句中,当循环<条件>为False时,结束循环体的执行。
B.执行While<条件>…Wend语句时,循环体可能一次也不执行。
C.Do…LoopWhile<条件>语句的循环体可能一次也不执行。
D.执行Do…LoopUntil<条件>语句中,当循环条件为True时,结束循环体的执行。
45.下面程序段中循环语句的循环次数是B。
Forx=0ToStep–3
Printx
Nextx
A.0B.4C.5D.10
46.执行语句Fori=1To3:
i=i+1:
Nexti后,变量i的值是B。
A.3B.4C.5D.6
47.For-Next循环结构中,若循环控制变量的步长为0,则A。
A.形成无限循环B.循环体执行一次后结束循环
C.语法错误D.循环体不执行即结束循环
48.下列循环语句能正常结束循环的是 C 。
A.i=5
Do
i=i+1
LoopUntili<0
B.i=1
Do
i=i+2
LoopUntili=10
C.i=10
Do
i=i-1
LoopUntili<0
D.i=6
Do
i=i-2
LoopUntili=1
49.执行以下程序段后,x的值为 C 。
DimxAsInteger,iAsInteger
x=0
Fori=20To1Step-2
x=x+i\5
Nexti
A.16 B.17 C.18 D.19
50.执行以下程序段后,输出结果为 A 。
DimiAsInteger,xAsInteger
Fori=1To6
Ifi=1Thenx=i
Ifi<=4Then
x=x+1
Else
x=x+2
EndIf
Nexti
Printx
A.9 B.6 C.12 D.15
二、填空题
1.VB常用 标识符 来标记用户自定义的常量、类型、变量、控件、过程、函数等名字。
2.要从字符串”MadeInChina”中截取子字符串”In”可使用函数 Mid(”MadeInChina”,6,2) 。
3.产生从整数a到整数b之间的随机整数或使用表达式 Int(Rnd*(b-a+1)+a 。
4.若一个整数变量说明了之后没有给它赋值,则它的值为 0 。
5.把3421.79的小数部分四舍五入转换为整数,可使用函数 Cint(3421.79) 。
6.在VB中可以把类型说明符放在变量名的 未尾 来说明变量的类型。
7. 浮点数除法 算术运算符与乘法运算符具有相同的优先级。
8.默认情况下,Integer变量初始化为 0 。
9.对含有多种运算的表达式,各种运算之间的顺序为 函数运算 → 算术运算 → 关系运算
→ 逻辑运算 。
10.当声明变量时,如果没有显式说明给定变量的数据类型,则默认为 变体类型或Variant类型 。
11.在VB中,1234、123456&、1.2346E+5、1.2346D+5四个常数分别表示 整型 、长整型 、 单精度型 、 双精度型 类型。
12.整型变量x中存放了一个两位数,要将两位数交换位置,例如,13变成31,实现的表达式是 (xMod10)*10+x\10 。
13.表示x是5的倍数或是9的倍数的逻辑表达式为 xMod5=0ORxMod9=0 。
14.已知a=3.5,b=5.0,c=2.5,d=True,则表达式:
a>=0ANDa+c>b+3ORNOTd的值是 False 。
15.表达式UCase(Mid("abcdefgh",3,4))的值是 CDEF 。
16.判别变量I是否为偶数,若为偶数就把它显示出来。
使用单行结构条件语句
为 IfiMod2=0Printi 。
17.判别变量x是否大于0,若大于0,则累加到变量s1中,否则,累加到变量s2中,使用单行结构条件语句为 Ifx>0Thens1=s1+xElses2=s2+x 。
18.在循环语句中,反复执行的程序段称为 循环体
。
19.While~Wend语句是先判断 条件表达式 的值,再决定是否执行循环体。
20.如果For~Next循环中含有ExitFor语句,当执行到这条语句时,将 跳出循环 ,执行Next后面的语句。
21.把循环体内含有循环语句的循环称为 多重循环 。
22.若是下列For语句循环执行20次,循环变量的初值应当是:
14 。
Fork= To-5Step-1 To-5Step-1(To-5Step-1)
23.下面的程序段显示 10 个"*"。
Fori=1To5
Forj=2Toi
Print“*”;
Next
Next
三、程序填空题
1.如下程序的功能为,利用InputBox函数从键盘上输入三个数据,然后在窗体上显示该三个数据的和与它们的平均值,请填空。
PrivateSubForm_Click()
a1=Val(InputBox("请输入第1个数:
"))
a2=Val(InputBox("请输入第2个数:
"))
a3=Val(InputBox("请输入第3个数:
"))
Sum=a1+a2+a3
Aver=Sum/3
Print"输入的三个数分别为:
"; a1;a2;a3
Print"三个数和为:
"; Sum
Print"三个数平均值为:
"; Aver
EndSub
2.求解鸡兔同笼问题。
下面程序可以计算鸡兔各有多少只,鸡兔总头数和总脚数从键盘输入,请填空。
PrivateSubForm_Click()
h=Val(InputBox("鸡兔总头数:
"))
f=Val(InputBox("鸡兔总脚数:
"))
y =(f-2*h)/2
x =(4*h-f)/2
Print"鸡总头数为:
";x
Print"兔总头数为:
";y
EndSub
3.输入文本框中若干个字符,统计有多少个元音字母、有多少个其他字母,直到按Enter键结束,并显示结果,大小写不区分。
其中CountY中放元音字母个数,CountC中放其他字符数。
DimCountY%,CountC%
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimC$
C= UCase(Chr(KeyAscii))
If"A"<=CAndC<="Z"Then
SelectCase C
Case "A","E","I","O","U"
CountY=CountY+1
Case Else
CountC=CountC+1
EndSelect
EndIf
If KeyAscii=13 Then
Print"元音字母有";CountY;"个"
Print"其他字母有";CountC;"个"
EndIf
EndSub
4.输入任意长度的字符串,要求将字符顺序到置,例如,将输入的“ABCDEFG”变换成“GFEDCBA”。
PrivateSubCommand1_Click()
Dima$,i%,c$,d$
a=InputBox("输入字符串")
n=Len(a)
Fori=nTo1Step-1
c=Mid(a,i,1)
d=d+c
Nexti
Printd
EndSub
5.由键盘输入一个正整数,找出大于或等于该数的第一个质数。
PrivateSubCommand1_Click()
Dimm%,x%,TagAsBoolean
Tag=False
x=Val(InputBox("输入正整数"))
DoWhileNotTag
m=2:
Tag= True
DoWhileTagAnd(m<(x\2))
IfxModm=0Then Tag=False Else m=m+1
Loop
IfNotTagThenx=x+1
Loop
Printx
EndSub
6.下列程序功能:
在窗体的3个文本框(Text1、Text2、Text3)中输入三个数,将它们从大到小排序,并在文本框(Text4)中输出排序结果。
请填写程序空白处使程序完整。
PrivateSubCommand1_Click()
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
Ifa t=a: a=b: b=t EndIf Ifa<=cThen t=a: a=c: c=t EndIf Ifb<=cThen t=b: b=c: c=t EndIf Text4.Text=a&","&b&","&c EndSub 7.下列程序功能: 通过输入对话框输入三个数,将它们分别显示在窗体的三个标签框内,并求出其中最大数在输出对话框内输出结果。 请填写程序空白处使程序完整。 PrivateSubCommand1_Click() DimaAsInteger,bAsInteger DimcAsInteger,mAsInteger a=Val(InputBox("请输入第一个数","输入对话框")) b=Val(InputBox("请输入第二个数","输入对话框")) c=Val(InputBox("请输入第三个数","输入对话框")) Label1="A="&a Label2="B="&b Label3="C="&c Ifa>bThen m=a Else m=b EndIf Ifc>mThenm=c MsgBox"最大的数为: "&m,vbOKOnly,"信息框" EndSub 8.下列程序功能: 通过输入对话框输入一个字符,首先将该字符显示在文本框1(Text1)内,再判别该字符,若它是大写字母,则把它变成小写字母;若它是小写字母,则把它变成大写 字母;若它是其他字母,则其值不变。 最后再将该字符显示在文本框2(Text2)中。 请填写程序空白处使程序完整。 PrivateSubCommand1_Click() DimchAsString*1 ch=InputBox("请输入一个字符: ") Text1.Text=ch Ifch>="A"Andch<="Z" Then ch=LCase(ch) ElseIfch>="a"Andch<="z"Then ch=UCase(ch) Else Print EndIf Text2.Text=ch EndSub 9.下列程序功能: 求S=1+2+3+……+100的和,将求和结果显示在窗体的第10列位置处,显示内容为S=5050。 请填写程序空白处使程序完整。 PrivateSubCommand1_Click() DimkAsInteger,sAsLong s=0 Fork=1To100 s=s+k Next Print Print Tab(10);"s=";s EndSub 10.下列程序功能: 在窗体上输
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 阶段 练习 专科