神马品牌网简单的葬礼图片唯美:懂VB和24点的快来!(1/5)
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 07:34:55
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>=1 and e<=143 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>=1 and e<=143 then
print #1,a," ",b," ",c," ",d
end if
next
next
next
next
close #1
'然后打开cc.txt用+-*/^(乘方)V(log)算24
'格式:数1 数2 数3 数4 方法/无解
你设计的电脑不会我也不会