1 to 100(1to10000000)

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

英文是：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 如果本题有什么不明白可以追问，如果满意记得采纳 如果有其他问题请采纳本题后另发点击向我求助，答题不易，请谅解，谢谢。祝学习进步！

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

1、打开VB6.0软件，新建一个标准exe工程； 2、设计界面上添加一个Command控件；3、双击Command1控件，进入代码编辑，输入如下代码：Private Sub Command1_Click()Dim sum As Integersum = 0For i = 1 To 100sum = sum + iNext iPrint sum;End Sub 4、点击运行程序，单击按钮，可以看到1到100的和：