背的vb.doc
文本预览下载声明
1:1!+2!+3!....+n!的值，函数的名称为fact Private Function fact(n As Integer) As Long Dim i As Integer fact = 1 For i = 1 To n fact = fact * i Next i End Function Private Sub Command1_Click() Dim n As Integer, sum As Integer Dim i As Integer n = Val(Text1.Text) For i = 1 To n sum = sum + fact(i) Next i Text2.Text = sum End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = End Sub 2:逆序输出，函数的名称为reverse Private Sub reverse(s As String, s1 As String) Dim i As Integer For i = 1 To Len(s) 用function可以输出结果 Sub不直接输出
显示全部