数据处理和程序设计@第5章-VBA基础(下).pptxVIP

第 5 章 Excel VBA 基础;;第五节 程序控制结构;VBA程序控制结构;VBA 程序结构概述;程序语句;顺序结构;顺序结构;顺序结构;顺序结构;4 内部对话框;;自变量;第1组（按钮设定）：决定消息框中的按钮样式。;第3组（缺省按钮设定）： 决定何者为缺省按钮。;Sub example() Dim button(4) As Integer button(0) = MsgBox(消息框示范, 1 + 64, vbOkCancel+vbInformation) button(1) = MsgBox(要终止吗?, 4 + 32 + 256, vbYesNo+vbQuestrion+vbDefaultButton2) button(2) = MsgBox(注意！Visual Basic开课了！, 48 + 4096, vbOk+vbSyetemModal) button(3) = MsgBox(示范结束, 2 + 16, vbAbortRetryIgnore+vbStop) End Sub;Sub makeDialog1() Dim theCode As Integer, theReply As Integer theCode = vbYesNo + vbDefaultButton2 + vbExclamation + vbApplicationModel theReply = MsgBox(prompt:=Do you really want to do this?, Buttons:=theCode) Select Case theReply Case vbYes He really wants to do this,so go ahead Code block for Yes answer Debug.Print Yes Case vbNo Code block for No answer Debug.Print No End Select End Sub;Input Box() 格式： InputBox(prompt,[,title][,default][,xpos][,ypos] [,helpfile][,context]);Private Sub UserForm_Activate() Dim str As String str = InputBox(请输入字体, 字体, 宋体) lbl.Caption = str 展示： With txt .Text = 您好！ .Font = str .FontSize = 20 End With End Sub;顺序结构;选择结构;选择结构;选择结构;选择结构;;26;;循环结构;循环结构;循环结构;循环结构;循环结构;第六节数组;数组;数组;数组;5.5.4 循环结构程序设计;38;1. For…Next循环语句;40;41;42;43;2. Do…Loop循环语句;格式一 :前测式当型循环 Do While 条件 [语句组1] [Exit Do] [语句组2] Loop; 四种格式的区别在于条件的书写位置不同，可以写在Do语句之后，也可以写在Loop语句之后，另外，条件之前的关键字可以是While，也可以是Until。 使用While条件时，当指定的条件为True时，执行循环体中的语句组，而当条件为False时则退出循环，执行循环终止语句Loop之后的语句。 使用Until条件时，当指定的条件为False时，执行循环体中的语句组，而当条件为True时则退出循环，执行循环终止语句Loop之后的语句。 使用While和使用Until的区别是： While条件表示当条件成立时执行循环体， Until条件则是在条件不成立时执行循环体。;47;例：从键盘输入一正整数，判断是否是素数。;49;4. 循环的嵌套;51;52;53;当多重For…Next循环的Next语句连续出现时，Next语句可以合并成一条，而在其后跟着各循环控制变量，内层循环变量写在前面，外层循环变量写在后面，例如，以下两个三重循环的写法是完全等价的。;在多重循环的任何一层循环中都可以使用Exit Do或Exit For退出循环，注意只能退出Exit Do或Exit For语句所对应的最内层循环，而不是一次退出多层循环。 例如，下例的循环退出位 置如箭头所示： ;56;57;58;59;60;61;62;63;64;65;