VB 在窗体上利用二重循环打印正三角形

利用tab()函数控制“*”从第几列开始输出

建议实验程序结构:
Private Sub Form_Click()
' 定义循环变量i和j
' 利用二重循环打印图形
End Sub

dim i as integer
dim j as integer

for i=1 to 99 '代表行数或列数
for j=1 to i
print "*";
next j
print
next i
温馨提示:内容为网友见解,仅供参考
第1个回答  2009-04-12
正三角形没有条件么?

vb中如何用双循环制作一个竖立的棱形
二重循环,第一重管的是行数,第二重管的是列数。每列先打印空格,再打印'*',注意边界问题。如果不确定,可以通过不断的尝试得到。

如何计算for next 中的计算和循环
这个程序外面二重循环是没用的,因为在第二重循环中每次进入执行循环体时都要重新给X赋值,所以,实际只相当于执行以下的程序段:x=3 For k=1 To 2 x=x+5 ‘这里变为x=x+5才会输出 13 Next k MSgBOx x 效果完全相同。X原等于3,执行2次加5后,就变为13了。

VB编程求解:1!+2!+...+n!>10000时n的最小值。单击窗体,在窗体上...
这个程序用单重循环就可以实现的。何必要用二重循环呢?Private Sub Command1_Click()s = 0 i = 0 t = 1 While s <= 10000 i = i + 1 t = t * i s = s + t Wend Print "1!+2!+3!+...+"; Trim(Str(i)); "!="; s End Sub 非要用二重循环的话:Private Sub Comman...

vb编程输入一个正整数,编程求该数的所有质因子。
通常可以使用一个二重循环来实现。把输入的字符串转换为数值型N以后,当n大于1就进行循环。用另一个变量I从二2开始,这时使用一个内循环来进行检测,当n÷i的余数等于零的时候,就说明n当中有i这个因子,这时就输出一次i(如果是第二次以上的输出就先输出一个乘号*),然后把n的数值除以i,当这个...

如何计算for next 中的计算和循环
这个程序外面二重循环是没用的,因为在第二重循环中每次进入执行循环体时都要重新给X赋值,所以,实际只相当于执行以下的程序段:x=3 For k=1 To 2 x=x+5 ‘这里变为x=x+5才会输出 13 Next k MSgBOx x 效果完全相同。X原等于3,执行2次加5后,就变为13了。

相似回答