原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Sub a豪华版
Sub a()
Dim r As Single, s!
r = Cells(2, 5)
s = 3.14 * r * r
Cells(2, 11) = s
End Sub
Sub b()
Dim h%, w%, s%
h = Cells(3, 5): w = Cells(3, 6)
s = h * w
Cells(3, 11) = s
End Sub
Sub c()
Dim y As Integer, M As Integer, D As Integer
y = Cells(4, 5): M = Cells(4, 6)
Select Case M
Case 1, 3, 5, 7, 8, 10, 12
D = 31
Case 4, 6, 9, 11
D = 30
Case 2
If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then
D = 29
Else
D = 28
End If
End Select
Cells(4, 11) = D
End Sub
Sub D()
Dim x As Integer, y As String
x = Cells(5, 5)
If x 100 Or x 0 Then
y = 成绩输入有误
ElseIf x = 90 Then
y = 优
ElseIf x = 80 Then
y = 良
ElseIf x = 70 Then
y = 中
ElseIf x = 60 Then
y = 及格
Else
y = 不及格
End If
Cells(5, 11) = y
End Sub
Sub e()
Dim n%, s%, x%
x = Cells(6, 5)
n = 1: s = 1 ^ 2 i:有第i项,s前i项和
Do While s = x
n = n + 1
s = s + n ^ 2
Loop
Cells(6, 11) = n
End Sub
Sub f()
Dim x%, s%, e%
s = Cells(7, 5): e = Cells(7, 6)
For x = s To e
If x Mod 7 = 5 And x Mod 5 = 3 Then
Exit For
End If
Next x
Cells(7, 11) = x
End Sub
Sub g()
Dim x(1 To 5) As Integer, i%, t%, j%
For i = 1 To 5
x(i) = Cells(8, i + 4)
Next i
For i = 1 To 4
For j = i + 1 To 5
If x(i) x(j) Then
t = x(i): x(i) = x(j): x(j) = t
End If
Next j
Next i
For i = 1 To 5
Cells(8, 10 + i) = x(i)
Next i
End Sub
Sub h()
Dim x(1 To 30) As Long, i%, n%
x(1) = 1: x(2) = 1
For i = 3 To 30
x(i) = x(i - 1) + x(i - 2)
Next i
n = Cells(9, 5)
Cells(9, 11) = x(n)
End Sub
Sub i()
Dim n%, i%, s!
n = Cells(10, 5)
s = 1
For i = 1 To n
s = s * i
Next i
Cells(10, 11) = s
End Sub
Sub j()
Dim t As Integer, x%, y%
x = Cells(11, 5): y = Cells(11, 6)
t = x: x = y: y = t
Cells(11, 11) = x: Cells(11, 12) = y
End Sub
VBA是嵌入在应用程序中的Visual Basic语言。A
与VB最大的不同在于，VBA必须嵌入在OFFICE文档中运行。A
Inputbox函数的提示信息参数不能缺省。 A
Msgbox函数用来接受用户输入数据。B
要在立即窗口中输出信息，可以用debu
文档评论（0）