VB题目代码

写好了，你有邮箱么？不然…………可能运行不了
Dim zm(1 To 6) As String * 1
Private Sub dx_Click()
px
For i = 6 To 1 Step -1
Text2.Text = Text2.Text & zm(i)
Next i

End Sub

Private Sub Form_Load()

With Label1
.Alignment = 2
.Height = 375
.Left = 0
.Top = 240
.Caption = "字母表"
.Width = 2175
End With
With Label2
.Alignment = 2
.Caption = "排序字母表"
.Height = 495
.Left = 0
.Top = 1080
.Width = 2175
End With
With Text1
.FontSize = 20
.Appearance = 0
.Alignment = 2
.Height = 615
.Left = 2280
.Top = 120
.Width = 2415
.Text = ""
End With
With Text2
.FontSize = 20
.Appearance = 0
.Text = ""
.Alignment = 2
.Height = 615
.Left = 2280
.Top = 960
.Width = 2415
End With

End Sub

Private Sub sc_Click()
Text1 = ""