|
1、- Sub 星星1()
- Dim i As Integer, j As Integer
- For i = 1 To 7
- For j = 7 To 8 - i Step -1
- Cells(i, j) = "*"
- Next j
- Next i
- End Sub
- Sub 星星2()
- Dim i As Integer, j As Integer
- For i = 1 To 7
- For j = i To 7
- Cells(i, j) = "*"
- Next j
- Next i
- End Sub
- Sub 星星3()
- Dim i As Integer, j As Integer
- For i = 1 To 7
- For j = 7 To 8 - i Step -1
- Cells(i, j) = i
- Next j
- Next i
- End Sub
- Sub 星星4()
- Dim i As Integer, j As Integer
- For i = 1 To 7
- For j = i To 7
- Cells(i, j) = j
- Next j
- Next i
- End Sub
复制代码 2、- Sub 苦逼的生活费4()
- Dim i As Long, sums As Long, j As Long
- j = Application.InputBox("本月媳妇给了多少生活费", "系统:", , , , , , 1)
- If j = False Then Exit Sub
- For i = 2 To 2 ^ 6
- If sums > j Then
- GoTo 1
- Else
- If sums = j Then
- GoTo 2
- Else
- GoTo 3
- End If
- End If
- 3 sums = sums + Cells(i, 2)
- Next i
- If sums < j Then
- MsgBox "还剩余" & j - sums & "元,可以出去潇洒啦!", vbInformation, "嘘,小声点,别让媳妇听见"
- End If
- Exit Sub
- 1: MsgBox "这个月已经超支了,超支日期" & Cells(i, 1) & "," & Chr(10) & "超支金额" & sums - j & "元,赶紧找媳妇报账,提" & Cells(i + 1, 1) & "日计划", vbInformation, "温馨提醒"
- Cells(i, 1).Interior.ColorIndex = 3
- Exit Sub
- 2: MsgBox "媳妇本月给的零花钱刚好,果然会持家!", vbInformation, "哇哈哈"
- Exit Sub
- End Sub
复制代码 |
评分
-
查看全部评分
|