求大佬指点

dim a as single,b as single,n as intger,pj as signle'注意变量要一个一个声明，不能几个变量用一个声明符
a=val(text1)
b=val(text2)
n=int(text3)‘注意转换函数
for i=1 to n'这里应该是1，不是0
pj=（a+b）/2'功用重复计算独立出来
a=（pj+a）/2'新a
b=（pj+b）/2'新b
next i'你这里多了AA
label5=“新大数为” & a
label27="新小数为” & b

'　输入数据功能块——————————————
'　声明变量要一个一个地声明，不要打懒主义！
'　程序中不用的变量，无需声明。
Dim i As Integer, a As Single, b As Single, c As Single, d As Single
‘　【略】
'　处理数据功能块——————————————
For i = 1 To n
c = ((a + b) / 2 + a) / 2
d = ((a + b) / 2 + b) / 2
a = c : b = d
Next i
'　输出数据功能块——————————————
Text3.Text = CStr(n)
Label5.Caption = "新大数：" & CStr(a) & "；新小数：" & CStr(b)
'　注：再复杂的数据处理程序，只有【输入数据→处理数据→输出数据】三大功能块。