007vb控制结构.ppt

下载文档 降价啦

2
0
约1.73万字
约 49页
2018-05-06 发布于江西
举报
版权申诉
保障服务

007vb控制结构.ppt

1、本文档共49页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

007vb控制结构

河北大学管理学院选择控制结构举例2 If Option2.Value = True Then s1% = 50 If Check1.Value = 0 And Check2.Value = 1 And _ Check3.Value = 0 And Check4.Value = 1 Then s2% = 50 Else s2% = 0 End If MsgBox 您的得分为 s1 + s2 选择控制结构举例3 Private Sub Command1_Click() If List1.ListIndex = 1 Then s1 = 50 Else: s1=0 End if If Combo1.ListIndex = 3 Then s2 = 50 MsgBox 您的得分为 s1 + s2 End Sub Select Case List1.Text Case 2 s1 = 50 case else s1 = 0 End Select If Combo1.Text = 太白东坡曹雪芹 Then s2% = 50 MsgBox 您的得分为 s1 + s2 当循环举例1输入字符，并计数；当输入“？”时，停止输入，并输出结果。 Sub Form_Click() Dim c As String Const c1$= = ? s% = 0 c = InputBox$(“输入一个字符: ) While c c1$ s = s + 1 c = InputBox$(msg$) Wend Print “录入字符数: ; s End Sub 当循环举例2 一张纸厚度为0.2cm，对折多少次后能达到珠穆朗玛峰的高度？ 8844.43m Private Sub Form_Click() h = 0.2 While h 884443 h = h * 2 n = n + 1 Wend Print n End Sub GoTo语句举例 Sub Form_Click() Dim p As Currency p = 10000 : r = 0.125 t = 1 Again: If t 10 Then GoTo 100 i = p * r p = p + i t = t + 1 GoTo Again 100 Print p End Sub 2007-11-17 河北大学管理学院 * 当循环举例3——判断素数。 64=8*8 64=2*32，64=4*16 [1，8]；[8，64] Sub Form_Click() Dim n% n=Val(InputBox(输入正整数(=3))) k = Int(Sqr(n)) i = 2 Swit = 0 End Sub While i = k And Swit = 0 If n Mod i = 0 Then Swit = 1 Else i = i + 1 End If Wend If Swit = 0 Then Print n; 是一个素数 Else Print n; 不是素数 End If 改用for循环实现？ 2007-11-17 河北大学管理学院 * 7.5　Do循环控制结构一、Do...Loop While循环 Do [语句块] [Exit Do]Loop [While