二级VB笔试试题.docx

二级VB笔试试题.docx

《二级VB笔试试题.docx》由会员分享，可在线阅读，更多相关《二级VB笔试试题.docx（15页珍藏版）》请在冰豆网上搜索。

二级VB笔试试题

一、选择题1~35题每题2分，共70分。

　　下列各题A）、B）、C）、D）四个选项中，只有一个选择是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

1．下列不能打开属性窗口的操作是（）。

　A）执行“视图”菜单中的“属性窗口”命令

　B）按F4键

　C）按Ctrl+T

　D）单击工具栏上的“属性窗口”按钮。

2．下列可以打开立即窗口的操作是（）。

　A）Ctrl+D

　B）Ctrl+E

　C）Ctrl+FD）Ctrl+G

3．InputBox函数返回值的类型为（）。

　A）数值

　B）字符串

　C）变体

　D）数值或字符串（视输入的数据而定）

4．可以同时删除字符串前导和尾部空白的函数是（）。

　A）Ltrim

　B）Rtrim

　C）Trim

　D）Mid

5．表达式4+56*7/8Mod9的值是（）。

　A）4　　

　B）5

　C）6

　D）7

6．如果在立即窗口中执行以下操作：

a=8　　（是回车键，下同）

b=9　

printa>b　

则输出结果是（）。

　A）-1　　

　B）0

　C）False

　D）True

7．以下语句的输出结果是（）。

PrintFormat$（32548.5,“000,000.00”）

　A）32548.5

　B）32,548.5

　C）032,548.50　

　D）32,548.50

8．执行以下程序段后，变量c$的值为（）。

a$="VisualBasicPrograming"

b$="Quick”

c$=b$&UCase（Mid$（a$,7,6））&Right$（a$,11）

　A）VisualBASICPrograming

　B）QuickBasicPrograming

　C）QUICKBasicPrograming

　D）QuickBASICPrograming

9．为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）。

　A）Value　　

　B）Default

　C）Cancel　　

　D）Enabled

10．为了把焦点移到某个指定的控件，所使用的方法是（）。

　A）SetFocus　　

　B）Visible

　C）Refresh　

　D）GetFocus

11．设a=6，则执行x=IIf（a>5,-1,0）后，x的值为（）。

　A）5

　B）6

　C）0　

　D）-1

12．执行下面的程序段后，x的值为（）。

x=5

Fori=1To20Step2

x=x+i5

Nexti

　A）21　

　B）22

　C）23　

　D）24

13．在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

Fori=1To4

x=4

Forj=1To3 

x=3

Fork=1To2

x=x+6

Nextk

Nextj

Nexti

Printx

EndSub

程序运行后，单击命令按钮，输出结果是（）。

　A）7

　B）15

　C）157

　D）538

14．在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

x=0

DoUntilx=-1

a=InputBox（“请输入A的值”）

a=Val（a）

b=InputBox（“请输入B的值”）

b=Val（b）

x=InputBox（“请输入x的值”）

x=Val（x）

a=a+b+x

Loop

Printa

EndSub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（）。

　A）2

　B）3

　C）14　　

　D）15

15．在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：

PrivateSubCommand1_Click（）

a=Text1.Text+Text2.Text

Printa

EndSub

PrivateSubForm_Load（）

Text1.Text=""

Text2.Text=""

Endsub

程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）。

　A）444

　B）321123

　C）123321　　

　D）132231

16．阅读下面的程序段：

Fori=1To3

Forj=1Toi

Fork=jTo3

a=a+1

Nextk

Nextj

Nexti

执行上面的三重循环后，a的值为（）。

　A）3

　B）9

　C）14　

　D）21

17．在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：

PrivateSubForm_Load（）

Text1.Text=""

Text1.SetFocus

Fori=1To10

Sum=Sum+i

Nexti

Text1.Text=Sum

EndSub

上述程序的运行结果是（）。

　A）在文本框Text1中输出55

　B）在文本框Text1中输出0

　C）出错

　D）在文本框Text1中输出不定值

18．在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：

PrivateSubCommand1_Click（）

x=0

DoWhilex<50

x=（x+2）*（x+3）

n=n+1

Loop

Text1.Text=Str（n）

Text2.Text=Str（x）

EndSub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。

　A）1和0

　B）2和72

　C）3和50　　

　D）4和168

19．用下面语句定义的数组的元素个数是（）。

DimA（-3To5）AsInteger

　A）6

　B）7

　C）8　　

　D）9

20．以下程序的输出结果是（）。

OptionBase1

PrivateSubCommand1_Click（）

Dima（10）,p（3）AsInteger

k=5

Fori=1To10

a（i）=i

Nexti

Fori=1To3

p（i）=a（i*i）

Nexti

Fori=1To3

k=k+p（i）*2

Nexti

Printk

Endsub

　A）33

　B）28

　C）35

　D）37

21．在窗体上画一个命令按钮，然后编写如下事件过程：

OptionBase1

PrivateSubCommandl_Click（）

Dima

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

j=1

Fori=4ToStep-1

s=s+a（i）*j

j=j*10

Nexti

Prints

EndSub

运行上面的程序，单击命令按钮，其输出结果是（）。

　A）4321

　B）12

　C）34　　　

　D）1234

22．在窗体上画一个命令按钮（其Name属性为Commandl），然后编写如下代码：

OptionBase1

PrivateSubCommandl_Click（）

Dima（4,4）

Fori=1To4

Forj=1To4

a（i,j）=（i-1）*3+j

Nextj

Nexti

Fori=3To4

Forj=3To4

Printa（j,i）;

Nextj

Print

Nexti

EndSub

程序运行后，单击命令按钮，其输出结果为（）。

　A）69　　　　B）710

　　　7&n

　　　bsp;10　　　811

　C）811　　　　D）912

　　　912　　　　　1013

23．假定有如下的Sub过程：

SubS（xAsSingle,yAsSingle）

t=x

x=t/y

y=tMody

EndSub

在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommandl_Click（）

DimaAsSingle

DimbAsSingle

a=5

b=4

Sa,b

Printa,b

EndSub

程序运行后，单击命令按钮，输出结果为（）。

　A）54

　B）11

　C）1.254　　

　D）1.251

24．阅读程序：

FunctionF（aAsInteger）

b=0

Staticc

b=b+1

c=c+1

F=a+b+c

EndFunction

PrivateSubCommandl_Click（）

DimaAsInteger

a=2

Fori=1To3

PrintF（a）

Nexti

EndSub

运行上面的程序，单击命令按钮，输出结果为（）。

　A）4　B）4　　C）4　　D）4

　　4　5　　　67

　　4　6　　　89

25．阅读程序：

SubsubP（b（）AsInteger）

Fori=1To4

b（i）=2*i

Nexti

EndSub

PrivateSubCommandl_Click（）

Dima（1To4）AsInteger

a

（1）=5

a

（2）=6

a（3）=7

a（4）=8

subPa（）

Fori=1To4

Printa（i）

Nexti

EndSub

运行上面的程序，单击命令按钮，输出结果为（）。

　A）2　B）5　　C）10　D）出错

　　4　　6　　　12

　　6　　7　　14

　　8　　8　　16

26．下列不能打开菜单编辑器的操作是（）。

　A）按Ctrl+E

　B）单击工具栏中的“菜单编辑器”按钮

　C）执行“工具”菜单中的“菜单编辑器”命令

　D）按Shift+Alt+M

27．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）。

　A）MenuItem.Enabled=False

　B）MenuItem.Enabled=True

　C）MenuItem.Visible=True

　D）MenuItem.Visible=False

28．在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（）。

　A）Move

　B）Change

　C）Scroll　　

　D）GetFocus

29．假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为（）。

　A）Label1.BackStyle=0

　　　Label1.Borderstyle=0

　B）Label1.BackStyle=1

　　　Label1.Borderstyle=1

　C）Label1.BackStyle=True

　　　Label1.BorderStyle=True

　D）Label1.BackStyle=False

　　　Label1.Borderstyle=False

30．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：

PrivateSubForm_Load（）

List1.AddItem"357"

List1.AddItem"246"

List1.AddItem"123"

Listl.AddItem"456"

Text1.Text=""

EndSub

PrivateSubList1_DblClick（）

a=List1.Text

Printa+Text1.Text

EndSub

程序运行后，在文本框中输入“789”（见图附录-1），然后双击列表框中的“456”，则输出结果为（）。

图附录-1

　A）1245

　B）456789

　C）789456　　

　D）0

31．为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（）。

　A）Visible　　

　B）Timer

　C）Enabled　

　D）Interval

32．为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（）。

　A）Get文件号，记录号，变量名

　B）Get文件号，变量名，记录号

　C）Put文件号，变量名，记录号

　D）Put文件号，记录号，变量名

33．对窗体编写如下事件过程：

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfButton=2Then

Print"AAAAA"

EndIf

EndSub

PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

Print"BB

BBB"

EndSub

程序运行后，如果右击鼠标，则输出结果为（）。

　A）AAAAAB）BBBBB

　　　BBBBB

　C）AAAAAD）BBBBB

　　　AAAAA

34．为了在运行时能显示窗体左上角的控制框（系统菜单），必须（）。

　A）把窗体的Contro1Box属性设置为False，其他属性任意

　B）把窗体的ControlBox属性设置为True，并且把BoderStyle属性设置为1-5

　C）把窗体的ControlBox属性设置为False，同时把BoderStyle属性调协为非0值

　D）把窗体的ControlBox属性设置为True，同时把BoderStyle属性设置为0值

35．对窗体编写如下代码：

OptionBase1

PrivateSubForm_KeyPress（KeyAsciiAsInteger）

a=Array（237,126,87,48,498）

m1=a

（1）

m2=1

IfKeyAscii=13Then

Fori=2To5

Ifa（i）>mlThen

m1=a（i）

m2=i

EndIf

Nexti

EndIf

Printm1

Printm2

EndSub

程序运行后，按回车键，输出结果为（）。

　A）48　　　　B）237

　　　4　　　　　　　1

　C）498　　　D）498

　　　5　　　　　　4

二、填空题（每空２分，共30分）

　　请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。

1．设有如下的VisualBasic表达式：

5*x^2–3*x–2*Sin（a）/3它相当于代数式[1]。

2．执行下面的程序段后，s的值为[2]。

s=5

Fori=2.6To4.9Step0.6

s=s+1

Nexti

3．表达式Fix（-32.68）+Int（-23.02）的值为[3]。

4．为了在运行时把图形文件picfile.jpg装入图片框Picture1，所使用的语句为[4]。

5．在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

a=InputBox（"请输入一个整数"）

b=InputBox（"请输入一个整数"）

Printa+b

EndSub

程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为[5]。

6．执行下面的程序段后，b的值为[6]。

a=300

b=20

a=a+b

b=a-b

a=a-b

7．以下程序段的输出结果是[7]。

num=0&nb

sp;

Whilenum<=2

num=num+1

Printnum

Wend

8．在窗体画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

Dima（1To10）

Dimp（1To3）

k=5

Fori=1To10

a（i）=i

Nexti

Fori=1To3

p（i）=a（i*i）

Nexti

Fori=1To3

k=k+p（i）*2

Nexti

Printk

EndSub

程序运行后，单击命令按钮，输出结果是[8]。

9．下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在[9]、[10]、[11]处将程序补充完整。

OptionBase1

PrivateSubCommand1_Click（）

Dima

a=Array（678,45,324,528,439,387,87,875,273,823）

Fori=[9]

Forj=[10]

Ifa（i）[11]a（j）Then

a1=a（i）

a（i）=a（j）

a（j）=a1

EndIf

Nextj

Nexti

Fori=1To10

Printa（i）

Nexti

EndSub

10．在窗体上画一个命令按钮，然后编写如下过程：

Functionfun（ByValnumAsLong）AsLong

DimkAsLong

k=1

num=Abs（num）

DoWhilenum

k=k*（numMod10）

num=num10

Loop

fun=k

EndFunction

PrivateSubCommand1_Click（）

DimnAsLong

DimrAsLong

n=InputBox（"请输入一个数"）

n=CLng（n）

r=fun（n）

Printr

EndSub

程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为[12]。

11．如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为[13]。

12．假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，启动窗体为Form1。

在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在[14]和[15]处将程序补充完整。

PrivateSubCommand1_Click（）;

[14]Form1

Form2.[15]

EndSub