Question

一个要自定义函数的VB问题

4. 编写一个自定义过程，用于打印n（n由文本框输入）层某符号（符号由另一文本框输入）金字塔；单击“确定”按钮，调用前面定义的过程实现打印相应金字塔。例如，输入n为5，金字塔符号为“@”则打印的金字塔如下

@
@@@
@@@@@
@@@@@@@
@@@@@@@@@
要的是先自定义一个函数

Answer 1

1、设两个文本框text1和text2，一个按钮command1
2、代码：
Sub iList(n As Integer, s As String)'自定义iList函数
Dim t
t = " "
If Asc(s) < 0 Then t = " " 's为汉字的情况
For i = 1 To n
Print String(n - i, t) & String(i * 2 - 1, s)
Next
End Sub
Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "请输入数字！"
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
Call iList(Text1.Text, Text2.Text)
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Text2_Change()
If Len(Text2.Text) > 1 Then Text2.Text = Left(Text2.Text, 1)
End Sub

Answer 2

Private Sub Command1_Click()
printAt 5
End Sub

Sub printAt(i As Integer)
Dim c As Integer
For c = 1 To i
Print String(c * 2 - 1, "@")
Next
End Sub