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

雪舞子

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

橙桔仔

A15: 橙桔仔

1. Sub 作业1()
   
2.     Dim i%, j%
   
3.     For i = 1 To 7
   
4.         For j = 7 To 8 - i Step -1
   
5.         Cells(i, j) = "*"
   
6.         Next
   
7.     Next
   
8. End Sub
   
9. 
   
10. Sub 作业2()
    
11.     Dim i%, j%
    
12.     For i = 1 To 7
    
13.         For j = i To 7
    
14.         Cells(i, j) = "*"
    
15.         Next
    
16.     Next
    
17. End Sub
    
18. 
    
19. Sub 作业3()
    
20.     Dim i%, j%
    
21.     For i = 1 To 7
    
22.         For j = 7 To 8 - i Step -1
    
23.         Cells(i, j) = i
    
24.         Next
    
25.     Next
    
26. End Sub
    
27. 
    
28. Sub 作业4()
    
29.     Dim i%, j%
    
30.     For i = 1 To 7
    
31.         For j = 1 To i
    
32.         Cells(i, j) = j
    
33.         Next
    
34.     Next
    
35. End Sub
    
36. 
    
37. Sub 作业5()
    
38.     Dim i%, j%
    
39.     i = 2
    
40.     Do While j < 1000 And i <= 31
    
41.         j = j + Cells(i, 2)
    
42.         i = i + 1
    
43.     Loop
    
44.     If j > 1000 Then
    
45.         MsgBox "这个月我超支了! 超支的日期是" & Cells(i - 1, 1)
    
46.     Else
    
47.         MsgBox "这个月我没有超支"
    
48.     End If
    
49. End Sub
    

复制代码