从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个 用VB程序怎么编

问题描述:

从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个 用VB程序怎么编
或者任取0-9中的六个数字中再任取3个组成三位数,这种情况怎么编?

Private Sub Form_Click()Dim i As Long '百位Dim j As Long '十位Dim k As Long '个位Dim s As Long '用来保存生成的三位数Dim m As Long '统计能被6整除的三位数的个数Dim n As String '能被6整除的三位数是For i ...