VB考试实践试题及准确答案展示

VB考试实践试题及准确答案展示考试时间：______分钟总分：______分姓名：______一、选择题（每题2分，共20分。请将正确选项的字母填在括号内）1.在VisualBasic中，用于声明全局常量的关键字是？A.DimB.ConstC.PublicD.Static2.下列哪个不是VisualBasic中的基本数据类型？A.IntegerB.SingleC.StringD.Boolean3.表达式`Val("123.45")+Int(3.14159)`的值是？A.126.0B.126.45C.125.0D.125.454.在VisualBasic中，要判断两个变量是否引用同一个对象，应使用哪个运算符？A.=B.<>C.IsD.Like5.下列关于VisualBasic流程控制结构的描述，错误的是？A.For...Next循环可以用来重复执行一段代码指定的次数。B.Do...Loop循环至少执行一次循环体。C.If...Then...Else语句可以根据条件执行不同的代码块。D.SelectCase语句只能根据变量的整数值进行多分支选择。6.在VisualBasic中，要向列表框(ListBox)中添加一个新项，应使用哪个方法？A.RemoveItemB.ClearC.AddItemD.Item7.假设有一个文本框控件的Name属性为Text1，要使该文本框中的文本变为空，应使用以下哪个语句？A.Text1.Text=""B.Text1.Value=FalseC.Text1.ClearD.Text1.Text=08.在VisualBasic中，用于在消息框中显示错误图标的是？A.vbCriticalB.vbInformationC.vbExclamationD.vbOKOnly9.以下哪个属性用于设置或返回复选框(CheckBox)的选中状态？A.TextB.ValueC.CheckedD.Enabled10.在一个Form的Load事件中编写代码`Print"HelloWorld!"`，程序运行时，“HelloWorld!”会显示在哪里？A.状态栏B.该Form窗口C.弹出消息框D.系统剪贴板二、填空题（每空2分，共20分。请将答案填写在横线上）1.在VisualBasic中，使用`DimiAsInteger`声明了一个变量i，若要将其初始化为0，应写`__________`语句。2.若要使一个命令按钮不可用，应将其`Enabled`属性设置为_________。3.在`SelectCase`语句中，`CaseIs>10`这种形式用于判断变量是否_________10。4.假设有一个数组名为`nums`，要获取该数组中最后一个元素的值，可以使用表达式`nums(__________)`。5.要在标签(Label)上显示多行文本，应将其`WordWrap`属性设置为_________。6.在使用`Fori=1To5Step2`循环时，循环变量i的值依次是_________、_______。7.函数`Len("VisualBasic")`的返回值是_________。8.要使一个文本框接受Tab键输入，应将其`AcceptButton`属性设置为该文本框的Name属性，或者将其`TabStop`属性设置为_________。9.在过程定义`SubMySub()`中，关键字`Sub`表示这是一个_________过程。10.若要将一个整数变量`num`的值转换为字符串，可以使用函数`__________`(VB内置函数名)。三、读程序写结果题（每题10分，共20分。请写出程序运行后输出的结果或控件显示的内容）1.阅读以下代码段，写出程序运行后Label1上显示的内容。```vbPrivateSubCommand1_Click()DimsAsStrings=""Fori=1To4s=s&Chr(64+i)NextiLabel1.Caption=sEndSub```2.阅读以下代码段，写出程序运行时依次弹出的消息框中显示的内容。```vbPrivateSubCommand2_Click()DimaAsInteger,bAsIntegera=10:b=5Ifa>bThenMsgBox"AisgreaterthanB"Ifa<bThenMsgBox"AislessthanB"Ifa=bThenMsgBox"AisequaltoB"EndSub```四、程序修改/调试题（10分。以下程序存在错误，请指出至少两处错误并说明原因，然后给出修改后的完整代码）```vbPrivateSubCommand3_Click()DimsumAsIntegersum=0Fori=1To11IfiMod2=0Thensum=sum+iEndIfNextiText1.Text=sumEndSub```五、简单编程题（20分。请编写完整的VB代码实现以下功能）编写一个简单的VB程序，实现以下功能：1.界面包含一个标签（Label1，用于提示用户输入），一个文本框（Text1），两个命令按钮（Command1标签为“计算平方”，Command2标签为“清空”）。2.用户在Text1中输入一个整数，点击“计算平方”按钮时，程序计算该整数的平方，并将结果显示在一个消息框中。3.点击“清空”按钮时，程序清除Text1中的文本内容。试卷答案一、选择题1.B解析：Const用于声明常量。2.D解析：Boolean是基本数据类型，其他三个是。3.A解析：Val将字符串转换为数字，得到123.45；Int取小于或等于3.14159的最大整数，得到3；两者相加为126.0。4.C解析：Is运算符用于判断两个变量是否引用同一个对象实例。5.D解析：SelectCase可以根据变量的多种值（可以是数字或字符串）进行多分支选择。6.C解析：AddItem方法用于向列表框添加新项。7.A解析：将文本框的Text属性设置为空字符串即可清空内容。8.A解析：vbCritical代表错误图标。9.C解析：Checked属性返回或设置复选框是否被选中。10.B解析：Print语句在当前窗体上输出文本。二、填空题1.i=0解析：变量声明后需要使用赋值语句初始化其值。2.False解析：将控件的Enabled属性设置为False可以使其不可用。3.大于解析：Is后的表达式用于比较变量的值。4.UBound(nums)-1解析：数组索引从0开始，最后一个元素的索引是上限减1。5.True解析：WordWrap属性决定文本是否自动换行。6.1,3解析：Step2表示每次循环i增加2。7.11解析：Len函数返回字符串的长度。8.True解析：AcceptButton指定回车键点击哪个按钮；TabStop决定控件是否能通过Tab键聚焦，此处为了接收Tab输入应设为True。9.子解析：Sub是子程序（过程）的关键字。10.Str解析：Str函数将数字转换为字符串。三、读程序写结果题1.ABCD解析：循环执行4次，每次将ASCII码为65+i的字符添加到s中，65对应'A'，依次类推。2.AisgreaterthanB解析：第一个If条件(a>5)为True，执行第一个消息框；后续两个If条件均不满足，不执行。四、程序修改/调试题错误1：`Fori=1To11`原因：循环需要从1开始到10结束。修改：`Fori=1To10`错误2：`Text1.Text=sum`原因：Text1控件类型不明确，且通常消息框用于显示信息，不应直接赋值给控件的Text属性。即使Text1是TextBox，也应在消息框中显示。修改（示例）：将最后一行改为`MsgBox"Thesumis:"&sum`完整修改后代码：```vbPrivateSubCommand3_Click()DimsumAsIntegersum=0Fori=1To10IfiMod2=0Thensum=sum+iEndIfNextiMsgBox"Thesumis:"&sumEnd