VB编程期中考试复习题

VB期中考试复习题

一、概念基础题

1、下列哪些可以作为变量？

12fdx13r2a223a2

2、下列哪些可以作为常量？并说明是数值型还是字符型、逻辑型、日期型？

“asdfasdf"1234”1234#2008/11/10#truefalsea3把下列数学式子写成

VB表达式

.r+y+zyjx2+/+z2

c..x+Zx-J(2x+y)3

2sin(或cos(•万一)半一严

4、计算下列VB表达式的值(要求写出步骤)

5*3*6\2

8/4*2.5/1.25*(3.7+25)

18\4*4.0A2/L6

25\3Mod3*2

26\3Mod0.4*Sqr(25)

8/4*5/2.5*(3.25+6.75)

3*7\2

14/5*2

15\5*2

27Al/3

27人(1/3)

sqr(100)\4*2

5、按下列要求写出赋值语句

(I)把数值234赋给变量a

(2)把字符串abc赋给变量zl

(3)把表达式2sinl5。的值赋给变量ss

(4)把标签Lblts的内容改为姓名

(5)把框架Frml的背景色改为黑色(#000000)

6、写出下列函数的值

Int(-3.14159)

Sqr(sqr(16))

7、产生a-b范围内(包括b)整数的公式：

8、写出输入输出语句

输入对话框：要求使用弟图标，标题为：”输入对话框”，对话框中的内容

是“

请输入你的姓名”

输出对话框：要求使用C3图标，标题为：”输出对话框”，对话框中的内容

褊错

了”

二、选择题

1、VisualBasic集成开发环境中不包括下列哪些窗口？(D)

A.工具箱窗口B.工程资源管理器窗口

C.属性窗口D.命令窗口

2、“一辆小客车在正常行进过程中被一辆大型货车撞坏了”，在这句话中,

“客车”，“小”，“行进”和“被一辆大型货车撞坏了”分别对象Visual

Basic中的哪些术语？(B)

A.对象、属性、事件、方法B.对象、属性、方法、事件

C.属性、对象、事件、方法D.属性、对象、方法、事件

3、对象的特征和状态特征称为？(C)

A.事件B.方法C.属性D.类

4、下面哪一个属性用来标识对象的名称？(D)

A.QptionB.ValueC.TextD.Mme

5下列哪个符号是合迹的变量

'名？C.991D.

6数学团YR用sin25。耳阙用sualBasic表达式是？(D)

、A.iOin25B.i0*§n(25)C.IO*an(25°)D.10*§n(25*3.14/180)

7VisualBasic中不存在下列哪一种数据类型？(D)

、A.字符串类型B.日期类型C.逻辑类型D.指针类型

8表达式Left("Visua「,3)+Lcasc(”AB")的值是？©

A.VBABB.VisABC.VisabD.ualab

g

表达式6+10Mod4*2+l的值是？(B)

A9B11c10，3

1。、把薮值型转换为享符串型需要使府下列哪一种函数？(B)

A.Val()B.8r()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)FillCoIor

14、对变量名说法不正确的是。

(A)必须是字母开头，不能是数字或其他字符

(B)不能是VB的保留字

(C)可以包含字母、数字、下划线和标点符号(对)

(D)不能超过255个字符

15、以下变量名中，是不符合VisualBasic的命名规范的。

(A)Abc901(B)_mnu_Open_234(对)(C)price_

(D)K

16A在窗体上画一个命令按钮(名称为Conimandl),然后编写如下事件过程：

PrivateSubCommandl_Click()

DimhAsInteger

b=b+l

EndSub

运行程序，三次单击命令按钮后，变量b的值是：。

(A)0(B)l(对)(C)2(D)3

17、下列程序段的执行结果为。

X=5:Y=-20

HNotX>-OThe

X=Y-3

Else

Y=X+3

Endif

PrinlX-Y;Y-X

(A)-33(对)(B)5-8(C)3-3(D)25-25

18、当x为偶数时，则在窗体上显示“偶数”，否则显示“奇数”，不能实现

该代

码段功能的是

(A)ifx\2=x/2thcnprini”偶数"elseprint”奇数”

(B)ifxmod2=0thenprint"偶数"elseprint"奇数”

(C)iftiotxmod2<>0thenprint,偶数"elseprint"奇数〃

(D)i仅\2=int(x⑵thenprint"偶数"elseprint“奇数”(对)

19、若要执行下列程序段后窗体上显示〃红〃字，则x可取的值为：

selectcaseint(x/l0)

case2,4,6,8

print"黄"

casel,3,5.7,9

print”绿，

cascclse

print"红"

endselect

(A)27(B)38(C)10(D)5(对)

20>在程序代码中将图片文件mypic.jpg装入图片框Picturel的语句是。

(A)Picturel.Picturc="mypic.jpg"

(B)Picturel.Image="mypic.jpg"

(C)Picturel.Picture=LoadPicture("mypic.jpg")(^j)

(D)LoadPictureCniypic.jpg")

21、大部分控件都没有的属性是。

(A)Top(B)Name(C)Enabled(D)Interval(对)

22、下列属于正确的字符串常量的是

(A)#ABC"(B)$ABC$(C)'ABCr(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,再加上1的表达式

(B)变量Z取得y+l的值(对)

(C)变量Z取得变量y的值，然后再加上I的一个表达式

(D)将变量Z存入变量y+l中

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

EndSub

(A)101(B)DE1289(C)DE(D)1289(对)

27、为了暂时关闭计时器，应把该计时器的某个属性设置为Fake,这个属性是

(A)Enabled(对)(B)Visible(C)Timer(D)Interval

28、下列表达式，哪一个可以产生1到6之间的随机整数(包括1和6)

(A)Int(Rnd*7)(B)Int(Rnd(6)+l)(C)Int(Rnd*6)(D)Int(Rnd*6+1)(对)

29、执行下列程序，从键盘输入10,运行结果是。

PrivatcSubCommandl_Click()

S=InputBox("请输入一个数字：”)

SclectCascS

CaseIs>0

Printn>On

Casels>3

Print">3n

Casels>5

Print">5n

EndSelect

EndSub

(A)>0(对)(B)>3(C)>5(D)>0

29、在‘窗体上画一个命令按钮和一个文本框，名称分别为Command1和Textl,然

后编写如下程序：

PrivatcSubCommandl_Click()

a=InputBox("请输入日期(171)”)

SelectCasea

CaseIs<=0,Is>=31

t=t+”有误”

casels<=10,2()

t=t+”北京”

caseIs<=20

t=t+"大连”

casels<=31

t=t

(A)假期的旅游路线：北京大连

(B)假期的旅游路线：大连北京

(C)假期的旅游路线：北京(对)

(D)假期的旅游路线：大连三、程序填空

顺序结构

I、加法运算.三个文本框的名称分别是text!text2text3

可ForalBE@

清除加法运算退出

清除按钮

PrivateSubCommandl_Click(i

EndSub

加法运算按钮

PrivateSubCommand2_Click()

EndSub

退出按钮

PrivateSubCominand3_Click()

EndSub

2、编程序，由键盘输入小时、分、秒后，转换成共有多少秒？（界面参考如下）,

三个文本框的名称分别是：texiliexi2iexi3转换结果内的标签名称为label1

计算按钮程序编写如下

PrivateSubCommand1_Click()

EndSub3、编写一个计算2个整数相除后的商与余数程序。运行后参考界面如下：两

个文本框名称分别是：textltext2,除数标签labell余数标签Iabel2

,商与余数计算程序13回区)

计算

计算按钮代码编写

PrivateSubCommandl_Click()

EndSub

条件语句

1、写出条件语句的格式

行if语句结构

块if语句结构

Select语句结构

2、成绩等级评定

90分以上的是优秀，80-90的是良好，70-80的是一般，60-70的是及格，60分以

下的是不及格

PrivateSubCommandl_Click()

DimxAsSingle

x=Val(Textl.Text)

SelectQse1使用Select,“Case语句

Case_________

Text2.Text="优秀"

CaseIs>80

Text2.Text=n良好

CaseIs>70

Text2.Tcxt="中等”

CaseIs>60

Text2.Tcxt="及格"

CaseElse

Text2.Text="不及格”

EndSub

3、飞机票的标准价格是1000元/张，1月或3-6月，每张打6折。9—11月每张

打7折，7,8两个月每张打8折。其他月份每张打9折。要求设计程序，输入月

份和张数，能计算出应付的金额。

提示：select语句

PrivateSubCommand1_Click()定义m,n,z为整型变量m=Val(Texll.Text)N=

Val(Text2.Text)SelectQsem'根据月份进行选择

Case,1月或3s6月

z=0.6

Case9月〜11月

Case7,8z=0.8

CaseElse

z=0.9

EndSelect

MsgBox”您共需要付款：〃&1000*N*z„w结算”

EndSub

四、写程序题

1、奇偶判断

判断奇偶，被2整除余数是0的是偶数，否则的话就是奇数。文本框名称:

text),text2

PrivateSubCommandl_Click()

DiniintiAsInteger,int2AsIntegerinti=

Val(TextLText)inl2=intlMod2

Ifht2=OThen'整除2取余数

Text2.Text="这是一个偶数！”'判断是否为偶数

Else

Text2.Text=〃这是一个奇数!

EndIf

text2

•星期的计算口回因

2、星期计算程序文本框名称：textl

PrivateSubCommandl_Click()

DimRqAsDate