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

VisualBasic程序设计期末试题及详细参考答案适用课程：VisualBasic程序设计考试时长：90分钟总分：100分考试形式：闭卷说明：所有答案请写在答题纸上，本试卷仅作试题使用。一、单项选择题（每题2分，共20分）1.在VisualBasic中，窗体文件的扩展名是（）A..vbp  B..frm  C..bas  D..cls2.下列变量名中，符合VB命名规则的是（）A.3num  B.num_1  C.num-1  D.dim3.表达式Int(3.8)+Round(2.5)的值是（）A.5  B.6  C.7  D.84.若要让文本框控件运行时不能编辑内容，应设置的属性是（）A.Enabled  B.Visible  C.Locked  D.ReadOnly5.VB中，赋值语句的正确写法是（）A.x+y=10  B.10=x  C.x=10  D.x==106.循环语句Fori=1To10Step2的循环次数为（）A.10次  B.5次  C.4次  D.9次7.判断字符串s是否为空字符串，最规范的写法是（）A.s=0  B.s=""  C.s=Null  D.s=Empty8.在VB中，属于整型数据类型的关键字是（）A.Single  B.String  C.Integer  D.Boolean9.单击窗体触发的事件是（）A.Load  B.Click  C.DblClick  D.Activate10.退出For循环的语句是（）A.ExitFor  B.ExitDo  C.End  D.Break二、判断题（每题1分，共10分，对的打√，错的打×）1.VB中变量不声明也可以直接使用。（）2.TextBox控件的Text属性默认返回字符串类型。（）3.4/2的结果是整数，4\2的结果是小数。（）4.If语句可以嵌套使用。（）5.标签控件Label可以接收用户输入。（）6.常量的值在程序运行过程中不允许改变。（）7.DoWhile循环至少执行一次循环体。（）8.窗体的Caption属性用于设置窗体标题栏文字。（）9.Val()函数可以将数字字符串转为数值。（）10.数组下标默认从1开始。（）三、填空题（每空2分，共20分）1.VB中定义整型变量的关键字是________。2.表达式15Mod4的结果是________。3.程序运行时禁止窗体被拖动修改大小，可设置________属性为False。4.字符串截取函数Left("abcdef",3)的结果是________。5.双重循环中，外层循环执行3次，内层循环执行4次，语句总共执行________次。6.布尔型数据的两个取值是True和________。7.清除窗体所有输出内容的方法是________。8.定义数组Dima(5)，该数组共有________个元素。9.输入对话框函数是________，输出消息框函数是MsgBox。10.结束整个程序运行的语句是________。四、程序阅读题（每题5分，共20分）1.写出下列程序段运行结果PlainText

DimxAsInteger

x=6

Ifx>5Then

x=x+2

Else

x=x-1

EndIf

Printx2.写出下列程序段运行结果PlainText

DimsAsInteger,iAsInteger

s=0

Fori=1To5

s=s+i

Nexti

Prints3.写出下列程序段运行结果PlainText

DimaAsString

a="VB程序设计"

PrintLen(a)4.写出下列程序段运行结果PlainText

DimiAsInteger

Fori=1To10

IfiMod3=0Then

Printi

EndIf

Nexti五、编程题（每题15分，共30分）1.编写VB程序，在窗体单击事件中实现：输入一个百分制成绩，判断并输出成绩等级。规则：90~100为优秀，80~89为良好，70~79为中等，60~69为及格，60以下为不及格。2.编写VB程序，利用循环计算1+2+3+……+100的累加和，并在窗体输出结果。详细参考答案及解析一、单项选择题答案及解析1.B解析：.vbp是工程文件，.frm是窗体文件，.bas是标准模块文件。2.B解析：变量名不能数字开头、不能含减号、不能使用系统关键字dim。3.B解析：Int(3.8)=3，Round(2.5)=3，相加结果为6。4.C解析：Locked=True锁定文本框，运行时不可编辑。5.C解析：赋值语句左侧必须为变量，VB赋值只用单个=。6.B解析：i取值1、3、5、7、9，共5次。7.B解析：空字符串判断统一使用s=""。8.C解析：Integer为整型，Single单精度，String字符串，Boolean布尔型。9.B解析：单击触发Click事件，双击触发DblClick。10.A解析：ExitFor强制退出For循环。二、判断题答案1.√2.√3.×4.√5.×6.√7.×8.√9.√10.×重点解析：3./是浮点除法，\是整数除法；5.Label标签只能显示文字，不能输入；7.DoWhile先判断后执行，条件不成立一次都不执行；10.VB数组默认下标从0开始。三、填空题答案1.Integer2.33.BorderStyle4.abc5.126.False7.Cls8.69.InputBox10.End四、程序阅读题答案1.运行结果：8解析：x初始为6，满足x>5，执行x=6+2=8。2.运行结果：15解析：1+2+3+4+5=15。3.运行结果：6解析：Len函数统计字符数，“VB程序设计”共6个字符。4.运行结果：3

6

9解析：输出1~10中所有能被3整除的整数。五、编程题参考答案（完整可运行代码）1.成绩等级判断程序PlainText

PrivateSubForm_Click()

DimscoreAsSingle

score=Val(InputBox("请输入百分制成绩"))

Ifscore>=90Andscore<=100Then

Print"优秀"

ElseIfscore>=80Then

Print"良好"

ElseIfscore>=70Then

Print"中等"

ElseIfscore>=60Then

Print"及格"

Else

Print"不及格"

EndIf

EndSub2.1到100