vb的这题有人会做吗，可以的话写下代码我参考下谢谢！

更新时间2019-02-09 18:43:59

窗体添加控件及布局截图

运行状态截图

'参考代码如下:

Private Sub Command1_Click()

    '入榜

    If Text1.Text = "" Or Text2.Text = "" Then

        Exit Sub    '书名或名次未键入则退出

    End If

    List1.ListIndex = Val(Text2.Text) - 1       '获得记录索引号

    List1.List(List1.ListIndex) = Text1.Text    '将书名存入列表

End Sub

'---------------------------

总提交不成功，提示：不要重复提交二次。没办法，多输入一些文字来解决此问题。

1、在左边列表框中显示排名前5名的畅销书；

2、输入新书名和名次，单击“入榜”，添加到左边列表框中的相应位置；

3、单击“下榜”，将选择的书从排行榜中删除，如未选择，则显示“请先选择！”；

4、单击“清除”，可以删除文本框中的输入内容，文本框2只允许输入1~5。

'---------------------------

Private Sub Command2_Click()

    '下榜

    If List1.ListIndex = -1 Then

        MsgBox "请先选择！", vbExclamation, "记录未选择..."

        Exit Sub

    End If

    List1.RemoveItem List1.ListIndex    '移除选中的记录

    List1.AddItem ""                    '后面添加一空记录

End Sub

Private Sub Command3_Click()

    '清除

    Text1.Text = ""

    Text2.Text = ""

End Sub

'---------------------------

总提交不成功，提示：不要重复提交二次。没办法，多输入一些文字来解决此问题。

1、在左边列表框中显示排名前5名的畅销书；

2、输入新书名和名次，单击“入榜”，添加到左边列表框中的相应位置；

3、单击“下榜”，将选择的书从排行榜中删除，如未选择，则显示“请先选择！”；

4、单击“清除”，可以删除文本框中的输入内容，文本框2只允许输入1~5。

'---------------------------

Private Sub Command4_Click()

    '结束

    Unload Me

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

    '判断Text2控件的键入字符

    If KeyAscii <> 8 Then   '判断是否为反向擦除键（Backspace）

        If KeyAscii < &H31 Or KeyAscii > &H35 Then

            KeyAscii = 0    '如果不是1~5，则忽略键入

        End If

    End If

End Sub

Private Sub Form_Load()

    Dim i

    For i = 0 To 4

        List1.AddItem ""    '生成5个空记录

    Next

    Me.Caption = "畅销书排行榜"

    Text1.Text = ""

    Text2.Text = ""

    Label1.Caption = "Top5"

    Label2.Caption = "新书入榜"

    Label3.Caption = "名次"

    Command1.Caption = "入榜"

    Command2.Caption = "下榜"

    Command3.Caption = "清除"

    Command4.Caption = "结束"

    Text2.MaxLength = 1     'Text2 键入字符最大数设为 1

End Sub

相关标签:谢谢