VB程序设计编程考试题及答案

VB程序设计编程考试题及答案VB程序设计编程考试题一、单选题（每题2分，共20分）1.在VB中，用于声明变量的关键字是（）A.DimB.EndC.SubD.If2.以下哪个是合法的变量名（）A.2abcB.ab+cC.abc_2D.a-bc3.表达式5Mod3的值是（）A.0B.1C.2D.34.要使文本框Text1获得焦点，应使用的方法是（）A.Text1.SetFocusB.SetFocus.Text1C.Text1.GotFocusD.GotFocus.Text15.以下关于循环结构的说法正确的是（）A.DoWhile循环至少执行一次循环体B.For循环的步长只能是1C.DoUntil循环当条件为True时执行循环体D.While循环当条件为False时执行循环体6.在VB中，要显示一个输入对话框，可使用（）函数A.MsgBoxB.InputBoxC.PrintD.Input7.以下哪个控件可以用来显示图片（）A.TextBoxB.LabelC.PictureBoxD.CommandButton8.表达式Int(3.8)的值是（）A.3B.4C.3.8D.3.09.要使一个文本框不可用，应设置其（）属性A.EnabledB.VisibleC.LockedD.ReadOnly10.以下关于数组的说法错误的是（）A.数组的下标从0开始B.可以使用ReDim语句重新定义数组的大小C.数组元素的数据类型必须相同D.定义数组时必须指定其大小二、填空题（每题3分，共30分）1.VB中，窗体的默认事件是____。2.若要将变量a的值赋给变量b，可使用语句____。3.表达式Len("HelloWorld")的值是____。4.要使一个命令按钮Command1在运行时不可见，应设置其____属性为False。5.循环结构DoWhilei<10的循环条件是____。6.在VB中，要将文本框Text1中的文本转换为数值，可使用____函数。7.定义一个一维整型数组a，大小为10，可使用语句____。8.要在图片框Picture1中加载一幅名为pic.jpg的图片，可使用语句____。9.表达式Mid("Hello",3,2)的值是____。10.若要在窗体上输出字符串“Welcome”，可使用语句____。三、程序阅读题（每题5分，共20分）1.```vbPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=5b=3Printa+bEndSub```该程序运行后，单击命令按钮Command1，输出结果是____。2.```vbPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0Fori=1To5sum=sum+iNextiPrintsumEndSub```该程序运行后，单击命令按钮Command1，输出结果是____。3.```vbPrivateSubCommand1_Click()DimsAsStrings="Hello"PrintLeft(s,3)EndSub```该程序运行后，单击命令按钮Command1，输出结果是____。4.```vbPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=10b=5Ifa>bThenPrintaElse:PrintbEndIfEndSub```该程序运行后，单击命令按钮Command1，输出结果是____。四、程序设计题（每题15分，共30分）1.编写一个VB程序，实现计算两个数的和、差、积、商，并将结果显示在文本框中。2.编写一个VB程序，实现输入一个正整数，判断它是否为素数，并将判断结果显示在标签中。答案一、单选题1.A2.C3.C4.A5.D6.B7.C8.A9.A10.D二、填空题1.Load2.b=a3.114.Visible5.i<106.Val7.Dima(9)AsInteger8.Picture1.Picture=LoadPicture("pic.jpg")9.ll10.Print"Welcome"三、程序阅读题1.82.153.Hel4.10四、程序设计题1.```vbPrivateSubCommand1_Click()Dimnum1AsDouble,num2AsDoubleDimsumAsDouble,diffAsDouble,productAsDouble,quotientAsDoublenum1=Val(InputBox("请输入第一个数"))num2=Val(InputBox("请输入第二个数"))sum=num1+num2diff=num1num2product=num1num2Ifnum2<>0Thenquotient=num1/num2Elsequotient=0MsgBox"除数不能为0"EndIfText1.Text="和："&sum&vbCrLf&"差："&diff&vbCrLf&"积："&product&vbCrLf&"商：""ientEndSub```2.```vbPrivateSubCommand1_Click()DimnumAsIntegernum=Val(InputBox("请输入一个正整数"))DimisPrimeAsBooleanisPrime=TrueIfnum<=1ThenisPrime=FalseElseFori=2ToSqr(num)IfnumModi=0ThenisPrime=FalseExitForEndIfNextiEndIfIfisPrimeThenLabel1.Caption=num&"是素数"ElseLabel1.Caption=num&"不是素数"EndIfEndSub```详细解析一、单选题解析1.在VB中，Dim用于声明变量，所以选A。2.变量名只能以字母开头，不能包含特殊字符，所以合法的是abc_2，选C。3.5Mod3即5除以3的余数，结果是2，选C。4.使文本框获得焦点用SetFocus方法，所以选A。5.While循环当条件为False时执行循环体，选D。6.显示输入对话框用InputBox函数，选B。7.PictureBox控件可显示图片，选C。8.Int(3.8)返回不大于3.8的最大整数，即3，选A。9.设置文本框不可用用Enabled属性，选A。10.定义数组时可不指定大小用动态数组，所以D错误。二、填空题解析1.窗体的默认事件是Load。2.将变量a的值赋给变量b用b=a。3.Len("HelloWorld")计算字符串长度为11。4.设置命令按钮不可见用Visible属性为False。5.DoWhilei<10的循环条件是i<10。6.将文本框文本转换为数值用Val函数。7.定义一维整型数组a大小为10用Dima(9)AsInteger。8.在图片框加载图片用Picture1.Picture=LoadPicture("pic.jpg")。9.Mid("Hello",3,2)取从第3个字符开始的2个字符，即ll。10.在窗体输出字符串用Print"Welcome"。三、程序阅读题解析1.a=5，b=3，a+b=8，所以输出8。2.1到5的和为1+2+3+4+5=15，所以输出15。3.Left