在VB6.0中使用ForNext循环语句在窗口打印出等腰三角形与菱形。
工具/原料
VB6.0软件
方法/步骤
1、运行vb6.0软件。
2、新建一个工程，并且在窗口建立三个commandbutton控件，将其caption依次改为command1显示三角形，command1显示菱形，command1清屏。如图所示！
3、双击任意一个commandbutton控件打开代码窗口，输入代码！
4、PrivateSubcommand1_Click()Dim咯悝滩镞iAsInteger,jAsInteger,nAsIntegern=V锾攒揉敫al(InputBox("请输入行数！"))Fori=1TonPrintTab(n+1-i);Forj=1To2*i-1Print"*";NextjPrintNextiEndSub此代码显示等腰三角形！
5、PrivateSubCommand2_Click()Dim咯悝滩镞iAsInteger,jAsInteger,nAsIntegern=V锾攒揉敫al(InputBox("请输入行数！"))IfnMod2=1Then'当为奇数行时执行以下代码。n=Int((n+1)/2)Fori=1TonPrintTab(n+1-i);Forj=1To2*i-1Print"*";NextjPrintNextiFori=n-1To1Step-1PrintTab(n-i+1);Forj=1To2*i-1Print"*";NextjPrintNextiElse'当为偶数行时执行以下代码。n=n/2Fori=1TonPrintTab(n+1-i);Forj=1To2*i-1Print"*";NextjPrintNextiFori=nTo1Step-1PrintTab(n-i+1);Forj=1To2*i-1Print"*";NextjPrintNextiEndIfEndSub
6、PrivateSubCommand3_Click()Form1.Cls'清屏代码。EndSub