视频内容：
本视频是给学生复习If语句时的授课内容，长长的寒假过后，很多学生连最基本的东西的忘记了，只好从最简单的开始复习。本视频讲解了使用嵌套If和多分支语句解决的两个问题，讲解非常详细，基础不够扎实的同学可以看一看。
视频勘误：
本堂课是超长假期复课后在机房上的第一节课，学生有些生疏了，我在授课时间把握上也不够好，内容没有讲完，所以课后补录一个视频，希望同学们在五一假期期间可以看看视频复习一下。
隔了一段时间不录视频，我也有些生疏了，语速和音量都没有控制好，请同学们谅解。如果实在觉得语速太慢，可以用2倍速来收看。
本次视频虽然有一些口误，但没有明显错误，就不给出勘误了。如果你发现更多错误，请及时联系我，以便完善勘误表。
源代码：
例1.分数等级。已知各分数段对应等级如下：[80,90)良好，90以上(含90)优秀，[60,80)及格，60以下不及格。请从文本框Text1中输入分数，点击“计算”按钮，在标签Label中显示对应等级。示例界面如下图所示：
算法1: 4个独立的行If语句(不推荐)
Private Sub Command1_Click() x = Val(Text1.Text) If x >= 80 And x < 90 Then Label1.Caption = "良好" If x >= 90 Then Label1.Caption = "优秀" If x >= 60 And x < 80 Then Label1.Caption = "及格" If x < 60 Then Label1.Caption = "不及格"End Sub
算法2: 嵌套If语句
Private Sub Command2_Click() x = Val(Text1.Text) If x >= 80 Then If x < 90 Then Label1.Caption = "良好" Else Label1.Caption = "优秀" End If Else If x < 60 Then Label1.Caption = "不及格" Else Label1.Caption = "及格" End If End IfEnd Sub
算法3: 多分支语句
Private Sub Command3_Click() x = Val(Text1.Text) If x>= 90 Then Label1.Caption = "优秀" ElseIf x >= 80 Then Label1.Caption = "良好" ElseIf x >= 60 Then Label1.Caption = "及格" Else Label1.Caption = "不及格" End IfEnd Sub
例2.计算体质指数(BMI)
体质指数(BMI)=体重(kg)÷身高^2(m)
Private Sub Command1_Click() Dim wAs Double, h As Double, BMI As Double Dim sex As String, ans As String w =Val(Text1.Text): h = Val(Text2.Text) BMI = w / h ^ 2 sex = Text3.Text If sex = "男" Then If BMI <= 16.7 Then ans = "低体重" ElseIf BMI <= 23.7 Then ans = "正常" ElseIf BMI <= 26.5 Then ans = "超重" Else ans = "肥胖" End If Else If BMI <= 16.8 Then ans = "低体重" ElseIf BMI <= 23.2 Then ans = "正常" ElseIf BMI <= 25.4 Then ans = "超重" Else ans = "肥胖" End If End If Label1.Caption = ansEnd Sub
温馨提示：需要本视频(包括往期所有视频)对应PPT的朋友，请加入“选考VB算法解析”知识星球。众多师生聚集在星球讨论、分享VB算法问题和复习迎考方法，大量选考VB算法资料等你来下载。我们专注选考VB算法，感兴趣就一起来！
相关优秀文章：
选考VB算法专题系列讲座0课程简介
选考VB算法专题系列讲座1循环结构基础
选考VB算法专题系列讲座2数组基本操作
选考VB算法专题系列讲座3字符串基本操作
选考VB算法专题系列讲座4解析算法
选考VB算法专题系列讲座5枚举算法
选考VB算法专题系列讲座6顺序查找算法
选考VB算法专题系列讲座7选择排序算法
选考VB算法专题系列讲座8冒泡排序算法
选考VB算法专题系列讲座9插入排序算法
选考VB算法专题系列讲座10桶排序和索引排序算法
