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

浙江技术选考复习VB自定义函数调用专题 浙江技术选考复习VB自定义函数调用专题 PAGE 浙江技术选考复习VB自定义函数调用专题 VB自定义函数专题练习 行政班： 教学班： 姓名： 学号： （1）阅读下面程序，填入划线处代码通过调用函数，使程序功能完善 Function fx(x As Integer) As Boolean If x Mod 5 = 0 Then fx = True Else fx = False End If End Function Private Sub Command1_Click() Dim a As Integer a = Val If Then = 是5的倍数 Else = 不是5的倍数 End If End 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 i