预览加载中，请您耐心等待几秒...

vb语言程序设计试题库.docx

预览
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲，该文档总共24页，到这已经超出免费预览范围，如果喜欢就直接下载吧～

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

vb语言程序设计试题库 2017年vb语言程序设计试题库 《VB语言程序设计》概念清晰，层次分明，叙述简明易懂，注重实用性和可操作性。各章配有精心设计的习题和编程及上机调试题。下面是小编收集的`关于vb语言程序设计试题库，希望大家认真阅读! 1.以下程序段运行的结果为(B)(单) PrivateSubForm_Click() MyDate=#7/21/1997# PrintFormat(MyDate,"m/d/yy") PrintFormat(MyDate,"yyyy年m月dd日") EndSub A.7/21/971997年7月21日 B.7-21-971997年7月21日 C.97/7/211997年7月21日 D.7/21/9797年7月21日 2.以下程序段运行的结果为(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") EndSub A.July-979:21:30P B.July-9709:21:30P C.07-979:21:30P D.July-979:21:30 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,"输入密码") IfI<>4Then End Else Text1.Text="" Text1.SetFocus EndIf Else MsgBox"密码帐号正确!" EndIf EndSub 若在text1中输入字符串"Gong"，则程序运行结果为(A)(单) A.显示对话框，提示"密码帐号正确!" B.显示对话框，提示"密码错误" C.程序出错 D.没有任何提示 7.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序： PrivateSubCommand1_Click() DimIAsInteger IfText1.Text<>"Gong"Th