有这样一个练习题：
[从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过InputBox函数输入数据，在窗体上显示和及平均值]

Private Sub Form_Click()
Dim Be1 As String
Dim shu1 As Integer
Dim shu2 As Integer
Dim shu3 As Integer
Dim shu4 As Integer
FontName = "宋体"
FontSize = 30
Be1 = "请输入一个整数"
shu1 = InputBox(Be1, "请输入第一个整数")
shu2 = InputBox(Be1, "请输入第二个整数")
shu3 = InputBox(Be1, "请输入第三个整数")
shu4 = InputBox(Be1, "请输入第四个整数")
Print shu1 + shu2 + shu3 + shu4
Print
Print (shu1 + shu2 + shu3 + shu4) / 4
End Sub

上面这些是我改了以后的
但是我刚开始是这样写的：

Private Sub Form_Click()
FontName = "宋体"
FontSize = 30
Be1$ = "请输入一个整数"
shu1% = InputBox(Be1$, "请输入第一个整数")
shu2% = InputBox(Be1$, "请输入第二个整数")
shu3% = InputBox(Be1$, "请输入第三个整数")
shu4% = InputBox(Be1$, "请输入第四个整数")
Print shu1% + shu2% + shu3% + shu4%
Print
Print (shu1% + shu2% + shu3% + shu4%) / 4
End Sub

与上面不同的是就是没有声明变量数据类型，而是用类型说明符来规定的。但是试运行后提示说是变量未声明，这是怎么回事？请指点。见笑了

对了，还请你们写出一个比我上面更精简的代码/我学习学习/

dim shu1 as integer,shu2 as integer,shu3 as integer
显式声明变量是个好习惯.

但不是看起来就繁琐了吗？
有朋友可以把代码精简到最少吗？

而且显然加了Option Explicit

类型说明符不具有声明一个变量的作用。

举例（事先声明）：

大家注意了！我马上要拿撕一张纸！这张纸是报纸！（Dim 一张纸 As 报纸）

我来撕纸了！！！(Call 撕(纸)，此时纸为报纸)

举例（临时说明）：

大家注意了！我马上要撕一张纸！（Dim 一张纸 As 报纸）

我来撕那张报纸了！！！（Call 撕(纸 As 报纸)，此时纸也为报纸）

举例（不显式声明）：

我来撕报纸了！（Call 撕（纸 As 报纸），出错，我哪知道你要撕什么纸啊……）

[此贴子已经被作者于2007-8-29 11:57:16编辑过]

形象///


学到 了/谢谢