原创力文档- 1、本文档共4页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
DO循环的四种形式
Do do do while 条件 do until 条件
语句行
Loop while 条件 loop until 条件 loop loop
WHILE 条件为真时 继续运行循环程序
Until 条件为真时， 退出程序
Private Sub Command0_Click()
Rem 在程序运行时提示用户输入1－12的数字，程序判断且输出对应数字所属
Rem 月份对应的季节
Dim k As Integer, jx As Integer
Do
k = InputBox(请输入1－12的数字, 提示, 1)
Select Case k
Case 3 To 5
MsgBox 春季, vbOKOnly, 季节输出
Case 6 To 8
MsgBox 夏季, vbOKOnly, 季节输出
Case 9 To 11
MsgBox 秋季
Case 1, 2, 12
MsgBox 冬季, vbOKOnly, 季节输出
Case Else
MsgBox 您输入的数据有误！
End Select
jx = MsgBox(是否继续判断？, vbYesNo, 提示)
Loop Until jx = 7
End Sub
计算 1－100中所有数据的和
Dim k As Integer, s As Integer 0
k = 1: s = 0
Do Until k 100
s = s + k
k = k + 1
Loop
MsgBox 1-100的和为 s
End Sub
Dim k As Integer, s As Integer 0
k = 1: s = 0
Do while k =100
s = s + k
k = k + 1
Loop
MsgBox 1-100的和为 s
End Sub
Dim k As Integer, s As Integer 0
For k = 1 To 100 Step 1
s = s + k
Next k
MsgBox 1-100的和为 s
Private Sub Command0_Click()
Dim k As Integer, s As Integer 0
For k = 1 To 20 Step 3 1 4 7 10 13 16 19 22
s = s + k 1 5 12 22 35 51 70
Next k 4 7 10 13 16 19 22
MsgBox 和为 s
MsgBox k的值为 k
End Sub
Private Sub Command0_Click()
Dim h As Integer, k As Integer
h = 1: k = 1
For h = 1 To 9
Debug.Print
Debug.Print h );
For k = 1 To h
Debug.Print h * k;
Next k
Next h
End Sub
一维数组的赋值
Option Compare Database
Private Sub Command0_Click()
Dim ar1(10) As Integer
Dim k As Integer
For k = 0 To 10
ar1(k) = InputBox(请输入第 k + 1 个元素的值)
Debug.Print ar1(k);
Next k
End Sub
双层FOR循环给数组赋值
Option Compare Database
Option Base 1
Private Sub Command0_Click()
Dim ar1(3, 4) As Integer
Dim k As Integer, h As Integer
For k = 1 To 3
For h = 1 To 4
ar1(k, h) = InputBox(请输入第 k 行第 h 列元素的值)
Debug.Print ar1(k, h);
Next h
Debug.Print
Next k
End Sub
文档评论（0）