因为用while语句进行了循环，所以s保存的数值是对i的值进行累加，而k保存的数值是对s的值进行累加，比如
第一次循环后，k=0，s=1，i=1
第二次循环后，k=1，s=2，i=2
第三次循环后，k=3，s=4，i=3
第四次循环后，k=7，s=7，i=4
……
……
解题过程！！！急急急！
追答每一步循环过程？
追问你就讲出那个过程！
追答Dim s， i As Integer ‘定义变量’
s=0
i=1 变量初始化
While i＜=10 当i大小10时终止循环，由于i初始值是1，所以当i循环10次,
s=s+1 即当i=11时，s=10
i=i+1
Wend
Print s
...Dim s, i As Integer s=0 i=1 While i<=10 s=s+1 i=i+1 Wend Prin...
因为用while语句进行了循环，所以s保存的数值是对i的值进行累加，而k保存的数值是对s的值进行累加，比如 第一次循环后，k=0，s=1，i=1 第二次循环后，k=1，s=2，i=2 第三次循环后，k=3，s=4，i=3 第四次循环后，k=7，s=7，i=4 ………...
VB编程“求1到1000以内所有奇数之和”(do while 结构)
Private Sub Command1_Click()Dim i As IntegerDim s As Integers = 0: i = 0Do While i <= 1000i = i + 1:If i Mod 2 = 1 Then s = s + iEnd IfLoopPrint "计算1至1000之间的奇数之和为:"; sEnd Sub没有学过VB但是楼主的程序确实存在问题,这样改一下应该差不多了,对于楼上说的溢出...
...程序 如对1~100之间的整数进行求和 for及Dowhile语句实现vb_百度知 ...
Private Sub Form_Click()Dim s, i As Integer s = 0 For i = 1 To 100 s = s + i Next i Print s End Sub Private Sub Form_Click()Dim i, s As Integer s = 0 i = 1 Do While i <= 100 s = s + i i = i + 1 Loop Print s End Sub ...
private sub()dim x,i as integer x=0 fori=1to10ste
修改成：x=x+1
Dim i As Integer, s As Integer s = 0 For i =1 To ___ s = s +...
Dim i As Integer, s As Integer s = 0 For i =1 To ___s = s + i Next i func = s 此程序表示连加 即 如果填10 ( For i =1 To 10)表示s=1+2+3+4+5+6+7+8+9+10
excel图表有条件的循环1DoWhile循环
示例1：如果想要在工作表单元格区域A1:A10中依次填写数字1至10，也可以使用下面的包含Do While循环的代码：Sub DoWhile3()Dim i As Integer ‘声明变量 i = 1 ‘给变量赋初始值 ‘循环 Do While i <= 10 Cells(i, 1).Value = i i = i + 1 Loop End Sub 注意，与For-Next循环不同的...
执行以下程序段: Dim x as integer ; i as integer x = 0 for i =...
一：x=0 i=1 x=0+0=0 x=0 i=3 x=0+0=0 x=0 i=5 x=0+1=1 x=1 i=7 x=1+1=2 x=2 i=9 x=2+1=3 x=3 i=11 x=3+2=5 x=5 i=13 x=5+2=7 x=7 i=15 x=7+3=10 x=10 i=17 x=10+3=13 x=13 i=19 x=13+3=16 所以答案选d:16. ＼表示一个...
...2+…+10^2的和,下面的程序为什么输入结果一直是1,程序代码中哪里错了...
if 不是循环语句 If i <= 10 Then s = s + i * i i = i + 1 End If 改成 While i <= 10 s = s + i * i i = i + 1 Wend
...1-100加起来的和条件是当和大与等于5000退出,结果5005,请问这个和是...
Private Sub Form_Load()Dim i As Integer Dim s As Integer s = 0 Do While s < 5000 i = i + 1 s = s + i Loop Debug.Print "s="; s End Sub 答案是5050，而不是5005。
用VB编写程序,从1乘到100
dim i as integer,j as variant j=1 '不加这行 j的值默认为0 结果也就是0了.for i = 1 to 100 j=j*i next msgbox j 'ps.结果很大..9E+157..'=== Dim s,i As Integer s=1 i=1 While i<=100 s=s*i i=i+1 Wend Print s ...
