vb计数器的问题，请师傅帮忙，提前谢谢！

准备一系列控件，使其更易于编写。

使用标签显示点击次数。

private sub option1_click(index as integer)

static num as long

num = num + 1

您已点击" & num & "次。 还剩下 10 次点击" & 10 - num & "点击"

if num = 10 then msgbox "您已经点击了十次": num = 0 '将 num 恢复为 0 以供下次使用。

end sub

添加一个全局变量 i，每次点击 i=i+1

还有" & 10-i)

if i>=10 then

msgbox "已经有了" & i "次。 "

end if

private sub option1_click(index as integer)

static count as integercount = count + 1

print cstr(10 - count)if count = 10 then

msgbox cstr(index)

end if

end sub

其中 option1 是控件数组，由您决定如何显示结果。

进入循环。

当k=0时，输入值为1，a（0+1）=a（1）=1，b（3-0）=b（3）=1

当k=1时，输入值为3，a（1+1）=a（2）=3，b（3-1）=b（2）=3

当k=2时，输入值为5，a（2+1）=a（3）=5，b（3-2）=b（1）=5

当 k=3 时，范围超出范围，循环结束，返回值 k=3 输出 b（k）=b（3）=1

A 和 b 是四个元素的数组。

输入 3 次。 第一个保存到 A 的第 2 个元素和 B 的第 4 个元素。

第二个保存到 A 的第 3 个元素和 B 的第 3 个元素。

第三个保存到 A 的第 4 个元素和 B 的第 2 个元素。

打印 B 的第 4 个元素。

以上就是运行过程，那你说多少？

赋值 for 循环后，b（3）=1

b(2)=3

b(1)=5

紧接着 k=0 到 2

next k

因此，此时 k 的值应为 3（2 的下一个）。

b(k)=b(3)=1