Question

excel VBA语句注释

1. Sub 计算()
Dim a as Integer
a=Val(InputBox(“请输入一整数a”)
If a>=0 Then
a=a+10
Else
a=-a+10
End
Sheet1.Activate
Cells(1, 1) = a
End Sub

2.Sub color()
For k = 1 To 7
c = "A" & k
Range(c).Select
Selection.Interior.ColorIndex = k
Next
End Sub

写出程序各语句的注释

Answer 1

1. Sub 计算()
Dim a as Integer ；定义变量 a 为 整数型
a=Val(InputBox(“请输入一整数a”) ；将对话框中输入的值转化为数值并赋值给变量a
If a>=0 Then ；条件语句，如果a大于等于零
a=a+10 ；则，变量a等于原变量值+10
Else ；否则a小于零
a=-a+10 ；变量a等于10-变量a
End ；条件语句结束
Sheet1.Activate ；激活sheet1表
Cells(1, 1) = a ；将变量a的值写入单元格A1
End Sub ；过程结束

2.Sub color()
For k = 1 To 7 ；循环语句，执行7次
c = "A" & k ；确定单元格，如A1 、A2
Range(c).Select ；选定单元
Selection.Interior.ColorIndex = k ；给选定的单元格标色
Next
End Sub ； 该过程执行完后会给A1Z至A7单元格表上7种颜色。

Answer 2

1. Sub 计算()
Dim a as Integer '定义变量 a 为 整数型
a=Val(InputBox(“请输入一整数a”) ‘将对话框中输入的值转化为数值并赋值给变量a
If a>=0 Then ’条件语句，如果a大于等于零
a=a+10 ‘则，变量a等于原变量值+10
Else ’否则a小于零
a=-a+10 ‘变量a等于10-变量a
End ’条件语句结束
Sheet1.Activate ‘激活sheet1表
Cells(1, 1) = a ’将变量a的值写入单元格A1
End Sub ‘过程结束

2.Sub color()
For k = 1 To 7 ’循环语句，执行7次
c = "A" & k ‘’确定单元格，如A1 、A2
Range(c).Select ‘选定单元
Selection.Interior.ColorIndex = k ’给选定的单元格标色
Next
End Sub 该过程执行完后会给A1Z至A7单元格表上7种颜色。

Answer 3

'输入个整数，判断正负数，取绝对值+10返至A1单元格
1. Sub 计算()
Dim a as Integer
a=Val(InputBox(“请输入一整数a”)
If a>=0 Then
a=a+10
Else
a=-a+10
End
Sheet1.Activate
Cells(1, 1) = a
End Sub
‘A1至A7显示七色背景色
2.Sub color()
For k = 1 To 7
c = "A" & k
Range(c).Select
Selection.Interior.ColorIndex = k
Next
End Sub

追问

我们老师要求逐句解释 =-=