1 to 100(1 to 100 French)

for m=1 to 100 for n=1 to 100for b=1 to 100 if m+n+b

Private Sub Command1_Click() Dim A(1 To 100) As IntegerFor I = 1 To 100A(I) = INextRandomizeDim Deep As IntegerDeep = 500'随机的深度For I = 1 To DeepM = Int(Rnd * 100) + 1N = Int(Rnd * 100) + 1If M <> N ThenT = A(M):A(M) = A(N):A(N) = TEnd IfNextFor I = 1 To 100s = s & A(I) & IIf(I Mod 10 = 0, vbCrLf, String(3 - Len(CStr(A(I))), " "))NextText1.Text = s End Sub
'这是一个函数,随机生成iCount个min到max中不重复的数放到数组k()里 Private Sub iRnd(iMin As Long, iMax As Long, iCount As Long, k() As Long)ReDim k(iCount - 1) As LongFor i = 0 To iCount - 1DoEventsRandomizek(i) = Int(Rnd * (iMax - iMin + 1)) + iMinFor j = 0 To i - 1DoEventsIf k(i) = k(j) Then i = i - 1: Exit ForNextNext End Sub
Private Sub Form_Click() Dim a(99) As IntegerFor i = 0 To 99a(i) = i + 1Next iRandomizeFor i = 0 To 99x = Int(Rnd * 100)y = Int(Rnd * 100)t = a(x): a(x) = a(y): a(y) = tNext iFor i = 0 To 99If i Mod 10 = 0 Then PrintPrint Format(a(i), "@@@@");Next i End Sub
Dim A(1 To 100) As Integer, i As Integer, j As Integer, k As Integer, B(1 To 100) As Integer For i = 1 To 100A(i) = iNext iRandomizeFor i = 1 To 100j = Int(Rnd() * (101 - i) + 1)B(i) = A(j)For k = j To (101 - i)If k <> 100 Then A(k) = A(k + 1)Next kNext iFor i = 1 To 100Debug.Print B(i);If i Mod 10 = 0 Then Debug.Print Next i

Dim xx(1 To 100) As Integer For i = 1 To 100xx(i) = 200 + int(100 * Rnd) Next
Dim xx(1 To 100) As Integer For i = 1 To 100xx(i) = 201 + 100 * Rnd Next

1one 2 two 3 three 4 four 5 five 6 six 7 seven 8 eight 9 nine 10 ten 11 eleven 12 twelve 13 thirteen 14 fourteen 15 fifteen 16 sixteen 17 seventeen 18 eighteen 19 ninetee20 twenty 21 twenty-one 22 twenty-two 23 twenty-three 24 twenty-four 25 twenty-five 26 twenty-six 27 twenty-seven sixty 28 twenty-eight 29 twenty-nine30 thirty 31thirty-one 32 thirty-two 33 thirty-three 34 thirty-four 35 thirty-five 36 thirty-six 37 thirty-seven 38 thirty-eight 39 thirty-nine40 forty 41 fourty-one 42 fourty-two 43 fourty-three 44 fourty-four 45 fourty-five 46 fourty-six 47 fourty-seven 48 fourty-eight 49 fourty-nine50 fifty 51 fifty-one 52 fifty-two 53 fifty-three 54 fifty-four 55 fifty-five 56 fifity-six 57 fifity-seven 58 fifty-eight 59 fifity-nine60 sixty 61 sixty-one 62 sixty-two 63 sixty-three 64 sixty-four 65 sixty-five 66 sixty-six 67 sixty-seven 68 sixty-eight 69 sixty-nine70 seventy 71 seventy-one 72 seventy-two 73 seventy-three 74 seventy-four 75 seventy-five 76 seventy-six 77 seventy-seven 78 seventy-eight 79 seventy-nine80 eighty 81 eighty-one 82 eighty-two 83 eighty-three 84 eighty-four 85 eighty-five 86 eighty-six 87 eighty-seven 88 eighty-eight 89 eighty-nine90 ninety 91 ninety-one 92 ninety-two 93 ninety-three 94 ninety-four 95 ninety-five 96 ninety-six 97 ninety-seven 98 ninety-eight 99 ninety-nine 100 a/one hundred
1one 2 two 3 three 4 four 5 five 6 six 7 seven 8 eight 9 nine 10 ten 11 eleven 12 twelve 13 thirteen 14 fourteen 15 fifteen 16 sixteen 17 seventeen 18 eighteen 19 ninetee20 twenty 21 twenty-one 22 twenty-two 23 twenty-three 24 twenty-four 25 twenty-five 26 twenty-six 27 twenty-seven sixty 28 twenty-eight 29 twenty-nine30 thirty 31thirty-one 32 thirty-two 33 thirty-three 34 thirty-four 35 thirty-five 36 thirty-six 37 thirty-seven 38 thirty-eight 39 thirty-nine40 forty 41 fourty-one 42 fourty-two 43 fourty-three 44 fourty-four 45 fourty-five 46 fourty-six 47 fourty-seven 48 fourty-eight 49 fourty-nine50 fifty 51 fifty-one 52 fifty-two 53 fifty-three 54 fifty-four 55 fifty-five 56 fifity-six 57 fifity-seven 58 fifty-eight 59 fifity-nine60 sixty 61 sixty-one 62 sixty-two 63 sixty-three 64 sixty-four 65 sixty-five 66 sixty-six 67 sixty-seven 68 sixty-eight 69 sixty-nine70 seventy 71 seventy-one 72 seventy-two 73 seventy-three 74 seventy-four 75 seventy-five 76 seventy-six 77 seventy-seven 78 seventy-eight 79 seventy-nine80 eighty 81 eighty-one 82 eighty-two 83 eighty-three 84 eighty-four 85 eighty-five 86 eighty-six 87 eighty-seven 88 eighty-eight 89 eighty-nine90 ninety 91 ninety-one 92 ninety-two 93 ninety-three 94 ninety-four 95 ninety-five 96 ninety-six 97 ninety-seven 98 ninety-eight 99 ninety-nine 100 a/one hundred
“1到100”英文表示是: from 1 to 100
据我所知，这串数字的英文可以是One to one hundred，或者就是one,two,three… one hundred.

英文是：All numbers from 1 to 100重点词汇：numbers英［＇nʌmbəz］释义：n.［数］数字（number的复数）；算术n.（Numbers）Numbers表格短语law of large numbers［数］大数定律；大数法则；大数定理词语使用变化：numbern.（名词）1、number的基本意思是“数字”，引申可作“编号，电话号码，房间号码”解，是可数名词。常缩写为No.或no.。2、number也可作“数目，数量”解，其后常与介词of连用，引申可表示语法上名词或动词的“数”或“数词”。3、number的单数形式也可指“一群人，一帮人”。
一到十：One, two, three, four, five, six, seven, eight, nine, ten 十一到二十：eleven, twelve, thirteen, fourteen, fifteen, sixteen seventeen eighteen nineteen twenty二十一到三十：twenty-one twenty-two twenty-three twenty-four twenty-five twenty-six twenty-seven twenty-eight twenty-nine thirty三十一到四十：thirty-one thirty-two thirty-three thirty-four thirty-five thirty-six thirty-seven thirty-eight thirty-nine forty四十一到五十：forty-one forty-two forty-three forty-four forty-five forty-six forty-seven forty-eight forty-nine fifty五十一到六十：fifty-one fifty-two fifty-three fifty-four fifty-five fifty-six fifty-seven fifty-eight fifty-nine sixty六十一到七十：sixty-one sixty-two sixty-three sixty-four sixty-five sixty-six sixty-seven sixty-eight sixty-nine seventy七十一到八十：seventy-one seventy-two seventy-three seventy-four seventy-five seventy-six seventy-seven seventy-eight seventy-nine eighty八十一到九十：eighty-one eighty-two eighty-three eighty-four eighty-five eighty-six eighty-seven eighty-eight eighty-nine ninety九十一到一百：ninety-one ninety-two ninety-three ninety-four ninety-five ninety-six ninety-seven ninety-eight ninety-nine one hundred 如果本题有什么不明白可以追问，如果满意记得采纳 如果有其他问题请采纳本题后另发点击向我求助，答题不易，请谅解，谢谢。祝学习进步！