计算机二级考试VB基础题及答案.docx

计算机二级考试VB基础题及答案

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