9月全國計算機等級考試二級筆試卷-文庫吧
2025-03-09 04:41 本頁面
【正文】 (23) 在窗體上畫1個命令按鈕，并編寫如下事件過程： Private Sub Command1_Click() For i=5 To 1 Print Int(i) ； Next i End Sub 運行程序，單擊命令按鈕，窗體上顯示的內(nèi)容為 A) 5 4 3 2 1 1 B) 4 4 3 2 1 C) 4 3 2 1 1 D) 4 4 3 2 1 1 (24) 在窗體上畫1個命令按鈕，并編寫如下事件過程： Private Sub Command1_Click() Dima(3，3) For m=1 To 3 For n=1 To 3 If n=m Or n=4m Then a(m,n)=m+n Else a(m,n)=0 End If Print a(m,n)； Next n Print Next m End Sub 運行程序，單擊命令按鈕，窗體上顯示的內(nèi)容為 A) 2 0 0 B) 2 0 4 C) 2 3 0 D) 2 0 0 0 4 0 0 4 0 3 4 0 0 4 5 0 0 6 4 0 6 0 0 6 0 5 6 (25) 設有以下函數(shù)過程： Function fun(a As Integer，b As Integer) Dim c As Integer If a＜b Then c=a:a=b:b=c End If c=0 Do Loop Until c Mod b=0 fun=c End Function 若調(diào)用函數(shù)fun時的實際參數(shù)都是自然數(shù)，則函數(shù)返回的是 A) a、b的最大公約數(shù) B) a、b的最小公倍數(shù) C) a除以b的余數(shù) D) a除以b的商的整數(shù)部分 (26) 窗體上有1個名稱為Text1的文本框；1個名稱為Timer的計時器控件，其Interval屬性值為5000，Enabled屬性值是True。 Timer1的事件過程如下： Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1 flag=flag If flag=1 Then =amp。HPPamp。 39。amp。HFFamp。為紅色 Else =amp。HC000amp。 39。amp。HC000amp。為綠色 End If End Sub 以下敘述中正確的是 A) 每次執(zhí)行此事件過程時，flag的初始值均為0 B) flag的值只可能取0或1 C) 程序執(zhí)行后，文本框中的文字每5秒改變一次顏色 D) 程序有邏輯錯誤，Else分支總也不能被執(zhí)行 (27) 為計算10+21+22+23+24+…+210的值，并把結果顯示在文本框Text1中，若編寫如下事件過程： Private Sub Command1_Click() Dim a%，s%，k% s=1 a=2 For k=2 To 10 a=a*2 Next k =s End Sub 執(zhí)行此事件過程后發(fā)現(xiàn)結果是錯誤的，為能夠得到正確結果，應做的修改是 A) 把s=1改為s=0 B) 把For k=2 To 10改為For k=1 To 10 C) 交換語句s=s+a和a=a*2的順序 D) 同時進行B)、C)兩種修改 (28) 標準模塊中有如下程序代碼： Public x As Integer，y As Integer Sub var_pub() x=10:y=20 End Sub 在窗體上有1個命令按鈕，并有如下事件過程： Private Sub Command1_Click() Dim x As Integer Call var_pub x=x+100 y=y+100 Print x。y End Sub 運行程序后單擊命令按鈕，窗體上顯示的是 A) 100 100 B) 100 120 C) 110 100 D) 110 120 (29) 設a、b都是自然數(shù)，為求a除以b的余數(shù)，某人編寫了以下函數(shù)： Function fun(a As Integer，b As Integer) While a＞b a=ab Wend fun=a End Function 在調(diào)試時發(fā)現(xiàn)函數(shù)是錯誤的。為使函數(shù)能產(chǎn)生正確的返回值，應做的修改是 A) 把a=ab改為a=ba B) 把a=ab改為a=a\b C) 把While a＞b改為While a＜b D) 把While a＞b改為While a＞=b (30) 下列關于通用對話框CommonDialog1的敘述中，錯誤的是 A) 只要在“打開”對話框中選擇了文件，并單擊“打開”按鈕，就可以將選中的文件打開 B) ，可以顯示“顏色”對話框 C) CancelError屬性用于控制用戶單擊“取消”按鈕關閉對話框時，是否顯示出錯警告 D) 在顯示“字體”對話框前，必須先設置CommonDialogl的Flags屬性，否則會出錯 (31) 在利用菜單編輯器設計菜單時，為了把組合鍵“Alt+X”設置為“退出(X)”菜單項的訪問鍵，可以將該菜單項的標題設置為 A) 退出(Xamp。) B) 退出(amp。X) C) 退出(X) D) 退出(X) (32) 在窗體上畫1個命令按鈕和1個文本框，其名稱分別為Command1和Text1，再編寫如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) ＜＞ Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1_Click() Dim m As String，i As Integer For i=Len(ss) To 1 Step1 m=m+Mid(ss，i，1) Next =UCase(m) End
醫(yī)療健康相關推薦
鄂ICP備17016276號-1