vb程序结果

来源：百度知道 编辑：UC知道 时间：2024/05/13 05:59:16
Sub pd1()
Dim k As Interger,s As Integer
K=0 ;s=0
Do
k=k+1
s=s+k
Loop While k<=10
End Sub
Debug.print"k=";k,"s=";s
Debug.Print"k=
运行结果是什么啊？

代码有些地方不对，帮你改了Sub pd1()
Dim k As Integer, s As Integer 'Integer拼写错了
k = 0 '分号
s = 0
Do
k = k + 1
s = s + k
Loop While k <= 10
Debug.Print "k="; k, "s="; s '还有顺序错了，End Sub 之后不能接任何语句，另外Debug.Print"k= 这句不完整，应该不用的
End Sub

结果是
k= 11 s= 66

程序是计算1到11的和的结果

有几个错误：

1、拼写错误：Interger 是什么？Integer 才对；

2、K=0 ;s=0 复制语句 可以 放一行，但彼此间 用 冒号 隔开，而不是 分号；

3、怎么在 End Sub 后 的 语句 Debug.print 引用 sub 里的变量 k,s ？
是 语句顺序错了 吧？

多看例程
祝你顺利