عیب یابی دستور

[bahar11]

عیب یابی دستور
با درود
دو فایل با نامها و محتویات زیر داریم
1-t1.txt که درون ان سه خط زیر است
a
b
c
2-t2.txt که درون ان سه خط زیر است
d
e
f
حالا میخواهم در فایل t3.text تمام حالات زیر را داشته باشم با دستور for
ab-ac -ad-ba-bb-bcو...که کلا 27 خط می شود.
ولی دستورات زیر این کار را انجام نمیدهند.لطفا راه حل صحیح را بگویید.ممنون
s = 0
Open "t3.txt" For Output As #3
Open "t1.txt" For Input As #1
Open "t2.txt" For Input As #2
For i = m To n
Line Input #1, m
Line Input #2, n


s = s + 1

Write #3, i
Next


Close 3
Text1.Text = s

 

[the_king]

عیب یابی دستور
با درود
دو فایل با نامها و محتویات زیر داریم
1-t1.txt که درون ان سه خط زیر است
a
b
c
2-t2.txt که درون ان سه خط زیر است
d
e
f
حالا میخواهم در فایل t3.text تمام حالات زیر را داشته باشم با دستور for
ab-ac -ad-ba-bb-bcو...که کلا 27 خط می شود.
ولی دستورات زیر این کار را انجام نمیدهند.لطفا راه حل صحیح را بگویید.ممنون
s = 0
Open "t3.txt" For Output As #3
Open "t1.txt" For Input As #1
Open "t2.txt" For Input As #2
For i = m To n
Line Input #1, m
Line Input #2, n


s = s + 1

Write #3, i
Next


Close 3
Text1.Text = s

چرا باید 27 خط بشه؟

انتخاب حرف اول از مجموعه t1.txt و حرف دوم از مجموعه t2.txt شامل 9 حالت میشه.
انتخاب حرف اول و دوم از یکی از دو مجموعه t1.txt یا t2.txt شامل 36 حالت میشه.
انتخاب حرف اول و دوم از یکی از دو مجموعه t1.txt یا t2.txt بدون تکراری بودن دو حرف شامل 30 حالت میشه.
انتخاب حرف اول از یکی از دو مجموعه t1.txt و t2.txt و انتخاب حرف دوم از آن یکی مجموعه شامل 18 حالت میشه.

لطفا مجموعه کامل حالات مورد نظرتان را بنویسید تا صورت سوال بهتر مشخص شود.

 

[bahar11]

با سپاس
شما درست میگویید.9 حالت درست است.لطفا بگویید با چه دستوری این کار را بکنم.
ممنون

 

[the_king]

با سپاس
شما درست میگویید.9 حالت درست است.لطفا بگویید با چه دستوری این کار را بکنم.
ممنون

    Dim S As Long, i As Long, j As Long
    Dim m(1 To 3) As String, n(1 To 3) As String
    S = 0
    Open "t1.txt" For Input As #1
    Open "t2.txt" For Input As #2
    Open "t3.txt" For Output As #3
    For i = 1 To 3
        Line Input #1, m(i)
        Line Input #2, n(i)
    Next
    Close #1
    Close #2
    For i = 1 To 3
        For j = 1 To 3
            S = S + 1
            Print #3, m(i) & n(j)
        Next
    Next
    Close #3
    Text1.Text = S