例8-6求幂级数.frm

来自「蒋加伏主编VB程序设计第四版PPT及全部课本源码 北京邮电大学出版社 」· FRM 代码 · 共 35 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "例[8-6]求幂级数"
   ClientHeight    =   4125
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5565
   LinkTopic       =   "Form1"
   ScaleHeight     =   4125
   ScaleWidth      =   5565
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
  Dim i As Integer, r As Single   '定义单精度类型变量r，保存x的幂
  For i = 1 To 6
    r = temp(5, i)           '调用函数temp求5的n次幂，n取值1~6
    Print r;                 '以紧凑格式输出5的n次幂
  Next i
End Sub
Function temp(x As Integer, ByVal y As Integer) As Single
  Dim p As Single          '定义单精度类型变量p，保存x的y次幂
  p = 1                    'p的初值赋1
  Do While y > 0           '连续乘y次x，乘积保存在p中
    p = p * x
    y = y - 1
  Loop
  temp = p                 '函数名temp返回x的y次幂
End Function