vb筆試題測試二(編輯修改稿)
2024-10-11 20:43 本頁面
【文章內(nèi)容簡介】 Dim n% n = 1 While a \ 10 = 0 n = n + 1 a = a \ 10 Wend fun = n End Function 在調(diào)用該函數(shù)時發(fā)現(xiàn)返回的結(jié)果不正確 ， 函數(shù)需要修改 ， 下面的修改方案中正確的是 A） 把語句 n = 1 改為 n = 0 B） 把循環(huán)條件 a \ 10 = 0 改為 a \ 10 0 C） 把語句 a = a \ 10 改為 a = a Mod 10 D） 把語句 fun = n 改為 fun = a 15. 下面程序的輸出結(jié)果是 Private Sub proc(ch As String) S=”” For k=Len(ch) To 1 Step1 s=samp。Mid(ch,k,1) Next k ch=s End Sub Private Sub Command1_Click() ch$=”ABCDEF” proc ch Print ch End Sub A） ABCDEF B） FEDCBA C） A D） F 16. 某人編寫了一個能夠返回數(shù)組 a 中 10 個數(shù)中最大數(shù)的函數(shù)過程，代碼如下： Function MaxValue(a() As Integer) As Integer Dim max% max=1 For k = 2 To 10 If a(k)a(max) Then max = k End If Next k MaxValue = max End Function 程序運行時，發(fā)現(xiàn)函數(shù)過程的返回值是錯的，需要修改，下面的修改方案中正確的是 A）語句 max = 1 應(yīng)改為 max = a(1) B）語句 For k = 2 To 10 應(yīng)改為 For k = 1 To 10 C） If 語句中的條件 a(k)a(max)應(yīng)改為 a(k)max D）語句 MaxValue = max 應(yīng)改為 MaxValue = a(max) 17. 在窗體上畫 1 個命 令按鈕 (名稱為 Command1)和 1個文本框 (名稱為 Text1)，然后編寫如下事件過程： Private Sub Command1_Click() x=Val() Select Case x Case 1， 3 y=x*x Case Is=10， Is=10 y=x Case 10 To 10 y=x End Select End Sub 程序運行后，在文本框中輸入 3，然后單擊命令按鈕，則以下敘述中正確的是。 A) 執(zhí)行 y=x*x B) 執(zhí)行 y=x C) 先執(zhí)行 y=x*x，再執(zhí)行 y=x D) 程序出錯 18. 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a(5) As String For i = 1 To 5 a(i) = Chr(Asc(A) + (i 1)) Next i For Each b In a Print b。 Next End Sub 程序運行后，單 擊命令按鈕，輸出
公司管理相關(guān)推薦
鄂ICP備17016276號-1