VB 问题程序计算 2 22 222 2222 22222222 我不知道如何改进程序问题！ 帮助

dim s as long

dim k as long

dim i as integer

i = 9for i = 0 to i - 1

k = 2 * 10 ^ i) +k

s = s + k

next i

trueprint s

在这里我不能太大，否则会溢出来。

dim ret as long

dim a as integer

dim b as integer

ret = 0

a = 2b = 0

for i = 0 to 4

for j = 0 to i

b = b + a * 10 ^ j

next j

ret = ret + b

b = 0next i

RET 是所需的值。

您可以根据 i 的值控制要添加多少个 2，但一定要控制结果以免溢出！

为什么这么多人会问这个问题，如果有大2，就把流通量i换一行就行了：

private sub command1_click()dim i as integer, k as string, j as long

for i = 1 to 5

k = string(i, "2")

j = j + k

print j, k

nextprint j

end sub

不是和你写的一样吗？

s=2+22+222+2222+22222+222222

2.顺序结构 循环结构 选择结构。

3.方法事件。

绝对路径）。

caption

show255,0) bf

100mid(st,i,1)

int(6*rnd)+1 n(p)+1

1.没错**。

dim a as integer, b as longdo while a <= 100

a = a + 1

b = b + a * a

loopprint b

2.阶乘计算函数。

function f(n as double) as doubleif n > 0 then

f = n * f(n - 1)

elsef = 1

end if

end function

计算 2+22+222+...2222222 m 的值 = 2222222

dim n as double

for i = 0 to 6

n = n + val(left(m, len(m) -i))next i

答案在 VB 中都是成功的。

基本上，太多了，不能不耐烦。

我对此不是很感兴趣。 我对此了解不多。