Visual Basic 程序设计期末考试试题及答案

VisualBasic程序设计期末考试试题及答案考试说明：1.本试卷满分100分，考试时间90分钟；2.答题字迹工整、程序代码规范，变量命名清晰；3.所有程序题默认在VB6.0环境下运行。一、单项选择题（每题2分，共20分）1.VisualBasic属于（）程序设计语言A.机器语言B.汇编语言C.面向对象的高级语言D.低级语言2.VB中窗体文件的扩展名是（）A..vbpB..frmC..basD..cls3.下列合法的VB变量名是（）A.123aB.a_123C.a*bD.dim4.VB中，表达式5Mod2的运算结果是（）A.0B.1C.2D.35.能够将文本框Text1的内容清空的语句是（）A.Text1.Text=""B.Text1.ClearC.Text1.ClsD.Text1=Null6.循环语句Fori=1To10Step2的循环次数是（）A.10次B.5次C.4次D.9次7.VB中，用来定义整型变量的关键字是（）A.StringB.SingleC.IntegerD.Boolean8.下列语句中，属于分支结构的是（）A.ForB.DoWhileC.IfD.Sub9.若a=3，b=5，表达式a>bAnda+b>6的结果是（）A.TrueB.FalseC.1D.010.窗体的Load事件触发时机是（）A.窗体关闭时B.窗体加载显示前C.窗体单击时D.窗体拖动时二、填空题（每空2分，共20分）1.VB程序的基本结构包括顺序结构、__________和循环结构。2.定义常量需要使用关键字__________。3.表达式Int(3.8)的值是__________。4.字符串连接运算符有__________和&两种。5.DoLoop循环中，__________语句可以直接跳出循环，结束循环执行。6.标签控件显示内容的核心属性是__________。7.数组Dimarr(1To5)定义的数组包含__________个元素。8.VB中布尔型数据的两个取值是True和__________。9.实现窗体刷新清屏的方法是__________。10.自定义过程以Sub开头，以__________结尾。三、程序阅读题（每题8分，共24分）1.阅读下列程序，写出运行结果PlainText

PrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+i

Nexti

Prints

EndSub程序运行输出结果：__________2.阅读下列程序，写出运行结果PlainText

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,tAsInteger

a=10

b=20

t=a

a=b

b=t

Print"a=";a,"b=";b

EndSub程序运行输出结果：__________3.阅读下列程序，写出运行结果PlainText

PrivateSubCommand1_Click()

DimxAsInteger

x=8

Ifx>10Then

Print"大于10"

ElseIfx>5Then

Print"大于5小于等于10"

Else

Print"小于等于5"

EndIf

EndSub程序运行输出结果：__________四、程序填空题（每空3分，共18分）1.以下程序功能：计算1到100的偶数和，补充完整代码。PlainText

PrivateSubCommand1_Click()

DimiAsInteger,sumAsLong

sum=0

Fori=2To100Step_______

sum=sum+i

Next_______

Print"1-100偶数和为：";sum

EndSub2.以下程序功能：判断输入的数字是否为正数，补充完整代码。PlainText

PrivateSubCommand1_Click()

DimnumAsSingle

num=Val(InputBox("请输入一个数字"))

Ifnum_______0Then

Print"该数是正数"

Else

Print"该数不是正数"

_______

EndSub3.以下程序功能：利用Do循环输出1-5，补充完整代码。PlainText

PrivateSubCommand1_Click()

DimiAsInteger

i=1

DoWhilei<=_______

Printi

i=_______

Loop

EndSub五、编程应用题（每题18分，共18分）编写VB程序，实现功能：单击命令按钮，输入一个学生的考试分数（0-100），根据分数判断等级并输出。等级判定规则：1.90~100分：优秀2.80~89分：良好3.60~79分：及格4.0~59分：不及格要求：代码规范，具备基本容错逻辑，分数超出0-100范围提示“输入分数不合法”。参考答案及详细解析一、单项选择题答案及解析1.C解析：VB是可视化、面向对象的高级程序设计语言，区别于机器语言、汇编语言等低级语言。2.B解析：.vbp为工程文件，.frm为窗体文件，.bas为标准模块文件，.cls为类模块文件。3.B解析：VB变量名不能以数字开头、不能包含特殊符号、不能使用系统关键字。A以数字开头，C含特殊符号，D是关键字。4.B解析：Mod为取余运算，5除以2商2余1，结果为1。5.A解析：文本框内容由Text属性控制，赋值空字符串即可清空；Clear、Cls不适用于文本框控件。6.B解析：循环取值为1、3、5、7、9，共5次循环。7.C解析：Integer为整型，String为字符串型，Single为单精度浮点型，Boolean为布尔型。8.C解析：If语句为分支结构，For、DoWhile为循环结构，Sub为过程定义语句。9.B解析：a=3、b=5，a>b结果为False，And运算中只要一个条件为假，整体结果为假。10.B解析：窗体Load事件在窗体加载到内存、显示界面之前触发。二、填空题答案1.分支结构（选择结构）2.Const3.34.+5.ExitDo6.Caption7.58.False9.Cls10.EndSub三、程序阅读题答案及解析1.15解析：程序实现1-5累加，1+2+3+4+5=15，循环结束后输出累加结果。2.a=20b=10解析：通过中间变量t完成a、b两个变量数值的互换。3.大于5小于等于10解析：x=8，不满足大于10的条件，满足大于5的分支条件，执行对应输出语句。四、程序填空题答案1.第一空：2第二空：i2.第一空：>第二空：EndIf3.第一空：5第二空：i+1五、编程应用题参考答案（完整代码+解析）完整代码：PlainText

PrivateSubCommand1_Click()

DimscoreAsSingle

'输入分数并转换为数值型

score=Val(InputBox("请输入学生考试分数（0-100）：","分数输入"))

'判断分数合法性及等级

Ifscore<0Orscore>100Then

Print"输入分数不合法"

ElseIfscore>=90Then

Print"成绩等级：优秀"

ElseIfscore>=80Then

Print"成绩等级：良好"

ElseIfscore>=60Then

Print"成绩等级：及格"

Else

Print"成绩等级：不及格"

EndIf

EndS