求 怎样将123456789 的5个数的组合 一组一组用txt保存下来

dim d1 as integer

dim d2 as integer

dim d3 as integer

dim d4 as integer

dim d5 as integer



open "zh9_5.txt" for output as #1

for d1=1 to 5

for d2=d1+1 to 6

for d3=d2+1 to 7

for d4=d3+1 to 8

for d5=d4+1 to 9

    print #1,cstr(d1)+cstr(d2)+cstr(d3)+cstr(d4)+cstr(d5)

next

next

next

next

next

close #1

补充：VB ,  基础类

上一个：dsoframer控件，可以在当前光标所在位置输入字符串吗？
下一个：vb启动 显示automation错误