vb語言程序設(shè)計(jì)試題庫

1、vb語言程序設(shè)計(jì)試題庫1.以下程序段運(yùn)行的結(jié)果為(B)(單)Private Sub Form_Click( )MyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.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.以下程序段運(yùn)行的結(jié)果為(B)(單)Private Sub Form_Click( )MyTime = #9:2

2、1:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段運(yùn)行的結(jié)果為(C)(單)Private Sub Form_Click( )MyDate = #7/21/1997#Print Format(MyDate, &quo

3、t;dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帳號有非數(shù)字字符錯誤"Text1.Text = ""Text1.SetFocuselseMsgBox "帳號正確"End If

4、End Sub當(dāng)在text1文本框中輸入字符"abc"之后，單擊命令按鈕，結(jié)果為(B)(單)A.顯示對話框，提示信息為"帳號正確"B.顯示對話框，提示信息為"帳號有非數(shù)字字符錯誤"C.程序出錯D.沒有任何提示5.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帳號有非數(shù)字字符錯誤"Text1.Text = ""Text1.SetFocu

5、selseMsgBox "帳號正確"End IfEnd Sub當(dāng)在text1文本框中輸入數(shù)字123456之后，單擊命令按鈕，結(jié)果為(A)(單)A.顯示對話框，提示信息為"帳號正確"B.顯示對話框，提示信息為"帳號有非數(shù)字字符錯誤"C.程序出錯D.沒有任何提示6.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：Private Sub Command1_Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox(

6、"密碼錯誤", 5 + vbExclamation, "輸入密碼")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密碼帳號正確!"End IfEnd Sub若在text1中輸入字符串"Gong"，則程序運(yùn)行結(jié)果為(A)(單)A.顯示對話框，提示"密碼帳號正確!"B.顯示對話框，提示"密碼錯誤"C.程序出錯D.沒有任何提示7.在窗體中建立一個文本框text1

7、和一個命令按鈕command1，編寫下面程序：Private Sub Command1_Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密碼錯誤", 5 + vbExclamation, "輸入密碼")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密碼帳號正確!"End IfEnd Sub若在text1中輸

8、入字符串"gong"，則程序運(yùn)行結(jié)果為(B)(單)A.顯示對話框，提示"密碼帳號正確!"B.顯示對話框，提示"密碼錯誤"C.程序出錯D.沒有任何提示8.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：Private Sub Command1_Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密碼錯誤", VbRetryCancle + vbExclamation, "

9、輸入密碼")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密碼帳號正確!"End IfEnd Sub若在text1中輸入字符串"123"，顯示"密碼錯誤"對話框，關(guān)于此對話框描述正確的是(A)(單)A.顯示對話框中有“重試”按鈕B.顯示對話框中有“確定”按鈕C.顯示對話框中有“是”按鈕D.以上說法都不正確9.在窗體中建立三個文本框，名稱分別為text1、text2和text3，還有一個名稱為label1的

10、標(biāo)簽，一個名稱為command1的命令按鈕，編寫如下代碼：Private Sub Command1_Click( )Dim x!, y!, z!, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yy = zz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub當(dāng)在文本框t

11、ext1、text2 和 text3 中分別輸入5、3和8，則標(biāo)簽顯示的結(jié)果為(C)(單)A.3,5,8B.5,3,8 C.8,5,3D.3.8.510.以下程序段：Private Sub Form_Load( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("請輸入1-4之間的整數(shù)")Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷&q