空心三角形
```vb
Dim i%, j%
Print Space（20）； *
For i = 2 To 9
Print Space（21 - i）； *； Space（2 * i - 3）； *
Next
Print Space（10）；
For i = 1 To 10
Print Space（1）； *；
Next
```
这个程序会打印一个空心三角形。
六角星
```vb
Dim i%, j%, k%
For i = 1 To 10
If i = 4 Or i = 6 Then
Print Space（20 - i）；
For j = 1 To i
Print ；
Next j
Else
Print Space（6 + i）；
For k = 14 - i To 1 Step -1
Print ；
Next k
End If
Next i
```
这个程序会打印一个六角星。
简单的VB恶搞小程序
```vb
Private Sub Command1_Click（） 'On Error GoTo err
Dim line_all As Double
Dim jgtemp As String
Dim jg As String
Dim line_zensu As Integer
Dim dot As Integer
Dim zensu As Integer
Dim mon As String
'If M
' 简单的VB恶搞小程序（Maiz）
' 需要进程结束程序，不要告诉我你不会--!
End Sub
```
这个程序是一个简单的恶搞小程序，具体功能未详细描述。
初中时做的表白的小程序
```vb
' 包括：
' 1看图工具
' 2随机抽奖
' 3随机改变颜色
' 4星空屏保
' 5整个窗体铺满图片
' 6简易计算器
' 7万花筒图案
' 代码简练，非常适合VB教学。
```
这个程序包含了多个功能，如看图工具、随机抽奖、随机改变颜色等，非常适合初学者学习VB编程。
简单的VB小程序
```vb
Private Sub Command1_Click（）'On Error GoTo err
Dim line_all As Double
Dim jgtemp As String
Dim jg As String
Dim line_zensu As Integer
Dim dot As Integer
Dim zensu As Integer
Dim mon As String
'If M
' 一个简单的VB小程序
' 仅从初学者学习研究，自己做的挺好玩的一个vb程序
' 这个描述揭示了这是一个基于Visual Basic（VB）编程语言开发的小应用程序，可能是作者作为初学者的练习作品。
End Sub
```
这个程序是一个简单的VB小程序，适合初学者学习和研究。
这些示例涵盖了不同的VB编程功能，从简单的图形打印到复杂的恶作剧小程序和计算器，适合不同水平的VB学习者参考和娱乐。