计算机二级考试VB基础题及答案2017年计算机二级考试VB基础题及答案平时的练习对我们的考试来说十分重要，练习做得多了自然熟能生巧。下面是百分网小编为大家收集整理的2017年计算机二级考试VB基础题及答案，希望对大家学习有所帮助!1.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：PrivateSubCommand1_Click()Dimx!,y!,z!,t!x=Text1y=Text2z=Text3Ifx<yThent=xx=yy=tEndIfIfy<zThent=yy=zz=tIfx<yThent=xx=yy=tEndIfEndIfLabel1.Caption=x&","&y&","&zEndSub当在文本框text1、text2和text3中分别输入5、3和8，则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.52.以下程序段：PrivateSubForm_Load()DimNopAsInteger,OpAsString*1Num1=3Num2=2Nop=val(Inputbox("请输入1-4之间的.整数"))SelectCaseNopCase1Op="+"Result=Num1+Num2Case2Op="-"Result=Num1-Num2Case3Op="×"Result=Num1*Num2Case4Op="÷"Result=Num1/Num2EndSelectLabel1=Num1&Op&Num2&"="&ResultEndSub窗体运行后，输入1，则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.53.以下程序段运行的结果为(C)(单)PrivateSubForm_Click()MyDate=#7/21/1997#PrintFormat(MyDate,"dddd,mmmm,dd,yyyy")EndSubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)ThenMsgBox"帐号有非数字字符错误"Text1.Text=""Text1.SetFocuselseMsgBox"帐号正确"EndIfEndSub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)ThenMsgBox"帐号有非数字字符错误"Text1.Text=""Text1.SetFocuselseMsgBox"帐号正确"EndIfEndSub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：PrivateSubCommand1_Click()DimIAsIntegerIfText1.Text<>"Gong"ThenI=MsgBox("密码错误",5+vbExclamation,"输入密码