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

chenzhi_juan · 发表于 2015-11-8 22:13

本帖最后由 chenzhi_juan 于 2015-11-14 17:16 编辑

作业要求：
1、提交作业请注明论坛ID及学号。如：C01-***；
2、作业请以代码方式提交，标清题号并所有题贴到一个代码标签中，无需提交附件。不会使用标签可移步帖子：http://www.excelpx.com/thread-322284-1-1.html
3、代码题要求强制声明变量，代码缩进;
4、跟帖不要重复占楼,有问题直接在原帖编辑;
5、非本组学员请勿跟帖；
6、作业截止时间：2015年11月13日18:00时

chenzhi_juan · 发表于 2015-11-8 22:13

本帖最后由 chenzhi_juan 于 2015-11-9 20:35 编辑

本课就不单独贴代码了。在所有的VBA班级中，都会存在一个问题。到了后期，剩下的差不多已经没有小白了。本次所贴的代码，基本都已经没有什么好点评的了，都不错。。。

一杯清荼 · 发表于 2015-11-9 05:24

本帖最后由一杯清荼于 2015-11-9 05:26 编辑

C06-一杯清荼

Sub 作业1()
Dim i As Integer
Dim j As Integer
Sheets("练习").Range("a1:g7").ClearContents
For i = 0 To 6
For j = 1 To 7 - i
Sheets("练习").Cells(j + i, 7 - i) = "*"
Next
Next
End Sub
Sub 作业2()
Dim i As Integer
Dim j As Integer
Sheets("练习").Range("a1:g7").ClearContents
For i = 1 To 7
For j = 1 To i
Sheets("练习").Cells(j, i) = "*"
Next
Next
End Sub
Sub 作业3()
Dim i As Integer
Dim j As Integer
Sheets("练习").Range("a1:g7").ClearContents
For i = 0 To 6
For j = 1 To 7 - i
Sheets("练习").Cells(j + i, 7 - i) = i + j
Next
Next
End Sub
Sub 作业4()
Dim i As Integer
Dim j As Integer
Sheets("练习").Range("a1:g7").ClearContents
For i = 1 To 7
For j = 0 To 7 - i
Sheets("练习").Cells(j + i, i) = i
Next
Next
End Sub
Sub 作业5()
Dim i As Integer
Dim sums As Integer
Do While sums <= 1000
i = i + 1
sums = Sheets("循环作业").Cells(i + 1, 2) + sums
Loop
If sums >= 1000 Then
MsgBox "超支的日期是:" & Sheets("循环作业").Cells(i + 1, 1)
Else
MsgBox "本月没有超支"
End If
End Sub

复制代码

JasonG · 发表于 2015-11-9 11:46

C09-JasonG

Sub 作业1()
Dim i As Integer
Dim j As Integer
For i = 1 To 7
For j = 8 - i To 7
Cells(i, j) = "*"
Next
Next
End Sub
Sub 作业2()
Dim i As Integer
Dim j As Integer
For i = 1 To 7
For j = i To 7
Cells(i, j) = "*"
Next
Next
End Sub
Sub 作业3()
Dim i As Integer
Dim j As Integer
For i = 1 To 7
For j = 8 - i To 7
Cells(i, j) = i
Next
Next
End Sub
Sub 作业4()
Dim i As Integer
Dim j As Integer
For i = 1 To 7
For j = 1 To i
Cells(i, j) = j
Next
Next
End Sub
Sub 循环作业()
Dim i As Integer
Dim total As Integer
i = 2
Do While Cells(i, 1) <> ""
total = total + Cells(i, 2)
If total > 1000 Then
MsgBox "超支了，超支日期为：" & Cells(i, 1)
Exit Sub
End If
i = i + 1
Loop
MsgBox "没有超支！"
End Sub

复制代码

cleverzhzhf · 发表于 2015-11-9 12:32

C02-cleverzhzhf

Sub triangle1()
Dim i As Long, j As Long
Dim arr(1 To 7, 1 To 7), brr(1 To 7, 1 To 7)
For i = 1 To 7
For j = 1 To 7
If i + j > 7 Then
arr(i, j) = "*"
brr(i, j) = i
End If
Next j
Next i
Range("A1").Resize(7, 7) = arr
Range("A11").Resize(7, 7) = brr
Columns("A:A").Resize(, 7).HorizontalAlignment = xlCenter
Columns("A:A").Resize(, 7).EntireColumn.AutoFit
End Sub
Sub triangle2()
Dim i As Long, j As Long
Dim arr(1 To 7, 1 To 7), brr(1 To 7, 1 To 7)
For i = 1 To 7
For j = 1 To 7
If i >= j Then
arr(i, j) = "*"
brr(i, j) = j
End If
Next j
Next i
Range("J1").Resize(7, 7) = arr
Range("J11").Resize(7, 7) = brr
Columns("J:J").Resize(, 7).HorizontalAlignment = xlCenter
Columns("J:J").Resize(, 7).EntireColumn.AutoFit
End Sub
Sub triangle3()
Dim i As Long, j As Long
Dim arr(1 To 7, 1 To 7), brr(1 To 7, 1 To 7)
For i = 1 To 7
For j = 1 To 7
If i <= j Then
arr(i, j) = "*"
brr(i, j) = j
End If
Next j
Next i
Range("S1").Resize(7, 7) = arr
Range("S11").Resize(7, 7) = brr
Columns("S:S").Resize(, 7).HorizontalAlignment = xlCenter
Columns("S:S").Resize(, 7).EntireColumn.AutoFit
End Sub

复制代码

悠悠05 · 发表于 2015-11-9 14:15

C08：悠悠05
第一题

Sub 图一()
Dim i As Integer, j As Integer
For i = 1 To 7
For j = 7 To 8 - i Step -1
Cells(i, j) = "*"
Next
Next
End Sub

复制代码

Sub 图二()
Dim i As Integer, j As Integer
For i = 7 To 1 Step -1
For j = 1 To i
Cells(j, i) = "*"
Next
Next
End Sub

复制代码

Sub 图三()
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
Next
End Sub

复制代码

Sub 图四()
Dim i As Integer, j As Integer
For i = 1 To 7
For j = 1 To i
Cells(i, j) = j
Next
Next
End Sub

复制代码

第二题

Sub 第二题判断()
Dim x As Integer, sums As Integer '定义两个变量
x = 2 '从x=2时开始循环
Do While Cells(x, 2) <> "" '单元格不为空则进行以下循环，为空则停该循环
sums = sums + Cells(x, 2) '对B列单元格从B2开始按循环累计求和
If sums > 1000 Then '当循环到所得的sums和的值大于1000则
MsgBox "超支的日期为" & Cells(x, 1) '显示超出日期并跳出sub语句
Exit Sub
End If
x = x + 1 '对X累计计数
Loop
If sums < 1000 Then '循环结束后假如还没有大于1000则
MsgBox "未超支" '显示未超支
End If
End Sub

复制代码

不太习惯贴代码，所以附件也上传了代码和附件是一样的

冻顶百合 · 发表于 2015-11-10 08:43

C14-冻顶百合作业

Sub 作业1()
Dim i As Integer, j As Integer
For i = 1 To 7
For j = 1 To 8 - i
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 = 8 - i To 7
Cells(i, j) = "*"
Next j
Next i
End Sub
Sub 作业3()
Dim i%, j%
For i = 1 To 7
For j = 1 To i
Cells(i, j) = "*"
Next
Next
End Sub
Sub 作业4()
Dim i%, j%
For i = 1 To 7
For j = i To 7
Cells(i, j) = "*"
Next
Next
End Sub
Sub 作业5()
Dim i%, j%
For i = 1 To 7
For j = 1 To 8 - i
Cells(i, j) = j
Next
Next
End Sub
Sub 作业6()
Dim i%, j%
For i = 1 To 7
For j = 8 - i To 7
Cells(i, j) = i
Next
Next
End Sub
Sub 作业7()
Dim i%, j%
For i = 1 To 7
For j = 1 To i
Cells(i, j) = j
Next
Next
End Sub
Sub 作业8()
Dim i%, j%
For i = 1 To 7
For j = i To 7
Cells(i, j) = j
Next
Next
End Sub

复制代码

epprobie · 发表于 2015-11-10 20:04

本帖最后由 epprobie 于 2015-11-10 20:08 编辑

C10：epprobie

Sub 作业2()
Dim i As Integer, j As Integer
For j = 1 To 7
For i = 1 To j
Cells(i, j) = "*"
Next i
Next j
End Sub

复制代码

Sub 超支日期()
Dim i As Long
Dim s As Long
For i = 2 To 32
s = Cells(i, 2) + s
If s < 1000 Then
Else
Exit For
End If
Next i
MsgBox Cells(i, 1)
End Sub

复制代码

seal258 · 发表于 2015-11-11 19:05

Sub 作业1()
Dim i As Integer, j As Integer
For i = 1 To 7
For j = 1 To i
Cells(i, 8 - j) = "*"
Next j
Next i
End Sub
Sub 作业2()
Dim i As Integer, j As Integer
For i = 1 To 7
For j = 1 To i
Cells(i, 8 - j) = i
Next
Next
End Sub
Sub 作业三()
Dim i As Integer, j As Integer
For i = 7 To 1 Step -1
For j = 1 To i
Cells(i, j) = j
Next j
Next i
End Sub
Sub 作业四()
Dim i As Integer, j As Integer
For i = 1 To 7
For j = 1 To i
Cells(j, i) = "*"
Next j
Next i
End Sub
Sub 预算消费情况()
Dim j As Integer, i As Integer
For j = 2 To 32
i = Range("b" & j).Value + i
If i > 1000 Then
MsgBox Range("a" & j).Value & " 超支了！"
Exit Sub
End If
Next
MsgBox "这个月俺很节俭，双十一没有疯狂购物，没有超支。嘿嘿！"
End Sub

复制代码

Eternerlong · 发表于 2015-11-14 17:04

本帖最后由 Eternerlong 于 2015-11-17 17:06 编辑

Sub 是否超支()
Dim i As Integer, sums As Integer
i = 2
Do While Cells(i, 2) <> ""
sums = sums + Cells(i, 2)
i = i + 1
If sums > 1000 Then
MsgBox "这个月超支了，超支日期为：" & Cells(i, 1)
Exit Do
End If
Loop
If sums < 1000 Then MsgBox "没有超支"
End Sub
Sub 循环嵌套作业1()
Dim i As Integer, k As Integer
For i = 1 To 7
For k = 7 To 7 - i + 1 Step -1
Cells(i, k) = "*"
Next
Next
End Sub
Sub 作业2()
Dim i As Integer, k As Integer
For i = 1 To 7
For k = i To 7
Cells(i, k) = "*"
Next
Next
End Sub
Sub 作业3 ()
Dim i As Integer, k As Integer
For i = 1 To 7
For k = 7 To 8 - i Step -1
Cells(i, k) = i
Next
Next
End Sub
Sub 作业4()
Dim i As Integer, k As Integer
For i = 1 To 7
For k = 1 To i
Cells(i, k) = k
Next
Next
End Sub

复制代码

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

[习题] Excel 2015VBA初级2班第3课C组作业上交贴（已开贴）

相关帖子

点评

评分

评分

评分

评分

评分

评分

评分