全國計(jì)算機(jī)等級考試二級vb筆試試卷2004年9月(參考版)
2025-01-17 01:31本頁面
【正文】 Option Base 1 Dim a(3,2)As Integer Private Sub Command1_Click() For i = 1 To 3 For j = 1 To 2 【13】 = i + j Next j Next i End Sub Private Sub Command2_Click() For j = 1 To 3 For i = 1 To 2 s = s + 【14】 Next i Next j = 【15】 End Sub 2004年9月全國計(jì)算機(jī)等級考試二級VB語言筆試試題答案一、選擇題 （(1)—(20)每小題2分，(21)—(30)每小題2分，共70分） (1) B (2) C (3) A (4) A (5) C (6) D (7) D (8) B (9) A (10) B (11) D (12) A (13) C (14) C (15) D (16) A (17) B (18) B (19) D (20) D (21) B (22) D (23) C (24) B (25) C (26) A (27) A (28) B (29) D (30) C 二、填空題 (每空2分，共30分) 【1】Shanghai 【2】 3 【3】 i 【4】 【5】 (i) 【6】 n 【7】 1 【8】 t 【9】 a(3) 【10】 a(1) 【11】 label1(i).caption 【12】 【13】a(i,j) 【14】a(j,i) 【15】s。程序運(yùn)行后，如果單擊“初始化”命令按鈕，則對數(shù)組a的各元素賦值；如果單擊“求和”命令按鈕，則求出數(shù)組a的各元素之和，并在文本框中顯示出來，如圖所示。請?zhí)羁?。運(yùn)行程序時(shí)會(huì)自動(dòng)生成5個(gè)隨機(jī)數(shù)，分別顯示在標(biāo)簽控件數(shù)組的各個(gè)標(biāo)簽中，如圖所示。 (6)在窗體上畫一個(gè)名稱為“Command1”，標(biāo)題為“計(jì)算”的命令按鈕，再畫7個(gè)標(biāo)簽，其中5個(gè)標(biāo)簽組成名稱為Label1的控件數(shù)組。m End Sub 程序運(yùn)行后，單擊窗體，在輸入對話框中分別輸入三個(gè)整數(shù)，程序?qū)⑤敵鋈齻€(gè)數(shù)中的中間數(shù)，如圖所示。a(3)Then m = a(2) ElseIf a(1)%26gt。 For i = 1 To 3 a(i)=InputBox(輸入數(shù)據(jù)) Print a(i)。以下是實(shí)現(xiàn)上述功能的程序，請?zhí)羁?。在窗體上有三個(gè)文本框，名稱分別是TextTextText3，分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù)，如圖所示。以下是實(shí)現(xiàn)上述功能的程序，請?zhí)羁?。程序運(yùn)行后，將把1～100之間能夠被7整除的數(shù)添加到列表框中。 num =0 While num%26lt。 (1)設(shè)有如下程序段： a$=BeijingShanghai b$=Mid(a$,InStr(a$,g)+1) 執(zhí)行上面的程序段后，變量b$的值為【1】 。 Model1代碼如下： Public x As Integer Public y As Integer Sub S1() x =1 S2 End Sub Sub S2() y=10 End Show Model2的代碼如下： Sub Main() S1 End Sub 其中Sub Main被設(shè)置為啟動(dòng)過程。x Then Print a(i)。 Y %26amp。 編寫如下程序： Private Sub Form_Load() =False End Sub Private Sub Command1_Click() =True End Sub Private Sub Command2_Click() =False End Sub Private Sub Timer1_Timer() If
試題試卷相關(guān)推薦
鄂ICP備17016276號-1