Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print
Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print
其他人气：652 ℃时间：2020-01-29 20:49:52
优质解答
显示6求详细过程，谢谢~输入3 则n=3下面就变成了For i=1 To3For j=1 To i x=x+1 Next j Next i 当i=1 时 j=1 to1循环一次则 x=1当i=2 时 j=1 to2循环两次则 x=2x=3当i=2 时 j=1 to3循环三次则 x=4 x=5x=6最后在窗体上printx则显示6
我来回答
类似推荐
猜你喜欢
- 1英语高手进（初二英语）
- 2People try to avoid public delays by using their own cars,and this creates further problems.（c）
- 3把含盐10%的盐水和含盐15%的盐水混合制成含盐12%盐水500g,应取10%盐水 g,取15%的盐水 g
- 4dish的意思
- 5如图，在⊙O中，弦AB=2，CD=1，AD⊥BD，直线AD、BC相交于点E，求∠E的度数．
- 6定语从句关系词用法
- 7Water for the world and water for the me.翻译
- 8We have fish and tofu for lunch on mondays的问句
- 95个人16天可以完成一项任务,如果增加3个人,假设,每个人的工作效率相同,那么完成这项工作所需天数为
- 10关于描写自然风光的词语