浙江技術(shù)選考復(fù)習(xí)VB自定義函數(shù)調(diào)用專題

1、精選優(yōu)質(zhì)文檔-傾情為你奉上VB自定義函數(shù)專題練習(xí)行政班： 教學(xué)班： 姓名： 學(xué)號： 專心-專注-專業(yè)（1）閱讀下面程序，填入劃線處代碼通過調(diào)用函數(shù)，使程序功能完善Function fx(x As Integer) As Boolean If x Mod 5 = 0 Then fx = True Else fx = False End IfEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) If Then Label1.Caption = "是5的倍數(shù)" Else Labe

2、l1.Caption = "不是5的倍數(shù)" End IfEnd Sub（2）閱讀下面程序，程序的功能是計算1+1+2+1+2+3+1+2+3+4+1+2+3+4+5的值，并在Text1上顯示，填入劃線處代碼Function fact(n As Integer) As Integer Dim i As Integer fact = 0 For i = 1 To n fact = fact + i Next iEnd FunctionPrivate Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i =

3、 1 To 5 Next i Text1.Text = End Sub （3）閱讀下面程序，程序功能是在Text2和Text1分別輸入數(shù)據(jù)，Text3顯示兩個數(shù)據(jù)中較大的數(shù)據(jù)，填入劃線處代碼通，使程序功能完善Function max(x As Integer,y As Integer) As Integer If x > y Then max = x Else max = y End FunctionPrivate Sub Command1_Click()Dim a As Integer, b As IntegerDim c As Integer a = Val(Text1.Text)

4、b = Val(Text2.Text) c = Text3.Text = Str(c)End Sub（4）閱讀下面程序，程序功能是在Text1分別輸入一串字符數(shù)據(jù)，Label1顯示字符串中數(shù)字字符的個數(shù)，填入劃線處代碼通，使程序功能完善Function f(t As String) As Integer Dim i As Integer, c As String f = 0 For i = 1 To Len(t) c = Mid(t, i, 1) If c >= "0" And c <= "9" Then End If Next iEnd F

5、unctionPrivate Sub Command1_Click() Dim a As String, s As Integer a = Text1.Text Label1.Caption = Str(s)End Sub（5）下列VB程序的功能是將二進(jìn)制數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)。采用位權(quán)展開的方法： 。程序運(yùn)行時，在文本框Text1中輸入一個二進(jìn)制數(shù)，單擊計算按鈕（Command1）后，文本框Text2中顯示對應(yīng)的十進(jìn)制數(shù)。程序的運(yùn)行界面如圖所示。請在劃線上填入合適的代碼。Function fq(n As Integer, x As Integer) As Long '函數(shù)返回位權(quán)值Dim i As IntegerIf x = 1 Then fq = 1 For i = 1 To n fq = fq * 2 Next iElse fq = 0End IfEnd FunctionPrivate Sub Command1_Click()Dim s1 As String, length As Integer, ch As String, x As IntegerDim sum As Long, i As Integers1 = Text1.Text s