结构程序设计2.pptx

顺序结构程序设计程序设计基本结构（一）InputBox函数InputBox(Message [, Title] [, Default] )Message：在对话框中显示提示信息。Title ：对话框的标题。Default：预设的输入默认值。例：Dim intAdd As Integerintadd = InputBox(请输入整数1：, 加法运算, 0)InputBox 函数调用InputBox函数应注意：函数返回的数据是字符串型，需要做适当处理才能当作其他类型的数据使用。MsgBox函数一般格式MsgBox(Message[, Type] [, Title])Message为字符串型数据，参数Type用来控制对话框内显示的按钮类型及图标类型 MsgBox函数打开一个对话框框，该对话框称为信息对话框，上面显示Message处的文字。 例如：a = MsgBox(程序有错误, 2 + 32 + 0+0, msgBox函数应用示例)MsgBox函数中 Type参数的取值（不用记） 类型内部符号常量数值描述按钮类型VbOKOnlyVbOKCancelVbAbortRetryIgnoreVbYesNoCancelVbYesNoVbRetryCancel012345只显示一个“确定”按钮显示“确定”和“取消”两个按钮显示“终止”、“重试”和“忽略”三按钮显示“是”、“否”和“取消”三个按钮显示“是”和“否”两个按钮显示“重试”和“取消”两个按钮图标类型VbCriticalVbQuestionVbExclamationVbInformatio示停止图标“×”显示提问图标“？”显示警告图标“！”显示信息图标“i”默认按钮VbDefaultButton1VbDefaultButton2VbDefaultButto一个按钮为默认按钮第二个按钮为默认按钮第三个按钮为默认按钮模式VbapplicationModuleVbSystemModule04096应用模式系统模式MsgBox语句一般格式MsgBox Message[, Type] [, Title]参数与MsgBox函数一样，但参数不用括号。语句没有返回值，不能赋值给变量 例如：MsgBox 程序有错误, 2 + 32 + 0+0, msgBox函数应用示例选择结构 格式：If 条件 Then 语句1 [Else 语句2] 格式如下：If 条件1 Then 语句块1ElseIf 条件2 Then 语句块2 ……ElseIf 条件n Then 语句块n[Else 语句块n+1]End If语句格式如下： If 条件 Then 语句块1 [Else 语句块2] End If 循环结构For-Next循环+选择For 循环变量＝初值 To 终值 [Step 步长] [语句块1] [IF结构] [语句块2]Next [循环变量] 跳出for循环语句：EXIT FORFor-exit-Next循环例4.3.3 输入一批整数，分别求其中正数个数及所有正数之和，负数个数及所有负数之和。假设数据不超过10个，输入0时结束。Private Sub Form_Click() Dim x%, i%, NCount%, PCount%, NSum%, PSum% For i = 1 To 10 x = InputBox(“请输入) If x = 0 Then Exit For If x 0 Then NCount = NCount + 1 NSum = NSum + x Else PCount = PCount + 1 PSum = PSum + x End If Next iPrint 正数个数：; NCount, 正数之和：; NSumPrint 负数个数：; PCount, 负数之和：; PSumEnd Sub本程序的for循环有两个出口。While-Wend循环While-Wend循环结构一般格式： While 条件 [循环体]Wend（1）Wend 必须和While配合使用。（2）循环体中应包含对“条件”表达式的值进行修改的语句,否则会成为“死循环”。（3）CTRL+BREAK 可跳出“死循环”