【已开贴】Excel 2015VBA初级2班第3课B组作业上交贴

wp8680 · 发表于 2015-11-9 10:09

本帖最后由 wp8680 于 2015-11-14 12:42 编辑

作业说明及要求：

1、根据第三课所讲的内容，按课堂中的布置的作业，编写一段自认为精练的代码。
2、纯录制代码不加分！无独特思考内容的代码不加分！抄袭他人代码无新意不加分！粗糙不合理的代码少加分！
3、提交作业请注明论坛ID及学号。如：B01-***；作业可以压缩包方式提交，也可以直接贴代码;
4、代码题要求强制声明变量，代码缩进
5、学习是自愿的，学成也是自已的。
6、我们的目标：超出自我，胜出自我。
7、作业截止时间：下节课开始前吧

lvxia · 发表于 2015-11-9 10:30

B10:lvxia

Option Explicit
Sub 右下角星号填充()
Dim i%, j%
For i = 1 To 7
For j = 1 To i
Cells(i, 8 - j) = "*"
Next
Next
End Sub
Sub 右上角星号填充()
Dim i%, j%
For i = 1 To 7
For j = 1 To 8 - i
Cells(i, 8 - j) = "*"
Next
Next
End Sub
Sub 右下角数字填充()
Dim i%, j%
For i = 1 To 7
For j = 1 To i
Cells(i, 8 - j) = i
Next
Next
End Sub
Sub 右上角数字填充()
Dim i%, j%
For i = 1 To 7
For j = 1 To 8 - i
Cells(i, 8 - j) = 8 - j
Next
Next
End Sub

复制代码

Option Explicit
Sub 超支提醒()
Dim inC As Double, outC As Double, i%
inC = 1000
i = 2
Do While outC <= inC Or i > 31
outC = outC + Cells(i, 2)
i = i + 1
Loop
If i <= 31 Then
MsgBox "这个月超支了，超支日期是：" & Cells(i - 1, 1)
Else
MsgBox "这个月没有超支"
End If
End Sub

复制代码

hsl215 · 发表于 2015-11-9 17:10

B11:hsl215

练习

Sub 作业1()
Dim irow As Integer, icol As Integer
Worksheets("练习").Select
With Range("a29:g35")
.Interior.ColorIndex = 1
.Font.ColorIndex = 2
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
For irow = 1 To 7
For icol = 8 - irow To 7
'当irow+icol>=8时才填充，因此列循环时从8-irow开始以减少循环次数
Cells(irow + 28, icol) = "*"
Next
Next
End Sub
Sub 作业2()
Dim irow As Integer, icol As Integer
Worksheets("练习").Select
With Range("i29:o35")
.Interior.ColorIndex = 1
.Font.ColorIndex = 2
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
For irow = 1 To 7
For icol = irow To 7
'当irow<icol时才填充，因此列循环时从irow开始以减少循环次数
Cells(irow + 28, icol + 8) = "*"
Next
Next
End Sub
Sub 作业3()
Dim irow As Integer, icol As Integer
Worksheets("练习").Select
With Range("a37:g43")
.Interior.ColorIndex = 1
.Font.ColorIndex = 2
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
For irow = 1 To 7
For icol = 8 - irow To 7
'当irow+icol>=8时才填充，因此列循环时从8-irow开始以减少循环次数
Cells(irow + 36, icol) = irow
'填充行标
Next
Next
End Sub
Sub 作业4()
Dim irow As Integer, icol As Integer
Worksheets("练习").Select
With Range("I37:o43")
.Interior.ColorIndex = 1
.Font.ColorIndex = 2
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
For irow = 1 To 7
For icol = 1 To irow
'当irow>=icol时才填充，因此列循环时从1到irow以减少循环次数
Cells(irow + 36, icol + 8) = icol
'填充列标
Next
Next
End Sub

复制代码

循环作业

Sub 作业之FOR循环()
Dim i As Integer, isum As Double
Dim x As Double
x = Application.InputBox("请输入生产费", "计算本月生活费是否超支", 1000, , , , , 1)
For i = 2 To 31
isum = isum + Cells(i, 2)
If isum > x Then Exit For
Next
If isum < x Then
MsgBox "这个月没有超支，还剩：" & x - isum & "元", vbOKOnly, "提醒"
Else
MsgBox Cells(i, 1) & "超支了：" & isum - x & "元", vbExclamation, "超支了"
End If
End Sub
Sub 作业之数组FOR循环()
Dim i As Integer, isum As Double, arr
Dim x As Double
arr = Worksheets("循环作业").Range("A1:B31")
x = Application.InputBox("请输入生产费", "计算本月生活费是否超支", 1000, , , , , 1)
For i = 2 To UBound(arr)
isum = isum + arr(i, 2)
If isum > x Then Exit For
Next
If isum < x Then
MsgBox "这个月没有超支，还剩：" & x - isum & "元", vbOKOnly, "提醒"
Else
MsgBox arr(i, 1) & "超支了：" & isum - x & "元", vbExclamation, "超支了"
End If
End Sub
Sub 作业之ForEach循环()
Dim i As Integer, isum As Double, rng As Range
Dim x As Double
x = Application.InputBox("请输入生产费", "计算本月生活费是否超支", 1000, , , , , 1)
For Each rng In Range("b2:b31")
isum = isum + rng
i = i + 1
If isum > x Then Exit For
Next
If isum < x Then
MsgBox "这个月没有超支", vbOKOnly, "提醒"
Else
MsgBox Cells(i, 1) & "超支了：" & isum - x & "元", vbExclamation, "超支了"
End If
End Sub
Sub 作业之DoWhile循环()
Dim i As Integer, isum As Double
Dim x As Double
x = Application.InputBox("请输入生产费", "计算本月生活费是否超支", 1000, , , , , 1)
i = 1
Do While isum < x And i < 31
'当isum<生产费与i<31时循环，只要一个条件不满足退出循环
i = i + 1
isum = isum + Cells(i, 2)
Loop
If isum < x Then
'判断isum与生产费的大小
MsgBox "这个月没有超支", vbOKOnly, "提醒"
Else
MsgBox Cells(i, 1) & "超支了：" & isum - x & "元", vbExclamation, "超支了"
End If
End Sub
Sub 作业之DoUntil循环()
Dim i As Integer, isum As Double
Dim x As Double
x = Application.InputBox("请输入生产费", "计算本月生活费是否超支", 1000, , , , , 1)
i = 1
Do Until isum > x Or i > 31
'当isum>生产费或i>31时循环，只要一个条件满足退出循环
i = i + 1
isum = isum + Cells(i, 2)
Loop
If isum < x Then
MsgBox "这个月没有超支", vbOKOnly, "提醒"
Else
MsgBox Cells(i, 1) & "超支了：" & isum - x & "元", vbExclamation, "超支了"
End If
End Sub

复制代码

dzj4717642 · 发表于 2015-11-10 14:15

B02:dzj4717642
第一个程序

Sub A1()
Dim i As Long
Dim j As Long
For i = 1 To 7
For j = 1 To i
Cells(i, 8 - j) = "*"
Next j
Next i
End Sub

复制代码

第二个程序

Sub A2()
Dim i As Long
Dim j As Long
For i = 1 To 7
For j = 1 To i
Cells(i, 8 - j) = i
Next j
Next i
End Sub

复制代码

第三个程序

Sub A3()
Dim i As Long
Dim j As Long
For i = 1 To 7
For j = 1 To i
Cells(i, j) = j
Next j
Next i
End Sub

复制代码

第4个程序

Sub A4()
Dim i As Long
Dim j As Long
For i = 1 To 7
For j = i + 0 To 7
Cells(i, j) = j
Next j
Next i
End Sub

复制代码

回答完毕！

horselyq · 发表于 2015-11-10 21:53

B03:horselyq

Option Explicit
Sub zy1()
Dim i As Long, j As Long
For i = 1 To 7
For j = 8 - i To 7
Cells(i, j) = "*"
Next j
Next i
End Sub
Sub zy2()
Dim i As Long, j As Long
For i = 1 To 7
For j = i To 7
Cells(i, j) = "*"
Next j
Next i
End Sub
Sub zy3()
Dim i As Long, j As Long
For i = 1 To 7
For j = 8 - i To 7
Cells(i, j) = i
Next j
Next i
End Sub
Sub zy4()
Dim i As Long, j As Long
For i = 1 To 7
For j = 1 To i
Cells(i, j) = i
Next j
Next i
End Sub
Sub xiaofei()
Dim i As Long, sum As Long
For i = 2 To 31
sum = sum + Cells(i, 2)
If sum > 1000 Then
MsgBox "这个月超支了，超支日期为：" & Cells(i, 1)
Exit Sub
End If
Next i
MsgBox "这个月没超支"
End Sub

复制代码

海底之心 · 发表于 2015-11-11 12:56

B04:海底之心交作业，学委辛苦啦。
Option Explicit
Sub 作业1()
Dim i As Integer, j As Integer
For i = 1 To 7
For j = 1 To 7
If i + j > 7 Then
Cells(i, j) = "*"
End If
Next
Next
End Sub
Sub 作业2()
Dim i As Integer, j As Integer
For i = 1 To 7
For j = 7 To 1 Step -1
If i <= j Then
Cells(i, j) = "*"
End If
Next
Next
End Sub
Sub 作业3()
Dim i As Integer, j As Integer, n As Integer
For i = 1 To 7
n = i
For j = 1 To 7
If i + j > 7 Then
Cells(i, j) = n
End If
Next
Next
End Sub
Sub 作业4()
Dim i As Integer, j As Integer, n As Integer
For i = 1 To 7
For j = 7 To 1 Step -1
n = j
If i <= j Then
Cells(i, j) = n
End If
Next
Next
End Sub
Sub 作业5()
Dim i As Integer, n As Integer
For i = 2 To 32
n = Cells(i, 2).Value + n
If n >= 1000 Then
MsgBox Cells(i, 1).Value
Exit Sub
End If
Next
End Sub

复制代码

		自动登录	找回密码
密码			注册

[习题] 【已开贴】Excel 2015VBA初级2班第3课B组作业上交贴

相关帖子

评分

评分

评分

评分

评分