Question

求一个VB小程序

作业要求：用VB语言编写一个应用程序，功能要求：具有添加、删除、查找、排序、显示等功能。或其他有一定功能的VB小程序。 需要窗口文件和代码文件一起哟！！！ 谢谢了 一个选修课的作业。。 分我会追加的 发到我邮箱960737478@qq.com,图上有具体要求 ，本人完全不懂VB，具体需要哪些文件，要压缩哪些都不知道，麻烦帮我把文件压缩好，谢谢，回答后追加分，2个学分靠你了

Answer 1

Option Explicit
Dim Num() As Integer, i As Integer, j As Integer

Private Sub Command_Add_Click()
    Randomize
    i = i + 1
    ReDim Preserve Num(i)
    Num(i) = Int(Rnd * 100)
    List1.AddItem (Num(i))
End Sub

Private Sub Command_Del_Click()
    If i = 0 Then
        Exit Sub
    Else
        i = i - 1
        List1.RemoveItem (i)
        ReDim Preserve Num(i)
    End If
End Sub

Private Sub Command_Order_Click()
    Dim a As Integer, b As Integer
    For a = 1 To i
        For b = a To i
            If Num(a) > Num(b) Then
                Num(0) = Num(a)
                Num(a) = Num(b)
                Num(b) = Num(0)
            End If
        Next
    Next
    List1.Clear
    For a = 1 To i
        List1.AddItem (Num(a))
    Next
End Sub

Private Sub Form_Load()
    i = 0
    j = 0
End Sub

Private Sub Timer1_Timer()
    Form1.Caption = Now
End Sub

按照要求写好了。请采纳。