查人人中国名人网荷兰风车村描写:懂VB和24点的快来!(5/5)
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 08:50:28
form_load事件
open app.path & "\cc.txt" for output as #1
dim a%,b%,c%,d%,e%
for a=1 to 10
for b=a to 10
for c=b to 10
for d=c to 10
e=e+1
if e>=573 and e<=715 then
print #1,a," ",b," ",c," ",d
end if
next
next
next
next
close #1
'然后打开cc.txt用+-*/^(乘方)V(log)算24
'格式:数1 数2 数3 数4 方法/无解
open app.path & "\cc.txt" for output as #1
dim a%,b%,c%,d%,e%
for a=1 to 10
for b=a to 10
for c=b to 10
for d=c to 10
e=e+1
if e>=573 and e<=715 then
print #1,a," ",b," ",c," ",d
end if
next
next
next
next
close #1
'然后打开cc.txt用+-*/^(乘方)V(log)算24
'格式:数1 数2 数3 数4 方法/无解
??你要问什么？
如果问用vb写24点的程序，我写过一个。
在我的blog上有介绍，见：http://hi.baidu.com/caole