視頻內容：

本視頻是給學生復習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桶排序和索引排序算法

總結

以上是生活随笔為你收集整理的if嵌套while循环语句_选考VB算法专题系列讲座13嵌套If和多分支语句的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。