关于我们 共44页[>1< 2 3 4 5 6 7 »... 最后一页]

正弦函数演示

正弦函数演示

Option Explicit

Private Sub Command1_Click()
Const pi = 3.1415926
Dim i As Single
Picture1.Scale (-pi, 1)-(pi, -1)
Picture1.Line (-pi, 0)-(pi, 0)
Picture1.Line (0, 1)-(0, -1)
With Picture1
.CurrentX = -pi
.CurrentY = -0.1
End With
Picture1.Print "-pi"
With Picture1
.CurrentX = pi - 0.3
.CurrentY = -0.1
End With
Picture1.Print "pi"

With Picture1
.CurrentX = 0.2
.CurrentY = -0.1
End With
Picture1.Print "0"
With Picture1
.CurrentX = 0.2
.CurrentY = 1 - 0.1

End With
Picture1.Print "1"
With Picture1
.CurrentX = 0.2
.CurrentY = -1 + 0.1
End With
Picture1.Print "-1"
For i = -pi To pi Step 0.0001
Picture1.PSet (i, Sin(i))
Next
End Sub

累加

dim i,n ,m,sum,t
n=msgbox("请输入累加第一个数")
m=msgboxv(请输入累加最后一个数")
for i=n to m
t=t+i
sum=sum+t
next i
print "累加的和是:",sum
end sub