Loop
If A = i Then s = s + i Next i Print s
100 已知A
For a = 1 To Sqr(716699) b = 716699 / a
If b = Int(b) And a + b < Min Then Min = a + b 1836
Next a Print Min
第 31 页
VB循环程序例题100道附答案
LoopIfA=iThens=s+iNextiPrints100已知A
推荐度:
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
点击下载文档文档为doc格式
Loop
If A = i Then s = s + i Next i Print s
100 已知A
For a = 1 To Sqr(716699) b = 716699 / a
If b = Int(b) And a + b < Min Then Min = a + b 1836
Next a Print Min
第 31 页