7.1If语句 编写代码: Private Sub Command1 Click Dim score As single Dim s As string score= Val(Text1. Text) If score< 60 Then s="不及格" Elself score< 70 Then s="及格 ElseIf score< 80 Then s="中等 ElseIf score< 90 Then s="良好 Else s="优 End if Text2 Text = s End sub▪ 编写代码： Private Sub Command1_Click() Dim score As Single Dim s As String score = Val(Text1.Text) End Sub T If score < 60 Then s = "不及格" ElseIf score < 70 Then s = "及格" ElseIf score < 80 Then s = "中等" ElseIf score < 90 Then s = "良好" Else s = "优" End If Text2.Text = s 7.1 If语句