Visual Basic 6.0期末实操考试题（高职统考版）

VisualBasic6.0期末实操考试题（高职统考版）考试时长：90分钟满分：100分适用：高职计算机公共课/专业基础课考试说明：1.考试环境：VB6.0简体中文企业版；2.所有代码手写+上机调试均可，答案贴合教材标准写法，无高阶语法；3.实操题需写明控件属性设置+完整代码，按步骤给分一、单项选择题（共10题，每题2分，合计20分）说明：本题为上机基础概念实操选择题，结合窗体控件实操作答VB6.0中，修改窗体标题栏文字，需要修改窗体哪个属性（）

A.NameB.CaptionC.TextD.ForeColor下列属于VB数值常量的是（）

A."123"B.123abcC.-56D.True赋值语句书写格式正确的是（）

A.x+1=5B.3=xC.s=x+yD.Sin(x)=2命令按钮单击触发的默认事件是（）

A.LoadB.ClickC.DblClickD.Change表达式Int(-3.8)的运算结果是（）

A.-3B.-4C.3D.4VB中定义整型变量的关键字是（）

A.StringB.IntegerC.SingleD.Boolean要让文本框禁止用户手动输入内容，需设置属性为True的是（）

A.EnabledB.LockedC.VisibleD.MultiLine循环语句Fori=1To10Step2一共循环次数为（）

A.10次B.5次C.6次D.9次下列运算符优先级最高的是（）

A.+B.ModC.*D.>卸载关闭当前窗体的代码是（）

A.EndB.UnloadMeC.ClsD.Stop二、程序填空题（共3空，每空3分，合计9分）题目功能：输入两个整数，求和并输出结果，补全下方按钮单击事件代码vb

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,sAsInteger

a=Val(InputBox("请输入第一个数"))

b=Val(InputBox("请输入第二个数"))

s=_____(1)_____

Print"两数之和为：";_____(2)_____

EndSub

'拓展填空：如需清空窗体所有打印内容，使用语句_____(3)_____三、程序改错题（共4处错误，每处改错4分，合计16分）题目功能：判断输入数字是否为偶数，下方代码共4处语法/逻辑错误，直接标注错误行并改写，禁止改动程序功能vb

PrivateSubCommand1_Click()

DimxAsInteger

x=InputBox("输入一个整数")'错误1

Ifx/2=0Then'错误2

Print"偶数"

Else

Print"奇数"'错误3

Endif'错误4

EndSub四、简单界面实操题（1题，合计20分）实操要求：新建标准EXE工程，完成窗体+控件属性设置，编写对应代码，保存工程为test.vbp、窗体为test.frm1.界面控件搭建（8分）窗体Form1：Caption属性改为【简易计算器】，Width=4000，Height=2500添加2个文本框：Text1、Text2，清空Text默认内容添加1个命令按钮：Command1，Caption=求和添加1个标签：Label1，Caption=计算结果，BorderStyle=1（单线边框）2.功能要求（12分）点击【求和】按钮，读取Text1、Text2数字，相加后结果显示在Label1标签内；非数字输入提示“请输入有效数字”五、编程大题（2题，第一题15分，第二题20分，合计35分）大题1（分支结构15分）编写程序：输入学生考试分数（0-100），按等级判定：90及以上优秀，80-89良好，60-79及格，60以下不及格，使用If多分支语句完成，点击按钮弹窗输出等级。大题2（循环结构20分）编写For循环程序：计算1到50之间所有偶数的累加和，窗体直接打印最终累加结果，需定义变量、规范循环格式，代码无冗余。一、选择题答案1.B2.C3.C4.B5.B6.B7.B8.C9.C10.B简易解析（阅卷备用）：1.Caption专属标题属性；5.Int函数向下取整；8.循环取值1,3,5,7,9共6次；10.End直接结束整个程序，UnloadMe仅关闭当前窗体二、程序填空答案(1)a+b(2)s(3)Cls得分说明：写大写字母无扣分，VB不区分大小写三、程序改错标准答案（4处精准错误）错误1：x=InputBox("输入一个整数")

修改：x=Val(InputBox("输入一个整数"))

原因：InputBox读取内容为字符串，必须Val转数值，否则判断出错错误2：Ifx/2=0Then

修改：IfxMod2=0Then

原因：判断奇偶必须用取余Mod，除法无法判定整除错误3：Print"奇数"

扣分点：代码无语法错，属于格式扣分，本行无错，错误为第四行错误4：Endif

修改：EndIf

原因：VB关键字大小写格式，小写if语法报错，必须大写If四、界面实操题完整答案（属性+全套代码，按步骤给分）1.控件属性汇总（8分，错一处扣1分）Form1：Caption="简易计算器"，Width=4000，Height=2500Text1.Text=""、Text2.Text=""Command1.Caption="求和"Label1.Caption="计算结果"，Label1.BorderStyle=12.按钮完整代码（12分）vb

PrivateSubCommand1_Click()

Dimnum1AsSingle,num2AsSingle,resAsSingle

'判断是否为数字

IfIsNumeric(Text1.Text)=FalseOrIsNumeric(Text2.Text)=FalseThen

MsgBox"请输入有效数字"

Else

num1=Val(Text1.Text)

num2=Val(Text2.Text)

res=num1+num2

Label1.Caption="计算结果："&res

EndIf

EndSub五、编程大题标准答案（考场标准写法，精简无冗余）大题1分数等级代码（15分）vb

PrivateSubCommand1_Click()

DimscoreAsSingle

score=Val(InputBox("请输入学生分数0-100"))

'边界分数判定

Ifscore>=90Then

MsgBox"成绩等级：优秀"

ElseIfscore>=80Then

MsgBox"成绩等级：良好"

ElseIfscore>=60Then

MsgBox"成绩等级：及格"

Else

MsgBox"成绩等级：不及格"

EndIf

EndSub得分点：变量定义3分、Val转换3分、多分支结构6分、弹窗输出3分大题21-50偶数求和代码（20分）vb

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0'累加变量初始清零，必写

Fori=2To50Step2

sum=sum+i

Nexti

Print"1