VB教程_全套课件_vb-4.pptVIP

例4.18 实际应用，求最短残料。 有一根长度为321米的钢材料，要将它截取成两种规格a、b的长度分别为17米和27米的短料，每种至少1段，问分隔成a,b各多少段后，剩余的残料r最少？ 分析，该题利用“试凑法”通过二重循环求残料r的最小值正数，残料不可能是负数。程序如下： Private Sub Command1_Click() Dim a%, b%, r!, ia%, ib% r = 321 最小值初值取钢材料的长度 For b = 1 To 321 \ 27 b最多的段数 For a = 1 To 321 \ 17 - b a最多的段数 t = 321 - b * 27 - a * 17 当前的残料 If t 0 And t r Then r = t 求最短的残料 ia = a 最短残料时a的段数 ib = b 最短残料时b的段数 End If Next a Next b Print ia, ib, r End Sub 常见错误 1. 不循环或死循环的问题 主要是循环条件、循环初值、循环终值、循环步长的设置有问题。 2．循环结构中缺少配对的结束语句 For 少 配对的Next 3.循环嵌套时,内外循环交叉 4．累加、连乘时，存放累加、连乘结果的变量赋初值问题 (1)一重循环 在一重循环中,存放累加、连乘结果的变量初值设置应在循环语句前。 （2）多重循环 这要视具体问题分别对待。 第四章 基本的控制结构（8学时） 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其它辅助控制语句 4.5 常用算法（一） 4.6 常见错误 （顺序、条件、循环） 一. 赋值语句 形式: [LET]变量名＝表达式 作用: 将表达式的值赋值给变量名. 一般用于给变量赋值或对控件设定属性值. 例: sRate!=0.1 Text1.Text ＝ 欢迎使用Visual Basic 6.0” 当表达式的类型与变量的类型不一致时,强制转换成左边的精度 iA% = 10 / 3 iA中的结果为3 注意：虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。 二. 与用户交互函数和过程 1. InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 其中:提示 提示信息,标题 对话框标题,缺省输入区缺省值 函数返回字符类型. 例要在屏幕上显示如下的对话框: Dim strName As String * 40， strS1 As String * 40 相应的语句如下: strName= InputBox( “请输入你的姓名” + vbCrLf + “然后单击确定” , “输入框” ) 也可以： strS1 = “请输入你的姓名” + Chr(13) + Chr(10) + “然后单击确定” strName= InputBox(strS1， “输入框”， ， 100，100) 当键盘输入“王晓明” 后,变量strName获得键盘输入的值. 2. MsgBox函数和MsgBox过程 函数形式:变量[%] = MsgBox(提示[,按钮][，标题]) 过程形式: MsgBox 提示[,按钮][,标题] 按钮值如下: 函数返回所选按钮整数值: 例3.2 编一帐号和密码检验程序。 要求: 帐号不超过6位数字,有错,清除原内容再输入. 密码输入时在屏幕上以 “*”代替; 若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。 分析: 帐号6位,MaxLength为6 , LostFocus判断数字IsNumeric函数 密码Pas