Question

vb从1加到100怎么列

vb从1加到100怎么列 就像 i = 0 s = 0 While i <= 1000 i = i + 1 s = s + i Wend Print "s="; s问题补充：朋友! 要直接放进去就能开始的! 就是按个启动就开始了的!!!! 正在考试!!!! 跪谢!

Answer 1

1、打开VB6.0软件，新建一个标准exe工程；

2、设计界面上添加一个Command控件；

3、双击Command1控件，进入代码编辑，输入如下代码：

Private Sub Command1_Click()
Dim sum As Integer
sum = 0
For i = 1 To 100
    sum = sum + i
Next i
Print sum;
End Sub

4、点击运行程序，单击按钮，可以看到1到100的和：

Answer 2

直接放在form_load过程中 还得设置窗体autoreadew=true 才能显示出来

Answer 3

i = 0
s = 0
For i = 1 To 100
s = s + i
Next
Print "s="; s
好好学习，天天向上