编一个程序,显示出的曲线轨迹为李沙育图形（可以用VB或者C语言）。谢谢了

编一个程序,显示出的曲线轨迹为李沙育图形（可以用VB或者C语言）。谢谢了

Option Explicit

Private Const strName = "李沙育" '这里修改你的名字

Private Sub Form_Load()
Dim al(0 To 60, 0 To 18) As Long
Dim i As Long, j As Long
Dim s As String
s = InputBox("请输入单个字符掩码:", "设置", "#") '·
If Trim(s) = "" Then End

Me.AutoRedraw = True
Me.ScaleMode = 3
Me.BackColor = vbWhite
Me.ForeColor = vbBlack
Me.Font.Name = "宋体"
Me.Font.Size = 16
Me.Print strName
Me.Show
Me.Refresh
For i = 0 To 60
For j = 0 To 18
al(i, j) = Me.Point(1 + i, 1 + j)
Next j
Next i
Me.Cls
Me.Font.Size = 9
For j = 0 To 18
For i = 0 To 60
If al(i, j) = vbWhite Then
Me.Print " ";
Else
Me.Print s;
End If
Next i
Me.Print ""
Next j
Me.Width = 5850
Me.Height = 3990
End Sub

你好！ 因为不懂 所以画不出 如果对你有帮助，望采纳。