20xx04全國計算機等級考試二級vb筆試試卷-資料下載頁
2025-08-13 12:47本頁面
【導(dǎo)讀】在窗體上有若干控件，其中有一個名稱為Text1的文本框。影響Text1的Tab順序的屬性是。一個工程中含有窗體Form1、Form2和標準模塊Model1，如果在Form1中有語句PubilcXAsInteger，在窗體上畫一個名稱為Drive1的驅(qū)動器列表框，一個名稱為Dir1的目錄列表框。器時，目錄列表框應(yīng)該與之同步改變。設(shè)置兩個控件同步的命令放在一個事件過程中，這個事件過程
【正文】 r) Select Case 【 8】 Case 0 a = 宋體 Case 1 a = 黑體 Case 2 a = 楷體＿ GB2312 End Select text1. 【 9】 =a End Sub (7) 在窗體上畫兩個組合框，其名稱分別為 Combo Combo2，然后畫兩個標簽，名稱分別為 LabelLabel2，如圖所示，程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標簽 中顯示出來。請?zhí)羁铡? Private Sub Combo1_Click() Call ShowItem(Combo1, Label1) End Sub Private Sub Combo2_Click() Call ShowItem(Combo2, Label2) End Sub Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label) 【 10】 .Caption =【 11】 .Text End Sub （ 8）在窗體上畫一個 名稱為 Command1 的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() n = 5 f = 1 s = 0 For i = 1 To n f = f【 12】 s = s + f Next Print s Print s End Sub 該事件過程的功能是計算的值。請?zhí)羁铡? （ 9）在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next Call swap（ 【 13】 ） For i = 1 To 10 Print a(i)。 Next End Sub Sub swap(b() As Integer) n = 【 14】 For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) = t 【 15】 Next End Sub 上述程序的功能是，通過調(diào)用過程 swap，調(diào)換數(shù)組中數(shù)值的存放位置，即 a(1)與 a(10)的值互換， a(2)與 a(9)的值互換， …… ， a(5)與 a(6)的值互換。請?zhí)羁铡? 評分標準和參考答案 一、選擇題（ (1)—(20)每小題 2 分， (21)—(30)每小題 2 分，共 70 分） (1) B (2) D (3) A (4) A (5) C (6) D (7) C (8) D (9) B (10) C (11) A (12) B (13) C (14) D (15) A (16) B (17) D (18) C (19) C (20) A (21) B (22) A (23) C (24) A (25) B (26) C (27) A (28) C (29) D (30) A 二、填空題 (每空 2 分，共 30 分 ) (1) 〖 1〗 .bas (2) 〖 2〗 mousedown 〖 3〗 popupmenu (3) 〖 4〗 interval 〖 5〗 500 (4) 〖 6〗 (cos(a+b))^2/(3*x)+5 (5) 〖 7〗 =loadpicture(“c:\”) (6) 〖 8〗 index 〖 9〗 font (7) 〖 10〗 tmplabel 〖 11〗 tmpCombo (8) 〖 12〗 *(1/i ) (9) 〖 13〗 a() 〖 14〗 ubound(b) 〖 15〗 n=n1
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1