vb6倒三角星号

C++星号倒三角问题~

给，已经编译运行确认了：

#include
#include
using namespace std;
int main()
{
for (int n=10; n>0; n-=1)
{
string s1(10-n,' ');
string s(n*2-1,'*');
cout<<s1<<s<<endl;
}
return 0;
}

#include//头文件
main()//主函数
{
int i,j;//控制变量
for(i=5;i>=1;i--)//第一层主循环，控制三角形的大小。也就是三角形第一层输出星号的个数，在本题中i=5，也就是说第一层输出的星号个数是5
{
for(j=15-i;j>=0;j--)//第二层循环，控制空格的输出，控制空格的位置以及空格的个数，j=15-i也就是说第一行前面是10个空格，i是递减，所以j是递增的，输出的空格成正三角（i的初始值是5）。
printf(" ");
for(j=i;j>0;j--)//第三层循环，控制星号的个数以及输出位置，输出星号的个数是i，又i是递减的，所以输出的星号是递减的。成倒三角
printf("*");
printf("
");//换行符，当星号输完后，换行
}
}
//这是循环嵌套的经典练习题，多玩玩就熟悉了

Private Sub Command1_Click()
For i = 0 To 3
Print Space(i); String(7 - i * 2, "*")
Next i
End Sub

验证过的哦

---

本溪满族自治县18655249688： vb6倒三角星号 - ？
定卸骨刺： Private Sub Command1_Click() For i = 0 To 3 Print Space(i); String(7 - i * 2, ＂*＂) Next i End Sub 验证过的哦

本溪满族自治县18655249688： VB里用星号输出平行四边形、正三角、倒三角的程序语句? - ？
定卸骨刺： Private Sub Form_Click() show Dim m, n, i, j As Integer m = 4 :n = 7 For i = 1 To m For j = 1 To m - i + 1 Print ＂ ＂; Next j For j = 1 To n Print ＂*＂; Next j Print Next i Print For i = 1 To m For j = 1 To m - i + 1 Print ＂ ＂; Next j For j = 1 To 2 * i - 1 Print...

本溪满族自治县18655249688： 用VB编写星号组成的倒三角形(双重循环) - ？
定卸骨刺： Private Sub Form_Click() For i = 1 To 6 Print Tab(12 + i); For j = 1 To 12 - (2 * i - 1) Print ＂*＂; Next j Next i

本溪满族自治县18655249688： 怎样用VB程序设计出如下带*的倒三角? - ？
定卸骨刺： 可运行代码为: Const s = ＂倒三角形＂ Private Sub Command1_Click()Dim N As IntegerDoN = InputBox(＂你一共准备输出几行?＂, s, 5)If N > 50 ThenMsgBox ＂你的行数也太多了吧?看着我就累了.＂, vbExclamation, sElseIf N < 1 ...

本溪满族自治县18655249688： vba编程,输出*,形成倒三角 - ？
定卸骨刺： 假设第一行有n个*,第二行有n-2*(2-1)个*,第三行有n-2*(3-1)个*…………………… 由此可得,第m行有n-2*(m-1)个* 且n为奇数,m=(n+1)/2

本溪满族自治县18655249688： vb的倒三角怎么做 - ？
定卸骨刺： Private Sub Command1_Click() n = Val(InputBox(＂N=＂)) Print ＂N=＂; n For i = 1 To n Print Spc(i); String(2 * (n - i) + 1, ＂*＂) Next i End Sub

本溪满族自治县18655249688： 如何用vb语言编写调用自程序打印出倒3角星花？
定卸骨刺： 你这样,最简单的能否打出1个正方形的星花出来?能的话是不是可以取消从左侧到上中线的左侧这块区域不打?如果会再将上中线到右下角这部份不打,然后将余下的打印部份倒着输出便可.

本溪满族自治县18655249688： vb 打出倒三角效果 vb For i = 4 To 1 Step - 1 为什么可以使行数倒着打啊? - ？
定卸骨刺： Option Explicit Private Sub Command1_Click() Dim r As Integer, p As Integer, cs As String Dim i As Integer, j As Integer r = 9 '要打印的行数 cs = ＂*＂ '要打印的字符 For i = 1 To r For j = r - i To 1 Step -1 cs = cs & ＂**＂ Next j Print Space(i) & cs cs = ＂＂ Print Next i End Sub

本溪满族自治县18655249688： VB倒直角三角怎么输出?？
定卸骨刺： Private Sub Command1_Click() Dim i%, j% For i = 5 To 1 Step -1 For j = 1 To i Print Chr(64 + j); Next Print Next End Sub

本溪满族自治县18655249688： vb编写倒直角三角形 - ？
定卸骨刺： Private Sub Form_Click() Dim n As Integer Dim i As Integer n = Val(InputBox(＂请输入倒三角形的行数＂)) For i = n To 0 Step -1 Print spacex(i) Next i End Sub Function spacex(ByVal n As Integer) As String Dim i As Integer Dim Temp As String For i = 1 To n Temp = Temp & ＂*＂ Next i spacex = Temp End Function