2020年计算机二级VB语言考试每日一练（7月8日）

2020年计算机二级VB语言考试每日一练（7月8日）

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.没有任何提示

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

Private Sub Text1_LostFocus( )

If Not IsNumeric(Text1) Then

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

Text1.Text = ""

Text1.SetFocus

else

MsgBox "帐号正确"

End If

End Sub

当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)

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

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

C.程序出错

D.没有任何提示

更多2020年计算机二级VB语言考试每日一练试题，请继续关注环球网校计算机二级频道。需要及时了解考试动态的小伙伴可“ 免费预约短信提醒”届时环球网校会及时为大家推送2020年计算机二级考试相关信息提醒。环球网校友情提示：对于想要参加计算机二级考试的小伙伴们，环球网校特地为您准备了计算机二级考试资料，如有需要请点击文章下方“免费下载>>>计算机二级考试资料”下载学习。