《高级语言程序设计VB》试题样题.docx

《高级语言程序设计VB》试题样题.docx

《《高级语言程序设计VB》试题样题.docx》由会员分享，可在线阅读，更多相关《《高级语言程序设计VB》试题样题.docx（16页珍藏版）》请在冰点文库上搜索。

《高级语言程序设计VB》试题样题

《高级语言程序设计（VB）》试题样题

考试时间：

90分钟

专业             班号    班内序号      姓名        机号       成绩       

一、登录网络及文件操作

1．用桌面上的4位机器号作为用户名，登录到FS3，删除F盘中的所有内容。

2．在F盘根目录下以专业（中文）+班号（1位）+班内序号（2位）+姓名（中文）为名建立考试目

录，并在该文件夹下分创建NO1、NO2、NO3和NO4等四个文件夹，下列四题分别存放在上述对应的四个文件夹中（否则无分）。

二、用VB编写下列程序

1．用文本框等控件和自定义过程实现输入n的值，计算1！

+2！

+3！

+…+n！

，并输出结果。

2．随机产生10个0~100之间的随机数，并求出最大值、最小值及最大值和最小值的位置。

3．用绘图方法绘制曲线：

y=x2-100（-10≤x≤10）。

4．用图像框和公共对话框（打开文件对象）等控件实现一个图像浏览器。

VisualBasic语言程序设计笔试样卷 

（考试时间90分钟，满分100分）

一、选择题

（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+F      D）Ctrl+G

（3） inputBox函数反回值的类型为       。

A）数值                        B）字符串

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

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

A）Ltrim       B）Rtrim      C）Trim       D）Mid

（5） 表达式4+5\6*7/8Mod 9的值是

A）4           B）5          C）6          D）7

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

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

b=9   

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

a$=“VisualBasicPrograming”

b$=“Quick”

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

A）VisualBASIC Programing

B）Quick Basic Programing

C）QUICK Basic Programing

D）Quick BASIC Programing

（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

For i=1To20Step2

x=x+i\5

Nexti

A）21          B）22         C）23         D）24

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

PrivateSubCommand1_Click（）

For i=1To4

x=4

For j=1To3

x=3

For k=1To2

x=x+6

Next k

Next j

Next 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

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

PrivateSubFormm_Load（）

Text1Text=""

Text2Text=""

Endsub

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

A）444         B）321123     C）123321     D）132231

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

For i=1To3

For j=1Toi

Fork=jTo3

a=a+1

Nextk

Nextj

Nexti

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

A）3        B）9           C）14          D）21

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

PrivateSubForm_Load（）

Ttext1.Text=""

Text1.SetFocus

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

Option Base1

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

For i=4ToStep-1

s=s+a（i）*j

j=j*10

Next i

Prints

End Sub

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

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）6 9        B）710       C）811       D）9 12

710           811          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）5 4        B）11        C）1.25 4    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）

Nexti

EndSub

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

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

4          5             6             7

4          6             8             9

（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）Menultem.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"，则输出结果为  。

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,XAsSingleYAsSingle）

IfButton=2Then

Print"AAAAA"

EndIf

EndSub

PrivateSubForm_MouseUp（ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle）

Print"BBBBB"

EndSub

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

A）AAAAA       B）BBBBB      C）AAAAA      D）BBBBB

BBBBB                                      AAAAA

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

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

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

m2=i

EndIf

Nexti

EndIf

Printm1

Printm2

EndSub

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

A）48      B）237        C）498        D）498

4          1             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

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=num\10

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

〖完〗

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

一、选择题

（1）   C

（2）   D

（3）   B

（4）   C

（5）   B

（6）   C

（7）   C

（8）   D

（9）   B

（10）A

（11） D