Dim s as integer Fors=1to20 ifsmod5=0then debug print "ll" else debug.print "*" end if Next想要他的输出结果为*换行**换行***换行****换行*****的话要怎么改
时间: 2023-08-29 22:07:00 浏览: 35
你可以这样修改代码:
```
Dim s As Integer
For s = 1 To 5
Dim i As Integer
For i = 1 To s
Debug.Print "*";
Next
Debug.Print ""
Next
```
输出结果为:
```
*
**
***
****
*****
```
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![7z](https://img-home.csdnimg.cn/images/20210720083312.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)