求大侠解析:private Sub Command3_Click()

[复制链接]
查看11 | 回复1 | 2012-6-15 22:20:38 | 显示全部楼层 |阅读模式
private Sub Command3_Click() Dim i As Integer
Dim sum As Long Dim n As Intger sum=0 Text1.SetFocus
聚焦text文本框 n=Text1.Text
将text中的数值赋给n i=1
从i=1循环 步长默认为1 Do while i<=n
当i=n时,停止
sum=sum+i
每循环一次sum+1
i=i+1
Loop MsgBox"1到"& n & "的累加和为" & sum
弹出消息...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行