計算機二級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
-
考試後作文【實用4篇】
在日常生活或是工作學習中,大家都跟作文打過交道吧,作文可分爲國小作文、中學作文、大學作文(論文)。相信寫作文是一個讓許多人都頭痛的問題,以下是小編幫大家整理的考試後作文4篇,歡迎閱讀與收藏。考試後作文篇1有人說:“人生只有兩次重要的考試——會考和大學聯考!”我...
-
考試作文優秀【8篇】
在日常生活或是工作學習中,大家都跟作文打過交道吧,作文要求篇章結構完整,一定要避免無結尾作文的出現。相信寫作文是一個讓許多人都頭痛的問題,以下是小編爲大家整理的考試作文8篇,僅供參考,大家一起來看看吧。考試作文篇1今天張老師在夕會客課上報語文成績的時候,我...
-
考試作文7篇(熱)
在日常學習、工作或生活中,許多人都寫過作文吧,作文是由文字組成,經過人的思想考慮,通過語言組織來表達一個主題意義的文體。那麼你有了解過作文嗎?以下是小編爲大家收集的考試作文7篇,僅供參考,大家一起來看看吧。考試作文篇1考試像一隻老虎,它讓人感到畏懼,我從來都是...
-
考試後作文精華[3篇]
在平凡的學習、工作、生活中,許多人都寫過作文吧,藉助作文可以宣泄心中的情感,調節自己的心情。寫起作文來就毫無頭緒?下面是小編整理的考試後作文3篇,僅供參考,大家一起來看看吧。考試後作文篇1的父母:您們好!謝謝您對我的養育了11年,在這11年了您們既讓我感受到了母愛...