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

[flychx]

这是高中生的电脑考试测试题，妹妹问我，我找了很久，一直没有搞定，请大家帮帮忙
程序的功能是求当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

[pigpag]

哦，没注意∏ ，那就有四个错误了

[jacezhang]

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

[captainivy]

呵呵

[javaman8]

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 * x

a3 = a2 / 5

' Print a1 + a2 + a3
Print a1 + a3

End Sub

a1,a2,a3不必声明，为Variant型

[pigpag]

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

[superlinglin128]

同上

[batboy2003ll]

up

[xiaohei728]

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
总来说还有就是变量定义不太合适不知能不能算是错呢???

[kmzs]

是了

[luolovegui]

我真的不明白，这叫做问题？

[xfzzf]

这种问题仔细一看就知是初学者。要掌握语法，仔细就可以了。

[visualzuo]

晕，还有这样的问题出来。偶只要分，不做答

[dengwei007]

晕，申明没有必要吧？

[Mars.CN]

vb中不可以出现∏来做变量呀
记得变量的定义呀

[Gelim]

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

[Depress]

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

[守城小轩]

不好的变成习惯

[coolboy0000love]

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

[mfkyygy]

偶是来凑热闹的。因为。用不着俺 来回答了。。
这里高首实在太N多了！！呵呵

[xzx760815]

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