【精选资料】VB综合练习题二及参考答案

千里之行，始于足下让知识带有温度。第第2页/共2页精品文档推荐【精选资料】VB综合练习题二及参考答案VB综合练习题二

一、挑选题[(1)—(15)，每小题2分，共30分]

(1)以下变量名中合法的是

A）x2-1B）printC）str_nD）2x

(2)在ViusalBasic中，表达式3*2\5Mod3的值是

A）1B）0C）3D）浮现错误提醒

(3)设窗体文件中有下面的大事过程：

PrivateSubCommand1_Click()

Dims

a%=100

Printa

EndSub

其中变量a和s的数据类型分离是

A)整型，整型B)变体型，变体型

C)整型，变体型D)变体型，整型

(4)把数学表达式表示为正确的VB表达式应当是

A)(5x+3)/(2y-6)B)X*5+3/2*y-6

C)(5*x+3)÷(2*y-6)D)(x*5+3)/(y*2-6)

(5)“x是小于105的非负数”，用VisualBasic表达式表示正确的是

A)07,-1,0)后，x的值是

A)7B)10C)-1D)0

二、填空题[(16)—(20)，每小题2分，共10分]

16、假定窗体的名称为Form1，对该窗体编写如下代码：

PrivateSubForm_Load()

Form1.Caption=“AAAAA”

Me.Caption=“BBBBB”

Caption=“CCCCC”

EndSub

程序运行后，窗体的标题是______

17、语句Z=y+1代表的含义是_________

18、在窗体上画一个文本框，然后编写如下大事过程：

PrivateSubForm_Click()

x=InputBox("请输入一个整数")

Printx+Text1.Text

EndSub

程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为_________

19、为使计时器控件每个1秒钟产生一个计时器大事，则应将其Interval属性设置为_________

20、语句Print5/4*6\5Mod2的输出结果是_________

三、看程序写结果[(21)—(24)，每小题3分，共12分]

(21)设有如下程序

PrivateSubCommand1_Click()

a=0

Forj=1To15

a=a+jMod3

Nextj

Printa

EndSub

程序运行后，单击窗体，输出结果是

A)105B)1C)120D)15

(22)在窗体上画一个名称为Command1的命令按钮，然后编写如下大事过程：

PrivateSubCommand1_Click()

StaticxAsInteger

Cls

Fori=1To2

y=y+x

x=x+2

Next

Printx,y

EndSub

程序运行后，延续三次单击Command1按钮后，窗体上显示的是

A)42B)1218C)1230D)46

(23)下面的程序段执行后，a的值是多少？

PrivateSubForm_Click()

a=1

b=1

Dowhileb5

a=b-a

b=b+1

Loop

Printa

EndSub

A）5B）3C）1D）8

(24)在窗体上画一个名称为Command1的命令按钮，然后编写如下大事过程：

PrivateSubCommand1_Click()

x=InputBox("Input")

SelectCasex

Case1,3

Print"分支1"

CaseIs>4

Print"分支2"

CaseElse

Print"Else分支"

EndSelect

EndSub

程序运行后，假如在输入对话框中输入2，则窗体上显示的是

A）分支1B）分支2C）Else分支D)程序出错

四、简答题[(25)—(27)，每小题4分，（28）每小题6分，共18分]

(25)什么是对象的属性、办法和大事？试各举例说明。(26)简述窗体的Name与Caption属性的区分(27)

按照条件，写出相应的VB表达式：

①产生一个50～100(含50,100)范围内的随机整数②表示关系表达式10≤X=10AndX0Then

y=sin(x)+sqr(x*x+1)

Else

y=cos(x)-x^3+3*xEndIf

(30)编程计算1～100的5或9的倍数的和。答：Sum=0

Fori=1To100

IfiMod5=0OriMod9=0ThenSum=Sum+iEndIfNextiPrintSum

(31)编程计算5的阶乘（即求5！）

T=1

Fori=1To5T=T*iNextiPrintt

(32)在窗体上画两个文本框，名称分别为Text1、Text2，一个命令按钮Command1，当在Text1中输入的数值是奇数，且按下命令按钮时，在Text2中即显示”奇数”；否则显示”偶数”。

PrivateSubCommand1_Click()

x=Val(Text1.Text)IfxMod20ThenText2=“奇数”

Else