今日代码

vba
Sub 成绩统计器()
    ' 使用变量、数组、条件语句、循环
End Sub

Sub 数据填充器()
    ' 使用Range、循环
End Sub

今日任务

综合运用前8天所学知识，完成以下练习。

练习题目

练习1：成绩统计器

创建一个程序，统计学生成绩并评级。

练习2：数据填充器

自动填充指定范围的单元格数据。

练习3：工作表处理器

遍历所有工作表并进行批量操作。

参考代码结构

vba
Sub 成绩统计器()
    ' 使用变量、数组、条件语句、循环
End Sub

Sub 数据填充器()
    ' 使用Range、循环
End Sub

练习要求

  1. 编写完整的代码
  2. 添加必要的注释
  3. 添加错误处理
  4. 测试运行结果

参考解答

1. 成绩统计器：使用数组存储分数，循环计算总分和平均分，用If判断评级。 2. 数据填充器：使用双层循环遍历行列，Cells(row, col).Value赋值。 3. 工作表处理器：For Each ws In Worksheets遍历，对每个工作表执行操作。

由在线工具箱(www.vba.net)整理制作