这是我鼓捣的半成品，看看哪儿不对

[ 本帖最后由 益西翁登 于 2013-2-11 06:09 编辑 ]

曙光电子老师您好！源码打包发上来了，请老师指正，谢谢！

你这个程序没那么简单,就你这个半成品分析:
Sub Command1_Click()
    Text1 = "┌──┬──┬──┐" & vbCrLf & "│3  4│8  8│1  6│" & vbCrLf & "│ 七 │ 三 │ 五 │" & vbCrLf & "├──┼──┼──┤" _
            & vbCrLf & "│2  5│4  3│6  1│" & vbCrLf & "│ 六 │ 八 │ 一 │" & vbCrLf & "├──┼──┼──┤" & vbCrLf & _
             "│7  9│9  7│5  2│" & vbCrLf & "│ 二 │ 四 │ 九 │" & vbCrLf & "└──┴──┴──┘"
End Sub
从上面代码来看已定死了输出,与任何其它无关联，所以无变化。想来这个代码的组合应有很多种，本人不懂风水知识,，所以只能给你一启示看有用否？
比如：第一个下拉菜单的选项发生变化，比方说是学校的班级，班级变了，第二个下拉选项是学生，学生的姓名也应该随之发生相应变化，那么就要建一数据库，假定班级和学生的数据从ACCESS数据库中调取，数据库引擎用ADO：

Private Sub Combo1_Click()
    Dim conn As Object, rs As Object
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb数据库文件路径
   Set rs=CreateObject("adodb.recordset")
    rs.open "select * from 学生表 where 班级='" & Combo1.Text & "'",conn,1,1
    Combo2.Clear
    Do Until rs.Eof
        Combo2.AddItem rs("学生姓名") & ""
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
    Combo2.ListIndex = 0
End Sub

与一年前情况相同，无满意结果

没看见你的源码