输出0-9所有数字组合问题
有四个textbox,让他们四个里面组合所有的0-9数字,并且输出到txt文本文件。可以输出例如这样的数字:1234,0000,2589等等的所有组合。 --------------------编程问答-------------------- 你自己正好练手,别问大家了 --------------------编程问答--------------------
--------------------编程问答-------------------- 谢谢楼上的,怎么不全呀?比如 9999的就没有
Option Explicit
Private Sub Command1_Click()
Dim intA As Integer
Dim intB As Integer
Dim intC As Integer
Dim intD As Integer
Dim strP As String
Open "C:\1.txt" For Output As #1
For intA = 0 To 9
For intB = 0 To 9
For intC = 0 To 9
For intD = 0 To 9
strP = CStr(intA) & CStr(intB) & CStr(intC) & CStr(intD)
Write #1, strP
Debug.Print CStr(intA) & CStr(intB) & CStr(intC) & CStr(intD)
Next intD
Next intC
Next intB
Next intA
End Sub
--------------------编程问答-------------------- 你提问的艺术要加强了,你那提问,谁真正懂你意思? --------------------编程问答-------------------- 就是啊,一定要给现成的
--------------------编程问答-------------------- 要齐,你直接从0000整到9999不就完了?关4个textbox什么事? --------------------编程问答-------------------- 不是啊。我编一个算命的程序。需要用数字。输出的1.txt里面的数字不全。
"9978"
"9979"
"9980"
"9981"
"9982"
"9983"
这不我电脑里面C盘 1.txt到这里就没有了 前面的输出也不全有很多组合没有 --------------------编程问答-------------------- 你编的还是Veron_04编的
--------------------编程问答--------------------
For i = 0 To 9999--------------------编程问答-------------------- Veron_04 编的。我就郁闷了。输出的有文本文件里咋没? --------------------编程问答--------------------
Debug.Print Format(i,"0000")
next i
你把程序关掉,再看1.txt,不关只能到9983,关掉就能显示到9999 --------------------编程问答--------------------
Option Explicit
Private Sub Command1_Click()
Dim intA As Integer
Dim intB As Integer
Dim intC As Integer
Dim intD As Integer
Dim strP As String
Open "C:\1.txt" For Output As #1
For intA = 0 To 9
For intB = 0 To 9
For intC = 0 To 9
For intD = 0 To 9
strP = CStr(intA) & CStr(intB) & CStr(intC) & CStr(intD)
Write #1, strP
Debug.Print CStr(intA) & CStr(intB) & CStr(intC) & CStr(intD)
Next intD
Next intC
Next intB
Next intA
close #1
End Sub
最后加个close #1就行了。 --------------------编程问答-------------------- 其实是想实现这样的功能。
可是总是输出不出来或者是达不到满意的效果
text1到text7前七位可以手动输入号码
text8到text11组合0000-9999
text12是对十一位手机号码求和。
text14是后四位除以80
text15是取除以80的整数部分
text16是小数部分乘80
如果text12=37并且text16=48
则输出满足条件的所有手机号到文本文件
Private Sub Command1_Click()
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, b1, b2, b3, b4 As Integer
Open "C:\1.txt" For Output As #1
For a8 = 0 To 9
For a9 = 0 To 9
For a10 = 0 To 9
For a11 = 0 To 9
Next a11
Next a10
Next a9
Next a8
Text1 = a1
Text2 = a2
Text3 = a3
Text4 = a4
Text5 = a5
Text6 = a6
Text7 = a7
Text8 = a8
Text9 = a9
Text10 = a10
Text11 = a11
Text12 = Val(Text1 + Text2 + Text3 + Text4 + Text5 + Text6 + Text7 + Text8 + Text9 + Text10 + Text11)
Text13 = Val(Text8 + Text9 + Text10 + Text11)
Text14 = Text13 / 80
Text15 = Text13 \ 80
Text16 = Int((Text14 - Text15) * 80)
b1 = CStr(a1) & CStr(a2) & CStr(a3) & CStr(a4) & CStr(a5) & CStr(a6) & CStr(a7) & CStr(a8) & CStr(a9) & CStr(a10) & CStr(a11)
If Text16 = "37" And Text12 = "37" Then
Write #1, b1
Else
End If
End Sub
--------------------编程问答-------------------- 看这表达能力……
结帖吧你。
另开一贴询问 --------------------编程问答-------------------- 我也不知道咋回事帖出来怎么成这样的了。
小弟刚学,不是太懂。怎么这么难啊 --------------------编程问答--------------------
补充:VB , 基础类