Visual Basic语言程序设计笔试样卷Word文档下载推荐.docx

Visual Basic语言程序设计笔试样卷Word文档下载推荐.docx

《Visual Basic语言程序设计笔试样卷Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《Visual Basic语言程序设计笔试样卷Word文档下载推荐.docx（19页珍藏版）》请在冰豆网上搜索。

a>

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$的值为D

a$=“VisualBasicPrograming”

b$=“Quick”

c$=b$&

UCase（Mid$（a$,7,6））&

Right$（a$,11）

A）VisualBASIC 

Programing

B）Quick 

Basic 

C）QUICK 

D）Quick 

BASIC 

（9） 

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

A）Value 

B）Default 

C）Cancel 

D）Enabled

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

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的值为 

A 

x=5

For 

i=1To20Step2

x=x+i\5

Nexti

A）21 

B）22 

C）23 

D）24

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

PrivateSubCommand1_Click（）

i=1To4

x=4

j=1To3

x=3

k=1To2

x=x+6

Next 

k

j

i

Print 

x

EndSub

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

A）7 

B）15 

C）157 

D）538

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

PrevateSubCommand1_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

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

A）2 

B）3 

C）14 

D）15

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

a=Text1.Text+Text2.Text

PrivateSubFormm_Load（）

Text1Text="

"

Text2Text="

Endsub

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

A）444 

B）321123 

C）123321 

D）132231

（16）阅读下面的程序段：

i=1To3

j=1Toi

Fork=jTo3

a=a+1

Nextk

Nextj

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

A）3 

B）9 

D）21

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

PrivateSubForm_Load（）

Ttext1.Text="

Text1.SetFocus

i=1To10

Sum=Sum+i

Text1.Text=Sum

上述程序的运行结果是 

A）在文本框Text1中输出55

B）在文本框Text1中输出0

C）出错

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

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

DoWhilex<

50

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

n=n+1

Text1.Text=Str（n）

Text2.Text=Str（x）

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

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）以下程序的输出结果是A

Option 

Base1

Dima（10）,p（3）AsInteger

k=5

Fori=1To10

a（i）=i

Fori=1To3

p（i）=a（i*i）

NextI

k=k+p（i）*2

Printk

A）33 

B）28 

C）35 

D）37

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

OptionBase1

PrivateSubCommandl_Click（）

Dima

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

j=1

i=4ToStep-1

s=s+a（i）*j

j=j*10

Prints

End 

Sub

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

A）4321 

B）12 

C）34 

D）1234

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

PrivateSubCommandl_Click（）

Dima（4,4）

Fori=1To4

Forj=1To4

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

Fori=3To4

Forj=3To4

Printa（j,i）;

Print

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

9 

B）710 

C）811 

D）9 

12

710 

811 

912 

1013

（23）假定有如下的Sub过程：

SubS（xAsSingle,yAsSingle）

t=x

x=t/y

y=tMody

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

PrivateSubCommandl_Click（）

DimaAsSingle

DimbAsSingle

a=5

b=4

Sa,b

Printa,b

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

4 

B）11 

C）1.25 

D）1.25 

1

（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）

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

B）4 

C）4 

D）4

4 

5 

6 

7

8 

9

（25）阅读程序：

SubsubP（b（）AsInteger）

b（i）=2*i

Dima（1To4）AsInteger

a

（1）=5

a

（2）=6

a（3）=7

a（4）=8

subPa（）

Printa（i）

A）2 

B）5 

C）10 

D）出错

6 

12

7 

14

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）Menultem.Visible=False

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

A）Move 

B）Change 

C）Scroll 

（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"

246"

123"

Listl.AddItem"

456"

Text1.Text="

PrivateSubList1_DblClick（）

a=List1.Text

Printa+Text1.Text

程序运行后，在文本框中输入“789”（见图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）对窗体编写如下事件过程：

A

PrivateSubForm_MouseDown（ButtonAsInteger,_

ShiftAsInteger,XAsSingleYAsSingle）

IfButton=2Then

Print"

AAAAA"

EndIf

PrivateSubForm_MouseUp（ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle）

BBBBB"

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

A）AAAAA 

B）BBBBB 

C）AAAAA 

D）BBBBB

BBBBB 

AAAAA

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

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

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

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

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

（35）对窗体编写如下代码：

C

PrivateSubForm_KeyPress（KeyAsciiAsInteger）

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

m1=a

（1）

m2=1

IfKeyAscii=13Then

Fori=2To5

Ifa（i）>

mlThen

m1=a（j）

m2=i

Printm1

Printm2

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

A）48 

B）237 

C）498 

D）498

1 

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

（3）表达式Fix（-32.68）+Int（-23.02）的值为【3】。

（4）为了在运行时把图形文件picfile.jpg装入图片框Picture1,所使用的语句为【4】。

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

a=InputBox（"

请输入一个整数"

）

b=InputBox（"

Printa+b

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

（6）执行下面的程序段后，b的值为【6】。

a=300

b=20

a=a+b

b=a-b

a=a-b

（7）以下程序段的输出结果是【7】。

num=0

Whilenum<

=2

num=num+1

Printnum

Wend

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

Dima（1To10）

Dimp（1To3）

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

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

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

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

Functionfun（ByValnumAsLong）AsLong

DimkAsLong

k=1

num=Abs（num）

DoWhilenum

k=k*（numMod10）

num=num\10

fun=k

DimnAsLong

DimrAsLong

n=InputBox（"

请输入一个数"

n=CLng（n）

r=fun（n）

Printr

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

（11）如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【13】。

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

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

【14】 

Form1

Form2.【15】

〖完〗

VisualBasic语言程序设计笔试样卷答案

C

D

B

（10）A

（11） 

（12） 

A

（13）B

（14）A

（15）C

（16） 

（17） 

（18）B

（19）D

（20）A

（21） 

（22） 

（23）D

（24）B

（25）A

（26） 

（27） 

（28）C

（29）A

（30）B

（31） 

（32） 

（33）A

（34）B

（35）C

二、填空题

（1）[1] 

（2）[2] 

9

（3）[3] 

56

（4）[4] 

Picturel.Picture=LoadPicture（"

picfile.jpg"

（5）[5] 

321456

（6）[6] 

300

（7）[7] 

2

3

（8）[8] 

33

（9）[9] 

aTo9

[10]i+1To1