浙江技术选考复习VB自定义函数调用专题

1、精选优质文档-倾情为你奉上VB自定义函数专题练习行政班： 教学班： 姓名： 学号： 专心-专注-专业（1）阅读下面程序，填入划线处代码通过调用函数，使程序功能完善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的倍数" Else Labe

2、l1.Caption = "不是5的倍数" 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分别输入数据，Text3显示两个数据中较大的数据，填入划线处代码通，使程序功能完善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分别输入一串字符数据，Label1显示字符串中数字字符的个数，填入划线处代码通，使程序功能完善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程序的功能是将二进制数转换为十进制数。采用位权展开的方法： 。程序运行时，在文本框Text1中输入一个二进制数，单击计算按钮（Command1）后，文本框Text2中显示对应的十进制数。程序的运行界面如图所示。请在划线上填入合适的代码。Function fq(n As Integer, x As Integer) As Long '函数返回位权值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