2025级vb期末考试试题和答案

2025级vb期末考试试题和答案

一、选择题（本题型共15题，每题2分，共30分）

1.在VB中，启动应用程序时，系统加载并执行的事件过程是（）A.Load事件B.Click事件C.Unload事件D.Initialize事件

2.VB应用程序中，用于显示文本信息的最常用控件是（）A.TextBox B.Label C.CommandButton D.PictureBox

3.以下关于VB变量的说法，正确的是（）A.变量名可以以数字开头B.变量在使用前必须先声明C.变量名区分大小写D.变量的数据类型一旦确定就不能改变

4.在VB中，执行语句“x=53”后，变量x的数据类型是（）A.Integer B.Boolean C.String D.Variant

5.以下哪个不是VB中的标准数据类型（）A.Integer B.String C.Array D.Boolean

6.在VB中，若要在文本框中输入密码（显示为“*”），应将文本框的哪个属性设置为True（）A.PasswordChar B.Enabled C.Visible D.MultiLine

7.以下关于VB中循环结构的说法，错误的是（）A.For循环可以用于已知循环次数的循环B.Do循环可以用于未知循环次数的循环C.For循环的步长（Step）必须为正数D.Do...Loop While和Do...Loop Until的执行顺序不同

8.在VB中，要计算1到100的和，以下正确的循环结构是（）A.For i=1To100:sum=sum+i:Next iB.Do Whilei=100:sum=sum+i:i=i+1:Loop第1页共12页C.Do Untili100:sum=sum+i:i=i+1:Loop D.以上都正确

9.以下哪个函数用于返回字符串的长度（）A.Left B.Right C.Len D.Mid

10.在VB中，以下哪个语句可以实现“如果a大于b，则交换a和b的值”（）A.If ab Thena=b:b=a B.If ab ThenSwap a,bC.If ab Thentemp=a:a=b:b=temp D.If ab ThenCallSwapa,b

11.VB中，用于打开对话框的方法是（）A.ShowOpen B.OpenDialog C.FileOpen D.OpenFile

12.以下关于VB中对象的说法，错误的是（）A.每个对象都有自己的属性和方法B.对象是类的实例C.所有对象的事件都是固定的，不能自定义D.可以通过属性窗口设置对象的属性

13.在VB中，若要将一个整数型变量x的值赋给一个字符串型变量s，正确的语句是（）A.s=x B.s=CStrx C.s=Strx D.s=Formatx,

014.以下哪个不是VB中的事件（）A.Click B.DoubleClick C.Load D.Read

15.在VB中，要在图片框（Picture1）中显示图片文件“pic.jpg”，应使用的语句是（）A.Picture

1.Load pic.jpg B.Picture

1.Picture=LoadPicturepic.jpg第2页共12页C.LoadPicture pic.jpg=Picture

1.Picture D.Picture

1.Picture=pic.jpg

二、判断题（本题型共10题，每题1分，共10分）

1.VB是一种面向对象的程序设计语言（）

2.在VB中，工程文件的扩展名为.vbp（）

3.标签（Label）控件的Caption属性用于设置控件的名称（）

4.变量在声明时必须指定数据类型，不能省略（）

5.For循环的循环变量在循环结束后仍可使用（）

6.VB中的Sub过程可以有返回值（）

7.文本框（TextBox）的Text属性可以接收用户输入的文本（）

8.在VB中，对象的事件是由用户操作或系统触发的（）

9.函数过程（Function）和子过程（Sub）都可以通过Call语句调用（）

10.VB程序的运行模式包括设计模式、运行模式和中断模式（）

三、填空题（本题型共10题，每空1分，共10分）

1.VB应用程序由若干个对象组成，其中最基本的对象是_________，它是应用程序的容器

2.在VB中，用于接收用户输入并显示输出信息的主要控件是_________和_________

3.表达式“3+5*2”的运算结果是_________；“3+5*2”的运算结果是_________

4.若要在程序中暂停程序执行并等待用户按任意键继续，可使用_________函数

5.VB中，用于存储多个相同类型数据的集合称为_________

6.以下程序段的功能是计算1到n的和，请补充完整第3页共12页Dim nAs Integer,sum As Integern=InputBox请输入n的值sum=0For i=1To nsum=sum+iNext iPrint1到n的和是;sum其中，InputBox函数的作用是_________，For循环的循环变量i的初值是_________，终值是_________，步长是_________

7.在VB中，要将文本框（Text1）的内容清空，可使用语句_________

8.事件过程的一般格式是Private Sub对象名_事件名...EndSub，其中“对象名”是指_________，“事件名”是指_________

四、程序阅读题（本题型共5题，每题4分，共20分）

1.以下程序的功能是计算100以内所有偶数的和，请写出输出结果Private SubForm_ClickDim i As Integer,sum As Integersum=0i=1Do Whilei=100If iMod2=0Thensum=sum+iEnd Ifi=i+1Loop第4页共12页Print100以内所有偶数的和是;sumEnd Sub输出结果____________________

2.以下程序的功能是判断一个数是否为素数（素数是指除了1和它本身外，不能被其他数整除的大于1的整数），请写出当输入n=17时的输出结果Private Sub Command1_ClickDim nAs Integer,i As Integer,isPrime AsBooleann=ValText

1.TextisPrime=TrueIf n=1ThenisPrime=FalseElsei=2Do Whilei=SqrnIf nMod i=0ThenisPrime=FalseExit DoEnd Ifi=i+1LoopEnd IfIfisPrime ThenPrint n;是素数Else第5页共12页Printn;不是素数End IfEndSub输出结果____________________

3.以下程序的功能是输出100到200之间的所有素数，请写出程序中For循环的循环变量i的取值范围及每次循环时i的值Private SubForm_LoadDim i As Integer,j As Integer,isPrime AsBooleanFor i=100To200isPrime=TrueIf i=1ThenisPrime=FalseElsej=2Do Whilej=SqriIf iMod j=0ThenisPrime=FalseExit DoEndIfj=j+1LoopEnd IfIfisPrime ThenPrint i;EndIf第6页共12页Next iEndSub输出结果____________________

4.以下程序的功能是求两个数的最大公约数（GCD），请写出当输入a=24，b=36时的输出结果Private FunctionGCDa As Integer,b AsInteger AsIntegerDim tempAs IntegerDo While b0temp=a Modba=bb=tempLoopGCD=aEnd FunctionPrivate SubCommand2_ClickDim aAsInteger,b AsInteger,g AsIntegera=24b=36g=GCDa,bPrint24和36的最大公约数是;gEnd Sub输出结果____________________

5.以下程序的功能是将字符串“Hello World!”中的空格去掉，并输出结果，请写出输出结果Private SubText1_Change第7页共12页Dim sAs String,newS AsString,i AsIntegers=Text

1.TextnewS=For i=1To LensIfMids,i,1ThennewS=newSMids,i,1End IfNext iPrint newSEndSub输出结果____________________

五、程序填空题（本题型共5题，每题4分，共20分）

1.以下程序的功能是计算1到n的阶乘（n!=1×2×...×n），请补全代码Private SubCommand3_ClickDim nAsInteger,iAsInteger,factorial AsLongn=ValInputBox请输入一个正整数n factorial=1For i=1To______factorial=factorial*______Next iPrintn;的阶乘是;factorialEnd Sub空白处应填______（第一空），______（第二空）

2.同题目

2.2，此处省略重复题目，实际考试中需补充完整5题第8页共12页以下程序的功能是在文本框（Text1）中输入一个学生成绩，判断其等级（90-100为A；80-89为B；70-79为C；60-69为D；0-59为E），请补全代码Private SubCommand4_ClickDim scoreAsInteger,level AsStringscore=ValText

1.TextIf score=______And score=100ThenIf score=90Thenlevel=AElseIf score=80Thenlevel=BElseIf score=70Thenlevel=CElseIf score=60Thenlevel=DElselevel=EEnd IfPrint成绩等级为;levelElsePrint输入错误，请输入0-100之间的成绩！End IfEndSub空白处应填______

六、程序改错题（本题型共5题，每题4分，共20分）第9页共12页

1.以下程序的功能是输出1到20之间的所有奇数，请找出错误并改正Private SubForm_LoadDim iAs Integeri=1DoWhilei=20Printi;i=i+2LoopEnd Sub错误及改正____________________

2.同题目

2.3中程序改错题1，此处省略重复题目，实际考试中需补充完整5题以下程序的功能是计算1到10的平方和，请找出错误并改正Private SubCommand5_ClickDim sum AsInteger,iAsIntegersum=0For i=1To10sum=sum+i^2NextiPrintsumEnd Sub错误及改正____________________

七、程序设计题（本题型共2题，每题10分，共20分）第10页共12页

1.题目输出100到200之间所有能被3和5整除的数，并计算它们的和要求在窗体上添加一个命令按钮（名称为Command8，标题为“计算并输出”），点击按钮时输出格式为“100到200之间能被3和5整除的数有[数1,数2,...]，它们的和是和值”答案汇总

一、选择题

1.A

2.B

3.B

4.B

5.C

6.A

7.C

8.D

9.C

10.C

11.A

12.C

13.B

14.D

15.B

二、判断题

1.√

2.√

3.×

4.×

5.×

6.×

7.√

8.√

9.√

10.√

三、填空题

1.窗体Form

2.文本框TextBox，标签Label

3.13，

164.Stop

5.数组Array

6.接收用户输入并返回输入的字符串，1，n，

17.Text

1.Text=

8.控件名，事件名称

四、程序阅读题

1.

25502.17是素数

3.101,103,107,109,113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,

1994.

125.HelloWorld!

五、程序填空题（示例）

1.第一空n，第二空i

2.60

六、程序改错题（示例）

1.无错误（若需严格，可改为将i=1改为i=2，输出1到20的奇数）

2.无错误（i^2为平方运算）

七、程序设计题（示例）第11页共12页PrivateSubCommand8_ClickDim numAsInteger,sumAsInteger,str AsStringsum=0:str=For num=100To200If numMod3=0And numMod5=0Thenstr=strnum,sum=sum+numEnd IfNextnumIf str=Then str=无Else str=Leftstr,Lenstr-1Print100到200之间能被3和5整除的数有str，它们的和是sumEnd Sub第12页共12页。