第二部分 VB练习题与答案
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Case 3
Print "通过"
Case Else
Print "不通过"
End Select
A.优秀B.良好
C.通过D.不通过
5.以下( )是正确的For…Next结构。
A. For x＝1 to Step10B. For x=3 To-3 Step-3
…… ......
Next x Next x
C. For x= l To10D. For x＝3 To10 Step 3
G
FG
EFG
DEFG
CDEFG
BCDEFG
ABCDEFG
18.编程输入一批数据，若输入数据为纯数字时，求累加和，非纯数字不累加。输入"Y"结束输入，输出累加和。(用InputBox()输入数据)
19.求公式：e=1+1/1!+1/2!+1/3!+……+1/n!直到n=20时的e值。
20.已知sin(x)=x/1-x^3/3!+x^5/5!-x^7/7!+…，设计一个程序，输入x，通过累加所有绝对值大于等于0.000001的项来计算sin(x)的值。
Loop Until i＞0Loop Until i＝1
7.哪个程序段不能分别正确显示1！、2！、3！、4！的值？( )
A. For i＝1To 4B. For i＝1To 4
n=1For j＝1Toi
For j＝1 Toin=1
n＝n*j n＝n*j
Next j Next j
Print n Print n
30元基数＜10h
费用＝
每小时2元10～60h
每小时1.5元＞60h
3.有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，问这个阶梯至少有多少阶?
4.一个球从100m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少m？最后一次反弹高度多少？
C. x=y＝z=1D. xyz=1
18.赋值语句：a＝123＋Mid("123456",3,2)执行后，a变量中的值是( )。
A. "12334"B. 123
C. 12334D. 157
19.赋值语句：a＝123 & Mid("123456",3,2)执行后，a变量中的值是()。
A. "12334"B. 123
* 3 6 9 12
15
16
17
18
13.一个两位正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。现给定一个两位正整数，请找到另一个两位正整数，使得这两个两位正整数之和等于它们各自的对调数之和，若找不到，则输出“查找失败”。例如：32+12=21+23。（要求：在程序运行时从键盘输入给定的两位正整数）
A. ValueB. Enabled
C. DefaultD. Cancel
4.下列设置中，可以使计时器Timer1停止计时的是()。
A. Timer1.Locked=TrueB. Timer1.Locked=False
C. Timer1.Enabled=TrueD. Timer1.Enabled=False
3.数学表达式 的VB算术表达式为________________。
4.表示x是5的倍数或是9的倍数的逻辑表达式为______________________。
5.已知a＝3.5，b=5.0，c=2.5，d＝True，则表达式：a>=0 AND a+c>b+3 OR NOT d的值是_________________。
C. 12334D. 157
二、填空题
1.在VB中，1234、123456＆、1.246E+5、1.2346D＋5四个常数分别表示_____________、___________、____________、______________类型。
2.整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是____________________________________________。
第
一、选择题
1.一个语句行内写多条语句时，每个语句之间用()符号分隔。
A.，B.：
C.、D.；
2.一句语句要在下一行继续写，用( )符号作为续行符。
A.＋B.–
C. _D.…
3.下面( )是合法的变量名。
A. X_yzB. 123ab
C. integerD. X-Y
4.下面( )是不合法的整数。
A. 100B.＆Ol00
Next i Next i
C. n＝1D. n＝1
For j＝l To4j=1
n＝n*jDowhile j＜＝4
Print nn＝n*j
Next j Print n
j=j＋l
Loop
二、编程题
1.输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。若能则求出三角形的面积。
2.编一程序：根据上网时间计算上网费用。计算的方法如下：为了鼓励多上网，每月收费最多不超过100元。
A.＼B.／
C. ModD. *
11.与数学表达式ab/3cd对应的不正确Visual Basic6.0表达式是( )。
A. a*b／(3*c*d)B. a／3*b／c／d
C. a*b／3／c／dD. a*b／3*c*d
12. Rnd函数不可能为下列( )值。
A. 0B. 1
C. 0.1234D. 0.0005
14.有一数列：1、1、2、3、5、8、13、21…，求出这个数列的前20项之和。
15.把一个16进制数转换成一个10进制数。
16.编写程序，单击窗体时在窗体上打印出如下所示的图形。
*wk.baidu.com
***
*****
*******
*********
*******
*****
***
*
17.编写程序，输出下列三角形：(要求用循环做，非循环不给分)
A.递归结构、选择结构、循环结构
B.选择结构、过程结构、顺序结构
C.过程结构、输入输出结构、转向结构
D.选择结构、循环结构、顺序结构
2.下面程序段运行后，显示的结果是( )。
Dim x
If x Then Print x Else Print x+1
A. 1B.0
C.–1D.显示出错信息
3.语句Ifx＝1 Then y=1，下列说法正确的是( )。
C.＆H100D.％100
5.下面( )是合法的字符常量。
A. ABC＄B. "ABC"
C. 'ABC'D. ABC
6.下面( )是合法的单精度型变量。
A. num!B. sum％
C. xinte＄D. mm＃
7.下面( )是不合法的单精度常数。
A. 100！B. 100.0
C. 1E+2D. 100.0D+2
Private Sub Timer1_【】()
Text1=Time
End Sub
A. VisibleB. Interval
C. TimerD. Enabled
17.下列事件过程的功能是：在加载窗体时，启动计时器，并使计时器每隔1秒钟触发一次Timer事件。请填空。
Private Sub Form_Load()
6. Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别是________、____________、____________、____________、____________、____________。
7.表达式Ucase(Mid("hangzhouxihu",3,4))的值是______________。
13. Int(198. 555*100＋0.5)／100的值( )。
A. 198B. 199. 6
C. 198. 56D. 200
14.已知，A＄＝"12345678"，则表达式Val(Left (A$,4)+Mid(A$,4,2))的值为( )。
A. 123456B. 123445
C. 8D. 6
8.表达式16/4-2^5*8/4 MOD 5\2的值为( )。
A. 14B. 4
C. 20D. 2
9.数学关系3≤x＜10表示成正确的VB表达式为( )。
A. 3＜=X＜10B. 3＜＝x AND x＜10
C. x＞＝3 OR x＜10D. 3＜＝x AND＜10
10.“＼”、“／”、“Mod”、“*”四个算术运算符中，优先级别最低的是( )。
5.设置标签的的显示内容的属性是()。
A.NameB.Text
C.CaptionD.Top
12.下列不能接收焦点的控件是()。
A.命令按钮B.标签框
C.文本框D.单选按钮
13.下列控件中()不能触发GetFocus和LostFocus事件。
A.命令按钮B.组合框
C.复选按钮D.计时器
16.在窗体上有一个文本框控件，名称为Text1；一个计时器控件，名称为Timer1。要求每秒钟在文本框中显示一次当前时间。请将程序填完全。
15.表达式Len("123程序设计ABC")的值是( )。
A. 10B. 14
C. 20D. 17
16.下面正确的赋值语句是( )。
A. x＋y＝30B. v＝ *r*r
C. y=x＋30D. 3y＝x
17.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是( )。
A. x＝1：y＝1：z=lB. x=1，y=1，z=1
【】
10.“完备数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3，而6=1+2+3,因而6就是完备数。编程找出1～1000之间的全部“完备数”。
11.勾股定理中三个数的关系是：a^2 + b^2 =c^2。编写程序，输出100以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。
12.编写程序，打印如下的乘积表：
A. x=1和y=l均为赋值语句
B. x=1和y=l均为关系表达式
C. x=1为关系表达式，y=1为赋值语句
D. x=1为赋值语句，y=1为关系表达式
4.下面程序段，显示的结果是( )。
Dim x
x=Int(Rnd)+5
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
8.在直角坐标系中，x、y是坐标系中任意点的位置，用x与y表示在第一或第三象限的表达式是__________________。
9.表示s字符变量是字母字符(大小写字母不区分)的逻辑表达式为______________。
三、问答题
1.Visual Basic提供了哪些标准数据类型？声明类型时，其类型关键字分别是什么?其类型符又是什么？
2.哪种数据类型需要的内存容量最少，且可存储诸如3.2345这样的值？
3.将数字字符串转换成数值，用什么函数？判断是否是数字字符串，用什么函数？取字符串中的某几个字符，用什么函数？大小写字母间的转换，用什么函数？
4. Mid("什么是ASCII编码"，3,6)的结果?
第3章
一、选择题
1.VB提供了结构化程序设计的三种基本结构，三种基本结构是()。
第8章
一、选择题
1.文本框的属性不包括()。
A.CaptionB.Text
C.NameD.Top
2.在属性窗口中设置命令按钮的Caption属性为"&End"，则()是该命令按钮的快捷访问键。
A. Alt+EB. Ctrl+E
C. Shift+ED. Ctrl+Shift+E
3.设置命令按钮的()属性值为False，可以使命令按钮处于不可用状态。
7.某次大奖赛，有7个评委打分，满分为100分。对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。编写程序输入评委的打分，输出参赛者的得分。
8.输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
9.由键盘输入一个正整数，找出大于或等于该数的第一个质数。
5.有一根长度为321m的钢材料，要将它截取成两种规格的短料，规格a、b的长度分别为17m和27m，问分隔成a、b各多少段后，剩余的残料r最少？
6.小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子中的一半多一个，以后每天都吃剩下桃子中的一半零一个，到第7天早上要吃时只剩下一个了，问小猴那天共摘下了多少个桃子？
re：…... .....
Next x Next y
If i＝10 Then GoTore
6.下列循环语句中，能正常结束循环的是( )。
A. i＝5B. i=1
DoDo
i＝i+1i=i+2
Loop Until i＜0Loop Until i＝10
C. i＝10D. i=6
Do Do
j＝i+li=i-2
Print "通过"
Case Else
Print "不通过"
End Select
A.优秀B.良好
C.通过D.不通过
5.以下( )是正确的For…Next结构。
A. For x＝1 to Step10B. For x=3 To-3 Step-3
…… ......
Next x Next x
C. For x= l To10D. For x＝3 To10 Step 3
G
FG
EFG
DEFG
CDEFG
BCDEFG
ABCDEFG
18.编程输入一批数据，若输入数据为纯数字时，求累加和，非纯数字不累加。输入"Y"结束输入，输出累加和。(用InputBox()输入数据)
19.求公式：e=1+1/1!+1/2!+1/3!+……+1/n!直到n=20时的e值。
20.已知sin(x)=x/1-x^3/3!+x^5/5!-x^7/7!+…，设计一个程序，输入x，通过累加所有绝对值大于等于0.000001的项来计算sin(x)的值。
Loop Until i＞0Loop Until i＝1
7.哪个程序段不能分别正确显示1！、2！、3！、4！的值？( )
A. For i＝1To 4B. For i＝1To 4
n=1For j＝1Toi
For j＝1 Toin=1
n＝n*j n＝n*j
Next j Next j
Print n Print n
30元基数＜10h
费用＝
每小时2元10～60h
每小时1.5元＞60h
3.有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，问这个阶梯至少有多少阶?
4.一个球从100m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少m？最后一次反弹高度多少？
C. x=y＝z=1D. xyz=1
18.赋值语句：a＝123＋Mid("123456",3,2)执行后，a变量中的值是( )。
A. "12334"B. 123
C. 12334D. 157
19.赋值语句：a＝123 & Mid("123456",3,2)执行后，a变量中的值是()。
A. "12334"B. 123
* 3 6 9 12
15
16
17
18
13.一个两位正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。现给定一个两位正整数，请找到另一个两位正整数，使得这两个两位正整数之和等于它们各自的对调数之和，若找不到，则输出“查找失败”。例如：32+12=21+23。（要求：在程序运行时从键盘输入给定的两位正整数）
A. ValueB. Enabled
C. DefaultD. Cancel
4.下列设置中，可以使计时器Timer1停止计时的是()。
A. Timer1.Locked=TrueB. Timer1.Locked=False
C. Timer1.Enabled=TrueD. Timer1.Enabled=False
3.数学表达式 的VB算术表达式为________________。
4.表示x是5的倍数或是9的倍数的逻辑表达式为______________________。
5.已知a＝3.5，b=5.0，c=2.5，d＝True，则表达式：a>=0 AND a+c>b+3 OR NOT d的值是_________________。
C. 12334D. 157
二、填空题
1.在VB中，1234、123456＆、1.246E+5、1.2346D＋5四个常数分别表示_____________、___________、____________、______________类型。
2.整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是____________________________________________。
第
一、选择题
1.一个语句行内写多条语句时，每个语句之间用()符号分隔。
A.，B.：
C.、D.；
2.一句语句要在下一行继续写，用( )符号作为续行符。
A.＋B.–
C. _D.…
3.下面( )是合法的变量名。
A. X_yzB. 123ab
C. integerD. X-Y
4.下面( )是不合法的整数。
A. 100B.＆Ol00
Next i Next i
C. n＝1D. n＝1
For j＝l To4j=1
n＝n*jDowhile j＜＝4
Print nn＝n*j
Next j Print n
j=j＋l
Loop
二、编程题
1.输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。若能则求出三角形的面积。
2.编一程序：根据上网时间计算上网费用。计算的方法如下：为了鼓励多上网，每月收费最多不超过100元。
A.＼B.／
C. ModD. *
11.与数学表达式ab/3cd对应的不正确Visual Basic6.0表达式是( )。
A. a*b／(3*c*d)B. a／3*b／c／d
C. a*b／3／c／dD. a*b／3*c*d
12. Rnd函数不可能为下列( )值。
A. 0B. 1
C. 0.1234D. 0.0005
14.有一数列：1、1、2、3、5、8、13、21…，求出这个数列的前20项之和。
15.把一个16进制数转换成一个10进制数。
16.编写程序，单击窗体时在窗体上打印出如下所示的图形。
*wk.baidu.com
***
*****
*******
*********
*******
*****
***
*
17.编写程序，输出下列三角形：(要求用循环做，非循环不给分)
A.递归结构、选择结构、循环结构
B.选择结构、过程结构、顺序结构
C.过程结构、输入输出结构、转向结构
D.选择结构、循环结构、顺序结构
2.下面程序段运行后，显示的结果是( )。
Dim x
If x Then Print x Else Print x+1
A. 1B.0
C.–1D.显示出错信息
3.语句Ifx＝1 Then y=1，下列说法正确的是( )。
C.＆H100D.％100
5.下面( )是合法的字符常量。
A. ABC＄B. "ABC"
C. 'ABC'D. ABC
6.下面( )是合法的单精度型变量。
A. num!B. sum％
C. xinte＄D. mm＃
7.下面( )是不合法的单精度常数。
A. 100！B. 100.0
C. 1E+2D. 100.0D+2
Private Sub Timer1_【】()
Text1=Time
End Sub
A. VisibleB. Interval
C. TimerD. Enabled
17.下列事件过程的功能是：在加载窗体时，启动计时器，并使计时器每隔1秒钟触发一次Timer事件。请填空。
Private Sub Form_Load()
6. Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别是________、____________、____________、____________、____________、____________。
7.表达式Ucase(Mid("hangzhouxihu",3,4))的值是______________。
13. Int(198. 555*100＋0.5)／100的值( )。
A. 198B. 199. 6
C. 198. 56D. 200
14.已知，A＄＝"12345678"，则表达式Val(Left (A$,4)+Mid(A$,4,2))的值为( )。
A. 123456B. 123445
C. 8D. 6
8.表达式16/4-2^5*8/4 MOD 5\2的值为( )。
A. 14B. 4
C. 20D. 2
9.数学关系3≤x＜10表示成正确的VB表达式为( )。
A. 3＜=X＜10B. 3＜＝x AND x＜10
C. x＞＝3 OR x＜10D. 3＜＝x AND＜10
10.“＼”、“／”、“Mod”、“*”四个算术运算符中，优先级别最低的是( )。
5.设置标签的的显示内容的属性是()。
A.NameB.Text
C.CaptionD.Top
12.下列不能接收焦点的控件是()。
A.命令按钮B.标签框
C.文本框D.单选按钮
13.下列控件中()不能触发GetFocus和LostFocus事件。
A.命令按钮B.组合框
C.复选按钮D.计时器
16.在窗体上有一个文本框控件，名称为Text1；一个计时器控件，名称为Timer1。要求每秒钟在文本框中显示一次当前时间。请将程序填完全。
15.表达式Len("123程序设计ABC")的值是( )。
A. 10B. 14
C. 20D. 17
16.下面正确的赋值语句是( )。
A. x＋y＝30B. v＝ *r*r
C. y=x＋30D. 3y＝x
17.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是( )。
A. x＝1：y＝1：z=lB. x=1，y=1，z=1
【】
10.“完备数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3，而6=1+2+3,因而6就是完备数。编程找出1～1000之间的全部“完备数”。
11.勾股定理中三个数的关系是：a^2 + b^2 =c^2。编写程序，输出100以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。
12.编写程序，打印如下的乘积表：
A. x=1和y=l均为赋值语句
B. x=1和y=l均为关系表达式
C. x=1为关系表达式，y=1为赋值语句
D. x=1为赋值语句，y=1为关系表达式
4.下面程序段，显示的结果是( )。
Dim x
x=Int(Rnd)+5
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
8.在直角坐标系中，x、y是坐标系中任意点的位置，用x与y表示在第一或第三象限的表达式是__________________。
9.表示s字符变量是字母字符(大小写字母不区分)的逻辑表达式为______________。
三、问答题
1.Visual Basic提供了哪些标准数据类型？声明类型时，其类型关键字分别是什么?其类型符又是什么？
2.哪种数据类型需要的内存容量最少，且可存储诸如3.2345这样的值？
3.将数字字符串转换成数值，用什么函数？判断是否是数字字符串，用什么函数？取字符串中的某几个字符，用什么函数？大小写字母间的转换，用什么函数？
4. Mid("什么是ASCII编码"，3,6)的结果?
第3章
一、选择题
1.VB提供了结构化程序设计的三种基本结构，三种基本结构是()。
第8章
一、选择题
1.文本框的属性不包括()。
A.CaptionB.Text
C.NameD.Top
2.在属性窗口中设置命令按钮的Caption属性为"&End"，则()是该命令按钮的快捷访问键。
A. Alt+EB. Ctrl+E
C. Shift+ED. Ctrl+Shift+E
3.设置命令按钮的()属性值为False，可以使命令按钮处于不可用状态。
7.某次大奖赛，有7个评委打分，满分为100分。对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。编写程序输入评委的打分，输出参赛者的得分。
8.输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
9.由键盘输入一个正整数，找出大于或等于该数的第一个质数。
5.有一根长度为321m的钢材料，要将它截取成两种规格的短料，规格a、b的长度分别为17m和27m，问分隔成a、b各多少段后，剩余的残料r最少？
6.小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子中的一半多一个，以后每天都吃剩下桃子中的一半零一个，到第7天早上要吃时只剩下一个了，问小猴那天共摘下了多少个桃子？
re：…... .....
Next x Next y
If i＝10 Then GoTore
6.下列循环语句中，能正常结束循环的是( )。
A. i＝5B. i=1
DoDo
i＝i+1i=i+2
Loop Until i＜0Loop Until i＝10
C. i＝10D. i=6
Do Do
j＝i+li=i-2