vb.docx

vb.docx

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

vb

vb（1到5章）练习2浦

满分：

100分

姓名：

________

1、单项选择题（本题共计50分）

1、下面________语句，可以将列表框List1中当前选定的列表项的值替换成“ABC”。

（）

A、List1.AddItem“ABC”，List1.ListIndex

B、List1.Text=“ABC”

C、List1.List（List1.ListIndex）=“ABC”

D、前三项均可

2、单选按钮（OptionButton）用于一组互斥的选项中。

若一个应用程序包含多组互斥条件，可在不同的________中安排适当的单选按钮，即可实现。

（）

A、框架控件（Frame）或图象控件（Image）

B、组合框（ComboBox）或图象控件（Image）

C、组合框（ComboBox）或图片框（PictureBox）

D、框架控件（Frame）或图片框（PictureBox）

3、下面的表达试的值为真的是________。

（）

A、Mid（“VisualBasic”,1,12）=Right（“ProgramingLanguageVisualBasic”,12）

B、“ABCRG”>”abcde”

C、Int（134.69）>Cint（134.69）

D、78.9/32.77<=97.5/43.97AND–45.4>4.98

4、执行语句"Printformat（5459.478,"##,##0.00"）"，正确的输出结果是________。

（）

A、5459.48

B、5,459.48

C、5,459.478

D、5,459.47

5、一个可执行的VisualBasic中应用程序至少要包括一个________。

（）

A、标准模块

B、类模块

C、窗体模块

D、辅助模块

6、VisualBasic程序设计时常用的Print、Cls属于________。

（）

A、属性

B、打印字库

C、方法

D、事件

7、执行下列程序，输出结果为___________。

PrivateSubCommand1_Click（）

DimbAsSingle

B=2/3

Printb

EndSub（）

A、0.6666666666667

B、1

C、0

D、0.6666667

8、执行以下程序段后，变是c$的值为____________。

PrivateSubCommand1_Click（）

A$="ViaualBASICprogramming"

B$=B$&UCase（Mid$（A$,7,6）&Right$（A$,12））

PrintB$

EndSub（）

A、ViaualBASICProgramming

B、BasicProgramming

C、basicprogramming

D、BASICPROGRAMMING

9、下列语句中不能正常执行的是________。

（）

A、print+32758+10

B、print5+9=15

C、print"65"+12

D、print"65"&12

10、日期类型（Date）在程序中运用时，日期类型必须用______符号括起来。

（）

A、#

B、@

C、＄

D、%

11、将文本框的ScrollBars属性设置为非零值，却没有效果，原因是____________。

（）

A、文本框中没有内容

B、文本框的MultiLine属性值为False

C、文本框的MultiLine属性值为True

D、文本框的Locked属性值为True

12、下列程序的执行结果是____________。

x=–6^2

PrintSgn（x）+Abs（x）+Int（x）（）

A、–36

B、–1

C、0

D、–72

13、下列____________是合法的VB变量名。

（）

A、_5a

B、我_AB

C、5name

D、Use&DASF

14、只有当一个对象的________和________属性为True时，它才能获得焦点。

（）

A、Enabled;Visible

B、Visible;Caption

C、Visible;Name

D、Enabled;Caption

15、下面4个方法中，可以返回字符串的高度值的是____________。

（）

A、TextHeight

B、TextWidth

C、ScaleWidth

D、ScaleHeight

16、VisualBasic中的工程文件的扩展名是____________。

（）

A、.reg

B、.frm

C、.bas

D、.vbp

17、下列可以作为VisualBasic变量名的是____________。

（）

A、Chinese＄

B、X（X+Y）

C、123BOOK

D、BOOK-1

18、不能正确表示条件“两个整型变量X和Y之一为0，但不能同时为0”的布尔表达式是________。

（）

A、X*Y=0And（X<>0OrY<>0）

B、（X=0OrY=0）And（X<>0OrY<>0）

C、Not（（X=0OrY=0）And（X<>0OrY<>0））

D、X*Y=0AndX+Y<>0

19、满足“当a的值是偶数时为0，是奇数时为1”的要求的表达式是____________。

（）

A、aMod2=0

B、NotaMod2<>0

C、Not（aMod2）

D、（a\2*2-a）=0

20、判断在文本框内是否按下了回车键，应通过____________事件过程。

（）

A、Change

B、KeyPress

C、GotFocus

D、Click

21、如果a是一个正实数，对x的第3位小数四舍五入的表达式是____________。

（）

A、0.01*Int（a+0.005）

B、0.01*Int（a+0.05）

C、0.01*Int（100*（a+0.005）

D、0.01*Int（100*（a+0.05））

22、描述X、Y中只有一个小于Z的逻辑表达式是________。

（）

A、X

B、X

C、X

D、X

23、i被j整除的逻辑表达式是________________。

（）

A、i/j=0

B、i\j=0

C、i<>0

D、imodj=0

24、启动应用程序，装载和显示窗体，产生_______________和Form_Show事件。

（）

A、Form_Click

B、Form_Load

C、Form_GotFocus

D、Form_Db1Click

25、数学关系3<=x<10表示成正确的VB表达式为____________。

（）

A、3<=x<0

B、3<=xANDx<10

C、x>=3ORx<10

D、3<=xAND<10

26、在程序中可以通过复选框和单选框按钮的____________属性值来判断它们的当前状态它。

（）

A、Caption

B、Value

C、Checked

D、Selected

27、文本框（Textl）中有选定的文本，执行Textl.SelText="Hello"的结果是____________。

（）

A、“Hello”将替换掉原来选定的文本

B、“Hello”将插入到原来选定的文本之前

C、Textl.SelLength为5

D、文本框中只有“Hello”

28、当一个CheckBox控件的Value属性为2时，表示该控件____________。

（）

A、以被选中

B、未选中

C、当前不可用

D、未知

29、有变量定义语句Dima,bAsinteger,变量a的类型和初值是________。

（）

A、Integer,0

B、Variant,空值

C、String,""

D、Long,0,0

30、语句x=x+1的正确含义是__________.（）

A、变量X的值与X+1的值相等

B、将变量X的值存在X+1中去

C、将变量X的值加1后赋给变量X

D、变量X的值为1

31、窗体Form1的名称属性是frm，它的Load事件过程名是_____。

（）

A、Form-Load

B、Form_Load

C、frm_Load

D、Me_CmdOK

32、复选框的Value属性为1时，表示____________。

（）

A、复选框未被选中

B、复选框被选中

C、复选框内有灰色的勾

D、复选框操作有错误

33、在窗体上添加一个命令按钮，名为Command1，事件过程如下。

执行结果是________。

Subpb（b（）AsInteger）

Fori=1To4

B（i）=2*i

Nexti

EndSub

PrivateSubCommand1_Click（）

Dima（1To4）AsInteger

a

（1）=5:

a

（2）=6:

a（3）=7:

a（4）=8

pba

Fori=1To4

Printa（i）;

Nexti

EndSub（）

A、2468

B、1357

C、36612

D、481216

34、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

PrivateSubCommand1_Click（）

StaticAAsInteger

StaticBAsInteger

Cls

B=2

B=B+3

A=3+A

printA,B

EndSub

程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为___________。

（）

A、35

B、66

C、95

D、33

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

OptionBase1

PrivateSubCommand1_Click（）

DimaAsVariant

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

j=1

Fori=4To1Step-1

s=s+a（i）*j

j=j*10

Nexti

Prints

EndSub

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

（）

A、4321

B、12

C、34

D、1234

36、设有如下语句：

strl=InputBox（"输入","","练习"）从键盘上输入字符串"示例"后，strl的值是________。

（）

A、“输入”

B、“”

C、“练习”

D、“示例”

37、当Form1_Click事件发生时，程序的输出结果是__________。

PrivateSubForm_Click（）

DimMAsInteger,kAsInteger,tAsInteger

M=5:

k=7

SelectCaseM

case1To10

t=M:

M=k:

k=t

CaseElse

M=kMod3

EndSelect

PrintM,k,t

EndSub（）

A、557

B、575

C、755

D、757

38、

在窗体上有一个文本框Text1，以下程序段的运行结果是_________。

Text1=""
Fori=1To10
Sum=Sum+i
Nexti
Text1=Sum

A、在文本框中Text1中输出55

B、在文本框中Text1中输出0

C、出错

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

39、当发生Command1_Click事件后，程序输出结果是________。

OptionBase1
PrivateSubCommand1_Click（）
Dima（4,4）AsInteger,iAsInteger,sAsInteger
s=0
Fori=1To4
Forj=1To4
a（i,j）=（i-1）*4+j*2
Nextj
Nexti
Fori=1To4
s=s+a（i,i）
Nexti
Prints
EndSub（）

A、28

B、32

C、30

D、44

40、下列程序段的输出结果是____________。

DimiAsInteger
Dima（8）AsInteger
y=18:

i=0
Do
a（i）=yMod2
i=i+1
y=y\2
LoopUntily<1
Forj=i-1To0Step-1
Printa（j）;
Nextj（）

A、1000

B、10010

C、00110

D、10100

41、下列程序的输出结果是____________。

DimiAsInteger,kAsInteger
Dima（10）AsInteger,p（3）AsInteger
k=5
Fori=0To9
a（i）=i
Nexti
Fori=0To2
p（i）=a（i*（i+1））
Nexti
Fori=0To2
k=k+p（i）*2
Nexti
Printk（）

A、17

B、21

C、22

D、23

42、DimyAsInteger
m=1
DoWhilem<=3
m=m+1
Printm;
Loop（）

A、2

B、23

C、234

D、2345

43、假设X的值是5，则执行以下语句时，可得到的输出结果是ABCDEF的SelectCase语句是________。

（）

A、SelectCaseX

Case10TO1

Print“ABCDEF”

EndSelect

B、SelectCaseX

CaseIs>15,Is<5

Print“ABCDEF”

EndSelect

C、SelectCaseX

CaseIs>5,1,3,TO10

Print“ABCDEF”

EndSelect

D、SelectCaseX

Case1,3,Is>5

Print“ABCDEF”

EndSelect

44、下面程序的内层循环次数是________。

Fori=1TO3

Forj=1TOi

Fork=jTO3

...

Nextk

Nextj

Nexti（）

A、3

B、14

C、9

D、21

45、计算机算法可以分为两大类：

一类是________________算法，另一类是________________算法。

（）

A、计算机辅助设计、财务

B、数值计算、非数值计算

C、步骤管理、通信

D、排序、查找

46、下列循环能正常结束循环的是____________。

（）

A、i=5

Do

i=i+1

LoopUntili<0

B、i=1

Do

i=i+2

LoopUntili=10

C、i=10

Do

i=i+1

LoopUntili>0

D、i=6

Do

i=i-2

LoopUntili=1

47、在过程中有语句ForI=N1ToN2StepN3，在该循环体内有下列四条语句，其中________会影响循环执行的次数。

①N1=N1+I②N2=N2+N3③I=I+N3④N3=2*N3（）

A、①②

B、①②③

C、③

D、①②③④

48、OptionBase1

PrivateSubCommand1_Click（）

Dima%（3,3）

Fori=1To3

Forj=1To3

Ifj>1Andi>1Then

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

Else

a（i,j）=i*j

EndIf

Printa（i,j）;"";

Nextj

Print

Nexti

EndSub（）

A、123

231

323

B、123

123

123

C、123

246

369

D、111

222

333

49、要分配存放如下方阵的数据，____________数组声明语句能实现（不能浪费空间）。

每行三个元素，第一行为：

1.12.23.3第二行为：

4.45.56.6第三行为：

7.78.89.9（）

A、Dima（9）AsSingle

B、Dima（3，3）AsSingle

C、Dima（-1Tol，-5To-3）AsSingle

D、Dima（-3To-1，5To7）AsInteger

50、在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码:

PrivateSubForm_Click（）

DimkAsInteger

DimentryAsString,itemAsString

entry="EDCBA"

Fork=Len（entry）To1Step-1

item=LCase（Mid（entry,k,1））&k

List1.AddItemitem

Nextk

EndSub

运行此程序，单击窗体后在窗体的列表框中显示的第四个列表项内容是_________。

（）

A、b4

B、b2

C、d3

D、d2

2、填空题（本题共计50分）

1、执行下面的程序，击窗体后在窗体上显示的第一行结果是___

（1）______，第三行结果是____

（2）_______。

PrivateSubForm_click（）

Dimmystr,mystr1,mysrr2AsString

mystr1="B"

Fori=1To3

mystr2=LCase（mystr1）

mystr1=mystr1&mystr2

mystr=mysre&mystr1

Printmystr

mystr1=Chr（Asc（mystr1）+i）

Nexti

EndSub

2、可通过列表框的___

（1）___属性或List（___

（2）_____）来取得列表框中被选中的选项。

3、已知K=2，J=3，A=True，则VB表达式（K-J<=K）AND（NOTA）OR（K+J>=J）的值为_____。

4、表示"A和B之一为零但不同时为零"的VB表达式为______。

5、在VB中一个汉字的长度等于____个英文字母的长度。

6、有下列程序：

PrivateSubCommand1_Click（）

a$="GoodMorning"

b$="Even"

c$=Left$（a$,4）+LCase$（b$）+Right$（a$,3）

Printc$

EndSub

运行后窗体上显示的是______。

7、能正确产生[1,30]之间的随机整数的表达式是________。

8、有下列程序：

PrivateSubCommand1_Click（）

x$="Apply"

y$="Action"

z$="Study"

z$=Left$（x$,4）+Mid（y,4,1）+LCase$（z）+""+z$

Printz$

EndSub

运行后窗体上显示的是_______。

9、表达式7^2Mod5^2\3的值为__________

10、下列程序的功能是输出如下数列的前20项，按每行5个数的形式输出。

1，1，2，3，5，8，13,......

DimaAsInteger,bAsInteger

DimiAsInteger

a=1:

b=1:

i=3

Printa,b,

DoWhile（i<=20）

c=a+b

t=b

b=a+b

____

（1）____

Printc,

If____

（2）____Then

Print

EndIf

_____（3）_____

Loop

11、在窗体中添加一个命令按钮Command1，并编写如下程序代码。

执行程序单击命令按钮后，文本框中的结果是_________。

OptionExplicit

PrivateSubCommand1_Click（）

Dimx（3）,iasinteger

Fori=1To3

x（i）=i+i^2

Nexti

Printx（i-1）

EndSub

12、已知数组A（4，4），各个元素在运行程序时，被赋值并打印，形成四阶方阵。

程序执行后，产生一个转置矩阵（即行列互换），仍放在数组A中，并打印出来。

请完善下列程序。

例如：

1234------->1111

1234------->2222

1234------->3333

1234------->4444

PrivateSubCommand1_Click（）

Dima（4,4）

Fork=1To4

Forj=1To4

a（k,j）=j

Printa（k,j）;

Nextj

Print

Nextk

Print

Fork=2To4

Forj=1To_______

t=a（j,k）

a（j,k）=_______

a（k,j）=t

Nextj

Nextk

EndSub

13、下列函数调用时弹出的对话框中按钮的个数为________。

MsgBox（"程序非法！

",vbAbortRetryIgnore,"消息提示"）

14、下面的程序用"冒泡"法将数组a中的10个整数按升序排列，请将程序补充完整。

OptionBase1

PrivateSubCommand1_Click（）

Dima,i,j,kAsInteger

a=Array（678,45,324,528,439,387,87