20200420使用VB6.0求12选3的全组合数 最近需要求组合数（买双色球生成号码用^_） 以前在大学专门学习过VB6.0，今后会迁移到VC6.0。 预计会在2020.5.1强化一下MFC，就可以了！ Option Explicit Private Sub Command1_Click() End Sub Private Sub Command2_Click() Dim h1%, h2%, h3%, h4%, h5%, h6% Dim h6sum%