There are ten different characters, how two characters that make up a group, such as: (just a little, tourism, the heavens and the earth... ) output all characters of all as a result, the output to a text file, a line of the combination of a set of characters, note: all combination is 10 x squared, which is 10 * 10=100 group

Which eldest brother know how to do?

CodePudding user response:

Add that the 10 Chinese characters from a text file to import

CodePudding user response:

Two for loop not line?

CodePudding user response:

 
Dim I As an Integer, j As Integer 
Dim strSource As String 

StrSource="up and down the 123456 world" 
Open c: \ "test1. TXT" For the Output As the # 1 
For I=1 To 9 
Print # 1, Mid (strSource, I, 1) & amp; Mid (strSource, I, 1) 
For j=I + 1 To 10 
Print # 1, Mid (strSource, I, 1) & amp; Mid (strSource, j, 1) 
Print # 1, Mid (strSource, j., 1) & amp; Mid (strSource, I, 1) 
Next j 
Next I 
Print # 1, Mid (strSource, 10, 1) & amp; Mid (strSource, 10, 1) 
Close # 1