高三算法復習九(過程函數)

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

2、d（窗體裝載）等。5、下列VB程序模塊用來判斷年份y是否是閏年?；卮鹨韵聝蓚€問題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該函數的計算結果返回值的數據類型是（ ）A整型B實數型C字符串型D邏輯型調用該函數進行計算，以下程序段中空白處應填寫的語句是（ ）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、自定義函數Fa用來返回輸入參數的絕對值。則下劃線處應該輸入的是（ ）Function Fa(X As Double) As Double If Then Fa = -X Else Fa = X End IfEnd FunctionAX0CX=0DX011、下列VB程序運行時，單擊命令按鈕Command1后，文本

4、框Text1中顯示的內容是_ 。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、隨機產生100個1100之間的整數，fun函數用來判定一個數的奇偶性。如果是奇數函數返回1，若是偶數便返回0，相應的程序如下，在程序和劃線處，填入適當的語句或表達式，把程序補充完整。程序中劃線處應填入

5、_程序中劃線處應填入_ 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 偶數個數：; s1, 奇數個數：; s2End Sub13、兩質數的差為2，稱此對質數為質數對，下列程序是找出100以內的質數對，并成對顯示結果。其中，函數IsP判斷參數m是否為質數。相應的程序如下，在程序和劃線處，填入適當的語句或表達式，把程序補充完整。程序中劃線處應填入_程序中劃線處應填入_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