VB期末考试题型及详细参考答案

VB期末考试题型及详细参考答案本套试卷为通用VB期末统考题型，涵盖基础概念、语法规则、程序阅读、代码编程四大必考模块，题型分值贴合高校常规考试标准，答案为标准化考试标准答案，适合期末复习、模拟自测使用。一、单项选择题（共20题，每题2分，共40分）说明：每题只有一个正确答案，选出最优选项1.VisualBasic的编程机制是（）A.面向过程B.面向对象、事件驱动C.机器指令驱动D.结构化流程驱动答案：B解析：VB核心特点为面向对象、事件触发执行代码，区别于传统面向过程语言。2.以下不属于VB合法变量名的是（）A.Num1B.sum_ageC.123dataD.stuName答案：C解析：VB变量名必须以字母开头，不能以数字、符号开头，不能包含特殊符号、空格。3.VB中，定义整型变量的关键字是（）A.StringB.IntegerC.SingleD.Boolean答案：B解析：String为字符串型，Single为单精度浮点型，Boolean为布尔型。4.表达式15Mod4的运算结果是（）A.3B.4C.11D.2答案：A解析：Mod为取余运算，15÷4商3余3，结果为3。5.表达式Int(3.8)+Fix(-2.6)的值是（）A.1B.2C.0D.3答案：A解析：Int向下取整，Int(3.8)=3；Fix直接舍去小数，Fix(-2.6)=-2，3+(-2)=1。6.VB中，赋值语句正确的是（）A.x+1=5B.a=b=10C.s=2*a+3*bD.10=x答案：C解析：赋值语句左侧必须为变量，不能是表达式、常量；VB不支持连续赋值。7.用来结束当前过程的语句是（）A.EndB.ExitSubC.StopD.Break答案：B解析：End结束整个程序，ExitSub仅退出当前子过程，Stop为暂停程序。8.文本框控件用来显示内容的核心属性是（）A.CaptionB.TextC.ValueD.Name答案：B解析：文本框内容由Text属性控制，标签控件显示内容用Caption属性。9.若要让命令按钮不可用，需要设置的属性是（）A.Visible=FalseB.Enabled=FalseC.Locked=TrueD.Cancel=True答案：B解析：Enabled控制控件是否可用，Visible控制控件是否可见。10.VB中循环语句Fori=1To10Step2的循环次数是（）A.10次B.5次C.9次D.6次答案：B解析：循环取值1、3、5、7、9，共5次。11.布尔型数据的取值范围是（）A.0和1B.True和FalseC.任意整数D.任意字符答案：B12.清除窗体所有输出内容的语句是（）A.ClsB.ClearC.DeleteD.Remove答案：A13.定义数组Dima(1To5)AsInteger，该数组包含元素个数为（）A.4B.5C.6D.1答案：B14.下列运算符优先级最高的是（）A.算术运算符B.关系运算符C.逻辑运算符D.赋值运算符答案：A解析：优先级：算术>关系>逻辑>赋值。15.函数Len("VB考试")的返回值是（）A.2B.4C.6D.8答案：B解析：Len函数统计字符个数，一个汉字、一个字母均算1个字符。16.双击窗体触发的事件是（）A.ClickB.DblClickC.LoadD.Activate答案：B17.要随机生成1-100的整数，正确表达式是（）A.Int(Rnd*100)+1B.Int(Rnd*99)+1C.Rnd*100D.Int(Rnd*101)答案：A18.SelectCase语句属于（）结构A.顺序结构B.分支选择结构C.循环结构D.跳转结构答案：B19.DimsAsString*6定义的字符串，固定长度为（）A.可变B.6C.1D.不确定答案：B20.程序调试中，黄色高亮代码表示（）A.语法错误B.正在执行的代码C.注释代码D.无效代码答案：B二、填空题（共10空，每空2分，共20分）直接填写标准答案，简洁规范1.VB程序的三种基本结构是顺序结构、________、________。答案：选择结构、循环结构2.表达式3^2+5\2的值是________。答案：11解析：3^2=9，5\2为整数除法结果2，9+2=113.布尔表达式5>3And2<1的结果是________。答案：False4.终止For循环的语句是________。答案：ExitFor5.标签控件显示文字的属性是________，文本框接收输入的属性是________。答案：Caption、Text6.定义动态数组需要使用________关键字。答案：ReDim7.窗体加载时自动触发的事件是________。答案：Load8.函数Ucase("vb")的返回值是________。答案：VB三、程序阅读题（共2题，每题5分，共10分）写出程序运行最终输出结果1.阅读如下代码，写出运行结果PlainText

PrivateSubForm_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+i

Nexti

Prints

EndSub运行结果：15解析：程序实现1-5累加，1+2+3+4+5=152.阅读如下代码，写出运行结果PlainText

PrivateSubForm_Click()

DimaAsInteger,bAsInteger,tAsInteger

a=10

b=20

t=a

a=b

b=t

Printa,b

EndSub运行结果：2010解析：通过中间变量t，完成a、b两个数值的交换四、编程应用题（共3题，每题10分，共30分）题目+完整标准答案代码+详细注释，可直接运行题目1：编写程序，输入一个整数，判断该数是奇数还是偶数，并在窗体输出结果。参考答案代码：PlainText

PrivateSubForm_Click()

DimnAsInteger

'输入整数

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

'判断奇偶，能被2整除为偶数，否则为奇数

IfnMod2=0Then

Printn&"是偶数"

Else

Printn&"是奇数"

EndIf

EndSub解题思路：利用Mod取余运算，余数为0是偶数，余数不为0是奇数。题目2：编写程序，计算1到100所有偶数的和并输出。参考答案代码：PlainText

PrivateSubForm_Click()

DimiAsInteger,sumAsLong

sum=0

'遍历1-100所有数字

Fori=1To100

'筛选偶数

IfiMod2=0Then

sum=sum+i

EndIf

Nexti

'输出结果

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

EndSub运行结果：1到100偶数和为：2550题目3：编写程序，输入学生成绩（0-100），评定等级：90-100优秀，80-89良好，60-79及格，60以下不及格。参考答案代码：PlainText

PrivateSubForm_Click()

DimscoreAsSingle

score=Val(InputBox("请输入学生成绩(0-100)"))

'多分支判断成绩等级

SelectCasescore

Case90To100

Print"成绩等级：优秀"

Case80To89

Print"成绩等级：良好"

Case60To79

Print"成绩等级：及格"

Case0To59

Print"成绩等级：不及格"

CaseElse

Print"输入