12、以下运算符中运算优先级最高的是（D）
A、+B、ORC、>D、\
13、整除运算时，若运算量为实数，则先取整，后相除，结果为整型或长整型。
下列哪种是整除运算符（D）
A、+B、ModC、/D、\
14、VB结束程序的运行可以单击程序窗体的“关闭”按钮，或单击VB工具栏上的“结果”按钮，哪种是“结束”按钮（B）
A、B、C、D、
15、图标控件属于哪种基本控件（B）
A、标签B、文本框C、按钮D、图像
16、要交换变量A和B之值，应使用的语句组是（B）
A、A=B；B=C；C=AB、C=A；A=B；B=C
C、A=B；B=AD、C=A；B=A；B=C
17、执行下面的程序段后，x的值为（A）
x=5
Fori=1To20Step2
x=x+i\5
Nexti
A、21B、22C、23D、24
18、在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimIasinteger,jasinteger,xasinteger
x=4
Fori=1To4
Forj=1To3
x=x+6
Nextj
Nexti
Printx
EndSub
程序运行后，单击命令按钮，程序循环次数是（B）
A、4B、12C、3D、6
19、在窗体上画一个命令按钮，然后编写如下事件过程：
PrevateSubCommand1_Click（）
Dimaasinteger,basinteger,xasinteger
x=0
DoUntilx=-1
a=InputBox（“请输入A的值”）
a=Val（a）
b=InputBox（“请输入B的值”）
b=Val（b）
x=InputBox（“请输入x的值”）
x=cint（x）
a=a+b+x
Loop
Printa
EndSub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（A）
A、2B、3C、14D、15
20、在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
PrivateSubForm_Load（）
Dimiasinteger,sumasinteger
Text1.Text=""
Fori=1To10
Sum=Sum+i
Nexti
Text1.caption=Sum
EndSub
上述程序的运行结果是（C）
A、在文本框Text1中输出55
B、在文本框Text1中输出0
C、出错
D、在文本框Text1中输出不定值
二、多选题（每题2分，共20分）
1、算法描述可以有多种表达方法，下面哪些方法可以描述“水仙花数问题”的算法（ABC）
A、自然语言B、流程图C、伪代码D、机器语言
2、程序设计语言的发展经历哪几个过程（ABC）
A、机器语言B、汇编语言C、高级语言D、自然语言
3、“闰年问题”的算法可以用哪些语言实现（ABCD）
A、BasicB、PascalC、C++D、C语言
4、算法应该具有哪些重要的特征（ABCD）
A、有穷性B、确定性C、输入、输出D、可行性
5、“今有物不知其数，三三数之余二，五五数之余三，七七数之余二，问物几何？
”这个问题属于（ABD）
A、“韩信点兵问题”B、“鬼谷算法问题”C、“水仙花数问题”D、“闰年问题”
6、编制计算机程序解决问题的过程有：
描述问题、算法设计、编写计算机程序和调试等，其中，对算法描述正确的是（AD）
A、算法是解决问题的步骤
B、解题的步骤是有限的
C、算法就是解题的算式
D、算法是可以被表述和实现
7、以下属非法用户自定义标识符（常量和变量命名）的是（ACD）
A、8adB、adC、_adD、const
8、为了便于数据的表示与处理，VB提供哪几种基本数据类型（ABCD）
A、数值型B、字符串型C、布尔型D、日期型
9、日期型数据专门用来处理日期和时间，哪种属于日期型数据（AB）
A、#2005/10/23#B、#2005/01/02#C、2005/10/23D、“2005/1/2”
10、哪些文件属于某一VB工程中的文件（ABCD）
A、.vbpB、.frmC、.ocxD、.bas
三、判断题（每题1分，共10分）
1、VisualBasic是美国微软公司于1991年推出的基于Basic的可视化程序设计语言。
（1）
2、一个算法可以被认为是用来解决一个计算问题的工具。
（1）
3、一个算法可以用多种程序设计语言来实现。
（1）
4、计算机是人制造的，所以，它和人脑解决问题没有什么区别。
（2）
5、字符串型数据是指用‘’括起来的一串字符。
（2）
6、我们常说的程序设计语言就是程序设计。
（2）
7、控件是应用程序的基本元素，与窗体共同构成应用程序的界面。
（1）
8、面向对象的程序设计以对象为中心，以事件为过程的执行起点。
（1）
9、MsgtBox函数反回值的类型为数值。
（1）
10、Ctrl+T能打开属性窗口。
（2）
四、简答题（每题10分，共30分）
1、说说人类和计算机解决问题的区别？
2、用流程图描述出“闰年问题”的算法。
算法描述：
输入年份Y
IFY能被4整除THEN
IFY不能被100整除THEN
输出“是闰年”
ELSE
IFY能被400整除THEN
输出“是闰年”
ELSE
输出“不是闰年”
ENDIF
ENDIF
ELSE
输出“不是闰年”
ENDIF
3、在“神州号”程序中，我们只判断了飞船成功飞行的条件。
当飞船速度继续加大时，飞船将达到第二宇宙、第三宇宙速度。
。
。
。
。
。
。
（见下表）
试编写程序，输入不同的飞船速度，判断它的各种飞行状况。
飞船速度（V）单位（km/s）
飞行状况
7.91<=V<11.19
飞船绕地球似做匀速圆周运动
11.19<=V<16.67
飞船离开地球的控制,围绕太阳转
V>16.67
飞船挣脱太阳引力飞出太阳系
编程：
方法一：
PrevateSubCommand1_Click（）
DimvAsInteger
v=InputBox（"请输入飞船速度的值"）
If（v>=7.91）And（v<=11.19）Then
Label1.Caption="飞船绕地球似做匀速圆周运动"
Else
If（v>=11.19）And（v<=16.67）Then
Label1.Caption="飞船离开地球的控制,围绕太阳转"
Else
Ifv>=16.67Then
Label1.Caption="飞船挣脱太阳引力飞出太阳系"
Else
Ifv<=7.91Then
Label1.Caption="输入数据错误！
"
EndIf
EndIf
EndIf
EndIf
EndSub
方法二：
（课本P36）
PrivateSubForm_Load（）
DimvAssingle
v=InputBox（"请输入飞船速度的值"）
selectcasev
caseis>16.67
Label1.Caption="飞船挣脱太阳引力飞出太阳系"
caseis>=11.19
Label1.Caption="飞船离开地球的控制,围绕太阳转"
caseis<=7.91
Label1.Caption="飞船离开地球的控制,围绕太阳转"
Caseelse
Label1.Caption="输入数据错误！
"
Endselect
EndSub
升级会员 