第1个回答 2019-07-23
private
sub
command1_click()
'点击command按钮时激发此事件(即执行此代码)
dim
a
as
integer,
b
as
integer
'定义a和b为整型变量
a
=
1
'让a的初值等于1
b
=
0
'让b的初值等于0
for
a
=
1
to
100
step
1
'进入循环体
次数是从1到100
步长为1
(其实step
1不用写
多余)
b
=
b
+
a
'让b等于b+a
对b进行累加
不要考虑等号前边的b值
每次执行完这句后
前边b的值自动给了b+a中的b值了
next
a
'继续循环
print
b
'输入b的值
end
sub
'结束此事件
这是一个从1加到100的小程序其中
a=1
b=0
step
1这些都可以去掉
多余