vb复习题.docx

vb复习题.docx

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

vb复习题

第1题（答案：

A）

#用于获得字符串S从第4个字符

开始的4个字符的函数是_________。

小题分数：

分

A）MID（S,4,4）

B）MIDDLESTR（S,4,4）

C）MIDSTR（S,4,4）

D）LEFT（S,4,4）

第2题（答案：

C）

#下面程序在调试时出现了死循环：

PrivateSubCommand1_Click（）

N=inputbox（"请输入一个整数"）

Do

Ifnmod2=0then

N=n+1

Else

N=n+2

Endif

Loopuntiln=1000

EndSub

下面关于死循环的叙述中正确的是______。

小题分数：

分

A）只有输入的n是偶数时才会出现死循环，

B）否则不会

B）只有输入的n是大于10000的整数时

才会出现死循环，否则不会

C）输入任何整数都会出现死循环

D）只有输入的n是奇数时才会出现死循环，

否则不会

第3题（答案：

B）

#在程序运行期间，当滚动条的滑

块被拖动时，则立即触发滚动条的______事件。

小题分数：

分

A）Click

B）Scroll

C）DblClick

D）Change

第4题（答案：

A）

#在窗体上画一个命令按钮Command1，然后

编写下列代码：

PrivateSubCommand1_Click

DimArr1（10）Asinteger,

Arr2（10）asinteger

N=3

Fori=1to5

Arr1（i）=i

Arr2（n）=2*n+i

Nexti

PrintArr2（n）；

Arr1（n）

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

是_________。

小题分数：

分

A）113

B）311

C）133

D）313

第5题（答案：

C）

#假定有如下的SUB过程，在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，输出结果为______。

subs（xassingle,yassingle）

t=x

x=t/y

y=tmody

endsub

privatesubcommand1_click（）

dimaassingle

dimbassingle

a=5

b=4

calls（a,b）

printa,b

endsub

小题分数：

分

A）11

B）1.254

C）1.251

D）54

第6题（答案：

A）

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

过程：

PrivateSubCommand1_Click（）

Dima（5）asstring

Fori=1to5

a（i）=chr（asc（"A"）+（i-1））

nexti

foreachbinaprintb;

nextEndSub

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

小题分数：

分

A）ABCDE

B）出错信息

C）abcde

D）12345

第7题（答案：

B）

#下列叙述中错误的是_____。

小题分数：

分

A）VB是采用了事件驱动编程机制

B）VB是面向过程的程序设计语言

C）VB是可视化程序设计语言

D）VB是面向对象的程序设计语言

第8题（答案：

C）

#Function过程要由函数名返回一个值。

如果不使用As数据类型选项来指定函数

的类型，函数类型默认为____类型。

小题分数：

分

A）String

B）Integer

C）Variant

D）Long

第9题（答案：

A）

#下列程序段的运行结果是：

_____。

dimnasinteger

i=21:

n=3

Dowhilei>ni=i-nloopprinti

小题分数：

分

A）3

B）5

C）6

D）8

第10题（答案：

C）

#在窗体上有一个文本框控件，

名称为TxtTime，有一个计时器控件，

名称为Timer1，要求每一秒钟在文本框中显

示一次当前的时间。

程序为：

PrivateSubTimer1.

_______TxtTime.text=TimeEndSub

在填空中应填入的内容是_______。

小题分数：

分

A）Interval

B）Visible

C）Timer

D）Enabled

第11题（答案：

D）

#下列关系运算结果为“true”的是_____。

小题分数：

分

A）"1"&"2"="3"

B）"1"+2="12"

C）"1"+"2"="3"

D）"1"&"2"="12"

第12题（答案：

B）

#表达式3>4and7=5的返回值为____。

小题分数：

分

A）Yes

B）False

C）No

D）True

第13题（答案：

B）

#当函数EOF（）的返回值为真时，表示文件

的指针指向_____。

小题分数：

分

A）第一个记录

B）尾部

C）最后一个记录

D）开头

第14题（答案：

C）

#应用程序窗体的名称属性为Frm1，窗体上有一

个命令按钮，其名称属性为Cmd1，单击窗体和

命令按钮的事件过程名分别为_____。

小题分数：

分

A）Frm1_Click（）Cmd1_Click（）

B）Form1_Click（）Command1_Click（）

C）Form_Click（）Cmd1_Click（）

D）Form_Click（）Command1_Click（）

第15题（答案：

A）

#以下____属性的属性值不能通过程序代码改变。

小题分数：

分

A）Name

B）Enabled

C）Backcolor

D）Caption

第16题（答案：

B）

#执行下面的程序，单击窗体后在窗体上显示的

结果是_____。

PrivateSubForm_Click（）

DimStr1asString,Str2asstring

DimStr3asstring,kasintegerStr1=”e”

Fork=1to2Str2=Ucase（Str1）

Str1=str2&Str1Str3=Str3&

Str1Str1=Chr（Asc（Str1）+K）

NextKPrintStr3EndSub

小题分数：

分

A）eeFF

B）EeFF

C）EEFF

D）eEfF

第17题（答案：

A）

#在窗体中添加一个命令按钮，编写如下程序：

PrivateSubtest（p,m,n）p=p+1:

m=m+1:

n=n+1print“Sub:

”;p;m;n

EndSub

PrivateSubCommand1_Click（）

a1=1:

b1=2:

c1=3calltest（a1,b1+3,（c1））

print“Main:

”;a1;b1;c1EndSub

程序运运行后，单击命令按钮，则程序的输出结

果为____。

小题分数：

分

A）Sub:

264Main:

223

B）Sub:

264Main:

264

C）Sub:

264Main:

164

D）Sub:

264Main:

123

第18题（答案：

B）

#下列程序是在键盘上输入月份的数值，

即1~12之间的一个整数，计算机即打印

出该月份的季节（12，1，2为冬季，其余类推）

。

比如输入7，则打印出Summer，

但程序不完整，请在_____处补充完整。

PrivateSubForm_Click（）

Don=inputbox（"Thenumberofmonth—"）

loopuntiln>0andn

小题分数：

分

A）n/3

B）n\3

C）nmod3

D）int（nmod3）

第1题（答案：

B）

#如果要向WORK.DAT文件中添加数据，

那么下面打开该文件的语句中，

正确的是_____。

小题分数：

分

A）OpenWORK.DATForappendAs#1

B）Open"WORK.DAT"ForappendAs#1

C）Open"WORK.DAT"ForoutputAs#1

D）OpenWORK.DATForoutputAs#1

第2题（答案：

A）

#在窗体上画一个名称为Command1的

命令按钮，然后编写如下程序：

PrivateCommand1_Click（）

DimxasintegerStaticyasinteger

Clsx=x+5y=y+3printx,yEndSub

程序运行时，两次单击命令按钮Command1

后，窗体显示的结果是_____。

小题分数：

分

A）56

B）106

C）53

D）103

第3题（答案：

D）

#定义过程语句中的可以是_____。

小题分数：

分

A）表达式

B）常量

C）数组元素

D）数组名

第4题（答案：

D）

#语句：

Open“C:

\MyFile.txt”forOutput

用于打开一个顺序文件，但是该语句的一

个重要错误是没有______。

小题分数：

分

A）指定打开方式

B）指定文件类型

C）指定打开文件名

D）指定文件号

第5题（答案：

B）

#假定定时器控件的Interval属性为1000，

Enabled属性为True，并且有下面的事件过程，

程序运行时计算机将发出____次Beep声。

SubTimer1_Timer（）BeepEndSub

小题分数：

分

A）0

B）其它选项都不对

C）1000

D）1

第6题（答案：

A）

#启动VisualBasic有多种方法，以下不正确

的是____。

小题分数：

分

A）通过DOS方式直接运行相应程序

B）通过“开始”菜单的“程序”命令

C）通过“开始”菜单的“运行”命令

D）通过“我的电脑”找到相应程序的可执行文件

第7题（答案：

D）

#下列说法中正确的是____。

小题分数：

分

A）窗体的Name属性值可以为空

B）窗体的Name属性值是显示在窗体标题栏中

的文本

C）可以在运行期间改变窗体的Name属性的值

D）窗体的Name属性指定窗体的名称，

用来标识一个窗体

第8题（答案：

D）

#在窗体上画一个名称为Command1的命令按钮，

然后编写如下事件过程：

PrivateSubCommand1_Click（）

C=1234C1=trim（str（C））

Fori=1to4Print_________

NextEndSub程序运行后，单击命令按钮，

要求在窗体上显示如下内容：

1121231234则在下划线处应填入的内容为______。

小题分数：

分

A）Mid（C1,i,i）

B）Mid（C1,i,1）

C）Right（C1,i）

D）Left（C1,i）

第9题（答案：

D）

#窗体的边框类型BorderStyle属性默认是

Sizable,表示____。

小题分数：

分

A）固定对话框

B）窗体没有边框

C）窗体是固定单边框

D）窗体边框是可调整的

第10题（答案：

B）

#设“a=20，b=15，c=1”，执行语句

“printa>b>c”后，窗体上显示的是_____。

小题分数：

分

A）出错信息

B）False

C）1

D）True

第11题（答案：

A）

#假定当前日期为2009年8月18日，则执行

以下语句后，输出结果是_____。

Printmonth（now）;Printyear（now）

小题分数：

分

A）82009

B）082009

C）809

D）00809

第12题（答案：

B）

#假定有如下的命令按钮

（名称为Command1）事件过程：

PrivateSubCommand1_Click（）

X=InputBox（"输入:

","输入整数"）

Msgbox"输入的数据是：

",,"输入数

据：

"+xEndSub程序运行后，单击

命令按钮，如果从键盘上输入整数10，

则以下叙述中错误的是_____。

小题分数：

分

A）信息框中显示的是“输入的数据是:

”

B）X的值是数值10

C）输入对话框的标题是“输入整数”

D）信息框的标题是“输入数据：

10”

第13题（答案：

A）

#在窗体（名称为Form1）上画一个名称

为Text1的文本框和一个名称为Command1

的命令按钮，然后编写一个事件过程。

程序运行后，如果在文本框内输入一个字

符后并且单击命令按钮，则把命令按钮的

标题设置为“计算机等级考试”。

以下能

实现上述操作的事件过程是____。

小题分数：

分

A）PrivateSubCommand1_Click（）

Command1.Caption="计算机等级考试"

EndSub

B）PrivateSubText1_Change（）

Command1.Caption="计算机等级考试"

EndSub

C）PrivateSubText1_Change（）

Command1.Text="计算机等级考试"EndSub

D）PrivateSubCommand1_Click（）

Command1.Text="计算机等级考试"EndSub

第14题（答案：

B）

#下面对象中没有焦点属性的是____。

小题分数：

分

A）命令按钮控件

B）标签控件

C）文本框控件

D）单选框控件

第15题（答案：

B）

#当运行程序时，系统自动执行启动窗体的某个

事件过程，这个事件过程是_____。

小题分数：

分

A）GotFocus

B）Load

C）Click

D）Unload

第16题（答案：

C）

#有如下程序段，该程序段的执行完后，共执行

循环的次数是____。

privatesubcommand1_click（）

total=0counter=1do

printcountertotal=total+counter

printtotalcounter=counter+1

iftotal>=10then

exitdoendif

loopwhilecounter<=10endsub

小题分数：

分

A）12

B）8

C）4

D）20

第17题（答案：

C）

#在窗体上画一个文本框，然后编写如下事件

过程：

PrivateSubCommand1_Click（）

Text1.text=””Text1.setfocus

Fori=1to5Sum=sum+i

NextiText1.text=sumEndsub上述程序的

运行结果是_____。

小题分数：

分

A）在文本框中输出0

B）在文本框中输出不定值

C）在文本框中输出15

D）出错

第18题（答案：

A）

#以下程序的输出结果是_____。

optionexplicit

privatesubcommand1_click（）

dima（10）,p（3）,k,iasinteger

k=5fori=1to10a（i）=i

nextifori=1to3p（i）=a（i*i）

nextifori=1to3k=k+p（i）*2

nextiprintkendsub

小题分数：

分

A）33

B）28

C）35

D）37

第19题（答案：

C）

#当程序运行时，在窗体上单击鼠标

，以下_____事件是窗体不会接收到。

小题分数：

分

A）MouseUp

B）MouseDown

C）Load

D）Click

第20题（答案：

A）

#若有以下说明语句：

Typestunumas

integernameasstringEndType

dimstudent_1asstu则下面表示记录

变量student_1的成员name正确的是_____。

小题分数：

分

A）student_1.name

B）student_1→name

C）name

D）name.student_1

第1题（答案：

C）

#当程序运行时，在窗体上单击鼠标，

以下_____事件是窗体不会接收到。

小题分数：

分

A）MouseUp

B）MouseDown

C）Load

D）Click

第2题（答案：

B）

#以下程序的输出的结果是_____。

Dimn（2,2）,i,jasinteger

Fori=0to2Forj=0to2n（i,j）=i+j

nextjnextifori=0to1forj=0to1

n（i+1,j+1）=n（i+1,j+1）+n（I,j）nextj

nextiprintn（i,j）

小题分数：

分

A）14

B）6

C）0

D）值不确定

第3题（答案：

C）

#窗体的BackColor属于用于设置窗体的特性是_____。

小题分数：

分

A）高度

B）前景色

C）背景色

D）宽度

第4题（答案：

D）

#下面4项中不属于面向对象系统三要素的是____。

小题分数：

分

A）方法

B）事件

C）属性

D）变量

第5题（答案：

C）

#以下_____操作可以打开属性窗口。

小题分数：

分

A）双击任何一个对象

B）双击代码窗口

C）按下F4键

D）右击

第6题（答案：

C）

#执行以下语句后，输出结果是____。

S="ABCDEF"Printlen（S）;Printright$（s,4）

小题分数：

分

A）4CDEF

B）4ABCD

C）6CDEF

D）6ABCD

第7题（答案：

A）

#在文本框中设置垂直滚动条，要使

ScrollBars的值为____。

小题分数：

分

A）2

B）3

C）0

D）1

第8题（答案：

D）

#要改变窗体中显示文本的颜色，应该使用的属性是____。

小题分数：

分

A）Caption

B）BackColor

C）Font

D）ForeColor

第9题（答案：

D）

#窗体上有一个名称为Text1的文本框，

程序运行后，在文本框内按回车键，则以下程序

输出结果为____。

Optionbase1PrivateSub

Text1_KeyPress（KeyAsciiasinteger）

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

m1=a

（1）m2=1

ifKeyAscii=13thenfori=2to5

ifa（i）>m1thenm1=a（i）endif

nextiendifprintm1;m2EndSub

小题分数：

分

A）2371

B）4984

C）484

D）4981

第10题（答案：

B）

#设有数组定义：

Dima（5to15）和赋值

语句k=4。

下列数组引用错误的是____。

小题分数：

分

A）a（sqr（k^3））

B）a（k*k）

C）a（5.6）

D）a（10）

第11题（答案：

D）

#为了把一个记录型变量的内容写入文件

中指定的位置，所使用的语句的格式为_____。

小题分数：

分

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

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

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

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

第12题（答案：

A）

#标准模块文件的扩展名是____。

小题分数：

分

A）.Bas

B）.Frm

C）.Cls

D）.Res

第13题（答案：

D）

#假定在图片框Picture1中装入了一个图形，

为了清除该图形（注意，清除图形，而不是

删除图片框），应采用的正确方法是____。

小题分数：

分

A）选择图片框，在属性窗口中选择Picture

属性，然后按回车键

B）执行语句Picture1.Parent=""

C）选择图片框，然后按Del键

D）执行语句Picture1=loadPicture（""）

第14题（答案：

B）

#下面不属于VB的键盘事件的是____。

小题分数：

分

A）KeyPress事件

B）KeyMove事件

C）KeyUp事件

D）KeyDown事件

第15题（答案：

A）

#下列程序执行后，变量x的值为_____。

PrivateSubCommand1_Click（）

Dima,b,c,dassinglea=100b=20c=1000

ifb>athend=a:

a=b:

b=dendififb>c

thenx=belseifa>cthenx=c

elsex=aendifEndSub

小题分数：

分

A）100

B）20

C）1000

D）0

第16题（答案：

C）

#设在菜单编辑器中定义了一个菜单项，

名为menu1。

为了在运行时隐藏该菜单项，

应该使用的语句是____。

小题分数：

分

A）menu1.Enabled=true

B）menu1.visible=true

C）menu1.visible=false

D）menu1.Enabled=false

第17题（答案：

A）

#对于下面程序，描述正确的是____。

PrivateSubCommand1_Click（）

DimI,MynumDoForI=1to1000

Mynum=int（rnd*1000）SelectcaseMynum

Case7:

ExitForCase29:

Exit