Visual Basic基本控件结构教程.ppt

第2章 基本的控制结构 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其他辅助控制语句 4.5 常用算法（一） 4.6 常见错误 （顺序、条件、循环） 例要在屏幕上显示如下的对话框: Dim i As String * 40， s1 As String * 40 i= InputBox( “请输入你的姓名” + vbCrLf + “然后 单击确定” , “输入框” ) 或: S1 = “请输入你的姓名” + Chr(13) + Chr(10) + “然后单击确定” i= InputBox(S1， “输入框”， ， 100，100) 当键盘输入“王晓明” 后,变量i获得键盘输入的值. 使用inputbox消息框输入半径 说明: 提示信息：字符串，指定显示在对话框中的信息，要在提示信息中对文本信息进行换行，可以使用回车符Chr(13)、换行符Chr(10)或是回车与换行符的组合Chr(13)Chr(10)。 按钮类型：数值型数据，是可选项，用来指定对话框中出现的按钮和图标的种类及数量，该参数的值由三类数值相加产生，这三类数值分别表示按钮的类型、显示图标的种类及默认按钮的位置 对话框标题：字符串表达式，是可选项，它显示在对话框的标题栏中，如果省略，则在标题栏中显示应用程序名。 4.2选择结构 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 例: 求一个数的绝对值 if x0 then x=-x 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If 例：密码识别 If Text2.Text = 12345 Then MsgBox 密码正确, vbInformation, 欢迎 Else MsgBox “密码错误，请重新输入”, vbOKOnly + vbQuestion, “哈哈我怀疑你是小偷!!” End If 3. If…Then…ElseIf语句(多分支结构) 形式: If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … 语句块n else 语句块n+1 End If ElseIf不能写成 Else If。 分支结构复习 1、写出三种选择结构单分支、双分支、多分支。 2、请用inputbox输入两数，在屏幕上输出其中较大的数。 3、 4、编写一个可以为成绩分等的程序，将某门课的成绩分60以下不及格，60-70及格，70-80中，80-90良，90-100优秀，并输出。 5、以知x,y,z三个数，使得xyz 4、3 循环结构程序设计 循环结构是结构化程序中的三种基本程序结构之一。在程序中，凡是需要重复相同或相似的操作步骤，都可以用循环结构来实现。 循环结构由两部分组成： 循环体，即要重复执行的语句序列； 循环控制部分，即用于规定循环的重复条件或重复次数，同时确定循环范围的语句。 要使计算机能够正常执行某循环，由循环控制部分所规定的循环次数必须是有限的，即循环体可以重复0次到若干次。 说明： 1、退出循环后，循环变量的值保持退出时的值． ２、在循环体内对循环变量多次赋值会影响原来的循环控制规律。 程序运行结果。 循环的其他形式 穷举法(枚举法) 百元买百鸡问题: 小鸡每只五角,公鸡每只2元,母鸡每只三元.现在有100元钱买100只鸡,有什么样的购买放方案? 设母鸡、公鸡、小鸡分别为x、y、z只，则有如下方程 X+y+z=100 3x+2y+0.5z=100 Dim x%,y%,z% For x=0 to 33 for y = 0 to 50 if 3*x+2*y+0.5*(100-x-y)=100 then ?x,y,100-x-y End if