贵州农信凭证打印小程序_VB小程序，打印圣诞树，打印金字塔

VB小程序，关注我有更多的有趣的VB小程序

1、打印圣诞树

今天使用了子过程实现打印，窗体启动就打印需要设置AutoRedraw=True

界面：

代码：

Private Sub Form_Load()

Dim i%

Cls

For i = 3 To 7 Step 2

Call DrawC(i, "▲")

Next i

For i = 1 To 5 '打印树杆

Print Tab(17); "▲▲"

Next i

End Sub

Sub DrawC(ByVal n%, ByVal c$) '定义子过程

Dim i%

For i = 1 To n

Print Tab(20 - 2 * i); String(2 * i - 1, c)

Next i

End Sub

2、打印金字塔

这个是练习For循环怎么使用

界面：

代码：

Private Sub Command1_Click()

Dim n As Integer, i As Integer, j As Integer, s As String

n = Text1.Text

For i = 1 To n

s = ""

For j = 1 To n - i

s = s + " " '""表示一个空格

Next j

For j = 1 To 2 * i - 1

s = s + "*"

Next j

List1.AddItem s

Next i

End Sub

想得到更多的VB小程序，请关注我，点击下方的广告可以更好的支持和鼓励我哦！