很简单的问题，在线等，一定给分

Question

这是高中生的电脑考试测试题，妹妹问我，我找了很久，一直没有搞定，请大家帮帮忙
程序的功能是求当r=2,∏=3.14,x=-3,y=1.2时代数式r×r×∏+[(64-6y)+3*x]/5
的值，程序中有三处错误，请在VB中更正错误。
Private Sub Command1_Click()
  Dim a As Single
  r = 2
  pi = 3.14
  x = -3
  y = 1.2
  a1 = r * r * ∏
  a2=(64-6y)+3*x
  a3 = a2 / 5
  Print a1 + a2 + a3
End Sub

Answer 1

Private Sub Command1_Click()
Dim a As Single
r = 2
pi = 3.14
x = -3
y = 1.2' a1 = r * r * ∏     这一句中的∏应该改成pi
a1 = r * r * pi' a2=(64-6y)+3*x      这一句中的6y应该改成6*y
a2 = (64 - 6 * y) + 3 * xa3 = a2 / 5' Print a1 + a2 + a3  根据题目中给的公式,这一句应该是 Print a1 + a3
Print a1 + a3End Sub

Answer 2

1. a1 a2 a3没有声明
2. Print a1+a3
3. (64-6*y)

Answer 3

a 没用到.
a2=(64-6y)+3*x  =>a2=(64-6*y)+3*x
∏ 没定义

Answer 4

Dim r As Single, pi As Single, x As Single, y As Single
Dim a1 As Single, a2 As Single, a3 As Single
Private Sub Command1_Click()
  Dim a As Single
  r = 2
  pi = 3.14
  x = -3
  y = 1.2
  a1 = r * r * pi   '错误已经改正，原为：a1 = r * r * ∏
  a2 = (64 - 6 * y) + 3 * x   '错误已经改正，原为：a2 =(64-6y)+3*x
  a3 = a2 / 5
  Print a1 + a3   '错误已经改正，原为：Print a1 + a2 + a3
End Sub

Answer 5

pi我认为并不是重点
1.主要a1,a2,a3都没声明
2.print a1 + a3
3.a2=(64-6y)+3*x应该改为a2=(64-6*y)+3*x

Answer 6

Private Sub Command1_Click()
Dim a As Single
r = 2
pi = 3.14
x = -3
y = 1.2' a1 = r * r * ∏
a1 = r * r * pi' a2=(64-6y)+3*x
a2 = (64 - 6 * y) + 3 * xa3 = a2 / 5' Print a1 + a2 + a3
Print a1 + a3End Suba1,a2,a3不必声明，为Variant型

Answer 7

看本题的意思，就是要让你知道dim a as single和a1, a2, a3是没有关系的。不声明变量总是一个最恶劣的编程习惯。

Answer 8

Dim r As Single, pi As Single, x As Single, y As Single
Dim a1 As Single, a2 As Single, a3 As Single
Private Sub Command1_Click()
  Dim a As Single
  r = 2
  pi = 3.14
  x = -3
  y = 1.2
  a1 = r * r * pi   
  a2 = (64 - 6 * y) + 3 * x   
  a3 = a2 / 5
  Print a1 + a3   
End Sub

Answer 9

Private Sub Command1_Click()
  Dim a As Single            '这个A好像没有用到
  r = 2
  pi = 3.14                  
  x = -3
  y = 1.2
  a1 = r * r * ∏            '这没有最后一个字符应用pi 
  a2=(64-6y)+3*x
  a3 = a2 / 5
  Print a1 + a2 + a3'不能加上A2的
End
总来说还有就是变量定义不太合适不知能不能算是错呢???

Answer 10

Private Sub Command1_Click()
  Dim a As Single
  r = 2
  pi = 3.14
  x = -3
  y = 1.2
  a1 = r * r * ∏ //a1 = r * r * Pi,否则系统会认为∏是一个variant变量，系统提供默认值
  a2=(64-6y)+3*x  //a2=(64-6*y)+3*x
  a3 = a2 / 5
  Print a1 + a2 + a3 //Print a1 + a3
End Sub

Answer 11

Private Sub Command1_Click()
Dim a As Single
r = 2
pi = 3.14
x = -3
y = 1.2
a1 = r * r * pia2 = (64 - 6 * y) + 3 * xa3 = a2 / 5
Print a1 + a3End Sub

Answer 12

Private Sub Command1_Click()
  Dim a As Single
  r = 2
  pi = 3.14
  x = -3
  y = 1.2
  a1 = r * r * ∏ '這句有問題﹐應為﹕a1 = r * r *PI
  a2=(64-6y)+3*x  '這句有問題﹐應為﹕a2=(64-6*y)+3*y
  a3 = a2 / 5
  Print a1 + a2 + a3 '這句有問題﹐應為:Print a1 + a3
End Sub