VB循环语句求s=1+3+5+……+2n-1的值

Dim i,n as Integer
Dim s as double
n=val(Text1.Text)
i=( 1 )
s=0
Do UNTIL i>( 2 * n - 1)
s=( i + s )
i=i+（ 2 ）
Loop
Text2.text= ( s )
说出VAL函数的作用是（ 把字符数字串转化为数值 ）
Integer是什么数据类型(