【正文】 答案3)=======If k Mod 5 = 0 Then Print第51題 （） 題號(hào):48239。 End If Next iEnd Sub答案：=======(答案1)=======For i = 2 To n 1=======(答案2)=======Print Tab( (k Mod 5) * 8 )。Option ExplicitPrivate Function prime(ByVal n As Integer) Dim i As Integer prime = 1 If n = 1 Then prime = 0 For i = 1 To n 1 If n Mod i = 0 Then prime = 0 Next iEnd FunctionPrivate Sub Form_Click() Dim i As Integer, k As Integer k = 0 For i = 1 To 100 If prime(i) = 1 Then Print Tab((k Mod 5) * 8)。 按每行5個(gè)數(shù)據(jù)輸出。39。39。 的和是。Option ExplicitPrivate Sub Form_Click()ClsDim i As IntegerDim s As Singlei = 1s = 1Do i = i + 2s = s + iLoop s 3000Print 從1 到:。 止，并輸入結(jié)果。39。39。Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor n = 101 To 300 Step 2 k = Int(Sqr(n)) i = 2 swit = 1 While swit = 0 If n Mod i = 0 Then swit = 1 Else i = i 1 End If WendIf swit = 0 Then Print n。39。39。　　　該文件內(nèi)所有記錄， 并同時(shí)顯示其總分和平均分39。題目：下面的程序段用于實(shí)現(xiàn)以下功能：建立一順序文39?！境绦蚋腻e(cuò)】39。=======(答案3)=======if i mod 5=0 then第42題 （） 題號(hào):11739。39。題目：輸出40以內(nèi)能夠被3整除的數(shù)，要求輸出結(jié)果為539?！境绦蚋腻e(cuò)】39。NextEnd Sub答案：=======(答案1)=======For i = 1 To 10=======(答案2)=======If a(j) a( j + 1 ) Then=========或=========If a( j + 1 ) a (j) Then=======(答案3)=======Next j, i第40題 （） 題號(hào):14139。Option ExplicitOption Base 1Private Sub Form_Click()ClsDim a(10) As IntegerDim i As Integer, j As Integer, temp As IntegerFor i = 0 To 10If i Mod 2 = 0 Then a(i) = i Else a(i) = iPrint a(i)。39。39。39。39。39。Option ExplicitPrivate Sub Command1_Click() Dim Count As Integer, Flag As Boolean Dim t1 As Integer, t2 As Integer Open For Input As 1 Count = 0 For t1 = 3 To 100 Flag = True For t2 = 2 To Int(Sqr(t1)) If t1 Mod t2 = 0 Then Flag = False Next t2 If Flag = False Then Count = Count + 1 Write 1, t2 End If Next t1 素?cái)?shù)個(gè)數(shù)。 素?cái)?shù)的個(gè)數(shù)顯示在窗體Form1上。題目:本程序求3~100之間的所有素?cái)?shù)（質(zhì)數(shù)）并統(tǒng)計(jì)個(gè)數(shù)；39?！境绦蚋腻e(cuò)】39。 sEnd Sub答案：=======(答案1)=======If a + b c Or b + c a Or a + c b Then=======(答案2)=======t = (a + b + c) / 2=========或=========t = (a + b + c ) / 2=======(答案3)=======s = Sqr(t * (t a) * (t b) * (t c))=========或=========s = Sqr( t * (t a) * (t b) * (t c) )第32題 （） 題號(hào):47539。39。要求39。39。39。 例如，當(dāng)a=3時(shí),s=3+33+333 (共累加3項(xiàng))。其中，a是一個(gè)09的數(shù)字，總共累加a項(xiàng)。題目:下面函數(shù)的功能是：求變量s(s=a+aa+aaa+aaaa+……)39。Next mPrintFor m = 1 To 9 t = m For n = 2 To 10 If a(t) a(n) Then n = t Next n If t = m Then w = a(m) a(m) = a(t) a(t) = w End IfNext mFor m = 1 To 10 Print a(m)Next mEnd Sub答案：=======(答案1)=======For n = m + 1 To 10=======(答案2)=======If a(t) a(n) Then t = n=========或=========If a(n) a(t) Then t = n=======(答案3)=======If t m Then=========或=========If not t = m Then=========或=========If not m = t Then第30題 （） 題號(hào):48039。題目：下面程序?qū)?0個(gè)整數(shù)從大到小排序Option ExplicitPrivate Sub Form_Click()Dim t%, m%, n%, w%Dim a(10) As IntegerFor m = 1 To 10 a(m) = Int(10 + Rnd() * 90) Print a(m)。Option ExplicitPrivate Sub Form_Load() Dim a!, b!, c!, root1, root2, work As Double a = Val(InputBox( 請(qǐng)輸入系數(shù)a的值)) b = Val(InputBox( 請(qǐng)輸入系數(shù)b的值)) c = Val(InputBox( 請(qǐng)輸入系數(shù)c的值)) work = b * 2 4 * a * c If work = 0 And a 0 Then root1 = (Sqr(work)) / (2 * a) root2 = (Sqr(work)) / (2 * a) 有二個(gè)實(shí)根 + Str$(root1) + , + Str$(root2) Else 無(wú)實(shí)根! End IfEnd Sub答案：=======(答案1)=======work = b ^ 2 4 * a * c=========或=========work = b *b 4 * a * c=======(答案2)=======root1 = (b + Sqr(work)) / (2 * a)=========或=========root1 = ( Sqr(work) b ) / (2 * a)=========或=========root1 = (b + Sqr(work)) / ( a*2)=========或=========root1 = ( Sqr(work) b ) / ( a*2)=======(答案3)=======root2 = (b Sqr(work)) / (2 * a)=========或=========root2 = ( Sqr(work) b) / (2 * a)=========或=========root2 = (b Sqr(work)) / ( a*2)=========或=========root2 = ( Sqr(work) b) / (a*2)第28題 （） 題號(hào):13339?！境绦蚋腻e(cuò)】39。Option ExplicitPrivate Sub Form_Click()Randomize TimerDim i As Integer, ma As Integeri = 1Do Until i 20 ma = Rnd() * 100 \ 1 If ma 50 Then Print ma。題目：隨機(jī)產(chǎn)生并輸出100以內(nèi)大于50的20個(gè)整數(shù)，輸39。 Next iEnd Sub答案：=======(答案1)=======ReDim A(N)=======(答案2)=======A(i) = A(i + 1)=========或=========A(i) = A(1 + i)=======(答案3)=======N = N 1第20題 （） 題號(hào):13939。 個(gè)元素) Next i Print 刪除某元素前的數(shù)組 For i = 1 To N Print A(i)。Option ExplicitPrivate Sub Form_Click() Dim A() As Integer, N As Integer, Flag As Integer Dim i As Integer, X As Integer, P As Integer Flag = 0 N = InputBox(輸入元素個(gè)數(shù)) Dim A(N) For i = 1 To N A(i) = InputBox(輸入數(shù)組的第 amp。 中刪除，使數(shù)組還繼續(xù)保持有序而且其余元素按照下39。【程序改錯(cuò)】39。