在窗体上画一个命令按钮,其名称为command1,然后编写程序
private sub command1-click( )
dim a(10) as integer
dim x as integer
for i=1 to 10
a(i)=8+i
next
x=2
print a(f(x)+x)
x=x+3
f=x
end function
程序执行后,单击命令按钮,输出结果为多少
你的程序本身有问题,更改如下,输出是18Private Sub command1_click()Dim a(10) As IntegerDim x As IntegerFor i = 1 To 10a(i) = 8 + iNextx = 2Print a(f(x) + x)End SubFunction f(x As Integer)x = x + 3f = xEnd Function