怎么用vb编一个由星号组成的等腰三角形 要求第一行一个星号 第二行两个星号

如题所述

第1个回答  推荐于2017-09-16
Dim n As Integer
n = 10

For i = 1 To n
For k = 1 To n - i
Print Chr(32);
Next
For j = 1 To i
Print "*" & Chr(32);
Next
Print ""
Next
放到Form_Paint()里面都可以。本回答被提问者采纳

怎么用vb编一个由星号组成的等腰三角形 要求第一行一个星号 第二行两...
Dim n As Integer n = 10 For i = 1 To n For k = 1 To n - i Print Chr(32);Next For j = 1 To i Print "*" & Chr(32);Next Print ""Next 放到Form_Paint()里面都可以。

如何用VB实现“*”比如输入 数字2 第一行一个 第二行两个星号
画一个按钮,调用inputbox Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer n = InputBox("n=", "请输入一个数值n")For i = 1 To n Step 1 For j = 1 To 2 * i - 1 Step 2 Print "*";Next j Print Next i End Sub 或者画出一个文本框:Priv...

vb:如何在文本框中用星号打印等腰三角形???
Next i

VB里用星号输出平行四边形、正三角、倒三角的程序语句?
Debug.Print "*";Next Print Chr(10) & Space(1 + i \\ 2);Next End Sub

vb用星号打印倒直角三角形求解
Private Sub Command1_Click()For i = 0 To 8 '共打印9行 For j = 1 To i Print " "; '每行上先打印i个空格 Next j For j = 1 To 9 - i Print "*"; '再打印9-i个*号 Next j Print '一行打印结束就换行 Next i End Sub ...

vb怎样打出“*”号倒三角形来?
可以参考下面的代码:Private Sub Command1_Click()Dim i As Long, j As Long Dim strTemp As String, strXing As String For i = 0 To 3 strXing = ""For j = 1 To (7 - Abs(i) * 2)strXing = strXing & "*"Next strTemp = Space(Abs(i)) & strXing & Space(Abs(i))Pr...

用Java编写一个倒等腰三角形!!
一、思路:1.尝试用*号画图,倒的等腰三角形是每行输出的*号不一样,最后一行是1个,按照每行减少两个*号算,第一行的*号数量一定要是单数才行。2.需要用到格式控制,第一行输出全部的*号,第二行就要输出一个空格,在输出比上一行少两个*号的数量。3.行数由第一行的*数量决定,而每行...

怎样用asp编写出星号组成的直角三角形
很简单的,两个for循环嵌套,第二个for循环打印*,外层循环打印回车换行 语句:<%for i = 1 to 8 for j = 1 to i response.write("*") next response.write("")next%> 执行结果:

怎样vb代码编写一个用星号组成的五角星
x5) * (i - y5) \/ (y1 - y5)) Or (j - x4 >= (x1 - x4) * (i - y4) \/ (y1 - y4) And j - x4 <= (x3 - x4) * (i - y4) \/ (y3 - y4)) Then Debug.Print "*"; Else Debug.Print " "

用c语言编写输出金字塔状的三行星号,第一行1个,第二行2个,第3行个
可通过for语句编写输出金字塔状的三行星号。具体步骤如下。1、打开visual C++ 6.0,打开文件-新建-文件-C++ Source File。2、编写程序如下:include <stdio.h>int main(){int num;int i,j;printf("请输入您想生成的三角形高度: ");scanf("%d",&num);for(i=1; i<=num; i++){for(j=1...

相似回答