vb从1加到100怎么列

2024-12-29 14:50:13

推荐回答（3个）

回答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的和：

回答2：

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

回答3：

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