如何把vb中算出来的数据导入到excel

来源：百度知道 编辑：UC知道 时间：2024/06/30 10:22:09
Dim x As Double, y As Double, a(0 To 5000) As Double, b(0 To 5000) As Double, e As Double, f As Double, c(0 To 5000) As Double, d(0 To 5000) As Double
Private Sub C1_Click()
Cls
Scale (-200, 200)-(200, -200)
DrawWidth = 2
Line (-200, 0)-(200, 0)
Line (0, 200)-(0, -200)
Line (-10, 190)-(0, 200)
Line (0, 200)-(10, 190)
Line (190, -10)-(200, 0)
Line (200, 0)-(190, 10)
e = 1
a(1) = 0
For e = 1 To 200
b(e) = 10 * (1 - Cos(a(e) * 0.017453292 * 3 / 2))
a(e + 1) = a(e) + 0.6
Next e
e = 201
a(201) = 120
For e = 201 To 450
b(e) = 10 * (1 + (Cos(6 * ((a(e) - 120) * 0.017453292) / 5)))
a(e + 1) = a(e) + 0.6
Next e
e = 451
a(451) = 270
For e = 451 To 600
b(e) = 0
a(e + 1) = a(e) + 0.6
Next e
e = 1
For e = 1 To 600
c(e) = 95 * (Sin(a(e) * 0.017453292)) - 42 * (Sin((a(e) + b(e) + 13.36) * 0.017453292))
d(e) = 95 * (Cos(a(e) * 0.017453292)) - 4

没看你的程序
给你提供点参考
有问题留言

set e = CreateObject("Excel.Application")
e.visible = 0
set nb = e.workbooks.add
set ns = nb.worksheets(1)
for i = 1 to 10
for j = 1 to 10
ns.cells(i,j) = cstr(i) & "," & cstr(j)
next
next
ns.saveas "c:\a.xlsx"
e.quit

set e = CreateObject("Excel.Application")
e.visible = 0
set nb = e.workbooks.add
set ns = nb.worksheets(1)
for i = 1 to 10
for j = 97 to 105
k = chr(j)
ns.range(k&i).value = "第"&i&"个"
next:next
ns.saveas "c:\a.xls"
e.quit