2020年9月计算机二级VB考试强化练习试题(4)

1.以下程序段运行的结果为(B)(单)

Private Sub Form_Click( )

MyDate = #7/21/1997#

Print Format(MyDate, "m/d/yy")

Print Format(MyDate,"yyyy年m月dd日")

End Sub

A.7/21/97 1997年7月21日

B.7-21-97 1997年7月21日

C.97/7/21 1997年7月21日

D.7/21/97 97年7月21日

2.以下程序段运行的结果为(B)(单)

Private Sub Form_Click( )

MyTime = #9:21:30 PM#

MyDate = #7/21/1997#

Print Tab(2); Format(MyDate, "mmmm-yy")

Print Tab(2); Format(MyTime, "hh:mm:ss A/P")

End Sub

A.July-97 9:21:30 P

B.July-97 09:21:30 P

C.07-97 9:21:30 P

D.July-97 9:21:30

3.以下程序段运行的结果为(C)(单)

Private Sub Form_Click( )

MyDate = #7/21/1997#

Print Format(MyDate, "dddd,mmmm,dd,yyyy")

End Sub

A.21,07,1997

B.21,07,21,1997

C.Monday,July,21,1997

D.Monday,07,21,1997

4.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：

Private Sub Text1_LostFocus( )

If Not IsNumeric(Text1) Then

MsgBox "帐号有非数字字符错误"

Text1.Text = ""

Text1.SetFocus

else

MsgBox "帐号正确"

End If

End Sub

当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)

A.显示对话框，提示信息为"帐号正确"

B.显示对话框，提示信息为"帐号有非数字字符错误"

C.程序出错

D.没有任何提示