VB编程 求代码！thank

来源：百度知道 编辑：UC知道 时间：2024/05/09 17:44:02
[1] 把 北京欢迎您 在窗体上反向输出。

[2] 用InputBox函数输入3个任意整数，按从大到小的顺序输出。
[
3] 利用文本框、列表框和四个命令按钮实现英文单词的添加、删除、全部删除和退出四个功能

'第一题
Private Sub Form_Click()
Print StrReverse("北京欢迎你")
End Sub

'第二题
Private Sub Form_Click()
Dim n(2) As Integer, tmp As Integer
For i = 0 To 2
n(i) = Val(InputBox("输入n" & i, "", "0"))
Next
For i = 0 To 1
For j = 1 To 2
If n(i) > n(j) Then
tmp = n(i)
n(i) = n(j)
n(j) = tmp
End If
Next
Next
For i = 0 To 2
Print n(i)
Next
End Sub

'第三题
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub

Private Sub Command2_Click()
On Error Resume Next
List1.RemoveItem (List1.ListIndex)
End Sub

Private Sub Command3_Click()
List1.Clear
End Sub

Private Sub Command4_Click()
End
End Sub

第一题
Private Sub Form_click()
Print StrReverse("北京欢迎您")
End Sub
第二题
Private Sub Command1_Click()
Dim a As