Visual Basic程序设计期末考试试题（含详细答案）

VisualBasic程序设计期末考试试题（含详细答案）考试说明：1.本试卷满分100分，考试时间90分钟2.考试形式：闭卷笔试3.适用专业：计算机相关专业大一课程一、单项选择题（每题2分，共30分）1.在VisualBasic中，窗体文件的后缀名是（）A..vbpB..frmC..basD..cls2.下列变量名中，符合VB命名规则的是（）A.123numB.num_1C.num-1D.num@13.VB中，表达式5Mod2的结果是（）A.0B.1C.2D.34.想要让文本框控件不允许用户输入内容，应设置哪个属性（）A.EnabledB.VisibleC.LockedD.ReadOnly5.VB中，循环语句Fori=1To10Step2的循环次数是（）A.5次B.9次C.10次D.11次6.下列不属于VB基本数据类型的是（）A.IntegerB.StringC.BooleanD.Struct7.表达式Len("VB期末考试")的值是（）A.4B.5C.6D.78.单击窗体触发的事件是（）A.Form_LoadB.Form_ClickC.Form_DblClickD.Form_KeyPress9.VB中，用来声明整型变量的关键字是（）A.SingleB.IntegerC.StringD.Double10.赋值语句正确的是（）A.x+1=5B.5=xC.x=5+1D.x==511.若a=3，b=5，表达式a>bAnda+b>6的结果是（）A.TrueB.FalseC.0D.112.退出For循环的语句是（）A.ExitSubB.ExitForC.EndForD.Break13.标签控件用来显示文字内容的属性是（）A.TextB.CaptionC.NameD.Value14.Rnd函数的返回值范围是（）A.[0,1]B.(0,1)C.[0,1)D.(0,1]15.子程序过程的结束语句是（）A.EndIfB.EndSubC.EndFunctionD.EndLoop二、填空题（每空2分，共20分）1.VB中，工程文件的后缀是__________。2.定义常量需要使用关键字__________。3.表达式Int(3.8)的结果是__________。4.双击窗体触发的事件是__________。5.VB中，__________函数可以将数字转换为字符串。6.条件语句中，__________语句可以实现多分支判断。7.变量Dims$定义的是__________类型变量。8.清除窗体所有输出内容的方法是__________。9.计时器控件的核心事件是__________。10.数组Dima(1To5)包含__________个元素。三、程序阅读题（每题5分，共20分）1.写出下列程序的运行结果PlainText

PrivateSubForm_Click()

DimaAsInteger,bAsInteger

a=10

b=20

a=a+b

b=a-b

a=a-b

Printa,b

EndSub2.写出下列程序的运行结果PlainText

PrivateSubForm_Click()

DimsAsInteger,iAsInteger

s=0

Fori=1To5

s=s+i

Nexti

Prints

EndSub3.写出下列程序的运行结果PlainText

PrivateSubForm_Click()

DimxAsInteger

x=8

IfxMod2=0Then

Print"偶数"

Else

Print"奇数"

EndIf

EndSub4.写出下列程序的运行结果PlainText

PrivateSubForm_Click()

DimstrAsString

str="VisualBasic"

PrintMid(str,8,5)

EndSub四、编程应用题（每题10分，共30分）1.编写VB程序，在窗体单击事件中，输入一个整数，判断该数是正数、负数还是零，并输出对应结果。2.编写程序，利用循环计算1~100之间所有偶数的和，并在窗体上输出结果。3.编写程序，定义一维数组存储5个学生的成绩，统计并输出最高分、最低分和平均分。参考答案及详细解析一、单项选择题答案（每题2分）1.B解析：.frm是窗体文件，.vbp是工程文件，.bas是标准模块文件，.cls是类模块文件。2.B解析：VB变量名不能以数字开头、不能包含减号、@等特殊符号，只能由字母、数字、下划线组成。3.B解析：Mod是取余运算，5除以2商2余1。4.C解析：Locked属性为True时，文本框锁定，不可编辑；Enabled为False是控件禁用，Visible是隐藏控件。5.A解析：i取值为1、3、5、7、9，共5次循环。6.D解析：VB基础数据类型包含整型、字符串、布尔型等，Struct是结构体类型，不属于VB基础类型。7.C解析：Len函数统计字符个数，一个汉字、一个字母均算1个字符，共6个字符。8.B解析：Form_Click为窗体单击事件，Load是加载事件，DblClick是双击事件。9.B解析：Integer为整型，Single/Double为单/双精度浮点型，String为字符串型。10.C解析：VB赋值语句左侧必须为变量，不能为常量或表达式，无==赋值符号。11.B解析：a=3、b=5，a>b结果为False，And运算只要一个为假结果即为假。12.B解析：ExitFor强制退出For循环，ExitSub退出子程序。13.B解析：标签Label显示文本用Caption属性，文本框TextBox用Text属性。14.C解析：Rnd函数返回大于等于0、小于1的随机单精度数。15.B解析：Sub过程以EndSub结束，Function过程以EndFunction结束。二、填空题答案（每空2分）1..vbp2.Const3.34.Form_DblClick5.Str6.SelectCase7.字符串（String）8.Cls9.Timer10.5三、程序阅读题答案（每题5分）1.运行结果：2010解析：本段程序实现两个变量数值交换。第一步a=30，第二步b=10，第三步a=20，最终完成交换。2.运行结果：15解析：循环累加1+2+3+4+5，总和为15。3.运行结果：偶数解析：8对2取余结果为0，满足偶数判断条件，输出偶数。4.运行结果：Basic解析：Mid(字符串,起始位置,截取长度)，第8位开始截取5个字符，结果为Basic。四、编程应用题参考答案（每题10分）1.判断正负数、零程序PlainText

PrivateSubForm_Click()

DimxAsInteger

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

Ifx>0Then

Print"该数是正数"

ElseIfx<0Then

Print"该数是负数"

Else

Print"该数是零"

EndIf

EndSub评分标准：变量定义2分、输入语句2分、条件判断4分、输出语句2分。2.计算1~100偶数和程序PlainText

PrivateSubForm_Click()

DimiAsInteger,sumAsLong

sum=0

Fori=2To100Step2

sum=sum+i

Nexti

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

EndSub评分标准：变量初始化2分、循环结构4分、累加运算2分、结果输出2分。3.成绩统计程序PlainText

PrivateSubForm_Click()

Dima(1To5)AsInteger

DimmaxAsInteger,minAsInteger,sumAsInteger

DimavgAsSingle

'输入5个成绩

Fori=1To5

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

Nexti

'初始化最大值、最小值、总和

max=a(1)

min=a(1)

sum=a(1)

'遍历数组统计

Fori=2To5

Ifa(i)>maxThenmax=a(