2004年9月計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷及答案

　
　　(4) 本程序的功能是利用隨機(jī)數(shù)函數(shù)模擬投幣，方法是：每次隨機(jī)產(chǎn)生一個(gè)0或1的整數(shù)，相當(dāng)于一次投幣，1代表正面，0代表反面。在窗體上有三個(gè)文本框，名稱分別是Text1、Text2、Text3，分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù)，如圖所示。程序運(yùn)行后，在文本框Text1中輸入總次數(shù)，然后單擊“開(kāi)始”按鈕，按照輸入的次數(shù)模擬投幣，分別統(tǒng)計(jì)出現(xiàn)正面、反面的次數(shù)，并顯示結(jié)果。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡！　?BR>　　Private Sub Command1_Click()　　
　　Randomize　　
　　n = CInt(Text1.Text)　　
　　n1 = 0　　
　　n2 = 0　　
　　For I = 1 To 【6】　　
　　r = Int(Rnd*2)
　　　　If r = 【7】 Then　　
　　n1 = n1 + 1
　　　　Else
　　　　n2 = n2 + 1　　
　　End If　　
　　Next　　
　　Text2.Text = n1　　
　　Text3.Text = n2　　
　　End Sub　　
　　(5) 閱讀程序：　　
　　Option Base 1　　
　　Private Sub Form_Click()
　　　　Dim a(3) As Integer　　
　　Print "輸入的數(shù)據(jù)是：";　　
　　For i = 1 To 3　　
　　a(i)=InputBox("輸入數(shù)據(jù)")　　
　　Print a(i);
　　　　Next　　
　　Print　　
　　If a(1)　　
　　t = a(1)　　
　　a(1) = a(2)　　
　　a(2) = 【8】
　　　　End If　　
　　If a(2)>a(3) Then
　　　　m = a(2)　　
　　ElseIf a(1)>a(3) Then　　
　　m = 【9】　　
　　Else　　
　　m = 【10】　　
　　End If　　
　　Print "中間數(shù)是：";m　　
　　End Sub　　
　　程序運(yùn)行后，單擊窗體，在輸入對(duì)話框中分別輸入三個(gè)整數(shù)，程序?qū)⑤敵鋈齻�(gè)數(shù)中的中間數(shù)，如圖所示。請(qǐng)?zhí)羁��！　?BR>　　(6) 在窗體上畫(huà)一個(gè)名稱為“Command1”，標(biāo)題為“計(jì)算”的命令按鈕，再畫(huà)7個(gè)標(biāo)簽，其中5個(gè)標(biāo)簽組成名稱為L(zhǎng)abel1的控件數(shù)組;名稱為L(zhǎng)abel2的標(biāo)簽用于顯示計(jì)算結(jié)果，其Caption屬性的初始值為空；標(biāo)簽Label3的標(biāo)題為“計(jì)算結(jié)果”。運(yùn)行程序時(shí)會(huì)自動(dòng)生成5個(gè)隨機(jī)數(shù)，分別顯示在標(biāo)簽控件數(shù)組的各個(gè)標(biāo)簽中，如圖所示。單擊“計(jì)算”按鈕，則將標(biāo)簽數(shù)組各元素的值累加，然后計(jì)算結(jié)果顯示在Label2。請(qǐng)?zhí)羁��！　?BR>　　Private Sub Command1_Click()
　　　　Sum = 0
　　　　For i = 0 To 4　　
　　Sum = Sum + 【11】
　　　　Next　　
　　【12】 = Sum　　
　　End Sub　　
　　(7) 在窗體上畫(huà)兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為“初始化”和“求和”的命令按鈕。程序運(yùn)行后，如果單擊“初始化”命令按鈕，則對(duì)數(shù)組a的各元素賦值；如果單擊“求和”命令按鈕，則求出數(shù)組a的各元素之和，并在文本框中顯示出來(lái)，如圖所示。請(qǐng)?zhí)羁�。　�?BR>　　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
　　　　Text1.Text = 【15】　　
　　End Sub