有关数字图像的程序设计

6.1编一个子过程promin

6.2求和
Private Sub Form_Click()
Print "Sin调用结果:"; Sin(3.14 / 4)
Print "MySin调用结果:"; MySin(3.14 / 4)
End Sub
Function MySin(x!) As Single
Dim i%, t!, s!
t = x
s = t
For i = 1 To 1000 Step 2
t = -1 * t * x * x / ((i + 1) * (i + 2))
s = s + t
If Abs(t < 0.00001) Then Exit For
Next i
MySin = s
End Function

删除字符
Private Sub DeleStr(s1 As String, ByVal s2 As String)
Dim i%
i = InStr(s1, s2)
ls2 = Len(s2)
Do While i > 0
ls1 = Len(s1)
' s1 = Left(s1, i - 1) + Right(s1, ls1 - (i + ls2) + 1) ' 在s1中去除s2子字符串
s1 = Left(s1, i - 1) + Mid(s1, i + ls2)
i = InStr(s1, s2)
Loop
End Sub
' 调用DeleStr子过程
Private Sub Command1_Click()
Dim ss1 As String
ss1 = Text1
Call DeleStr(ss1, Text2)
Text3 = ss