疑惑中~~这个写不出来
Home
Home
登入
注册
发表
列印
载入图片
引用
|
编辑
extrablue
2005-06-14 22:48
楼主
▼
x
0
Dim x()
sum = 0
n = 0
Data = InputBox("输入资料")
While Data <> "0" ..
访客只能看到部份内容,免费
加入会员
x
0
引用
|
编辑
ziele
2005-06-14 23:16
1楼
▲
▼
应该没有必要需要阵列吧
Dim x()
Sum = 0
n = 0
Data = InputBox("输入资料")
While Data <> "0"
' ReDim preserre x(n + 1)
' x(0) = Data
Sum = Sum + Data
n = n + 1
Data = InputBox("输入资料")
Wend
Print Sum / n
x
1
引用
|
编辑
extrablue
2005-06-14 23:47
2楼
▲
哇!!原来不用做那一个喔~~
谢谢你~~疑惑一段时间了~~谢谢你
x
0
完整版本
免责声明
顶端