我不知道你这个问题是用来解决什么的(好吧,我看这倒真的是双色球,但明显这是天真的双色球),首先,不是问题难不难的问题,而是这个结果太庞大,而且显得毫无意义。6c33 x 1c6(且按照你写的这么算),结果为1107568 x 720=7,9744,8960(种情况). 此题从数学意义上来说结果已经很明确,你要得到... 20210311
s dim shu as string,zong as string private sub command1_click() if text1.text=""then msgbox"未填抽取号码 exit sub end if if text2.text=""then msgbox"未填抽取号码数 exit sub end if aaa=val(text1.text) bbb=val(text2...
方法一:private sub command1_click() form1.cls dim i1 as integer, i2 as integer, i3 as integer, i4 as integer, i5 as integer dim cl**t as string for i1 = 65 to 70 for i2 = i1 + 1 to 70 ...