已有23人关注
遇到一个问题请教一下!
发表在VB答疑区 2008-09-03
是否精华
版块置顶:
您好!

有以下四组数字,要求在TextBox里面输入1~20任意一个数字,然后单击按钮,弹出对话框报告输入的数字在哪一组里面!

A组(1.5.9.13.17)
B组(2.6.10.14.18)
C组(3.7.11.15.19)
D组(4.8.12.16.20)

比如在TextBox里面输入数字10,单击按钮弹出对话框,这是B组的数字!

请问在VB里面如何实现,在此谢谢!!!
分享到:
精彩评论 1
vbsoldier
学分:0 LV1
2008-09-16
沙发
您好,程序的设计思路是将各个数组添加到某一集合中,对集合中的数组进行遍历查询。请参考下面代码

Dim clt As Collection
Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    For i = 1 To clt.Count
        For j = 0 To UBound(clt(i))
            If clt(i)(j) = Val(Text1) Then
                MsgBox "在" & trans(i) & "组内"
                Exit Sub
            End If
        Next j
    Next i
End Sub
Private Sub Form_Load()
    Set clt = New Collection
    Dim A, B, C, D
    A = Array(1, 5, 9, 13, 17)
    clt.Add A
    B = Array(2, 6, 10, 14, 18)
    clt.Add B
    C = Array(3, 7, 11, 15, 19)
    clt.Add C
    D = Array(4, 8, 12, 16, 20)
    clt.Add D
End Sub
Private Function trans(ByVal num As Integer)
    Select Case num
    Case 1
        trans = "A"
    Case 2
        trans = "B"
    Case 3
        trans = "C"
    Case 4
        trans = "D"
    End Select
End Function
首页上一页 1 下一页尾页 1 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照