vb样卷1.docx

vb样卷1.docx

《vb样卷1.docx》由会员分享，可在线阅读，更多相关《vb样卷1.docx（16页珍藏版）》请在冰豆网上搜索。

vb样卷1

一、填空题

1．VB是一种面向对象的程序设计语言，采用了（事件驱动）的编程机制。

2．VB中把对象最常用最重要的属性指定为默认属性，标签框的默认属性为（caption）。

3．假定有一个文本框，其名称为Textl，为了删除该文本框中的数据，应执行的语句是（Text1.Text=””）。

4．双击窗体中的对象后，VisualBasic将显示的窗口是（代码）窗口。

5．表达式Ucase（Mid（“abcdefgh”，5，3））的值是（efg）。

6．在VB中，为了使一个控件在运行时不可操作，应将控件的（Enable）属性设置为False。

7．一组具有相同名称，不同下标的变量称为（数组）。

8．PrintInt（68.555*100+0.5）/100的结果为（68.56）。

9．滚动条响应的重要事件有（scroll）和Change。

10．可删除列表框中所选定的某一列表项的方法是（RemoveItem）。

11．在多窗体工程中，可用（show）方法显示一个窗体。

12．如果要每隔8秒产生一个Timer事件，则Interval属性应设置为（8000）。

13．控件属性Height和Width决定了控件的（大小）。

14．当KeyPress事件发生时会返回一个按键的（AscII）值。

15．在VB中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）表示对象上的（相对）坐标。

二、基础选择题

1．在开发VB应用程序时，一个工程一般至少应含有（b）。

A）标准模块文件和类模块文件

B）工程文件和窗体文件

C）工程文件和类模块文件

D）工程文件和标准模块文件

2．设置命令按钮的标题文字时，应改变的属性是（c）。

A）Text　B）NameC）CaptionD）（名称）

3．对象的名称（Name）属性正确描述的是（a）。

A）是对象的标识在程序中被引用

B）对象名称就是文件名

C）会显示在窗体上窗体的标题栏中

D）该属性只能在程序中设置

4．若要使用户不能修改文本框Text1中内容，应修改的属性是（a）。

A）LockedB）MultiLineC）PassWordCharD）Text

5．下面4项中不属于面向对象三要素的是（a）。

A）变量B）事件C）属性D）方法

6．日期数据应该在数据的（d）括起来。

A）前后各用一个双引号B）前后各用一个单引号

C）前后各用一个圆括号D）前后各用一个“#”号

@7．若不加以说明InputBox函数返回值数据类型是（c）。

A）变体B）数值C）字符D）视输入的数据而定

@8．设a=9，则执行x=IIF（a>8,15,23）后，x的值为（B）。

A）9B）15C）18D）23

9．使用CommonDialog控件的（b）方法可显示“另存为”对话框。

A）ShowOpenB）ShowSave

C）ShowColorD）Showprinter

10．复选框被选中时，它的Value属性的值是（c）。

A）3B）2C）1D）0

11.下列控件中没有Caption属性的是（b）。

A）框架   B）列表框C）复选框  D）单选按钮

12．若要获得滚动条的当前值，可访问的属性是（b）。

A）TextB）ValueC）MaxD）Min

13．窗体上有一个列表框控件List1，且其中含有若干列表项。

以下能表示当前被选中的列表项内容的是（d）。

A）List1.ListB）List1.ListIndex

C）List1.IndexD）List1.Text

@14．在VB中，若要强制变量必须先定义才能使用，应该用（c）语句说明。

A）PublicConst       B）Type数据类型名

C）OptionExplicit     D）DefDbl

15.下列不属于图形控件方法的是（a）。

A）PictureB）PrintC）MoveD）Cls

16.要在图形框中指定位置上画点，使用的方法是（d）。

A）CircleB）LineC）PointD）Pset

@17．在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则使用（d）关键字在过程中定义局部变量。

A）Dim   B）Private   C）Public  D）Static

18．在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是（c）。

A）Form1.Name="VisualBasic窗体"

B）Form1.Title="VisualBasic窗体"

C）Form1.Caption="VisualBasic窗体"

D）Form1.Text="VisualBasic窗体"

19．函数过程的叙述正确的是（c）。

A）函数名只能被赋值一次

B）函数名没有赋值，就没有函数值返回调用过程中

C）函数名可以多次被赋值

D）定义函数的类型是指定义形式参数的类型

20．为了在运行时把d:

\pic文件夹下的图形文件my.jpg装入图片框Pict1中，所使用的语句为（c）。

A）Pict1.Text=LoadPicture（"d:

\pic\my.jpg"）

B）Pict1.Picture=LoadPicture（d:

\pic\my.jpg）

C）Pict1.Picture=LoadPicture（"d:

\pic\my.jpg"）

D）Pict1.Picture=Load（"d:

\pic\a.jpg"）

21．程序的基本控制结构是（c）。

A）顺序结构、多分支结构和单分支结构。

B）For……Next结构、Do……Loop结构和Select……Case结构。

C）顺序结构、选择结构和循环结构。

D）单行结构和多行结构。

22．在VB中，过程共有三种，它们是（a）。

A）事件过程，子过程和函数过程

B）Sub过程，Function过程和Property过程

C）事件过程，函数过程和属性过程

D）Sub过程，函数过程和通用过程

23.Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（c）。

A）Visible=False或Enabled=False

B）Interval=0或Visible=False

C）Interval=0或Enabled=False

D）Interval=0且Enabled=False

24．在VB中，要将一个窗体装入内存，应使用（c）语句。

A）ShowB）HideC）LoadD）Unload

25.已知变量x、y为整数型，且x=4,y=12,s为字符串型，且s=“a”，Lblok为标签控件，下列赋值语句合法的是（c）。

A）x=Lblok.CaptionB）x*3=y

C）Lblok.Caption=Str（x）D）Y=x*s

26．下列对过程调用时参数传递的不正确说法是（d）。

A）参数传递有传值和传址两种

B）传址是实参的值随着形参的改变而改变

C）传值是实参的值不会随着形参的改变而改变

D）传址是形参的变化不会影响到实参

27.要以读文件的方式打开“D:

\Stu.dat”顺序文件，应使用的语句是（b）。

A）Open"Stu.dat"ForOutputAs#1

B）Open"D:

\Stu.dat"ForInputAs#1

C）Open"D:

\Stu.dat"ForOutputAs#1

D）Open"D:

\Stu.dat"ForAppendAs#1

28．多分支选择结构的Case语句，下列错误的是（c）。

A）Case1,3,5,7B）CaseIs<"m"

C）Case8to2D）Case5to10

29.设组合框Combo1中有3个列表项，以下能删除最后一项的方法是（b）。

A）Combo1.RemoveItemText

B）Combo1.RemoveItem2

C）Combo1.RemoveItem3

D）Combo1.RemoveItemCombo1.Listcount

30.如下数组声明语名，正确的是（B）

A）Dima[4,5]AsInteger

B）Dima（4,5）AsInteger

C）Dima（n,n）AsInteger

D）Dima[4,n]AsInteger

三、程序选择题

31.下列程序段的执行结果为（C）。

X=5

Y=-20

IfNotx>0Then

x=y-3

Else

y=x+3

EndIf

Printx-y;y-x

A）3-3B）5-8C）-33D）25-25

32.下列程序段的执行结果为（C）。

DimA（10,10）

ForI=2To4

ForJ=4To5

A（I,J）=I*J

NextJ

NextI

PrintA（2,5）+A（3,5）+A（4,5）

A）25B）35C）45D）42

33．单击命令按钮，则窗体上显示的内容是（C）。

PrivateSubCommand1_Click（）

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

A）13.45.8B）146

C）135D）无数据输出

34.程序运行后，在文本框Text1中输入"456"，然后单击列表框中的"123"，则输出结果为（C）。

PrivateSubForm_Load（）

List1.AddItem"456"

List1.AddItem"123"

List1.AddItem"246"

Text1.Text=""

EndSub

PrivateSubList1_Click（）

a=List1.Text

Printa+Text1.Text

EndSub

A）579B）43C）123456D）456123

35．运行程序后，x和i的值分别是（C）。

x=2

Fori=1To12Step2

x=x+i

Next

Printx,i

A）2711B）3811C）3813D）2713

36.在窗体上有一个命令按纽为Command1，事件过程如下，程序运行后，其输出的结果为（C）。

PrivatesubCommand1_click（）

Dima,s

a=array（1,2,3,4,5）

Fork=1to4

s=s+a（k）

Nextk

Prints

Endsub

A）10B）14C）15D）120

37.有如下程序若输入1，输出结果为（C）。

PrivateSubForm_Click（）

xcase=-1

t=InputBox（“请输入一个数：

”）

SelectCaset

CaseIs>0

Y=xcase+1

CaseIs=0

Y=xcase+2

CaseElse

Y=xcase+3

EndSelect

Printxcase;Y

EndSub

A）14B）13C）-10D）-11

38.单击命令按钮，则在窗体上显示的内容是（C）。

SubSS（ByValX,ByValY,Z）

X=X+2

Y=Y*3

Z=X*Y

EndSub

PrivateSubCommand1_Click（）

A=3:

B=4:

C=5

CallSS（A,B,C）

PrintA;B;C

EndSub

A）3  12 60      B）5  12 60

C）3  4 60      D）5  6 192

39.执行以下过程时，Label1的标签框内将显示（C）。

PrivateSubCommand1_click（）

Fori=14To2.1Step-3.5

s=s＋i

Nexti

Label1.Caption=Str$（int（s））

EndSub     

A）30B）35.5C）35D）34

40.单击命令按钮之后，程序代码的执行结果为（A）。

PrivateFunctionP（NAsInteger）

Fori=1ToN

s=s+i

Nexti

P=s

EndFunction

PrivateSubCommand1_Click（）

S=P

（1）+P

（2）+P（3）+P（4）

PrintS;

EndSub

A）20B）14C）35D）4

四、程序填空题

1．该程序是在三个文本框中输入三个整数后，单击命令按钮，调用自定义函数，求A!

+B!

+C!

的和，在标签框中输出结果。

PrivateSubCommand1_Click（）

DimA%,B%,C%

A=Text1:

B=Text2:

C=Text3

Label1=

（1）

EndSub

FunctionJC

（2）AsLong

K=1

ForJ=1ToX

K=K*J

NextJ

JC=K

EndFunction

2.窗体中有图形框（Pt1）和计时器（Timer1）两个控件。

运行程序时，将图片加载到图形框中，然后图形框以每0.5秒钟一次的速度向窗体的右下角移动，每次移动200twip。

PrivateSubForm_Load（）

Pt1.Picture=LoadPicture（"c:

\pic\mouth.ico"）

　（3）

　EndSub

　PrivateSubTimer1_Timer（）

　　Staticx,yAsInteger

　　x=x+200

　　y=y+200

　Pt1.Movex,y

　EndSub

3．以下程序用来产生60个小于80～200之间的随机整数，将这些数中能被3和7除余数都为2的数在窗体上显示。

PrivateSubCommand1_Click（）

Randomize

ForI=1To60

X=（4）

If（5）Then

PrintX

EndIf

NextI

EndSub

4．编程计算由下公式确定的S值，并在窗体Form1上输出结果。

S=4×（1-12+1/3-1/4+……+1/99-1/100）

PrivateSubForm_Click（）

DimS!

K%

S=0

ForK=1To100

S=S+（6）

NextK

（7）

EndSub

5．以下程序的功能是：

生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。

请填空。

PrivateSubCommandl_C1ick（）

Fori＝1To20

x＝Int（（8）*200+100）

If（9）＝0Then

Printx

S＝S+（10）

EndIf

NextI

Print“Sum＝”：

S

EndSub

五、阅读程序写结果

1.在窗体模块中编写以下Sub过程和窗体Click事件过程，当程序运行时，在窗体中单击左键时，则程序的输出结果是（）。

PrivateSubsub1（ByVala%,bAsInteger）

a=a+b

b=a+b

EndSub

PrivateSubForm_Click（）

DimxAsInteger,yAsInteger

x=10:

y=20

Callsub1（x,y）

sub1x,y

Printx;y

EndSub

2.以下程序段的输出结果是（）。

num=0

Whilenum<=2

num=num+1：

Printnum;

Wend

3.在窗体上面画一个命令按钮，编写如下事件过程，运行上面的程序，单击命令按钮，其输出结果是（）。

OptionBase1

PrivateSubCommand1_Click（）

Dima

a=Array（1,2,3,4）

j=1

Fori=4To1Step-1

s=s+a（i）*j

j=j*10

Nexti

Prints

EndSub

4.设窗体的Click事件过程代码如下，则当程序运行时，单击鼠标时的输出结果是（）。

PrivateSubForm_Click（）

DimkAsInteger,aAsInteger

k=1

Ifk<=1Thena=2*k

Ifk<=2Thena=2*k+1

Ifk<=3Thena=k

Printk;a

EndSub

5.下列命令按纽事件过程执行后，输出的结果是（）。

PrivateSubCommand1_Click（）

Form=1To10Step2

a=10

Forn=1To10Step2

a=a+2

Nextn

Nextm

Printa

EndSub

六、编程题

1.编一程序输入职工的工资并计算税后工资，计算的方法如下：

工资×1（不扣税）工资≤1000元

税后工资=工资×0.95（扣税5%）1000＜工资≤2000元

工资×0.9（扣税10%）2000＜工资≤3000元

工资×0.8（扣税20%）工资>3000元

要求：

（1）设计用户界面，列出对象（控件）重要属性表。

（2）对输入的数据进行合法验证。

（用SelectCase……EndSelect结构编程）

（3）计算结果保留两位小数。

程序如下：

PrivateSubCommand1_Click（）

Dimsorce,sAsSingle

sorce=Val（Text1.Text）

SelectCasesorce

Case0To1000

s=sorce

Case1000To2000

s=s+sorce*0.95

Case2000To3000

s=s+sorce*0.9

CaseElse

s=s+sorce*0.8

EndSelect

PrintFormat（s,"####.##"）

EndSub

PrivateSubText1_Change（）

IfNotIsNumeric（Text1）AndText1<>""Then

MsgBox（"不是数字！

"）

EndIf

EndSub

2.编一文本框（Text1）的Text1_KeyPress事件，当输入了项数N并按了回车键则计算多项式S=12+22+32+…+n2的S值。

在图形框（Picture1）中以长整型输出S、整型输出N的值。

要求：

（1）画出设计界面，列出对象属性表。

（2）编写事件过程及代码。

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then

DimNAsInteger,sAsLong

N=Val（Text1.Text）

Fori=1ToN

s=s+i^2

Nexti

Picture1.Prints,N

EndIf

EndSub