vb加油么哒新试题常考题型

1、Next j Next iFor i = 1 To n1.随机数排序1选择法Pra(i)Next i End Sub2.最大公约数Private Sub Form_Click() x = InputBox(输入x)y = InputBox(输入y)Dor = x Mod yIf r = 0 Then Exit Do x = yy = rLoop静态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最大公约数为：; xEnd SubPra(i)Next iEnd Sub3.求数组元素的和，最大值，最小值Private Sub动态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(请输入数字个数) 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简单Private Sub Form_Load()Dim f1 As Long, f2 As Long, f3 As Long, n6.编写程序

5、：编程计算 123456n 的值，n 由用户Aseger, sum As Long输入。Private Subn = InputBox(请输入 n 的值) sum = 0f1 = 1f2 = 1d1_Click()n = Val(InputBox(输入计算到第几项:, , 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循 环 语 句 计 算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计算了; i; 项的和是; eEnd Sub11.用exit for 判断任意一个在求其和Private Sub For

7、m_Load()1 到 100 之间的数是否是素数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三位数是 & 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 文件里所有数从大到小排序输出。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