Excel 2015VBA初级2班第1课A组作业上交贴（已开贴）

woaivbayy

1. Option Explicit
   
2. Sub if判断()
   
3. 
   
4. Dim X As Double
   
5. 
   
6.      X = Range("b2")
   
7. 
   
8.      If X < 60 Then
   
9.      
   
10.           Range("C2") = "不合格"
    
11.    
    
12.     ElseIf X <= 70 Then
    
13.    
    
14.           Range("C2") = "合格"
    
15.    
    
16.     ElseIf X <= 80 Then
    
17.    
    
18.           Range("C2") = "良好"
    
19. 
    
20.     Else
    
21.           Range("C2") = "优秀"
    
22.    
    
23. End If
    
24.    
    
25. End Sub
    
26. 
    

复制代码

guofei0344

ExcelVBA初级-第1讲-作业

high12345

A16: High12345

1. Sub 成绩等级()
   
2.     Dim x As Double
   
3.     x = [c2]
   
4.    
   
5.     If x < 60 Then
   
6.         [d2] = "不及格"
   
7.     Else
   
8.         If x < 70 Then
   
9.             [d2] = "合格"
   
10.         Else
    
11.             If x < 80 Then
    
12.                 [d2] = "良好"
    
13.             Else
    
14.                 [d2] = "优秀"
    
15.             End If
    
16.         End If
    
17.     End If
    
18. End Sub
    

复制代码

不经意的回头

1. Sub dj()
   
2.     Dim cj As Long
   
3.     cj = [c2]
   
4.     If cj >= 85 Then
   
5.         [d2] = "优秀"
   
6.         Else
   
7.             If cj >= 70 Then
   
8.                 [d2] = "良"
   
9.                 Else
   
10.                     If cj >= 60 Then
    
11.                         [d2] = "及格"
    
12.                         Else
    
13.                         [d2] = "不及格"
    
14.                     End If
    
15.             End If
    
16.           End If
    
17.    End Sub
    

复制代码

anna218

作业

橙桔仔

1. Sub 成绩()
   
2.     Dim x As Double
   
3.     x = [A1]
   
4.     If x >= 80 Then
   
5.         [B1] = "优秀"
   
6.     Else
   
7.         If x >= 70 And x < 80 Then
   
8.             [B1] = "良好"
   
9.         Else
   
10.             If x >= 60 And x < 70 Then
    
11.                 [B1] = "合格"
    
12.             Else
    
13.                 If x < 60 Then
    
14.                     [B1] = "不及格"
    
15.                 End If
    
16.             End If
    
17.         End If
    
18.     End If
    
19. End Sub

复制代码

天地有雪

作业

雪舞子

作业截止------------------------------------------------------------------------------------------------------------------------------

eshow

建峰 发表于 2015-11-5 22:11
A06:建峰回答完毕！

注释清楚让我学会了怎么写代码！！