vb編程題目與答案-資料下載頁
2025-06-26 04:41本頁面
【正文】 1 To n 39。 在數(shù)組 i+1～n個元素中選最小元素的下標(biāo) If a(j) a(iMin) Then iMin = j Next j t = a(i) 39。 i+1～n個元素中選出的最小元素與第i個元素交換 a(i) = a(iMin) a(iMin) = t Next i For k = 0 To n 39。 查找欲插入數(shù)x在數(shù)組中的位置 If X a(k) Then Exit For Next k ReDim Preserve a(n + 1) 39。 數(shù)組增加一個元素 For i = n To k Step 1 39。 數(shù)組元素后移一位，騰出位置 a(i + 1) = a(i) Next i a(k) = X For i = 0 To n + 1 Print a(i)。 NextEnd SubPrivate Sub Command26_Click()39。26. 編寫一函數(shù)，計算Double類型一維數(shù)組所有元素的平均值。Dim a(), n%, s! a = Array(1, 4, 7, 9, 12, 23, 56) n = UBound(a) s = sum1(a()) MsgBox (sum= amp。 s) MsgBox (avg= amp。 s / n) End SubPrivate Sub Command27_Click()39。27. 用函數(shù)過程求表達(dá)式1+1/2+1/3+1/4+…+1/n的和.n = InputBox(INPUT)s = sum2(n) MsgBox (SUM2= amp。 s)End SubPrivate Sub Command28_Click()39。28. 編一子過程ProcMin,求一維數(shù)組a中的最小值，子過程的形參自己確定Dim a(), n%, min% a = Array(1, 4, 7, 9, 12, 23, 56) n = UBound(a) Call procmin(a(), min) MsgBox (min= amp。 min) End Sub39。28. 編一子過程ProcMin,求一維數(shù)組a中的最小值，子過程的形參自己確定Private Sub Command1_Click()Dim a(), n%, min% a = Array(1, 4, 7, 9, 12, 23, 56) n = UBound(a) Call procmin(a(), min) MsgBox (min= amp。 min) End SubPrivate Sub Command29_Click()39。29. 編一個函數(shù)，求一維數(shù)組a中的最大值，函數(shù)的形參自己確定。Dim a(), n%, s! a = Array(1, 4, 7, 9, 12, 23, 56) n = UBound(a) s = max(a()) MsgBox (max= amp。 s) End SubPrivate Sub Command30_Click()39。30. 編寫一個過程計算并輸出區(qū)間[100，1000]內(nèi)所有素數(shù)的和(要求判斷素數(shù)使用過程（函數(shù)或子過程）來實現(xiàn)。調(diào)用該過程。(提示：只能被1和自身整除的自然數(shù)稱為素數(shù)。)Dim i%, sum!, f%sum = 0For i = 100 To 1000Call procs(i, f)If f = 1 Thensum = sum + iEnd IfNext iMsgBox (sum= amp。 sum)End Sub1. 若不給自己設(shè)限，則人生中就沒有限制你發(fā)揮的藩籬。2. 若不是心寬似海，哪有人生風(fēng)平浪靜。在紛雜的塵世里，為自己留下一片純靜的心靈空間，不管是潮起潮落，也不管是陰晴圓缺，你都可以免去浮躁，義無反顧，勇往直前，輕松自如地走好人生路上的每一步3. 花一些時間，總會看清一些事。用一些事情，總會看清一些人。有時候覺得自己像個神經(jīng)病。既糾結(jié)了自己，又打擾了別人。努力過后，才知道許多事情，堅持堅持，就過來了。4. 歲月是無情的，假如你丟給它的是一片空白，它還給你的也是一片空白。歲月是有情的，假如你奉獻(xiàn)給她的是一些色彩，它奉獻(xiàn)給你的也是一些色彩。你必須努力，當(dāng)有一天驀然回首時，你的回憶里才會多一些色彩斑斕，少一些蒼白無力。只有你自己才能把歲月描畫成一幅難以忘懷的人生畫卷。
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號-1