Question

这道VB题怎么做？

Answer 1

不用任何控件。程序如下：
Private Sub Form_Click()
Dim I As Integer
Dim J As Integer
Dim S1 As String , S2 As String
Dim St1 As String,St2 As String
S1="▼"
S2="▲"
For I = 1 To 5
St1=String(6-I,S1)
St2=String(I,S2)
Print Tab(I);St1;Spc(3);St2
Next I
End Sub
有什么问题请留言。

Answer 2

Private Sub Command1_Click()
Dim i As Integer
Print
For i = 1 To 5
Print Tab(i); String(6 - i, "▼"); Spc(4); String(i, "▲")
Next
End Sub