《VB程序设计基础》模拟试题.docx

《VB程序设计基础》模拟试题.docx

《《VB程序设计基础》模拟试题.docx》由会员分享，可在线阅读，更多相关《《VB程序设计基础》模拟试题.docx（20页珍藏版）》请在冰点文库上搜索。

《VB程序设计基础》模拟试题

《VB程序设计》模拟试题

●填空题

1.窗体模块的文件扩展名为___FRM_________、标准模块的文件扩展名为____BAS______、

类模块文件的扩展名为______CLS_______。

2.VisualBasic中数据类型可分为_____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、______长整型_____、布尔型和____字符型_________。

3.Abs（-6.5）=_____6.5______；　　Int（-9.1）=____-10_______。

4."程序"&"设计"运算结果为___程序设计____。

5.Dima,basBoolean语句显式声明变量a是___变体___变量，b是___布尔__变量。

6.MsgBox函数的返回值中，VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。

7.要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。

8.对话框分为_________对话框和________对话框两种类型，其中_____________对话框最

常用。

9.对象是VisualBasic应用程序的基本单元，它是由___类___创建的。

在VisualBasic中可以用属性、__方法___、___事件___来说明和衡量一个对象的特性。

10.条件判断语句可以使用___If…then____________语句、____If…Then…Else______语句和______If…Then…ElseIf______语句。

Selectcase语句

11.声明一个值为3.14的常量Pi的语句为___Constpi=3.14______。

12.Do…LoopUntil循环结构中，当条件为____真____时结束循环。

13.要显示弹出菜单，可以在代码中使用_____________事件。

14.参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。

15.名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___和___空格___。

16.VisualBasic的程序模块有3种：

____窗体模块____、标准模块和____类模块____。

17.VisualBasic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____结构。

18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。

●判断题

（）1.VisualBasic运行程序的方法只有编译模式。

（）2.语句Command1.visible=false与Command1.enabled=false是等价的。

（）3.InputBox函数和MsgBox函数一样，返回的是字符串。

（）4.通过类模块，我们不可以根据需要建立自己的控件。

（×）5.2.1E+5是合法的VisualBasic数据。

（）6.根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。

（√）7.x2是合法的变量名。

（）8.按照文件的存取方式及其组成结构可以分为两种类型：

文本文件和随机文件。

（√）9.Do…LoopUntil语句实现循环时，不管条件真假，首先无条件地执行一次

循环。

（×）10.标签没有change事件和setFocus方法。

（×）11.VB对象就是窗体和控件。

（×）12.要实现同样的循环控制，在DoWhile…Loop和DO…LoopWhile循环结构中给定的循环条件是一样的。

（×）13.文本框和标签通过同一属性在窗体上显示文字。

（）14.能够改变复选框背景颜色的属性是BackColor。

（）15.当图片框Picturebox控件的Autosize属性为true时，超过图片框尺寸的图片其超过部分会被图片框截去。

（×）16.所有对象的属性都可以在属性窗口中设定。

（×）17.Msgbox函数建立的信息框既能显示信息又能输入用户的信息。

（）18.使用Open语句可以创建新的顺序文件。

（×）19.要在窗体上添加控件，不能通过双击工具箱中对应的控件图标实现。

（×）20.TextBox与Label有许多共同的特点，它们都能显示和输入文字。

（√）21.方法Form1.show与Form1.visible=True是等效的。

（√）22.Do…LoopUntil语句实现循环时，不管条件真假，首先无条件地执行一次循环。

（×）23.函数Str（26）与Str（-26）的值的长度相同。

（√）24.每个Vb对象都有name属性。

（）25.在VisualBasic中，向过程传递参数时，按地址传递参数是缺省的。

（√）26.Do…Loopuntil语句实现循环时，只要条件是假，循环将一直进行下去。

（×）27.文本框和标签通过同一属性在窗体上显示文字。

（×）28.要实现同样的循环控制，在DoWhile…Loop和DO…LoopWhile循环结构中给定的循环条件是一样的。

（√）29.将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。

（×）30.使用Open语句可以创建新的顺序文件。

●写出下面的程序运行结果

1.程序1

PrivateSubForm_load（）

MsgBox"你好"

EndSub

运行结果：

____弹出消息框,提示为”你好”_________。

2.程序2

DimNumber

Number=8

SelectCaseNumber

Case1To5

Print"Between1and5"

Case6To10

Print"Between6and10"

CaseElse

Print"Notbetween1and10"

EndSelect

运行结果：

_____Between6and10________。

3.程序3

DimSubCommandl_Click（）

Textl.Text="07"

EndSub

DimSubCommand2_Click（）

Textl.Text="秋季"

EndSub

单击Command2按钮后，再单击Command1按钮，在文本框中显示：

__07___。

4.程序4

PrivateSubForm_Click（）

ForI=lTo100

Sum=Sum+I

NextI

PrintSum

EndSub

运行结果:

5050。

5.程序5

PrivateSubForm_load（）

MsgBox"VB程序"

EndSub

运行结果：

_____弹出消息框,提示为”VB程序”________。

6.程序6

PrivateSubForm_Activate（）

DimSAsSingle

DimIAsInteger

S=1

ForI=1To5

S=S*I

Next

Print"5!

=";S

EndSub

运行结果：

________________120_________________。

7.程序7

Private Sub Form_Activate（）

Dim s  As Long

Dim I  As Integer

    S = 0

    For I = 1 To 6

        S = S+I^2

    Next 

    Print"S =";S

End Sub

运行结果：

91。

《VB程序设计基础》模拟试题

一．判断题（正确的划√，错误的划×，每小题1分，共10分）

（√）1、面向对象程序设计是一种以对象为基础，由事件驱动对象来执行的设计方法。

（×）2、所有对象的属性都可以在属性窗口中设定。

（√）3、把当前窗体form1隐藏，用form1.hide和me.hide语句均可。

（√）4、变量的声明有两种方法，即使用“类型说明符”和使用“类型说明词”均可。

（×）5、判断数值X是否在[0，100]范围可用关系表达式：

0<=X<=100.

（√）6、文本框控件没有Caption属性。

（×）7、Dima1,a2AsInteger语句表示声明的变量a1和a2都为整型变量。

（√）8、执行Do-LoopWhile语句时，不管条件真假，首先会无条件地执行一次循环。

（×）9、Rnd（x）产生[0，1]之间的随机数。

（√）10、每个VisualBasic对象都有Name属性。

二．选择题（以下只有一项是正确的，每题2分，共40分）

（）1、不是VisualBasic的特点的选项是：

Ａ．可视编程B．面向过程C．事件驱动D．面向对象

（）2、如果把一个人当作对象，那么“身高”相当于这个对象的:

Ａ．属性　　　　Ｂ．方法　Ｃ．事件　　　Ｄ．特征

（）3、以下哪项不是合法的变量名？

A．file_1B．file1Ｃ．file-1Ｄ．file_1_12

（）4、求从文本框中输入密码时在文本框中只显示*号，则应在此文本框的属性窗口中设置：

A．Text属性值为*B．Caption属性值为*

C．Password属性值为空D．Passwordchar属性值为*

（）5、哪个是算术运算符：

Ａ．ImpＢ．Mod　　Ｃ．NotＤ．Eqv

（）6、Integer类型的变量可存的最大整数为：

Ａ．255　　Ｂ．256Ｃ．32768　Ｄ．32767

（）7、下列哪一个是日期型常量：

Ａ．"2/1/99"Ｂ．2/1/99　Ｃ．#2/1/99#　　Ｄ．{2/1/99}

（）8、用于获得字符串S从第5个字符开始的3个字符的函数是：

Ａ．Mid（S,5,3）　　　　　　　　　Ｂ．Middle（S,5,3）

Ｃ．Right（S,5,3）　　　　　　　　Ｄ．Left（S,5,3）

（）9、为使计时器对象每隔5秒钟产生一个时钟事件（Timer事件），则其Interval属性值应设置为：

Ａ．5　　Ｂ．300　　Ｃ．500　Ｄ．5000

（）10、对一个窗体对象，其最先发生的事件是：

A．ClickＢ．DbClickＣ．LoadＤ．UnLoad

（）11、下列4个选项中,可以单独的构成一条语句的选项是：

A．对象名.属性名B．对象名.方法名

C．对象名.事件名　Ｄ．对象名.控件名

（）12、若x是一个正实数，将千分位四舍五入，保留两位小数的VB表达式为:

A．0.01*Int（x+0.005）B．0.01*Int（100*（x+0.005））

C．0.01*Int（100*（x+0.05））D．0.01*Int（x+0.05）

（）13、下列表达式中，合法的ＶisualBasic表达式有：

Ａ．（－b+sqr（b*b+4a*c））/2/a

Ｂ．Cos（a）^2-Atn（a）

Ｃ．Sqr（Y^3+3*（A*A+6B*B））

Ｄ．1/（X+1/Y+5A）

（）14、在一个语句行内写多条语句时，语句之间应该用什么符号分隔？

A．逗号  B．分号    C．顿号      D．冒号  

（）15、计算结果为0的表达式是：

A．Int（3.4）+Int（-3.8）　　　B．Int（3.4）+Fix（-3.8）

C．Fix（3.4）+Fix（-2.8）　　　D．Fix（3.4）+Int（-3.8）

（）16、下列程序段执行后输出的结果是：

x=int（Rnd+4）

SlectCasex

Case5

Print"优秀"

Case4

Print"良好"

Case3

Print"及格"

CaseElse

Print"不及格"

EndSelect

Ａ．优秀　　　Ｂ．良好　　　Ｃ．及格　　　Ｄ．不及格

（）17、循环结构Fori=0to10Step2的执行次数是：

Ａ．4　　　Ｂ．5　　　Ｃ．6　　Ｄ．7

（）18、“x是小于100的非负数”，用VB表达式表示，正确的是：

Ａ．x<100B．0<=xAndx<100

Ｃ．0<=x<100Ｄ．0≤xOrx<100

（）19、要判断两个整型变量A和B中有且只有一个为0，不能使用下面哪一个逻辑表达式（）。

Ａ．A=0AndB<>0orA<>0andB=0

Ｂ．A=0XorB=0

Ｃ．A*B=0AndA<>B

Ｄ．A*B=0And（A=0OrB=0）

（）20、下列程序段循环结构执行后，i的输出值是：

Ａ．２５　　　　　　　　　　Ｂ．１０

Ｃ．１１　　　　　　　　　　Ｄ．因为y的初值不知道，所以不确定

Fori=1to10Step2

y=y+i

Nexti

Printi

三．填空题（每空2分，共20分）

1.语句optionexplicit的作用是强制变量声明　。

2.把条件10≤Ｘ＜１２写成Visualbasic表达式为：

10<=xandx<12　　　。

3．将数学式

写成VB表达式为：

________________________________________________________________________。

4.逻辑符And、Or、Not按优先级排序为：

。

5．选拔身高（T）超过1.7米且体重（W）小于62.5公斤的人，表示该条件的布尔表达式为：

　　　T>1.7andW<62.5　　　　　　　　　　　　　　　　　　　　　。

6.声明一个值为3.14的常量Pi的语句为Constpi=3.14_。

7.在过程中定义Dimx（9,1to10）asInteger,则数组中共拥有__________个元素。

8.要使一个按钮无效，则可把它的Enable属性设为False（True、False）。

9.设X是大于300且能被3整除的奇数，关于X的表达式为：

______（x>300）and（xMod3=0）and（xMod2<>0）_______________________。

10．定时器控件的Interval属性值是指时间间隔，单位为毫秒；当每隔此间隔的时间，定时器会触发一次计时器事件。

四.程序填空题：

（每空3分，共12分）

1．如下程序运行后,变量S的值为120,i的值为6。

OptionExplicit

PrivateSubCommand1_Click（）

DimiAsInteger

StaticSAsInteger

S=1

Fori=1To5

S=S*i

Nexti

PrintS

EndSub

2．以下程序是求1—100之间所有的“偶数”之和。

请填空。

Dimsasinteger

Dimiasinteger

S=0

Fori=2to100step2

S=S+i

Nexti

PrintS

五．程序阅读题（每小题2分，共4分）

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

　　Private Sub Command1_Click（） 

　　For n = 1 To 5

　　If n Mod 3 <> 0 Thenm = m + n \ 3 

　　Next n 

　　Print n 

Printm

　　End Sub 

程序运行后，如果单击命令按钮，则窗体上显示:

n=_____6________;m=2

六．程序设计题，请将以下横线中的代码补充完整。

（每空2分,共14分）

1．假设某班共有学生N人，编写程序统计该班学生的VisualBasic考试成绩，并显示出60分以下、60—70、70—80、80—90以及90分以上的学生人数各是多少？

程序代码如下：

Privatesubform_click（）

Dimscoreassingle‘score表示考生的实际分数

Dimx1%,x2%,x3%,x4%,x5%‘x1,x2,x3,x4,x5分别表示各个分数段的人数

DimIasinteger‘I表示循环变量

DimNasinteger‘N表示参考总人数

N=val（inputbox（“请输入参考总人数:

”））

ForI=1ton

Score=val（inputbox（“请输入成绩:

”））

SelectcaseScore

Caseis>=90

X1=x1+1

Caseis>=80

X2=x2+1

Caseis>=70

X3=x3+1

Caseis>=60

X4=x4+1

Caseelse

X5=x5+1

EndSelect

Nexti

Print“90分以上：

”，x1；“人”

Print“80—90分：

”，x2；“人”

Print“70—80分：

”，x3；“人”

Print“60—70分：

”，x4；“人”

Print“60分以下：

”，x5；“人”

Endsub

实验六思考题:

设s,m,n均为String类型的变量,编程实现:

如果s中包含字串m,则将s中的字串m部分替换为n后生成一个新串并输出.要求s,m,n的值均由用户输入.

PrivateSubCommand1_Click（）

DimsAsString

DimmAsString

DimnAsString

DimlsAsString

DimiAsInteger

DimkAsInteger

s=InputBox（"请输入S字符串"）

Text2.Text=s

m=InputBox（"请输入m字符串"）

Text3.Text=m

n=InputBox（"请输入n字符串"）

Text4.Text=n

i=InStr（s,m）

k=i+Len（m）

ls=Left（s,i-1）

Text1.Text=ls+n+Mid（s,k）'text1.Text=left（s,i-1）+n+mid（s,k）

EndSub

PrivateSubForm_Click（）

Dima%,b%,c%,tempAsDouble

a=Val（InputBox（"请输入a"））

b=Val（InputBox（"请输入b"））

c=Val（InputBox（"请输入c"））

Ifa>bThen

temp=a

a=b

b=temp

EndIf

Ifa>cThen

temp=a

a=c

c=temp

EndIf

Ifb>cThen

temp=b

b=c

c=temp

EndIf

Printa;b;c

EndSub

PrintResult

或者PrivateSubcmdselect_Click（）

DimxAsSingle,yAsSingle

DimOperatorAsString

DimresultAsSingle

x=Val（InputBox（"输入第一个数：

",,0））

Operator=InputBox（"输入运算法：

",,"+"）

y=Val（InputBox（"输入第二个数:

",,0））

SelectCaseOperator

Case"+":

result=x+y

Case"-":

result=x-y

Case"*":

result=x*y

Case"/":

result=x/y

EndSelect

Printresult

EndSub

1、PrivateSubForm_Click（）

Dimx%,y%,z%

x=Val（InputBox（"请输入第一门课程成绩"））

y=Val（InputBox（"请输入第二门课程成绩"））

z=Val（InputBox（"请输入第三门课程成绩"））

If（（x+y+z）/3）>95Or（x=100Andy=100Andz>=80）Or（x=100Andz=100Andy>=80）Or（y=100Andz=100Andz>=80）Then

Print"该同学获得一等奖"

ElseIf（x+y+y）/3>90Or（x=100Andy>=75Andz>=75）Or（y=100Andx>=75Andz>=75）Or（z=100Andx>=75Andz>=75）Then

Print"该同学获得二等奖"

ElseIfx>=70Andy>=70Andz>=70Then

Print"该同学获得三等奖"

Else

Print"该同学没