VB第5章分支.pptVIP

基本算法及应用 求两个数的最大（小）值 分析： 两个数的关系无非有3种情形，即： AB，A=B，AB。 实现： (最大值) If A = B Then Max = A Else Max = B If A B Then Max = A Else Max = B 用户输入时按键的判断 两种方法： 一是在输入时判断，使用文本框的Key事件； 常用：KeyPress事件（KeyAscii参数） 二是在全部输入完成后再对每个字符进行判断，使用循环结构依次获取字符串中的字符。 例7-7 在文本框中输入一个字符串，要求只能出现字母。 Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii Asc(a) Or KeyAscii Asc(z)) And _ (KeyAscii Asc(A) Or KeyAscii Asc(Z)) Then KeyAscii = 0 End Sub 信息的有效性验证 例7-8 登录界面设计 “确定”按钮的Click事件过程如下： Private Sub cmdok_Click() If txtuser.Text = Or txtpwd.Text = Then MsgBox 请输入完整信息！ Else If txtpwd.Text Then MsgBox 密码错误，不能登录！ txtpwd .Text = txtpwd.SetFocus Else MsgBox txtuser.Text ，欢迎您！ End If End If End Sub 有效信息： ①帐号和密码都不能空 ②密码符合要求 这样的密码设置方法，安全性差 单选钮和复选框的应用 单选钮——多选一 在同一组单选钮中只有一个按钮的Value属性值为1，通常使用If…Then…ElseIf…的语句格式进行判断。 复选框——多选多 同一组复选框中可以同时有多个被选中，也可以只选中一个，也可以一个都不选中，通常我们对各个复选框进行独立判断。 单选钮和复选框的应用 例7-9 根据用户选择，求若干门课程的总分或平均分 参考代码如下： Private Sub cmdCal_Click() Dim sum As Integer, n As Integer If chkChinese.Value = 1 Then sum = sum + Val(txtChinese.Text): n = n + 1 If chkMath.Value = 1 Then sum = sum + Val(txtMath.Text): n = n + 1 If chkEnglish.Value = 1 Then sum = sum + Val(txtEnglish.Text): n = n + 1 If optTotal.Value Then txtResult.Text = n 门课总分: vbCrLf sum Else If n 0 Then txtResult.Text = n 门课平均分: vbCrLf sum / n End If End Sub 问：变量n的作用是什么？ 其他应用举例 例7-10 例7-10 调整3个文本框中的数值，使其中 的数值按小到大的顺序排放 If a b Then temp = a: a = b: b = temp 如果a大于b，交换a和b的值 If a c Then temp = a: a = c: c = temp 如果a大于c，交换a和c的值 If b c Then temp = b: b = c: c = temp 如果b大于c，交换b和c的值 例7-11 例7-11 求一元二次方程ax2+bx+c=0的根 根据数学中一元二次方程的求根公式，令： 当Δ0时，方程有两个不相等的实根； 当Δ=0时，方程有两个相等的实根； 当Δ0时，方程有两个不相等的虚根。 例7-11 If a 0 Then delta = b * b - 4 * a * c If delta 0 Then x1 = (-b + Sqr(delta)) / (2 * a) 第1个根