Question

请VB高人帮我写个小程序

一直想写个缩水的小程序，无奈没有技术，请VB高手帮我实现下

数据库，如图是1-33的行列表（如可不引用数据库实现，则更好）
我希望实现的程序是，可以根据所选行或列或指定数字来排除相应数字，并在旁列出所有，在余数中只选择6个数字的组合，同时在这些组合中，根据4，5，6来对应筛选出数字尾数，不相同的个数是4个，5个还是6个的组合
例如：
01 11 02 22 03 04 （不相同尾数是4个）
01 11 02 03 04 05 （不相同尾数是5个）

我的界面设计得比较烂，要实现的功能如上，如果可以设计出更合理的界面就更好了

Answer 1

不让我传图片，我的设计界面有：ListView一个、List一个、Command三个、TextBox一个、Label一个

ListView 需要再components中添加Microsoft Window Common Control 6.0（SP6）

希望对你有帮助

Dim array_List
Private Sub Command1_Click()
List1.Clear
Dim i, j As Integer
With ListView1
For i = 1 To .ListItems.count Step 1
For j = 1 To .ColumnHeaders.count - 1 Step 1
If ListView1.ListItems(i).SubItems(j) <> "false" Then
List1.AddItem ListView1.ListItems(i).SubItems(j)
End If
Next j
Next i
End With
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Dim c As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
Text1.Text = Text1.Text + List1.List(i) & Space(1)
c = c + 1
End If
Next
Label1.Caption = "选择数是" & c & "个"
End Sub
Private Sub Command3_Click()
Dim aa(10) As Boolean
Dim i, j, k As Integer
array_List = Split(Trim(Text1.Text), Space(1))
If UBound(array_List) + 1 <> 6 Then
Label1.Caption = "选择数不是6个" & "是" & UBound(array_List) + 1 & "个"
Else
Label1.Caption = ""
For i = 0 To UBound(array_List)
Label1.Caption = Label1.Caption & " " & array_List(i)
Next
For i = 0 To UBound(array_List)
j = CInt(array_List(i)) Mod 10
aa(j) = True
Next
For i = 0 To UBound(aa)
If aa(i) = True Then
k = k + 1
End If
Next
Label1.Caption = "不相同尾数是" & k & "个"
End If
End Sub
Private Sub Form_load()
'确保ListView控件的view属性为报表视图。
ListView1.View = lvwReport
'添加7列
ListView1.ColumnHeaders.Add 1, "ID", "ID"
ListView1.ColumnHeaders.Add 2, "1Y", "1Y"
ListView1.ColumnHeaders.Add 3, "2Y", "2Y"
ListView1.ColumnHeaders.Add 4, "3Y", "3Y"
ListView1.ColumnHeaders.Add 5, "4Y", "4Y"
ListView1.ColumnHeaders.Add 6, "5Y", "5Y"
ListView1.ColumnHeaders.Add 7, "6Y", "6Y"
Dim itmX As ListItem
Set itmX = ListView1.ListItems.Add(1, "6X", "6X")
itmX.SubItems(ListView1.ColumnHeaders("1Y").SubItemIndex) = "31"
itmX.SubItems(ListView1.ColumnHeaders("2Y").SubItemIndex) = "32"
itmX.SubItems(ListView1.ColumnHeaders("3Y").SubItemIndex) = "33"
Set itmX = ListView1.ListItems.Add(1, "5X", "5X")
itmX.SubItems(ListView1.ColumnHeaders("1Y").SubItemIndex) = "25"
itmX.SubItems(ListView1.ColumnHeaders("2Y").SubItemIndex) = "26"
itmX.SubItems(ListView1.ColumnHeaders("3Y").SubItemIndex) = "27"
itmX.SubItems(ListView1.ColumnHeaders("4Y").SubItemIndex) = "28"
itmX.SubItems(ListView1.ColumnHeaders("5Y").SubItemIndex) = "29"
itmX.SubItems(ListView1.ColumnHeaders("6Y").SubItemIndex) = "30"
Set itmX = ListView1.ListItems.Add(1, "4X", "4X")
itmX.SubItems(ListView1.ColumnHeaders("1Y").SubItemIndex) = "19"
itmX.SubItems(ListView1.ColumnHeaders("2Y").SubItemIndex) = "20"
itmX.SubItems(ListView1.ColumnHeaders("3Y").SubItemIndex) = "21"
itmX.SubItems(ListView1.ColumnHeaders("4Y").SubItemIndex) = "22"
itmX.SubItems(ListView1.ColumnHeaders("5Y").SubItemIndex) = "23"
itmX.SubItems(ListView1.ColumnHeaders("6Y").SubItemIndex) = "24"
Set itmX = ListView1.ListItems.Add(1, "3X", "3X")
itmX.SubItems(ListView1.ColumnHeaders("1Y").SubItemIndex) = "13"
itmX.SubItems(ListView1.ColumnHeaders("2Y").SubItemIndex) = "14"
itmX.SubItems(ListView1.ColumnHeaders("3Y").SubItemIndex) = "15"
itmX.SubItems(ListView1.ColumnHeaders("4Y").SubItemIndex) = "16"
itmX.SubItems(ListView1.ColumnHeaders("5Y").SubItemIndex) = "17"
itmX.SubItems(ListView1.ColumnHeaders("6Y").SubItemIndex) = "18"
Set itmX = ListView1.ListItems.Add(1, "2X", "2X")
itmX.SubItems(ListView1.ColumnHeaders("1Y").SubItemIndex) = "7"
itmX.SubItems(ListView1.ColumnHeaders("2Y").SubItemIndex) = "8"
itmX.SubItems(ListView1.ColumnHeaders("3Y").SubItemIndex) = "9"
itmX.SubItems(ListView1.ColumnHeaders("4Y").SubItemIndex) = "10"
itmX.SubItems(ListView1.ColumnHeaders("5Y").SubItemIndex) = "11"
itmX.SubItems(ListView1.ColumnHeaders("6Y").SubItemIndex) = "12"
Set itmX = ListView1.ListItems.Add(1, "1X", "1X")
itmX.SubItems(ListView1.ColumnHeaders("1Y").SubItemIndex) = "1"
itmX.SubItems(ListView1.ColumnHeaders("2Y").SubItemIndex) = "2"
itmX.SubItems(ListView1.ColumnHeaders("3Y").SubItemIndex) = "3"
itmX.SubItems(ListView1.ColumnHeaders("4Y").SubItemIndex) = "4"
itmX.SubItems(ListView1.ColumnHeaders("5Y").SubItemIndex) = "5"
itmX.SubItems(ListView1.ColumnHeaders("6Y").SubItemIndex) = "6"
End Sub
'选中 某行去掉
Private Sub ListView1_Click()
For i = ListView1.ListItems.count To 1 Step -1
If ListView1.ListItems(i).Checked = True Then
ListView1.ListItems.Remove (i)
End If
Next i
End Sub
'单击某列去掉
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.ColumnHeaders.Remove (ColumnHeader)
End Sub
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer, bFalse As Boolean, col As Integer, strText As String
Dim l As ListItem
bFalse = False
With ListView1
For i = 1 To .ColumnHeaders.count - 1
If x >= .ColumnHeaders(i).Left And x < .ColumnHeaders(i + 1).Left Then
bFalse = True
col = i
End If
Next
If x >= .ColumnHeaders(.ColumnHeaders.count).Left Then
col = .ColumnHeaders.count
bFalse = True
End If
.FullRowSelect = True
If bFalse = True Then
If col = 1 Then
strText = .SelectedItem.Text
Else
strText = .SelectedItem.SubItems(col - 1)
.SelectedItem.SubItems(col - 1) = "false"
End If
'MsgBox strText
'Clipboard.SetText strText
End If
End With
End Sub

追问

非常感谢您的回复，如果可以的话，请看一下我新的提问，如愿相助，不胜感激
http://zhidao.baidu.com/question/537799221?quesup2&oldq=1

追答

我这只是另一种实现方式，ListView上行前有checkbox可以进行行选择，选中之后该行消失，列没有重构，但是有单击操作，单击某列之后，该列消失。ListView中的单个数字也有单击操作，单击后该数字区域变成“false“，然后单击”command2“ 把剩下的数字添加到List当中，list可以多选操作，然后是单击Command3。
你的另一个问题，我就不掺和了。要想自学，先把基础语法看懂，然后学习点面向对象知识。其实VB6.0也可以先类、模块、资源等，只是一些大学只是教学生一些基础的语法，做成了vb6.0好像只是基于消息的 或者是面向过程的语言。
你的这个工程要想做大，可以：1、添加一些算法，最后是结合彩票相关的；
2、添加其他一些功能，比如预测功能，趋势图展示等

Answer 2

01 11 02 22 03 04 （不相同尾数是4个）
01 11 02 03 04 05 （不相同尾数是5个）
这两行是怎么得到的？

Answer 3

HI我，我想试试