第2章语言基础PPT讲稿.ppt

第第2章章 语言基础语言基础第1页，共70页，编辑于2022年，星期一2.1 2.1 数据类型数据类型 数据类型：决定数据允许的操作、取值范围、存储形式数据类型：决定数据允许的操作、取值范围、存储形式第2页，共70页，编辑于2022年，星期一2.1 2.1 数据类型数据类型 第3页，共70页，编辑于2022年，星期一说明：说明：w168%(168%(整型，整型，2 2字节字节)、32768%32768%（溢出）、（溢出）、32768 32768(长整型，长整型，4 4字节字节)，w1.234!(single,41.234!(single,4字节字节),1.234#(double,8),1.234#(double,8字节字节),1.234(currency,8),1.234(currency,8字节字节)w货币型数据与浮点数的区别：前者小数点是固定的，货币型数据与浮点数的区别：前者小数点是固定的，而后者小数点是浮动的而后者小数点是浮动的例如，计算例如，计算1+11+1，作为浮点数时可能得到的结果是，作为浮点数时可能得到的结果是1.999999991.99999999。而如果是。而如果是CurrencyCurrency类型的数据是类型的数据是用十进制进行运算，因而计算结果是非常精确的。用十进制进行运算，因而计算结果是非常精确的。第4页，共70页，编辑于2022年，星期一例如：例如：Dim a as integer,b%Dim a as integer,b%If 123 ThenIf 123 Thena=True a=True b=False b=False End if End if 字符串字符串:dim strName as string 可存放20亿个字符 dim strAddress as string*60 可存放60个字符 strName=“ahstu沈峰”布尔型数据布尔型数据=整型数据整型数据:True True转换为转换为-1-1，FalseFalse转换为转换为0 0；其他类型数据其他类型数据=布尔型数据布尔型数据:非非0 0转换成转换成TrueTrue，0 0转换成转换成FalseFalse。第5页，共70页，编辑于2022年，星期一日期型数据的表示日期型数据的表示用用#括起来，括起来，用用“/”、“，”或或“-”分隔开，分隔开，顺序可以是年、月、日，或月、日、年。顺序可以是年、月、日，或月、日、年。时间必须用时间必须用“：”分隔，顺序是时、分、秒。分隔，顺序是时、分、秒。如：如：#September,11,2005#September,11,2005#、#2005-09-11#2005-09-11#、#10:30:0010:30:00 AM#AM#、#09/11/2005 10:30:00 AM#09/11/2005 10:30:00 AM#第6页，共70页，编辑于2022年，星期一2.2 2.2 变量与常量变量与常量常量：在程序运行中其值不可以改变。常量：在程序运行中其值不可以改变。变量：在程序运行中其存储的值可以改变。变量：在程序运行中其存储的值可以改变。变量命名原则：变量命名原则：字母、汉字开始，后可跟字母、汉字、数字或下划线，字母、汉字开始，后可跟字母、汉字、数字或下划线，长度不超过长度不超过255个字符，个字符，不能使用关键字，不区分大小，见名知义，不能使用关键字，不区分大小，见名知义，采用表示变量类型的前缀或后缀进行命名。采用表示变量类型的前缀或后缀进行命名。第7页，共70页，编辑于2022年，星期一错误错误错误错误的变的变的变的变量量量量名：名：名：名：正确的：正确的：正确的：正确的：intMax,strName,姓名_Str等第8页，共70页，编辑于2022年，星期一2.2.1变量的声明1.用用Dim语句语句显式显式声明变量声明变量 形式形式:Dim 变量名变量名 AS 类型名类型名 或或Dim 尾符尾符例：例：Dim intCount As integer,sngSum As single 等价于等价于 Dim intCount%,sngSum!例：例：Dim sum1，count as integer 表示定义表示定义sum1则为变体类型变量，则为变体类型变量，count为整型变量为整型变量2.隐式隐式声明声明 未进行上述的声明而直接使用，其类型为未进行上述的声明而直接使用，其类型为 Variant 类型。类型。3.强制强制显式显式声明变量设置的方法：声明变量设置的方法：在通用声明处加在通用声明处加 Option Explicit 语句或语句或 菜单菜单“工具工具-选项选项”，“编辑器编辑器”选项卡，选择选项卡，选择“要求变量声明要求变量声明”复选框。复选框。第9页，共70页，编辑于2022年，星期一显式声明的变量有显式声明的变量有4个层次的个层次的作用域作用域1.过程层次过程层次,动态的动态的:用用dim在过程中定义的在过程中定义的2.过程层次，静态的：用过程层次，静态的：用static 在过程中定义的在过程中定义的3.窗体层次：在窗体的窗体层次：在窗体的“通用声明通用声明”位置定义的位置定义的4.模块中的全局量模块中的全局量:在模块中定义的在模块中定义的 如如 Global g As Integer第10页，共70页，编辑于2022年，星期一作用域示例作用域示例第11页，共70页，编辑于2022年，星期一2.2.2常量常量1.1.用户用户用户用户自定义自定义自定义自定义符号常量符号常量 形式：形式：Const Const 常量名常量名 AS AS 类型类型=表达式表达式例例 Const MAX AS Integer=100Const MAX AS Integer=1002.2.系统系统系统系统常量常量 系统预先定义，位于对象库中系统预先定义，位于对象库中,“,“视图视图 对象浏览器对象浏览器”查看查看.例例:vbNormal:vbNormal、vbMinimizedvbMinimized、vbCrLfvbCrLf、vbRedvbRed等等。等等。3.3.用户声明常量的用户声明常量的作用域作用域作用域作用域 与变量的作用域类似。与变量的作用域类似。第12页，共70页，编辑于2022年，星期一2.3 2.3 内部函数内部函数 1 1 调用格式：调用格式：函数名函数名(参数表参数表)2 2 分类：分类：数学运算函数、数学运算函数、字符串函数、字符串函数、随机函数、随机函数、转换函数、转换函数、日期和时间函数。日期和时间函数。第13页，共70页，编辑于2022年，星期一1 数学运算函数数学运算函数 第14页，共70页，编辑于2022年，星期一wRnd函数：产生函数：产生0.1之间的数，为了产生之间的数，为了产生min和和max之间的数，可使用如下公式：之间的数，可使用如下公式：wL=Int(max min+1)*Rnd)+minw如产生如产生100.200之间的数，使用下式：之间的数，使用下式：wNumber=Int(101*Rnd)+100wRandomize（种子（种子):使用不同的种子，使用不同的种子，Rnd可以可以产生不同的随机数。产生不同的随机数。w为了每次运行产生不同的随机数，种子可以采用为了每次运行产生不同的随机数，种子可以采用Timer函数。函数。第15页，共70页，编辑于2022年，星期一2 2 字符串函数字符串函数 中中中中/英文：英文：英文：英文：2 2字节字节字节字节第16页，共70页，编辑于2022年，星期一3 3 转换函数转换函数 第17页，共70页，编辑于2022年，星期一4 4 格式输出函数格式输出函数 按格式输出表达式的值：按格式输出表达式的值：Format(Format(数值或日期表达式，格式字符串数值或日期表达式，格式字符串)?format(1234.56,00000.000)结果：结果：01234.560?format(1234.56,#.#)结果：结果：1234.56“#”表示一个数字位。表示一个数字位。“#”的个数决定了显示区段的长度的个数决定了显示区段的长度.“0”与与“#”功能相同，只是多余的位以功能相同，只是多余的位以“0”补齐。补齐。第18页，共70页，编辑于2022年，星期一5 5 日期和时间函数日期和时间函数例：Format(Now,yyyy年m月dd日 hh：mm)第19页，共70页，编辑于2022年，星期一2.4 2.4 表达式表达式 组成组成组成组成 关键字、运算符、常量、变量、函数、对象、圆括号关键字、运算符、常量、变量、函数、对象、圆括号分类分类分类分类 算术表达式、算术表达式、字符串表达式、关系表达式、字符串表达式、关系表达式、布尔布尔(逻辑）表达式。逻辑）表达式。第20页，共70页，编辑于2022年，星期一1 1 算术表达式算术表达式1)1)算术运算符算术运算符(假设假设n=3)n=3)2 2）算术符运算优先级）算术符运算优先级例如：例如：-8+3*5 mod 2 65*(sin(0)-8)结果：结果：8第21页，共70页，编辑于2022年，星期一2 2 字符表达式字符表达式字符运算符：字符运算符：“+”+”、“&”&”，运行结果：字符型运行结果：字符型或或数值型数值型“&”:“&”:不管两边类型，都是字符串连接操作不管两边类型，都是字符串连接操作“+”:“+”:两边只要有一个是数值类型，就执行加法操作，否则字符串连接操两边只要有一个是数值类型，就执行加法操作，否则字符串连接操作。作。例如：例如：?VB+?VB+很棒很棒 VB VB很棒很棒，字符型，字符型?VB&?VB&很棒很棒 VB VB很棒很棒，字符型，字符型?12&34 1234?12&34 1234，字符型，字符型?12+34 46?12+34 46，数值型，数值型?123+321 类型一致，结果为类型一致，结果为123321?a123+321 出错出错第22页，共70页，编辑于2022年，星期一3 3 关系表达式关系表达式1)1)关系运算符关系运算符2 2）关系表达式）关系表达式 表达式表达式1 1 关系运算符关系运算符 表达式表达式2 23 3）运算结果：）运算结果：True True 或或 FalseFalse第23页，共70页，编辑于2022年，星期一4 4 布尔表达式布尔表达式1 1）布尔运算符）布尔运算符 2）布尔表达式）布尔表达式 3）运算顺序）运算顺序NotAndOr第24页，共70页，编辑于2022年，星期一5 5表达式表达式的优先级的优先级例如：例如：a b+d Or Not True a b+d Or Not TrueVB VB 规定按照以下次序进行运算：规定按照以下次序进行运算：(1)(1)先计算算术表达式的值先计算算术表达式的值(2)(2)再求关系表达式的值，按照从左向右运算的原则再求关系表达式的值，按照从左向右运算的原则(3)(3)最后进行布尔运算，运算顺序为最后进行布尔运算，运算顺序为NotAndOrNotAndOr 算术运算符算术运算符算术运算符算术运算符 字符运算符字符运算符字符运算符字符运算符 关系运算符关系运算符关系运算符关系运算符 逻辑运算逻辑运算逻辑运算逻辑运算第25页，共70页，编辑于2022年，星期一2.5 赋值语句形式形式形式形式 变量名表达式变量名表达式 或或 对象名对象名.属性名表达式属性名表达式 例例:sRate!=0.1:sRate!=0.1 Text1.Text Text1.Text”欢迎使用欢迎使用Visual Basic 6.0”Visual Basic 6.0”说明说明说明说明同一行可用冒号分隔写多个赋值语句，但不能在同一个赋值语同一行可用冒号分隔写多个赋值语句，但不能在同一个赋值语句中为多个变量赋值。句中为多个变量赋值。如：如：x=1:y=1:z=1x=1:y=1:z=1正确，正确，x=y=z=1x=y=z=1错误错误 第26页，共70页，编辑于2022年，星期一2.6数据输入1.1.使用输入框输入使用输入框输入:InputBox:InputBox2.2.使用文本框输入使用文本框输入第27页，共70页，编辑于2022年，星期一2.6.1 数据输入数据输入InputBoxw w格式格式格式格式w InputBox(InputBox(提示信息提示信息，对话框标题，对话框标题，缺省值，缺省值)w w说明说明说明说明 n提示信息、对话框标题，缺省值都是字符串表达式提示信息、对话框标题，缺省值都是字符串表达式。n函数返回值为字符类型函数返回值为字符类型,若要接收数值型数据时，最好用若要接收数值型数据时，最好用Val()Val()函数将数字字符串转换成数值型数据。函数将数字字符串转换成数值型数据。第28页，共70页，编辑于2022年，星期一例例1 在屏幕上显示图示的对话框。在屏幕上显示图示的对话框。Dim I%Dim I%I=Val(InputBox(“I=Val(InputBox(“请输入一个整数请输入一个整数”+”+vbCrLf+vbCrLf+“要求在要求在1 1到到100100之间之间”,“”,“数据输入数据输入”,“1”)”,“1”)第29页，共70页，编辑于2022年，星期一2.6.2 2.6.2 文本框（文本框（文本框（文本框（TextBoxTextBox）控件）控件）控件）控件功能功能文本编辑区域，在该区域用户可以输入、编辑和显示文文本编辑区域，在该区域用户可以输入、编辑和显示文本内容。本内容。主要属性主要属性1.Text:1.Text:文本内容文本内容2.Maxlength:2.Maxlength:设置文本的最大字符个数。设置文本的最大字符个数。0 0表示任意长度值表示任意长度值.3.MultiLine:3.MultiLine:是否允许多行显示是否允许多行显示,默认一行（默认一行（FALSEFALSE）第30页，共70页，编辑于2022年，星期一4.ScrollBars:4.ScrollBars:当当MultiLineMultiLine为为TrueTrue时时,该属性才有效该属性才有效,表示滚动条的形表示滚动条的形式：式：0-None0-None、1-Horizontal1-Horizontal、2-Vertical2-Vertical、3-Both3-Both。5.Locked:5.Locked:是否可被编辑属性，是否可被编辑属性，FalseFalse表示为可编辑。表示为可编辑。6.PasswordChar:6.PasswordChar:输入密码时显示的字符输入密码时显示的字符7.SelStart7.SelStart，SelLengthSelLength，SelText:SelText:选中文本的起始、长度、内容。选中文本的起始、长度、内容。第31页，共70页，编辑于2022年，星期一主要事件主要事件 Change:Change:文本框内容发生改变时触发文本框内容发生改变时触发GotFocus/LostFocus:GotFocus/LostFocus:当控件获得当控件获得/失去焦点时发生失去焦点时发生KeyPressKeyPress(KeyAscii As Integer):(KeyAscii As Integer):当用户按下并释放键盘上一个键时触发当用户按下并释放键盘上一个键时触发,参数参数KeyAsciiKeyAscii表示所按键的表示所按键的AsciiAscii码；码；当当KeyAsciiKeyAscii为为1313时表示回车键时表示回车键;为为0 0时为去除刚输入的字符。时为去除刚输入的字符。主要方法主要方法 文本框对象文本框对象.SetFocusSetFocus：文本框对象获得焦点文本框对象获得焦点第32页，共70页，编辑于2022年，星期一例2计算圆的面积和周长第33页，共70页，编辑于2022年，星期一Private Sub Command1_Click()Private Sub Command1_Click()Dim r!,l!,s!Dim r!,l!,s!r=InputBox(r=InputBox(请输入圆的半径：请输入圆的半径：+Chr(13)+Chr(10)+Chr(13)+Chr(10)+然后单击确定然后单击确定,输入框输入框,1000,1000),1000,1000)l=2*3.14159*rl=2*3.14159*r s=3.14159*r*r s=3.14159*r*r Text1.Text=r Text1.Text=r：Text2.Text=l Text2.Text=l：Text3.Text=s Text3.Text=sEnd SubEnd Sub第34页，共70页，编辑于2022年，星期一2.7 数据输出数据输出w用用Print方法输出：在窗体、图形框、打印机上输入方法输出：在窗体、图形框、打印机上输入w用消息框函数输出用消息框函数输出:MsgBoxw用文本框控件输出用文本框控件输出:例例Text1.Text=CStr(sum)w用标签控件输出用标签控件输出:例例Label.Caption=CStr(sum)第35页，共70页，编辑于2022年，星期一 形式形式:对象对象.PrintSpc(n)|Tab(n).PrintSpc(n)|Tab(n)表达式列表表达式列表；|，作用作用:在对象上输出信息。在对象上输出信息。对象：窗体、图形框或打印机对象：窗体、图形框或打印机(Printer),(Printer),省略对象省略对象 在窗体上输出。在窗体上输出。Spc(n)Spc(n)函数：插入函数：插入n n个空格，允许重复使用。个空格，允许重复使用。Tab(n)Tab(n)函数：左端开始右移动函数：左端开始右移动n n列，允许重复使用。列，允许重复使用。；(分号分号)：光标定位上一个显示的字符后。：光标定位上一个显示的字符后。，(逗号逗号)：光标定位在下一个打印区的开始位置处。：光标定位在下一个打印区的开始位置处。2.7.1 Print方法方法第36页，共70页，编辑于2022年，星期一 MsgBoxMsgBox的两种使用形式：函数、过程。的两种使用形式：函数、过程。MsgBoxMsgBox（）：函数，返回一个整型值。（）：函数，返回一个整型值。变量变量 =MsgBox=MsgBox（提示（提示，按钮，按钮，标题，标题）MsgBoxMsgBox：过程：过程 MsgBox MsgBox 提示提示，按钮，按钮，标题，标题 2.7.2MsgBox函数和MsgBox过程第37页，共70页，编辑于2022年，星期一Dim a%a=MsgBox(真要退出吗？,vbYesNo+vbInformation+vbDefaultButton1,退出确认)If a=vbOK Then end End If第38页，共70页，编辑于2022年，星期一 参数说明：参数说明：1.“1.“提示提示”和和“标题标题”：与：与InputBoxInputBox函数相同。函数相同。2.“2.“按钮按钮”：为数值表达式，由：为数值表达式，由3 3个常数组成，形式为个常数组成，形式为c1+c2+c3c1+c2+c3c1c1：按钮数目及类型，：按钮数目及类型，c2c2：图标类型：图标类型c3c3：默认按钮。：默认按钮。第39页，共70页，编辑于2022年，星期一第40页，共70页，编辑于2022年，星期一注意注意注意注意 ：1.1.在在MsgBoxMsgBox中中，参参数数是是按按一一定定顺顺序序排排列列的的，如如果果省省略略了某些参数，必须加入相应的逗号分隔符。了某些参数，必须加入相应的逗号分隔符。2.MsgBox2.MsgBox过过程程没没有有返返回回值值，因因此此常常用用于于简简单单的的信信息息显显示。示。3.Msgbox()3.Msgbox()函数函数的返回值是一个整数，该整数与所选的返回值是一个整数，该整数与所选择的按钮有关。每个按钮对应一个返回值，共有择的按钮有关。每个按钮对应一个返回值，共有7 7种种按钮。按钮。第41页，共70页，编辑于2022年，星期一2.8 2.8 注释、暂停、程序结束语句注释、暂停、程序结束语句注释、暂停、程序结束语句注释、暂停、程序结束语句1.1.注释语句：注释语句：或或 Rem Rem 2.2.暂停语句：暂停语句：stop stop Stop Stop语句用来暂停程序的执行，相当于在事件语句用来暂停程序的执行，相当于在事件代码中设置断点。代码中设置断点。3.3.程序结束语句：程序结束语句：endend第42页，共70页，编辑于2022年，星期一形式：With 对象 语句块 End With作用：对某个对象执行一系列的操作，而不用重复指出对象的名称。With Label1.Height=2000.Width=2000.FontSize=22.Caption=MyLabelEnd With Label1.Height=2000 Label1.Width=2000 Label1.FontSize=22 Label1.Caption=MyLabel 2.9 With 2.9 With 语句语句第43页，共70页，编辑于2022年，星期一2.10 分支语句分支语句wIf/Then/End If1.If Balance-Check 0 Then2.Print You are overdrawn3.Print Authorities have been notified4.End IfwIf/Then/Else/End If 1.If Balance-Check 0 Then2.Print You are overdrawn3.Print Authorities have been notified4.Else5.Balance=Balance-Check6.End If第44页，共70页，编辑于2022年，星期一If/Then/ElseIf/End If 1.If Balance-Check 65w Category=Senior Citizenw Case Elsew Category=Everyone ElsewEnd Select第46页，共70页，编辑于2022年，星期一例例1 1 从从键键盘盘任任意意输输入入3 3个个数数a,b,ca,b,c，请请按按由由小小到到大大顺顺序序排排序序后后用用消消息息框框输输出。出。Dim a!,b!,c!,t!t!Dim a!,b!,c!,t!t!为中间变量，在两个变量交换值时使用为中间变量，在两个变量交换值时使用 a=InputBox(a=)a=InputBox(a=)b=InputBox(b=)b=InputBox(b=)c=InputBox(c=)c=InputBox(c=)If a b Then a If a b Then a取取a a与与b b中的最小值中的最小值 t=at=a a=b a=b b=t b=t End If End If If a c Then a If a c Then a取取a a与与c c中的最小值中的最小值 t=at=a a=c a=c c=t c=t End If End If If b c Then b If b c Then b取取b b与与c c中的最小值中的最小值 t=bt=b b=c b=c c=t c=t End If End If MsgBox MsgBox 三个数按由小到大排序后为三个数按由小到大排序后为&Chr(10)&a&,&b&,&c&Chr(10)&a&,&b&,&c 第47页，共70页，编辑于2022年，星期一例例3：计算储蓄（演示）：计算储蓄（演示）wF=D (1+I)M-1/Iw其中：其中：F 最终帐户金额，最终帐户金额，wD 月存款额月存款额wI 月利息率，月利息率，wM 存款期限（月为单位）存款期限（月为单位）w要求：对输入进行有效性检测：允许输要求：对输入进行有效性检测：允许输入数字入数字(ASCII码码48-57)、小数点、小数点(46)、回退键回退键(8)第48页，共70页，编辑于2022年，星期一源程序源程序wPrivate Sub cmdCalculate_Click()计算命令按钮计算命令按钮wDim IntRate As SinglewDeposit=Val(txtDeposit.Text)wInterest=Val(txtInterest.Text)wIntRate=Interest/1000wMonths=Val(txtMonths.Text)wFinal=Deposit*(1+IntRate)Months-1)/IntRatewtxtFinal.Text=Format(Final,#0.00)End Sub第49页，共70页，编辑于2022年，星期一w对文本框内容进行检测，其它文本框相似对文本框内容进行检测，其它文本框相似Private Sub txtDeposit_KeyPress(KeyAscii As Integer)w wIf(KeyAscii=vbKey0 And KeyAscii=vbKey9)Or KeyAscii=vbKeyDecPt Or KeyAscii=vbKeyBackwThenw Exit SubwElsew KeyAscii=0 取消当前输入字符取消当前输入字符w BeepwEnd IfEnd Sub第50页，共70页，编辑于2022年，星期一例例4：加法运算测试：加法运算测试(演示）演示）要求：计算20以内的加法，并对计算结果进行评分。设计要点：1、随机产生操作数2、对题目数与答对题目数进行计数，以进行评分。3、对输入进行合法性检测第51页，共70页，编辑于2022年，星期一小结小结1w数据类型、变量声明及作用域、常量（自定义数据类型、变量声明及作用域、常量（自定义的和系统的）的和系统的）w运算符及表达式：算术、字符、比较、逻辑，运算符及表达式：算术、字符、比较、逻辑，优先级优先级w语句：赋值、分支语句：赋值、分支w输出和输出：输出和输出：inputBox,MsgBox,文本框、文本框、printw文本框控件：输入检测文本框控件：输入检测第52页，共70页，编辑于2022年，星期一实验实验22.1 教材教材P102 第第2、6题题2.2 例题例题3(*)：对它进行功能扩展，使之具有加、减等功能：对它进行功能扩展，使之具有加、减等功能第53页，共70页，编辑于2022年，星期一2.11 循环语句循环语句(循环次数未知）循环次数未知）1 Do While/Loop 形式形式，例如：，例如：wCounter=1 初始化初始化wDo While Counter 1000w Debug.Print Counterw Counter=Counter+1wLoop第54页，共70页，编辑于2022年，星期一3 Do/Loop While 形式形式，例如：，例如：wSum=1wDow Debug.Print Sumw Sum=Sum+3wLoop While Sum 50说明：说明：Exit Do可以跳出循环，可以跳出循环，第55页，共70页，编辑于2022年，星期一2.12 循环语句循环语句(循环次数已知）循环次数已知）For/Next形式，形式，例如：例如：wFor I=1 to 50 Step 2w A=I*2w Debug.Print AwNext I说明：说明：Step省略时，步长为省略时，步长为1wExit For可以跳出可以跳出For循环循环第56页，共70页，编辑于2022年，星期一例5：我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。分析：解此问题两种方法。第一，可根据公式，26=13*(1+0.008)n，直接利用 标准对数函数求得；第二，利用循环求得，程序如下：Private Sub Command1_Click()x=13：n=0 Do While x n；(2)m除以n得余数r；(3)若r=0，则n为最大公约数结束；否则执行(4)；(4)mn，nr，再重复执行(2)。第58页，共70页，编辑于2022年，星期一Dim n%,m%,nm%,r%Dim n%,m%,nm%,r%m=Val(InputBox(m=)m=Val(InputBox(m=)n=Val(InputBox(n=)n=Val(InputBox(n=)nm=n*mnm=n*mIf mn Then t=m:m=n:n=tIf mn Then t=m:m=n:n=tr=m mod nr=m mod nDo While(r 0)Do While(r 0)m=n m=n n=r n=r r=m mod n r=m mod nLoopLoopPrint Print 最大公约数最大公约数=,n =,n Print Print 最小公倍数最小公倍数=,nm/n=,nm/n 第59页，共70页，编辑于2022年，星期一例例7 7：求：求100100以内素数。以内素数。素数是一个大于素数是一个大于2 2，且不能被，且不能被1 1和本身以外的整数整除的和本身以外的整数整除的整数。整数。判别某数判别某数m m是否为素数最简单的方法是是否为素数最简单的方法是:对于对于m m 从从 i=2i=2，3 3，m-1m-1判别判别m m能否被能否被i i整除，只要有整除，只要有一个能整除，一个能整除，m m不是素数，否则不是素数，否则m m是素数。是素数。For m=2 To 100 For m=2 To 100 For i=2 To m-1 For i=2 To m-1 If(m Mod i)=0 Then If(m Mod i)=0 Then GoTo N1 GoTo N1 Next i Next i Print m Print mN1:N1:Next m Next m第60页，共70页，编辑于2022年，星期一2.13 框架框架(Frame)w作用：是一种容器控件，为控件提供可标识的分组，作用：是一种容器控件，为控件提供可标识的分组，也用于修饰。也用于修饰。w主要属性：主要属性：Caption,Enabled,Visiblew使用方法：使用方法：n画出一个画出一个Frame之后，要放进此框架内的其它控之后，要放进此框架内的其它控件需要在此框架内画出，这样移动此框架时才能件需要在此框架内画出，这样移动此框架时才能够连同这些控件一起移动。够连同这些控件一起移动。第61页，共70页，编辑于2022年，星期一例例8：数据验证模块：数据验证模块(演示演示)第62页，共70页，编辑于2022年，星期一2.14 窗体1.1.属性属性 NameName、CaptionCaption、IconIcon、ControlBoxControlBox、BorderStyle BorderStyle（0 1 2 3 4 5 0 1 2 3 4 5 ）、）、WindowsState WindowsState（0-0-正常、正常、1-1-最小化、最小化、2-2-最大化）最大化）,Picture,Picture（可（可用用LoadPictureLoadPicture函数动态装载函数动态装载)2.2.事件事件 ClickClick、DblClickDblClick、Load Load、UnLoadUnLoad Load Load：当装入窗体时激发，通常用于对属性和变量初始化。：当装入窗体时激发，通常用于对属性和变量初始化。3.3.方法方法 PrintPrint、ClsCls和和ShowShow、HideHide等。等。第63页，共70页，编辑于2022年，星期一例例9：Label控件在用户界面中的应用控件在用户界面中的应用(演示）演示）第64页，共70页，编辑于2022年，星期一关键点：关键点：w准备一个用于主窗体的图像准备一个用于主窗体的图像w主窗体属性：主窗体属性：picture设置为此图像，设置为此图像，BorderStyle=Nonew把把Label控件放置在对应图像上特定位置处：控件放置在对应图像上特定位置处：BorderStyle=0-透明透明,Caption=空白，并使用空白，并使用其其click事件执行这个特定位置处要执行的操作事件执行这个特定位置处要执行的操作第65页，共70页，编辑于2022年，星期一2.15 单选框单选框(optionButton)w用于同一个候选列表中只能选择一项的场景。用于同一个候选列表中只能选择一项的场景。w主要属性：主要属性：nCaption、Font、nValue：标识是否选中此项：标识是否选中此项：True(选中），选中），False（未选中），在一个框架的所有单选项（未选中），在一个框架的所有单选项中某一时刻只能有一个为中某一时刻只能有一个为w主要事件：主要事件：nClick：当发生时：当发生时Value属性的值自动取反属性的值自动取反第66页，共70页，编辑于2022年，星期一2.16 复选框复选框(CheckBox）w在一组选项中用户可以同时选择多个在一组选项中用户可以同时选择多个w主要属性：主要属性：CaptionValue：Unchecked未选中未选中,Checked选中，选中，Grayed：灰色，禁止选择：灰色，禁止选择w主要事件：主要事件：nClick：当发生时：当发生时Value属性的值自动改变属性的值自动改变第67页，共70页，编辑于2022年，星期一例例10：改变文本框字体、颜色：改变文本框字体、颜色(演示）演示）第68页，共70页，编辑于2022年，星期一小结小结w循环：初始化、循环条件、循环体循环：初始化、循环条件、循环体w控件：窗体、框架控件：窗体、框架Frame、单选框、复选框、单选框、复选框w命令按钮的图形功能、命令按钮的图形功能、Label的特殊用处的特殊用处第69页，共70页，编辑于2022年，星期一实验实验32.3 教材教材p128:第第8题题2.4 根据例根据例9，验证，验证Label控件在用户界面中的应用控件在用户界面中的应用第70页，共70页，编辑于2022年，星期一