原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
实验7-1
习题1
程序
Sub itostr(ByVal x As Double, m As String)
Dim h#
Do
h = x Mod 10
m = Chr(h + 48) m
x = x \ 10
Loop While (x 0)
End Sub
Private Sub command1_click()
Dim a#, m$
a = Val(Text1.Text)
Call itostr(a, m)
Text2.Text = m
End Sub
截图
习题2
程序
Private Sub Form_click()
MsgBox sinx在 [0,1]上的定积分是： Format(g(0, 1), 0.000000)
End Sub
Function g(ByVal x!, ByVal y!) As Single
Dim a!, b!, i%, f!, k!, n%
n = 1000
f = (y - x) / n
For i = 1 To n
a = x + f * (i - 1): b = x + f * i
k = k + (Sin(a) + Sin(b)) * f / 2
Next i
g = k
End Function
习题3
程序
Function h(ByVal n%) As Single
Dim m!, i%
m = 1
For i = 1 To n
m = m * i
Next
h = m
End Function
Function fe(n%, x!)
Dim j%, e!
e = 1
For j = 1 To n
e = e + x ^ j / h(j)
Next
fe = e
End Function
Private Sub Form_click()
Dim n%, x!
x = Val(InputBox(输入x, 输入数据))
n = Val(InputBox(输入n, 输入数据))
Print e=1+x+x^2/2!+...+x^n/n!=; fe(n, x)
End Sub
截图：
习题4
程序
Dim a() As Integer
Private Sub insertfun(a%(), y%)
ReDim Preserve a(UBound(a) + 1)
Dim t As Boolean
For i = 0 To UBound(a)
If y = a(i) Then
For j = UBound(a) To i + 1 Step -1
a(j) = a(j - 1)
Next j
a(i) = y
t = True
Exit For
End If
Next i
If t = False Then a(UBound(a)) = y
End Sub
Private Sub Form_Load()
ReDim a(9)
Dim y As Integer
Me.AutoRedraw = True
For i = 0 To UBound(a)
a(i) = i * 10
Print a(i);
Next
Print
y = Val(InputBox(输入插入的数, 输入))
insertfun a(), y
For i = 0 To UBound(a)
Print a(i);
Next
End Sub
文档评论（0）