VB程序设计模拟试题（含详细答案解析）

VB程序设计模拟试题（含详细答案解析）考试说明：满分100分，考试时间90分钟，题型包含选择题、填空题、程序阅读题、编程应用题，适合高职、本科基础课程结业及等级考试模拟使用。一、单项选择题（每题2分，共20分）1.在VB中，下列合法的变量名是（）A.123aB.a_123C.a-123D.Dim2.VB中表达式Int(-3.6)的运算结果是（）A.-3B.-4C.3D.43.若要将文本框控件设置为只读、不可编辑状态，应设置的属性是（）A.EnabledB.VisibleC.LockedD.ReadOnly4.VB中循环语句Fori=1To10Step2的循环次数是（）A.5次B.6次C.9次D.10次5.下列VB数据类型中，占用内存字节数最多的是（）A.IntegerB.LongC.SingleD.Double6.命令按钮的单击事件过程名称默认是（）A.Command_ClickB.Command1_ClickC.Click_Command1D.Cmd_Click7.表达式5Mod2+5\2的结果是（）A.2B.3C.4D.58.若要清除窗体上所有打印输出的内容，使用的方法是（）A.ClsB.ClearC.DeleteD.Remove9.在VB中，数组下标默认的起始值是（）A.0B.1C.-1D.随机10.下列语句中，能正确结束当前过程的是（）A.EndB.ExitSubC.StopD.Break二、填空题（每空2分，共20分）1.VB中定义整型变量的关键字是________，定义字符串变量的关键字是________。2.表达式Len("VB程序设计")的结果是________。3.条件语句Ifa>bThenMax=aElseMax=b的功能是________。4.计时器控件的核心属性________用于设置触发Timer事件的时间间隔，单位是毫秒。5.VB中，________函数可以生成[0,1)之间的随机小数。6.二维数组Dimarr(3,4)一共包含________个数组元素。7.将数值型数据转换为字符串的函数是________，将字符串转换为数值的函数是________。三、程序阅读题（每题10分，共30分）1.阅读如下程序，写出运行结果PlainText

PrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+i

Nexti

Prints

EndSub2.阅读如下程序，写出运行结果PlainText

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,tAsInteger

a=10

b=20

Ifa<bThen

t=a

a=b

b=t

EndIf

Printa,b

EndSub3.阅读如下程序，写出运行结果PlainText

PrivateSubCommand1_Click()

DimstrAsString

str="VisualBasic"

PrintMid(str,8,5)

EndSub四、编程应用题（每题15分，共30分）1.基础编程题编写VB程序，实现功能：输入一个正整数，判断该数是否为偶数，在窗体上输出判断结果。2.进阶编程题编写VB程序，利用循环语句计算1~100之间所有偶数的累加和，并输出最终结果。参考答案及详细解析一、单项选择题答案及解析1.答案：B解析：VB变量名命名规则：以字母开头，由字母、数字、下划线组成，不能使用系统关键字。A以数字开头，C包含非法字符减号，D是系统关键字，均不合法。2.答案：B解析：Int函数为向下取整函数，无论正负，均取不大于原数的最大整数，-4是小于-3.6的最大整数。3.答案：C解析：Locked属性设为True时，文本框内容只读不可编辑；Enabled为False是控件禁用变灰，Visible为False是控件隐藏，VB文本框无ReadOnly属性。4.答案：A解析：循环取值为1、3、5、7、9，共5次，步长为2，每次递增2，不包含10。5.答案：D解析：Integer占2字节，Long占4字节，Single占4字节，Double占8字节，Double占用内存最大。6.答案：B解析：VB控件默认事件命名规则：控件名_事件名，默认命令按钮名称为Command1，单击事件为Click。7.答案：B解析：Mod为取余运算，5Mod2=1；\为整数除法，5\2=2；两者相加1+2=3。8.答案：A解析：Cls方法专门用于清除窗体、图片框的打印输出内容，其余选项均不是VB标准清除方法。9.答案：A解析：VB数组默认下标从0开始，可通过OptionBase语句修改默认起始下标。10.答案：B解析：ExitSub用于结束当前子过程；End是结束整个程序运行；Stop是暂停程序，并非结束过程。二、填空题答案及解析1.Integer；String解析：VB标准数据类型定义关键字，Integer定义整型，String定义字符串型。2.6解析：Len函数统计字符串字符个数，中文、英文、符号均算1个字符，“VB程序设计”共6个字符。3.获取a、b两个数中的最大值并赋值给变量Max4.Interval解析：计时器Interval属性单位为毫秒，1000毫秒=1秒，值为0时计时器停止工作。5.Rnd解析：Rnd函数生成0到1（不包含1）的随机单精度小数。6.20解析：数组默认下标从0开始，arr(3,4)第一维0-3共4个，第二维0-4共5个，4×5=20个元素。7.Str；Val解析：Str()数值转字符串，Val()字符串转数值，是VB最常用的类型转换函数。三、程序阅读题答案及解析1.运行结果：15解析：程序实现1-5累加运算，s=1+2+3+4+5=15，循环结束后打印累加结果。2.运行结果：2010解析：程序通过临时变量t交换a、b的值，初始a=10、b=20，满足a<b条件，执行交换，最终a=20，b=10。3.运行结果：Basic解析：Mid(字符串,起始位置,截取长度)，字符串“VisualBasic”第8位字符为B，截取5个字符，结果为Basic。四、编程应用题参考答案1.偶数判断程序代码PlainText

PrivateSubCommand1_Click()

DimnAsInteger

'输入正整数

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

'判断是否为偶数

IfnMod2=0Then

Printn&"是偶数"

Else

Printn&"不是偶数"

EndIf

EndSub代码解析：通过InputBox获取用户输入数据，Val函数转换为数值型，利用Mod取余运算，余数为0即为偶数，窗体打印输出结果。2.1~100偶数累加和程序代码PlainText

PrivateSubCommand1_Click()

DimiAsInteger,sumAsLong

sum=0'初始化累加和为0

'遍历1-100所有整数

Fori=1To100

'判断为偶数则累加