关于vb的算术问题??求高手

根据你的逻辑:
private function xy(byval x as integer,y as integer) as long
dim m as long
dim i as integer
select case y
case 1:
m=x
case 2:
m=x+x
case 3:
m=x+x+x
case else
for i=1 to n
m=m+x
next
end select
xy=m
end function

简单点的:
private function xy1(byval x as integer,y as integer) as long
xy1=x*y
end function

调用方式:
dim a as long
a=xy(20,10)
print a
a=xy1(20,10)
print a

得结果都为:200

Const X = 20
Private Sub Command1_Click()
Dim Y%
Dim i%
Dim X
Y = Val(InputBox("请输入一个数字", "输入", "5"))
For i = 1 To Y Step 1
SumX = SumX + X
Next i
Cls
Print SumX
End Sub

Private Sub Command1_Click()
Dim x%, y%, n$
x = 20
n = InputBox("请输入N吧!!")

y = Val(n)

If y &