计算机二级VB语言程序设计考试练习题及答案
程序设计是计算机二级VB考试必考的知识点,下面小编为大家带来了计算机二级VB语言程序设计考试练习题及答案,欢迎大家阅读!
计算机二级VB语言程序设计考试练习题及答案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
-97 9:21:30 P
-97 09:21:30 P
C.07-97 9:21:30 P
-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
ay,July,21,1997
ay,07,21,1997
4.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:
Private Sub Text1_LostFocus( )
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
= ""
ocus
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 "帐号有非数字字符错误"
= ""
ocus
else
MsgBox "帐号正确"
End If
End Sub
当在text1文本框中输入数字123456之后,单击命令按钮,结果为(A)(单)
A.显示对话框,提示信息为"帐号正确"
B.显示对话框,提示信息为"帐号有非数字字符错误"
C.程序出错
D.没有任何提示
6.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:
Private Sub Command1_Click( )
Dim I As Integer
If <> "Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I <> 4 Then
End
Else
= ""
ocus
End If
Else
MsgBox "密码帐号正确!"
End If
End Sub
若在text1中输入字符串"Gong",则程序运行结果为(A)(单)
A.显示对话框,提示"密码帐号正确!"
B.显示对话框,提示"密码错误"
C.程序出错
D.没有任何提示
7.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:
Private Sub Command1_Click( )
Dim I As Integer
If <> "Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I <>4 Then
End
Else
= ""
ocus
End If
Else
MsgBox "密码帐号正确!"
End If
End Sub
若在text1中输入字符串"gong",则程序运行结果为(B)(单)
A.显示对话框,提示"密码帐号正确!"
B.显示对话框,提示"密码错误"
C.程序出错
D.没有任何提示
8.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:
Private Sub Command1_Click( )
Dim I As Integer
If <> "Gong" Then
I = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")
If I <> 4 Then
End
Else
= ""
ocus
End If
Else
MsgBox "密码帐号正确!"
End If
End Sub
若在text1中输入字符串"123",显示"密码错误"对话框,关于此对话框描述正确的是(A)(单)
A.显示对话框中有“重试”按钮
B.显示对话框中有“确定”按钮
C.显示对话框中有“是”按钮
D.以上说法都不正确
9.在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:
Private Sub Command1_Click( )
Dim x!, y!, z!, t!
x = Text1
y = Text2
z = Text3
If x < y Then
t = x
x = y
y = t
End If
If y < z Then
t = y
y = z
z = t
If x< y Then
t = x
x = y
y = t
End If
End If
ion = x & "," & y & "," & z
End Sub
当在文本框text1、text2 和 text3 中分别输入5、3和8,则标签显示的'结果为(C)(单)
A.3,5,8
B.5,3,8 C.8,5,3
10.以下程序段:
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "+"
Result = Num1 + Num2
Case 2
Op = "-"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后,输入1,则label1的标题显示结果为(A)(单)
A.3+2=5
B.3-2=1
C.3×2=6
D.3÷2=1.5
-
为考试加油的暖心句子(精品)
在我们平凡的日常里,许多人都接触过一些比较经典的句子吧,不同类型的句子具有不同的作用。还苦于找不到好的句子?以下是小编整理的为考试加油的暖心句子,仅供参考,希望能够帮助到大家。1、昨日撒下勤奋种,今朝一搏必成功。鲤鱼一跃便成龙,大鹏展翅震长空。前程似锦圆...
-
语文的考试反思
在社会一步步向前发展的今天,教学是我们的任务之一,反思指回头、反过来思考的意思。怎样写反思才更能起到其作用呢?下面是小编为大家整理的语文的考试反思,仅供参考,希望能够帮助到大家。语文的考试反思1这星期,我们考试了语文,当天成绩就出来了。当我知道我语文考了9...
-
实用的考试之后作文(必备3篇)
在平时的学习、工作或生活中,大家都跟作文打过交道吧,借助作文可以提高我们的语言组织能力。怎么写作文才能避免踩雷呢?以下是小编精心整理的考试之后作文3篇,仅供参考,欢迎大家阅读。考试之后作文篇1期末考试试卷发下来后,我看了一下,就发现我考试时的粗心大意和注意...
-
考试后感想作文3篇[精品]
在日常的学习、工作、生活中,大家都尝试过写作文吧,作文可分为国小作文、中学作文、大学作文(论文)。相信写作文是一个让许多人都头痛的问题,下面是小编收集整理的考试后感想作文3篇,欢迎阅读与收藏。考试后感想作文篇1期会考试结束了,但我却永远也忘不了语文老师那节...