版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、GoTo L40Print 10Print 20Print 30Print 40L40:跳到標記為 L40 的敘述標記為 L40 的敘述標記Label_1: Print Hello, VB!用 : 號將標記與敘述分開標記名稱Private Sub Command1_Click()L10: A = 100 B = A*3 GoTo L10 GoTo 跳到前面的敘述End SubPrivate Sub Command1_Click()L10: A = 100 B = A*3 GoTo L10 GoTo 跳到前面的敘述End SubPrivate Sub Command1_Click()I% = 1
2、L20:Print I%I% = I% + 1 無窮迴圈GoTo L20End Sub這是什麼意思呢?Private Sub Command1_Click() I = 1L10: Print I I = I + 1 If I = 10 Then GoTo L10End SubI 小於等於 10 才跳回 L10,不然就向下執行L10: A = Val(InputBox(請輸入數學成績(0100) If A 100 Then Goto L10If 條件式 Then 敘述 1 敘述 2 敘述區塊 : End If將整個敘述區塊後退幾格,讓程式更容易閱讀If I 10 Then Print I I =
3、 I + 1 GoTo L10End IfIf 條件式 Then 敘述 Else 敘述條件式成立否則If 條件式 Then 敘述區塊 1Else 敘述區塊 2End If條件式成立否則 End IfEnd SubIf 條件式 1 Then If 條件式 2 Then 敘述區塊 1-1 Else 敘述區塊 1-2 End If 其他敘述 :Else 敘述區塊 2End If敘述區塊 1If 裡面又有 If, 形成了巢狀 If 敘述Private Sub Command1_Click()L10: N = Val(InputBox(“請輸入一正整數) If N 0 Then MsgBox “請輸入正
4、整數! : Goto L10 If N 100 Then 判斷能否小於三位數 If N 10 Then 判斷能否為一位數 Print N; “一位數 敘述區塊 1-1 Else Print N; “二位數 敘述區塊 1-2 End If Else Print N; “三位數(含)以上 敘述區塊 2 End IfEnd SubIf 條件式 1 Then 敘述區塊 1ElseIf 條件式 2 Then 敘述區塊 2:ElseIf 條件式 N Then 敘述區塊 NElse 敘述區塊 N+1End If條件 1 成立,執行敘述區塊 1條件 1 不成立,但條件 2 成立,執行敘述區塊 2條件 1N-1
5、 都不成立,但條件 N 成立,執行敘述區塊 N以上條件都不成立,執行敘述區塊 N+1If N 10 Then Print N; 一位數ElseIf N 100 Then Print N; 二位數ElseIf N = 18 age 18,都符合這個條件,都符合這個條件 S = 限制級限制級 End Select Print age; 歲可看歲可看; S; 電影電影End Sub For I = 1 To 10 Print INext IFor 計次變數計次變數 = 起始值起始值 To 終止值終止值 Step 步進值步進值 敘述區塊敘述區塊Next 計次變數計次變數 For I = 1 To 10
6、Next I步進值終止值I+1I10?I10?I+1I+1I+1I+12I10?I10?I10?111093I 值起始值1I10?脫離迴圈For I = 3 To 25 Step 6 Print INext I For I = 10 To 1 Step -1 Print INext IFor I = 10 To 1 Step -1 Print INext IFor I = 10 To 1Step -1Next I步進值終止值I+(-1)I1?I1?I+(-1)I+(-1)I+(-1)9I1?I1?012I 值起始值10I1?脫離迴圈Sum = 1+2+3+4+5+6+7+8+9+10+11+1
7、2+13+14+15+16+17+18+19+20Print Sum)Sum = 0Sum = Sum + 1Sum = Sum + 2KSum = Sum + 20Sum = Sum + 1 + 2 + K 20Sum = 0 For I = 1 To 20 Sum = Sum + I Next IPrint Sum Sum = 0 For I = 1 To 301 Step 3 Sum = Sum + I Next IPrint Sum While 條件式 敘述區塊WendI = 1While I = 10 只需只需 I 10,就繞迴圈執行,就繞迴圈執行 Print I I = I + 1
8、WendPrivate Sub Command1_Click() N = 0 先假設是先假設是 0 次方次方 While 2N 2048 2 的的 N 次方還沒達到次方還沒達到 2048 N = N + 1 添加添加 1 次方,再試試看次方,再試試看 Wend Print 2048 是是 2 的的; N; 次方次方End Sub Private Sub Command1_Click() X = InputBox(“請輸入指令請輸入指令) While X “quit 假设輸入假设輸入 “quit,即,即進入迴圈進入迴圈 MsgBox “您輸入了您輸入了 + X X = InputBox(“請輸入
9、指令請輸入指令) 繼續讀取繼續讀取資料資料 Wend MsgBox 您輸入了您輸入了 quit,再見!,再見!End SubWhile 條件式 敘述區塊Wend脫離迴圈或繼續執行的條件式 敘述繞行迴圈 敘述Do 敘述區塊Loop作用是回到 Do 的位置,即繞行迴圈I = 1I = 1DoDo Print I Print I I = I + 1 I = I + 1LoopLoopWhile 表示表示 只需只需,就,就Until 表示表示 做做,直到,直到 Do While 條件式條件式 敘述區塊敘述區塊Loop Do 敘述區塊敘述區塊Loop Until 條件式條件式 I = 1Do While
10、 I 10 直到直到 I 10 為止,為止, 也就是也就是 I 10 時,脫離迴圈。時,脫離迴圈。 I = 11Do While I 10 也是第一次判斷也是第一次判斷, 條件式就不成立條件式就不成立, 但迴圈內的敘述至少執行過一次。但迴圈內的敘述至少執行過一次。 Do : Exit Do : Loop直接脫離迴圈,不再執行 Exit Do 及 Loop之間的敘述Do : If 條件式條件式 Then Exit Do :LoopI = 1Do Print I If I = 10 Then Exit Do 當當I=10 時時,立刻跳出立刻跳出,不再執行不再執行以下敘述以下敘述 I = I + 1
11、LoopFor I = 1 To 3 Print 外迴圈變數; I For J = 1 To 3 Print , 內迴圈變數; J Next J PrintNext I內迴圈外迴圈外迴圈變數外迴圈變數 1 內迴圈變數內迴圈變數 1 內迴圈變數內迴圈變數 2 內迴圈變數內迴圈變數 3外迴圈變數外迴圈變數 2 內迴圈變數內迴圈變數 1 內迴圈變數內迴圈變數 2 內迴圈變數內迴圈變數 3外迴圈變數外迴圈變數 3 內迴圈變數內迴圈變數 1 內迴圈變數內迴圈變數 2 內迴圈變數內迴圈變數 3 For I = 1 To 5 Print I =; I, J =; For J = 1 To I 內迴圈的執行次
12、數,由內迴圈的執行次數,由外迴圈外迴圈 Print J; 變數變數 I 的值來控制。的值來控制。 Next J PrintNext II = 1 J = 1I = 2 J = 1 2I = 3 J = 1 2 3I = 4 J = 1 2 3 4I = 5 J = 1 2 3 4 5Private Sub Command1_Click() V = 10000 本金本金 I = 0.07 年利率年利率 S = V * (1 + I) 計算總金額計算總金額 Print SEnd Sub箭號表示下一個執行的敘述按下 F8,箭號即會移到下一個敘述。Private Sub Command1_Click() V = 10000 I = 0.07 S = V *
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 沪粤版八年级上册《4.2 探究汽化和液化的特点》2023年同步练习卷
- 三方酒业代理合同模板
- 家庭房屋装修设计合同协议书
- 内衣合同模板
- 取公积金装修合同模板
- 小学生主题班队会-感恩-《感恩亲情主题班会》
- 宁波鄞州区劳动合同模板
- 定做校服合同范本
- 家用窗户安装合同协议书
- 家政保险合同模板
- 2024年典型事故案例警示教育手册15例
- 42式太极拳拳谱动作图解
- 现场会签单格式
- 往复式压缩机试车记录+往复式压缩机填料函各部间隙检查记录
- 2019全国普通高校体育单招语文试题
- 专业音响系统技术培训.PPT
- 数据库未来发展趋势(更新版)
- 乡镇景区标识系统建设项目可行性分析报告.doc
- 二年级口算练习表内乘法除法连续乘除
- 心肺复苏术-CPR
- 第三章物料混合
评论
0/150
提交评论