VB程序设计期末试题及详细参考答案

VB程序设计期末试题及详细参考答案考试说明：满分100分，考试时间90分钟，闭卷考试适用范围：高校计算机基础、VB程序设计入门课程一、单项选择题（每题2分，共30分）说明：每小题只有一个正确答案，请将正确选项填入对应括号内1.在VisualBasic中，工程文件的扩展名是（）A、.frmB、.vbpC、.basD、.exe2.VB中用于定义整型变量的关键字是（）A、SingleB、StringC、IntegerD、Boolean3.下列VB表达式中，合法的是（）A、a×b+cB、a/b+5C、√x+yD、2x+3y4.赋值语句正确的是（）A、x+y=10B、10=xC、x=x+1D、x+1=y+25.VB中循环语句For…Next的循环终止条件是（）A、循环变量大于终值（步长为正）B、循环变量等于终值C、循环变量小于终值（步长为正）D、表达式成立即终止6.能实现弹出提示对话框的函数是（）A、InputBoxB、MsgBoxC、PrintD、Show7.若a=5，b=2，表达式aModb的结果是（）A、2B、1C、2.5D、08.下列不属于VB控件的是（）A、文本框B、命令按钮C、变量D、标签9.条件语句If…EndIf的作用是（）A、顺序执行代码B、分支选择执行代码C、循环执行代码D、结束程序10.字符串常量的正确书写格式是（）A、abcB、"abc"C、‘abc’D、(abc)11.在VB中，注释语句的起始符号是（）A、//B、/*C、'D、#12.滚动条控件的主要属性中，代表当前值的是（）A、MaxB、MinC、ValueD、SmallChange13.数组定义语句Dimarr(1To5)AsInteger，该数组包含的元素个数是（）A、3B、4C、5D、614.结束当前过程的语句是（）A、EndB、ExitSubC、StopD、Break15.Print10&20的输出结果是（）A、30B、1020C、1020D、报错二、填空题（每空2分，共20分）1.VB程序的三种基本结构是顺序结构、________、________。2.定义长整型变量的关键字是________，定义浮点型单精度变量的关键字是________。3.表达式Int(3.8)的运算结果是________，Rnd函数的取值范围是________。4.双重循环中，外层循环执行3次，内层循环执行4次，循环体总共执行________次。5.标签控件显示文本内容的属性是________，文本框接收输入内容的属性是________。6.VB中逻辑运算符And、Or、Not中，优先级最高的是________。三、程序阅读题（每题5分，共20分）写出下列程序段的运行输出结果1.vb

DimxAsInteger

x=8

Ifx>10Then

Print"大于10"

ElseIfx>5Then

Print"大于5"

Else

Print"小于等于5"

EndIf2.vb

DimsAsInteger,iAsInteger

s=0

Fori=1To5Step2

s=s+i

Nexti

Prints3.vb

Dima,b,tAsInteger

a=3

b=7

t=a

a=b

b=t

Printa,b4.vb

DimstrAsString

str="VB程序设计"

PrintLeft(str,2)四、编程应用题（每题10分，共30分）1.编写VB程序，输入一个整数，判断该数是正数、负数还是零，并输出对应结果。2.利用For循环编程，计算1~100所有偶数的和并输出结果。3.定义一维数组，存储5个学生的成绩，统计并输出最高分、最低分和平均分。详细参考答案及解析一、单项选择题答案及解析1.B解析：.vbp为工程文件，.frm为窗体文件，.bas为标准模块文件，.exe为可执行文件。2.C解析：Integer为整型，Single为单精度浮点型，String为字符串型，Boolean为布尔型。3.B解析：VB中乘号为*、除号为/，无×、√符号，变量相乘必须写运算符，2x需写成2*x。4.C解析：赋值语句左侧必须是变量，不能是常量或表达式，仅x=x+1符合语法规则。5.A解析：步长为正时，循环变量超过终值即终止循环；步长为负时，循环变量小于终值终止。6.B解析：MsgBox为弹出提示对话框，InputBox为输入对话框，Print为窗体输出，Show为窗体显示方法。7.B解析：Mod为取余运算，5除以2商2余1，结果为1。8.C解析：文本框、命令按钮、标签均为窗体控件，变量是程序数据存储单元，不属于控件。9.B解析：If条件语句属于分支结构，根据条件选择性执行代码。10.B解析：VB中字符串常量必须用英文双引号包裹。11.C解析：VB中单引号'为单行注释符号。12.C解析：Value属性存储滚动条当前数值，Max为最大值，Min为最小值，SmallChange为微调步长。13.C解析：数组下标从1到5，包含1、2、3、4、5共5个元素。14.B解析：ExitSub用于结束当前子过程，End结束整个程序，Stop暂停程序。15.B解析：&为字符串连接符，将数值10和20转为字符串拼接，结果为1020。二、填空题答案1.分支结构、循环结构2.Long、Single3.3、[0,1)（大于等于0，小于1）4.125.Caption、Text6.Not三、程序阅读题答案及解析1.输出结果：大于5解析：x=8，不满足x>10，满足x>5，执行对应分支输出结果。2.输出结果：9解析：循环i取值为1、3、5，累加和s=1+3+5=9。3.输出结果：73解析：通过临时变量t完成a、b数值交换，最终a=7，b=3。4.输出结果：VB解析：Left(str,2)函数截取字符串左侧2个字符。四、编程应用题参考答案（完整可运行代码）1.判断整数正负性vb

PrivateSubCommand1_Click()

DimnAsInteger

n=Val(InputBox("请输入一个整数"))

Ifn>0Then

Print"该数是正数"

ElseIfn<0Then

Print"该数是负数"

Else

Print"该数是零"

EndIf

EndSub解析：通过InputBox获取输入，Val转为数值，利用多分支条件判断数值属性。2.计算1~100偶数和vb

PrivateSubCommand2_Click()

DimiAsInteger,sumAsLong

sum=0

Fori=2To100Step2

sum=sum+i

Nexti

Print"1到100所有偶数的和为：";sum

EndSub解析：步长设置为2，直接遍历所有偶数，累加求和，用Long类型避免数值溢出。3.成绩统计（最高分、最低分、平均分）vb

PrivateSubCommand3_Click()

Dimscore(1To5)AsSingle

DimmaxAsSingle,minAsSingle,avgAsSingle,sumAsSingle

DimiAsInteger

'输入5个成绩

Fori=1To5

score(i)=Val(InputBox("请输入第"&i&"个学生成绩"))

Nexti

'初始化最值

max=score(1)

min=score(1)

sum=score(1)

'遍历比较统计

Fori=2To5

Ifscore(i)>maxThenmax=score(i)

Ifscore(i)<minThenmin=score(i)

sum=sum+score(i)

Nexti

avg=sum/5

'输出结果

Print"最高分：";max

Print"最低分：";min