高三算法復(fù)習(xí)九(過程函數(shù))

1、高三算法復(fù)習(xí)九（過程函數(shù)）2015樣卷1、程序運(yùn)行界面如圖所示。要求在文本框Text1中輸入字符串，單擊“統(tǒng)計(jì)”按鈕Command1后，在標(biāo)簽Label2中顯示所輸入字符串長度。需要編寫的VB事件處理過程的名稱為（ ）ACommand1_ClickBText1_ClickCForm_ClickDLabel2_Click【解析】所考知識(shí)點(diǎn)：事件處理過程。事件處理過程名的命名規(guī)則：對(duì)象名_事件的標(biāo)準(zhǔn)名，本題中在對(duì)象按鈕Command1上激發(fā)事件Click（鼠標(biāo)單擊），VB中事件處理過程為Command1_Click。還有一些事件處理過程如Text1_Change（文本框內(nèi)容變化）、Form_Loa

2、d（窗體裝載）等。5、下列VB程序模塊用來判斷年份y是否是閏年?；卮鹨韵聝蓚€(gè)問題Function leap(y As Integer) As Boolean If y Mod 100 = 0 Then If y Mod 400 = 0 Then leap = True Else leap = False Else If y Mod 4 = 0 Then leap = True Else leap = False End IfEnd Function該函數(shù)的計(jì)算結(jié)果返回值的數(shù)據(jù)類型是（ ）A整型B實(shí)數(shù)型C字符串型D邏輯型調(diào)用該函數(shù)進(jìn)行計(jì)算，以下程序段中空白處應(yīng)填寫的語句是（ ）Private S

3、ub Command1_Click()Dim n As Integern = Val(Text1.Text)If Then Text2.Text = 是閏年Else Text2.Text = 不是閏年End IfEnd SubA. leap(y)B. leap(n)C. yD. n10、自定義函數(shù)Fa用來返回輸入?yún)?shù)的絕對(duì)值。則下劃線處應(yīng)該輸入的是（ ）Function Fa(X As Double) As Double If Then Fa = -X Else Fa = X End IfEnd FunctionAX0CX=0DX011、下列VB程序運(yùn)行時(shí)，單擊命令按鈕Command1后，文本

4、框Text1中顯示的內(nèi)容是_ 。Private Sub Command1_Click() Dim a(1 To 10) As Integer, i As Integer, s As Integer a(1) = 1: a(2) = 1 For i = 3 To 10 a(i) = a(i - 1) + a(i - 2) Next i Text1.Text = Str(a(10)End Sub12、隨機(jī)產(chǎn)生100個(gè)1100之間的整數(shù)，fun函數(shù)用來判定一個(gè)數(shù)的奇偶性。如果是奇數(shù)函數(shù)返回1，若是偶數(shù)便返回0，相應(yīng)的程序如下，在程序和劃線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整。程序中劃線處應(yīng)填入

5、_程序中劃線處應(yīng)填入_ Function fun(m As Integer) As Integer If m Mod 2 = 1 Then fun = 1 Else End If End Function Private Sub Command1_Click() Dim i As Integer, s1 As Integer,s2 As Integer,x As Integer s1 = 0: s2 = 0 Randomize For i = 1 To 100 x = Int(Rnd * 100 + 1) If Then s1 = s1 + 1 Else s2 = s2 + 1 End If

6、Next Print 偶數(shù)個(gè)數(shù)：; s1, 奇數(shù)個(gè)數(shù)：; s2End Sub13、兩質(zhì)數(shù)的差為2，稱此對(duì)質(zhì)數(shù)為質(zhì)數(shù)對(duì)，下列程序是找出100以內(nèi)的質(zhì)數(shù)對(duì)，并成對(duì)顯示結(jié)果。其中，函數(shù)IsP判斷參數(shù)m是否為質(zhì)數(shù)。相應(yīng)的程序如下，在程序和劃線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整。程序中劃線處應(yīng)填入_程序中劃線處應(yīng)填入_Function IsP(m) As Boolean Dim i As Integer For i = 2 To Int(Sqr(m) If m Mod i = 0 Then IsP = False Next iEnd FunctionPrivate Sub Command1_Cl

7、ick() Dim i As Integer p1 = IsP(3) For i = 5 To 100 Step 2 p2 = IsP(i) If p1 And p2 Then Print i - 2, i p1 = Next iEnd Sub【嘉興】Visual Basic程序段如下：Function f(x As Single, y As Single) As SingleIf x y And y 0 Then f = x Abs(y) Else f = x * Int(Sqr(y)End FunctionPrivate Sub Command1_Click() Dim a As Single, b As Single a = Val(Text1.Text) b = Val(Tex