打印菱形星号程序代码vb（输出菱形星星图形代码）

本篇文章给大家谈谈打印菱形星号程序代码vb，以及输出菱形星星图形代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB输出菱形图形
• 2、求一个VB编写菱形的代码
• 3、VB在窗体上打印以下由星号组成的菱形图案。其中,输出行数可以由用户指定。
• 4、vb用*号 打印输出图形

VB输出菱形图形

1、启动VB6.0，新建一个标准exe工程。

2、在窗体上绘制一个命令按钮，名称为Command1。

3、双击命令按钮进入代码窗口。

4、编写命令按钮单击事件（代码详情可参考图中的绿色字体部分的注释）。

5、按F5运行测试，输出菱形图形。

求一个VB编写菱形的代码

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim m As Integer

m = 9'm是行数

k = 1

For i = 0 To m \ 2 - 1

Print Space$(m \ 2 - i);

For j = 1 To k

Print "*";

Next j

Print

k = k + 2

Next i

If m Mod 2 = 0 Then k = k - 2

For i = m \ 2 To m - 1

Print Space$(i - m \ 2);

For j = 1 To k

Print "*";

Next j

Print

k = k - 2

Next i

End Sub

VB在窗体上打印以下由星号组成的菱形图案。其中,输出行数可以由用户指定。

Private Sub Command1_Click()

'VB在窗体上打印以下由星号组成的菱形图案。其中,输出行数可以由用户指定

'

Static X%

X = Val(InputBox("输入行数", "输入", X))

If X = 0 Then Exit Sub

Cls

Print "普通菱形"

For i = 1 To X

sOut = "*"

Print Space(X - i);

While Len(sOut) X

sOut = sOut "*"

Wend

Print sOut

Next

End Sub

输入5时,

*****

*****

*****

*****

*****

vb用*号 打印输出图形

用什么控键输出？textbox, label还是messagebox? 下面的程序用msgbox输出，另外三角形怎么才四行数据，是不是应该是这样：

*

* *

* * *

* * * *

* * * * *

Private Sub CommandButton1_Click()

Dim intRowNumber As Integer

Dim i As Integer

Dim j As Integer

Dim strOutput As String

intRowNumber = 5

'画菱形部分

For i = 1 To intRowNumber

If i intRowNumber / 2 Then

For j = 1 To intRowNumber - i - 2

strOutput = strOutput + " " 'msgbox里一个星号的宽度是两个空格宽度，所以这里加两个空格,如果用别的方法输出看情况修改

Next j

For j = 1 To i * 2

strOutput = strOutput + "*"

Next j

Else

For j = 1 To i - 3

strOutput = strOutput + " " 'msgbox里一个星号的宽度是两个空格宽度，所以这里加两个空格

Next j

For j = 1 To (intRowNumber - i + 1) * 2

strOutput = strOutput + "*"

Next j

End If

strOutput = strOutput + vbCrLf

Next i

strOutput = strOutput + vbCrLf

strOutput = strOutput + vbCrLf

'画三角形部分，题目有问题吧-_-，1 2 2 6才四排，而且怎么看也不是个像样的三角形

For i = 1 To intRowNumber

For j = 1 To intRowNumber - i

strOutput = strOutput + " "

Next j

For j = 1 To i

strOutput = strOutput + "* "

Next j

strOutput = strOutput + vbCrLf

Next i

MsgBox strOutput

End Sub

关于打印菱形星号程序代码vb和输出菱形星星图形代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。