2010年3月計算機等級考試二級VB試試題(文字版)

　　(24)窗體上有一個Text1文本框，一個Command1命令按鈕，并有以下程序

　　Private Sub Commandl_Click()

　　Dim n

　　If Text1.Text<>"23456" Then

　　n=n+1

　　Print "口令輸入錯誤" & n & "次"

　　End If

　　End Sub

　　希望程序運行時得到左圖所示的效果，即：輸入口令，單擊“確認口令”命令按鈕，若輸入的口令不是“123456”，則在窗體上顯示輸入錯誤口令的次數(shù)。但上面的程序?qū)嶋H顯示的是右圖所示的效果，程序需要修改。下面修改方案中正確的是

　　A)在Dim n語句的下面添加一句：n=O

　　B)把Print "口令輸入錯誤" & n & "次"改為Print "口令輸入錯誤" +n+"次"

　　C)把Print "口令輸入錯誤" & n & "次"改為Print "口令輸入錯誤"&Str(n)&"次"

　　D)把Dim n改為Static n

　　(25)要求當鼠標在圖片框P1中移動時，立即在圖片框中顯示鼠標的位置坐標。下面能正確實現(xiàn)上述功能的事件過程是

　　A)Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)

　　Print X,Y

　　End Sub

　　B)Private Sub P1_MouseDown(Button AS Integer,Shift As Integer,X As Single, Y As Single)

　　Picture.Print X,Y

　　End Sub

　　C) Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)

　　P1.Print X,Y

　　End Sub

　　D)Private Sub Form_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)

　　P1.Print X,Y

　　End Sub

　　(26)計算二的近似值的一個公式是。

　　某人編寫下面的程序用此公式計算并輸出π的近似值：

　　Private Sub Comand1_Click()

　　PI=1

　　Sign=1

　　n=20000

　　For k=3 To n

　　Sign=-Sign/k

　　PI=PI+Sign/k

　　Next k

　　Print PI*4

　　End Sub

　　運行后發(fā)現(xiàn)結果為3.22751，顯然，程序需要修改。下面修改方案中正確的是

　　A)把For k=3 To n 改為 For k=1 To n

　　B)把n=20000改為n=20000000

　　C)把For k=3 To n改為For k=3 To n Step 2

　　D)把PI=1改為PI=0