当前位置:首页 » VB程序题 » 正文

VB程序题:窗体上建立一个简单组合框,在组合框的文本框输入数字字符,按回车键后加入到组合框的列表框内,如图E.8所示;单击“交换”按钮,将列表框中最小值项目和第0个项目交换……龚沛曾 源码

VB程序题:窗体上建立一个简单组合框,在组合框的文本框输入数字字符,按回车键后加入到组合框的列表框内,如图E.8(下图)所示;单击“交换”按钮,将列表框中最小值项目和第0个项目交换;最大值与最后项目交换,如图E.9所示。(wb86.com)

 

解题,代码如下:
Sub Combo1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
      Case 48 To 57, 13, 8 '只允许数字键和回车键,删除键
      Case Else
        KeyAscii = 0
    End Select
    If KeyAscii = 13 Then
        Combo1.AddItem Combo1.Text
        Combo1.Text = ""
    End If
End Sub

Private Sub Command1_Click()
    Dim min%, max%
    min = Val(Combo1.List(0))
    max = Val(Combo1.List(0))
    imin = 0
    imax = 0
    For i = 1 To Combo1.ListCount - 1
        If Val(Combo1.List(i)) > max Then
            imax = i
            max = Combo1.List(i)
        ElseIf Val(Combo1.List(i)) < min Then
            imin = i
            min = Combo1.List(i)
        End If
    Next i
    t = Combo1.List(0)
    Combo1.List(0) = Combo1.List(imin)
    Combo1.List(imin) = t
    t = Combo1.List(Combo1.ListCount - 1)
    Combo1.List(Combo1.ListCount - 1) = Combo1.List(imax)
    Combo1.List(imax) = t
End Sub

图E.9:


Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:http://wb86.com/post/86.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号