VB编程期中考试复习题文档格式.docx
《VB编程期中考试复习题文档格式.docx》由会员分享，可在线阅读，更多相关《VB编程期中考试复习题文档格式.docx（14页珍藏版）》请在冰点文库上搜索。
Int（-3.14159）
Sqr（sqr（16））
7、产生a-b范围内（包括b）整数的公式：
_______________________
8、写出输入输出语句
输入对话框：
要求使用
图标，标题为：
”输入对话框”，对话框中的内容是”请输入你的姓名”
___________________________________
输出对话框：
”输出对话框”，对话框中的内容是”你输错了”
二、选择题
1、VisualBasic集成开发环境中不包括下列哪些窗口？
（D）
A.工具箱窗口B.工程资源管理器窗口
C.属性窗口D.命令窗口
2、“一辆小客车在正常行进过程中被一辆大型货车撞坏了”，在这句话中，“客车”，“小”，“行进”和“被一辆大型货车撞坏了”分别对象VisualBasic中的哪些术语？
（B）
A.对象、属性、事件、方法B.对象、属性、方法、事件
C.属性、对象、事件、方法D.属性、对象、方法、事件
3、对象的特征和状态特征称为？
（C）
A.事件B.方法C.属性D.类
4、下面哪一个属性用来标识对象的名称？
A.CaptionB.ValueC.TextD.Name
5、下列哪个符号是合法的变量名?
（A）
A.VB123B.AbsC.99JiD.x\y
6、数学式子10sin25o写成VisualBasic表达式是？
A.10sin25B.10*sin（25）C.10*sin（25o）D.10*sin（25*3.14/180）
7、VisualBasic中不存在下列哪一种数据类型？
A.字符串类型B.日期类型C.逻辑类型D.指针类型
8、表达式Left（“Visual”,3）+Lcase（“AB”）的值是？
A.visABB.VisABC.VisabD.ualab
9、表达式6+10Mod4*2+1的值是？
A.9B.11C.1D.3
10、把数值型转换为字符串型需要使用下列哪一种函数?
（B）
A.Val（）B.Str（）C.Asc（）D.Chr（）
11、VB中窗体文件的扩展名是______。
（A）VBP（B）FRM（对）（C）VBW（D）PDM
12、在设计应用程序时，通过______窗口可以查看到应用程序工程中的所有组成部分。
（A）代码窗口（B）窗体设计窗口（C）属性窗口（D）工程资源管理器窗口（对）
13、在VisualBasic中，所有的窗体和控件都必定具有的一个属性是______。
（A）Name（对）（B）Font（C）Caption（D）FillColor
14、对变量名说法不正确的是______。
（A）必须是字母开头，不能是数字或其他字符
（B）不能是VB的保留字
（C）可以包含字母、数字、下划线和标点符号（对）
（D）不能超过255个字符
15、以下变量名中，______是不符合VisualBasic的命名规范的。
（A）Abc901（B）_mnu_Open_234（对）（C）price_（D）K
16、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimbAsInteger
b=b+1
EndSub
运行程序，三次单击命令按钮后，变量b的值是：
______。
（A）0（B）1（对）（C）2（D）3
17、下列程序段的执行结果为______。
X=5:
Y=-20
IfNotX>
0The
X=Y-3
Else
Y=X+3
Endif
PrintX-Y;
Y-X
（A）-33（对）（B）5-8（C）3-3（D）25-25
18、当x为偶数时，则在窗体上显示“偶数”，否则显示“奇数”，不能实现该代码段功能的是
（A）ifx\2=x/2thenprint"
偶数"
elseprint"
奇数"
（B）ifxmod2=0thenprint"
（C）ifnotxmod2<
>
0thenprint"
（D）ifx\2=int（x/2）thenprint"
（对）
19、若要执行下列程序段后窗体上显示＂红＂字，则x可取的值为：
selectcaseint（x/10）
case2,4,6,8
print"
黄"
case1,3,5,7,9
绿"
caseelse
红"
endselect
（A）27（B）38（C）10（D）5（对）
20、在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是______。
（A）Picture1.Picture="
mypic.jpg"
（B）Picture1.Image="
（C）Picture1.Picture=LoadPicture（"
）（对）
（D）LoadPicture（"
）
21、大部分控件都没有的属性是______。
（A）Top（B）Name（C）Enabled（D）Interval（对）
22、下列属于正确的字符串常量的是____________
（A）#ABC"
（B）$ABC$（C）'
ABC'
（D）"
ABC"
23、设a=8,b=10，则以下表达式的值为真的是____________
（A）（-3+5>
a）and（b>
0）（B）a>
=bandb>
12（C）not（b>
0）（D）（a>
b）or（b>
0）（对）
24、语句Z=y+1代表________
（A）将变量Z存入变量y中，再加上1的表达式
（B）变量Z取得y+1的值（对）
（C）变量Z取得变量y的值，然后再加上1的一个表达式
（D）将变量Z存入变量y+1中
25、执行下面的语句后，所产生的信息框的标题是___________。
A=MsgBox（"
AAAAA"
3,"
BBBBB"
）
（A）BBBBB（对）（B）AAAAA（C）空（D）出错，不能产生信息框
26、执行下列代码，分别输入12和89，输出结果是_____。
PrivateSubForm_Click（）
a=InputBox（"
D"
b=InputBox（"
E"
Printa+b
（A）101（B）DE1289（C）DE（D）1289（对）
27、为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是_______。
（A）Enabled（对）（B）Visible（C）Timer（D）Interval
28、下列表达式，哪一个可以产生1到6之间的随机整数（包括1和6）___。
（A）Int（Rnd*7）（B）Int（Rnd（6）+1）（C）Int（Rnd*6）（D）Int（Rnd*6+1）（对）
29、执行下列程序，从键盘输入10，运行结果是_________。
S=InputBox（"
请输入一个数字：
"
SelectCaseS
CaseIs>
Print"
0"
3
3"
5
5"
EndSelect
EndSub
（A）>
0（对）（B）>
3（C）>
5（D）>
29、在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
请输入日期（1~31）"
SelectCasea
CaseIs<
=0,Is>
=31
t=t+"
有误"
caseIs<
=10,20
北京"
=20
大连"
t=t
（A）假期的旅游路线：
北京大连
（B）假期的旅游路线：
大连北京
（C）假期的旅游路线：
北京（对）
（D）假期的旅游路线：
大连
三、程序填空
顺序结构
1、加法运算.三个文本框的名称分别是text1text2text3
清除按钮
PrivateSubCommand1_Click（）
______________________________
EndSub
加法运算按钮
PrivateSubCommand2_Click（）
退出按钮
PrivateSubCommand3_Click（）
2、编程序，由键盘输入小时、分、秒后，转换成共有多少秒？
（界面参考如下）,三个文本框的名称分别是：
text1text2text3转换结果内的标签名称为label1
计算按钮程序编写如下
3、编写一个计算2个整数相除后的商与余数程序。
运行后参考界面如下：
两个文本框名称分别是：
text1text2，除数标签label1余数标签label2
计算按钮代码编写
_______________________________
条件语句
1、写出条件语句的格式
行if语句结构
块if语句结构
Select语句结构
2、成绩等级评定
90分以上的是优秀，80－90的是良好，70－80的是一般，60－70的是及格，60分以下的是不及格
DimxAsSingle
x=Val（Text1.Text）
SelectCase______'
使用Select…Case语句
Case_________
Text2.Text="
优秀"
CaseIs>
80
良好"
70
中等"
60
及格"
CaseElse
不及格"
________________
3、飞机票的标准价格是1000元／张，1月或3－6月，每张打6折。
9－11月每张打7折，7,8两个月每张打8折。
其他月份每张打9折。
要求设计程序，输入月份和张数，能计算出应付的金额。
提示：
select语句
______________________________________定义m,n,z为整型变量
m=Val（Text1.Text）
N=Val（Text2.Text）
SelectCasem'
根据月份进行选择
Case_____________'
1月或3～6月
z=0.6
Case_____________'
9月～11月
z=0.7
Case7,8
z=0.8
z=0.9
EndSelect
MsgBox"
您共需要付款：
&
1000*N*z,,"
结算"
四、写程序题
1、奇偶判断
判断奇偶,被2整除余数是0的是偶数，否则的话就是奇数。
文本框名称：
text1,text2
Dimint1AsInteger,int2AsInteger
int1=Val（Text1.Text）
int2=int1Mod2'
整除2取余数
Ifint2=0Then'
判断是否为偶数
Text2.Text="
这是一个偶数!
这是一个奇数!
EndIf
2、星期计算程序文本框名称：
text1text2
DimRqAsDate,xAsInteger
Rq=Text1.Text
x=Abs（Rq-#1/1/1900#）Mod7'
当前日期与1/1/1900相减取7的余数
SelectCasex
Case0'
余数为0则当天是星期一
星期一"
Case1'
余数为1则当天是星期二
星期二"
Case2
星期三"
Case3
星期四"
Case4
星期五"
Case5
星期六"
星期日"
3、比较大小程序 文本框分别为text1text2标签是label1
DimxAsInteger,yAsInteger
x=Val（Text1.Text）:
y=Val（Text2.Text）
Ifx<
yThen'
判断x>
y是否为真如果为真执行下面程序
Label1.Caption="
<
ElseIfx>
yThen
="
EndIf
升级会员 