视频内容：

本视频是给学生复习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桶排序和索引排序算法