1 to 100(1 to 1000000)

one twothreefourfivesixseveneightnineteneleventwelvethirteenfourteenfifteensixteenseventeeneighteennineteentwentytwenty-onetwenty-twotwenty-threetwenty-fourtwenty-fivetwenty-sixtwenty-seventwenty-eighttwenty-ninethirtythirty-onethirty-twothirty-threethirty-fourthirty-fivethirty-sixthirty-seventhirty-eightthirty-ninefortyforty-oneforty-twoforty-threeforty-fourforty-fiveforty-sixforty-sevenforty-eightforty-ninefiftyfifty-onefifty-twofifty-threefifty-fourfifty-fivefifty-sixfifty-sevenfifty-eightfifty-ninesixtysixty-onesixty-twosixty-threesixty-foursixty-fivesixty-sixsixty-sevensixty-eightsixty-nineseventyseventy-oneseventy-twoseventy-threeseventy-fourseventy-fiveseventy-sixseventy-sevenseventy-eightseventy-nineeightyeighty-oneeighty-twoeighty-threeeighty-foureighty-fiveeighty-sixeighty-seveneighty-eighteighty-nineninetyninety-oneninety-twoninety-threeninety-fourninety-fiveninety-sixninety-sevenninety-eightninety-nine one/a hundred
frome 1 to 100 sequentially

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的和：

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

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

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