计算机二级VB语言程序设计考试练习题及答案

计算机二级VB语言程序设计考试练习题及答案程序设计是计算机二级VB考试必考的知识点，下面小编为大家带来了计算机二级VB语言程序设计考试练习题及答案，欢迎大家阅读！计算机二级VB语言程序设计考试练习题及答案1.以下程序段运行的结果为(B)(单)PrivateSubForm_Click()MyDate=#7/21/1997#PrintFormat(MyDate,"m/d/yy")PrintFormat(MyDate,"yyyy年m月dd日")EndSub/21/971997年7月21日1997年7月21日/7/211997年7月21日/21/9797年7月21日以下程序段运行的结果为(B)(单)PrivateSubForm_Click()MyTime=#9:21:30PM#MyDate=#7/21/1997#PrintTab(2);Format(MyDate,"mmmm-yy")PrintTab(2);Format(MyTime,"hh:mm:ssA/P")EndSub9:21:30P09:21:30P9:21:30P9:21:30以下程序段运行的结果为(C)(单)PrivateSubForm_Click()MyDate=#7/21/1997#PrintFormat(MyDate,"dddd,mmmm,dd,yyyy")EndSub,07,1997,07,21,1997,July,21,1997,07,21,1997在窗体中建立一个文本框text1和一个命令按钮command］编写下面程序：PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)ThenMsgBox"帐号有非数字字符错误"elseMsgBox"帐号正确"EndIfEndSub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)显示对话框，提示信息为"帐号正确"显示对话框，提示信息为"帐号有非数字字符错误"程序出错没有任何提示在窗体中建立一个文本框text1和一个命令按钮command］编写下面程序：PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)ThenMsgBox"帐号有非数字字符错误" HHelseMsgBox"帐号正确"EndIfEndSub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)显示对话框，提示信息为"帐号正确"显示对话框，提示信息为"帐号有非数字字符错误"程序出错没有任何提示在窗体中建立一个文本框text1和一个命令按钮command］编写下面程序：PrivateSubCommand1_Click()DimIAsIntegerIf"Gong"ThenI=MsgBox("密码错误",5+vbExclamation,"输入密码")IfI4ThenEndElse HHEndIfMsgBox"密码帐号正确!"EndIfEndSub若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)显示对话框，提示"密码帐号正确!"显示对话框，提示"密码错误"程序出错没有任何提示在窗体中建立一个文本框text1和一个命令按钮command］编写下面程序：PrivateSubCommand1_Click()DimIAsIntegerIf"Gong"ThenI=MsgBox("密码错误",5+vbExclamation,"输入密码")IfI4ThenEndElseEndIfElseMsgBox"密码帐号正确!"EndIfEndSub若在text1中输入字符串"gong"，则程序运行结果为(B)(单)显示对话框，提示"密码帐号正确!"显示对话框，提示"密码错误"程序出错没有任何提示在窗体中建立一个文本框text1和一个命令按钮command］编写下面程序：PrivateSubCommand1_Click()DimIAsIntegerIf"Gong"ThenI=MsgBox("密码错误",VbRetryCanclevbExclamation,"输入密码")IfI4ThenEndHHEndIfElseMsgBox"密码帐号正确!"EndIfEndSub若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)显示对话框中有“重试”按钮显示对话框中有“确定”按钮显示对话框中有“是”按钮以上说法都不正确在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为commandl的命令按钮，编写如下代码：PrivateSubCommand1_Click()Dimx!,y!,z!,t!x=Text1y=Text2z=Text3Ifx t=xx=yy=tEndIfIfy t=yy=zz=tIfx t=xx=yy=tEndIfEndIf=x&","&y&","&zEndSub中分别输入5、3当在文本框text1、text2和text3和8，则标签显示的结果为中分别输入5、3,5,8,3,8,5,3以下程序段：PrivateSubForm_Load()DimNopAsInteger,OpAsString*1Num1=3Num2=2Nop=val(Inputbox("请输入1-4之间的整数"))SelectCaseNopCase1Op="+"Result=Num1+Num2Case2Op="-"Result=Num1-Num2Case3Op="x"Result=Num1