程序设计语言VB

本文格式为Word版，下载可任意编辑——程序设计语言VB《程序设计语言VB》课程习题集

一、单项选择题

1.VisualBasic是一种面向（）的程序设计语言。

A.用户B.事件C.程序D.对象

2.在VisualBasic6.0中规定工程文件的扩展名是（）。

A.vbpB.forC.frmD.bas

3.VisualBasic6.0中规定窗体文件的扩展名是（）。

A.forB.frmC.vbpD.bas

4.如何使一个标签或按钮控件在运行时不可用（）。

A.把它的Visible属性设置成FalseB.把它的Visible属性设置成TrueC.把它的Enabled属性设置成FalseD.把它的Enabled属性设置成True

5.控件的字体可在属性窗口的（）属性中调整？

A.FontB.ColorC.TextD.Caption

6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。

A.ValueB.CancelC.DefaultD.Enabled

7.在VB中，记录对象数据的是（）。

A.方法B.事件C.属性

第1页共24页

D.语句

8.在文本框上显示文本的属性是（）。

A.ValueB.TextC.PrintD.Enabled

9.InputBox函数返回值的类型为（）。

A.字符串B.数值C.变体

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

10.设有语句：a=InputBox(\请输入数值:\输入例如\程序执行后,若从键盘上输

入数值20并按回车键,则变量a的值是（）。A.字符串\B.字符串\C.默认值100D.数值120

11.以下控件中可用于接受用户输入文本，又可用于显示文本的是（）。

A.Label控件B.TextBox控件C.Timer控件

D.CommandButton控件

12.语句PRINT\的输出结果是（）。

A.25*4B.\C.100

D.出现错误信息

13.只能用来显示字符信息的控件是（）。

A.文本框B.标签框C.图片框D.图像框

14.以下可作为VisualBasic变量名的是（）。

A.A%AB.4AC.?xyD.Stemp

15.以下哪个符号不能作为VB中的变量名（）。

A.timefly

第2页共24页

B.pass4C.min4maxD.R[8]

16.在窗体内声明的变量是（）。

A.局部变量B.模块变量C.公共变量D.任意变量

17.语句DimxAsInteger作用是:将x定义为（）变量。

A.单精度型B.整型C.布尔型D.字符型

18.在VB中,用Boolean来表示的数据类型是（）。

A.长整型B.字符型C.布尔型D.单精度型

19.定义常量需要用到的关键字是（）。

A.ConstB.DimC.PrivateD.Public

20.假使要处理3.1415类数据，使用的变量类型应当是（）。

A.SingleB.LongC.IntegerD.String

21.表达式2*3^2+2*8/2+3^2的值为（）。

A.27B.31C.35D.42

22.数学表达式X^2+3XY对应的VB算术表达式是（）。

A.X*2+3X*YB.X*X+3XYC.X*X+3*X*YD.X*X+3*XY

23.在VB语言中，求余运算符是（）。

第3页共24页

A.％B.MODC.*D./

24.判断两个规律关系任一满足的规律运算是（）。

A.OrB.AndC.NotD.Ok

25.表达式4+5\\6*7/8Mod9的值是（）。

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

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

A.T>=1.7AndW=60C.T>1.7AndW=1.7OrWbanda>cB.a>b>cC.a≤bD.a≠122

28.设x=4,y=8,z=7，表达式xz)Orz=10thena=1elsea=2执行后，a的值为（A.12B.10C.1D.2

38.语句Ifx=1Theny=1,以下说法正确的是（）。

A.x=1和y=1均为赋值语句B.x=1和y=1均为关系表达式

C.x=1为关系表达式，y=1为赋值语句

第5页共24页

。）

D.x=1为赋值语句，y=1为关系表达

39.下面程序段中，（）不是把两个数中的大值赋给变量Ｍax。

A.Max=IIf(x>y,x,y)

B.Ifx>yThenMax=xElseMax=yC.Max=x：Ify>=xThenMax=yD.Ify>=xThenMax=yMax=x

40.在Select判断结构中，下面的表述中不正确的是（）。

A.Case1B.Casea>5C.Case3To6D.CaseisA.顺序文件开启后，既可以读又可以写B.随机文件开启后，既可以读又可以写C.顺序文件开启后，只能读或者只能写

D.顺序文件和随机文件的开启都使用Open语句

78.VB编程中顺序文件的处理将用到关键字是（）。

A.FileB.SaveC.OpenD.Disk

二、填空题1

79.PrivateSubCommand1_Click()

a=3b=1

Fori=1To3f=a+ba=bb=fNextiPrintfEndSub

以上程序段运行后，f的结果为。

80.设有如下通用过程：

PublicSubfun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

PrivateSubCommand1_Click()

Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=2*iNextfunarr,n

Text1.Text=Str(n)

第11页共24页

EndSub

程序运行后,单击命令按钮,则在文本框中显示的内容是。

81.阅读以下程序段

OptionExplicit

PrivateSubCommand1_Click()Dimstr1AsStringDimstr2AsStringstr1=\MySubstr1,str2Printstr2EndSub

PrivateSubMySub(ByValaAsString,bAsString)DimcAsStringDimiAsInteger

Fori=Len(a)To1Step-1c=c+Mid(a,i,1)Nextb=cEndSub程序运行后，“print〞语句的输出结果是____。

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

PrivateSubCommand1_Click()x=Int(Rnd)+6

Ifx^2>25Theny=x^2+5x=Int(Rnd)+4

Ifx^2=7Printi,xEndSub

单击命令按钮后，i和x的值分别是、。

87.下面程序运行后，a、b、c、d的结果分别。

PrivateSubCommand1_Click()Dima,b,c,dAsIntegerDo

Fora=1To2b=b+1

Ifa=1Thenb=0c=5d=d+2Nexta

LoopUntild>10Printa,b,c,dEndSub

88.假定有如下的Sub过程：

SubS(xAsSingle,yAsSingle)t=xx=t+xy=t-yEndSub

PrivateSubCommand2_Click()DimaAsSingle,bAsSinglea=6b=4

CallS(a,b)Printa,bEndSub

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

89.阅读以下程序段

Dima(3,3)AsIntegerForm=1To3

第14页共24页

Forn=1To3

a(m,n)=(m-1)*3+nNextnNextm

Form=2To3Forn=1To2Printa(m,n);NextnNextm

程序运行后，显示结果为：。

三、综合设计题

90.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，

则中止动态显示；单击按钮3，清除文本框内容。提醒：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text=Now）。

91.编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输

出。

92.编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。93.编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，

才在Text1中显示\字符。

94.编一程序能实现在窗体上打印出如下图所示的图形。

AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB

95.编一程序用于判断一正整数是否为素数。（提醒：只能被1和本身整除的正整数称为

素数。为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，假使都除不尽，则n就是素数，否则n是非素数。）

96.选用If和Select判断结构中任意一种编写满足以下条件的计税要求的程序：少于1600

元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。

97.有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较

大小的子过程，用c将大数回传。要求按值传送a、b。

98.编一程序用于求所有的\水仙花数\。所谓\水仙花数\是指一个3位数，其各位数字立

第15页共24页

方和等于该数本身。例如：153就是一水仙花数，由于153=13+53+33。

99.设计一弹出式菜单，用于设置窗体的背风景，背风景包含白色、黄色、红色三种颜色。100.编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。

假使能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。

提醒：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。

101.编写程序：通过四个命令按钮Command1-Command4，在图片框Picture1内分别实

现画点、画线、画圆、擦除等功能。

102.编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按

钮2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。

103.编一程序：用三个文本框分别输入a、b、c，求一元二次方程ax2+bx+c=0的解x1

和x2，只包括实根。

104.编一程序：利用输入对话框输入两个正整数，求最大公约数。四、简答题（略）??

答案

一、单项选择题1.D2.A3.B4.C5.A6.C7.C8.B9.A10.A11.B

第16页共24页

12.A13.B14.D15.D16.B17.B18.C19.A20.A21.C22.C23.B24.A25.B26.C27.A28.D29.A30.B31.B32.C33.A34.C35.C36.C37.C38.C39.D40.B41.C42.D43.A44.B45.B46.D47.C48.B49.C50.B

第17页共24页

51.D52.C53.D54.D55.C56.A57.A58.D59.C60.B61.A62.B63.B64.D65.C66.B67.C68.D69.C70.B71.D72.C73.C74.C75.D76.C77.A78.C

二、填空题179.980.30

81.GFEDCBA82.2083.384.1585.4、14

第18页共24页

86.7、29

87.3、1、5、1288.12、2

89.4、5、7、8

三、综合设计题

90.PrivateSubCommand1_Click()

Timer1.Interval=5Timer1.Enabled=TrueEndSub

PrivateSubCommand2_Click()Timer1.Enabled=FalseEndSub

PrivateSubCommand3_Click()Timer1.Enabled=FalseText1.Text=\EndSub

PrivateSubTimer1_Timer()Text1.Text=NowEndSub

91.PrivateSubCommand1_Click()

Dimi,sAsIntegerFori=100To200

IfiMod3=0Thens=s+iNexti

MsgBox(\之间所有可以被3整除的数的总和为：\EndSub

92.PrivateSubCommand1_Click()

Dima(9),i,j,mAsIntegerFori=0To9

a(i)=Val(InputBox(\第\个数：\Nexti

Fori=0To9

Forj=i+1To9Ifa(i)>a(j)Thenm=a(i)a(i)=a(j)

第19页共24页

a(j)=mEndIfNextjNexti

Fori=0To9Printa(i);NextiEndSub

93.PrivateSubCommand1_Click()

IfCheck1.Value=1AndCheck2.Value=1AndCheck3.Value=0ThenText1.Text=\EndIfEndSub

94.PrivateSubCommand1_Click()

Dimi,jAsIntegerFori=1To4

Forj=1To(2*i-1)Print\NextjPrintNexti

Fori=4To1Step-1

Forj=(2*i-1)To1Step-1Print\NextjPrintNextiEndSub

95.PrivateSubCommand4_Click()

Dimn,k,i,tempAsInteger

n=InputBox(\请输入一个正整数\k=Int(Sqr(n))i=2temp=0

DoWhilei

EndIfLoop

Iftemp=0Then

Printn;\是一个素数\Else

Printn;\不是素数\EndIfEndSub

96.PrivateSubCommand1_Click()

Dimn,pAsSinglen=Val(Text1.Text)SelectCasen

CaseIsbThenc=aElsec=bEndSub

PrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.Text)b=Val(Text2.Text)Callc1(a,b,c)PrintcEndSub

98.PrivateSubCommand1_Click()

Dima,b,c,nAsInteger

Forn=100To999a=Int(n/100)b=Int((n-a*100)/10)c=n-(a*100+b*10)

Ifn=a^3+b^3+c^3ThenPrintn;Next

第21页共24页

EndSub

99.PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)

IfButton=2Then

PopupMenuMenuAEndIfEndSub

PrivateSubB_Click(IndexAsInteger)SelectCaseIndexCase1

Form1.BackColor=vbWhiteCase2

Form1.BackColor=vbYellowCaseElse

Form1.BackColor=vbRedEndSelectEndSub

100.PrivateSubCommand1_Click()

Dima(2),i,j,mAsIntegerFori=0To2

a(i)=Val(InputBox(\第\条边为：\Nexti

Fori=0To2

Forj=i+1To2Ifa(i)>a(j)Thenm=a(i)a(i)=a(j)a(j)=mEndIfNextjNexti

I