vb加油么噠新試題?？碱}型

1、Next j Next iFor i = 1 To n1.隨機(jī)數(shù)排序1選擇法Pra(i)Next i End Sub2.最大公約數(shù)Private Sub Form_Click() x = InputBox(輸入x)y = InputBox(輸入y)Dor = x Mod yIf r = 0 Then Exit Do x = yy = rLoop靜態(tài)Private SubDim a(10) As For i = 1 To 10d1_Click()eger, t%a(i) =(Rnd * 101)Pra(i)Next i PrFor i = 1 To 9For j = i + 1 To 10If

2、a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t Next jNext iFor i = 1 To 10Pr最大公約數(shù)為：; xEnd SubPra(i)Next iEnd Sub3.求數(shù)組元素的和，最大值，最小值Private Sub動(dòng)態(tài)Private Sub Dim a() As不 再是 10，而是 nd1_Click() eger, t%d1_Click()Dim e(10) Aseger, sum%, max%, min%For i = 1 To 10n = InputBox(請(qǐng)輸入數(shù)字個(gè)數(shù)) ReDim a(1 To n)For i = 1

3、 To ne(i) =(Rnd * 90) + 10Pre(i):Next i Prsum = 0 max = e(i) min = e(i)For i = 2 To 10 sum = sum + e(i)If e(i) max Then max = e(i)a(i) =(Rnd * 101)Pra(i)Next i PrFor i = 1 To n - 1 For j = i + 1 To nIf a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = tIf e(i) 1) ReDim Fib(n)Fib(1) = 1Fib(2) = 1For i = 3

4、 To nFib(i) = Fib(i - 1) + Fib(i - 2) Next iFor i = 1 To nDim a(9900), j, k Aseger k = 0For j = 100 To 10000If j Mod 3 = 0 and j Mod 7 = 0 Then a(k) = jk = k + 1 End IfNext jPrFib(i)PrkIf i Mod 5 = 0 Then Pr Next iEnd SubEnd Sub簡(jiǎn)單Private Sub Form_Load()Dim f1 As Long, f2 As Long, f3 As Long, n6.編寫程序

5、：編程計(jì)算 123456n 的值，n 由用戶Aseger, sum As Long輸入。Private Subn = InputBox(請(qǐng)輸入 n 的值) sum = 0f1 = 1f2 = 1d1_Click()n = Val(InputBox(輸入計(jì)算到第幾項(xiàng):, , 0)For i = 1 To ns = s + (-1) (i + 1) * i NextPrn, sEnd SubPrf1; f2For i = 3 To n f3 = f1 + f2 f1 = f2f2 = f3。9.用 do while。loop求1+2+3+。Private Sub Dim x%, sum% n =

6、Val(Text1)i = 1sum = 0Do While i 0.00001 e = e + ti = i + 1 n = n * i t = 1 / nLoop10. 用 for循 環(huán) 語(yǔ) 句 計(jì) 算1+3+5+。+n 的值Private SubDim i%, n%, sum% n = Val(Text1)sum = 0For i = 1 To n Step 2 sum = sum + iNext id1_Click()PrsumText2 = sumEnd SubPr計(jì)算了; i; 項(xiàng)的和是; eEnd Sub11.用exit for 判斷任意一個(gè)在求其和Private Sub For

7、m_Load()1 到 100 之間的數(shù)是否是素?cái)?shù)Private Sub Form_Click() Dim i%, n%Dim a(1 To 10) Aseger, i%, n%Text1 =(Rnd * 100)Open d:2.txt For Input As #1 Do While Not EOF(1)For i = 1 To 10Input #1, a(i)n = Val(Text1)For i = 2 To (n - 1) If n Mod i = 0 Then Exit ForEnd If Next iIf i = 0.0001 pi = pi + tn = n + 2 s = -

8、st = s / n Wendpi = pi * 4s = Format(a)c = Right(s, 1) & Mid(s, 2, 1) &Left(s, 1)Pr Pr三位數(shù)是 & aa & 的逆序是 & cEnd SubPrpiEnd sub方法二=41-1/3+1/5-1/7+.+(-1)n-1/(2n-1)Private Sub Form_Click()方法 2.Private Sub Dim y RandomizeX =(Rnd * 900 + 100)d1_Click()PrXy= strreverse(x)prEnd Suby17.txt 文件里所有數(shù)從大到小排序輸出。Private Sub Form_Load()Dim a(1 To 10) Aseger, i%, n%Open d:2.txt For Input As #1 Do While Not EOF(1)For i = 1 To 10Input #1, a(i)Pr Next Loopa(i)For i = 1 To