vb程序的設(shè)計(jì)編程考試題與答案-資料下載頁
2025-06-26 04:26本頁面
【正文】 und(a)x = Val(InputBox(請輸入所要插入數(shù)))For k = 0 To nIf x a(k) Then Exit ForNext kReDim Preserve a(n + 1)For i = n To k Step 1a(i + 1) = a(i)Next ia(k) = xFor i = 0 To n + 1Print a(i)。Next iEnd Sub26. 編寫一函數(shù)，計(jì)算Double類型一維數(shù)組所有元素的平均值。27. 編一子過程ProcMin,求一維數(shù)組a中的最小值，子過程的形參自己確定Private Sub mand1_Click()Dim a(1 To 10), min, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i)。Next iCall ProcMin(a(), min)PrintPrint min =。 minEnd Sub Sub ProcMin(b(), min)Dim i%min = b(LBound(b))For i = LBound(b) + 1 To UBound(b)If b(i) min Then min = b(i)Next iEnd Sub28. 編一子過程ProcMin,求一維數(shù)組a中的最小值，子過程的形參自己確定。Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i)。Next iCall ProcMin(a(), amin)PrintPrint amin =。 aminEnd SubSub ProcMin(b(), min)Dim i%min = b(LBound(b))For i = LBound(b) + 1 To UBound(b)If b(i) min Then min = b(i)Next iEnd Sub29. 編一個函數(shù)，求一維數(shù)組a中的最大值，函數(shù)的形參自己確定。Private Sub Form_Click()Dim a(1 To 10), amax, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i)。Next iCall ProcMax(a(), amax)PrintPrint amax =。 amaxEnd SubSub ProcMax(b(), max)Dim i%min = b(LBound(b))For i = LBound(b) + 1 To UBound(b)If b(i) max Then max = b(i)Next iEnd Sub30. 編寫一個過程計(jì)算并輸出區(qū)間[100，1000]內(nèi)所有素?cái)?shù)的和(要求判斷素?cái)?shù)使用過程（函數(shù)或子過程）來實(shí)現(xiàn)。調(diào)用該過程。(提示：只能被1和自身整除的自然數(shù)稱為素?cái)?shù)。)寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來越容易。不奮斗就是每天都很容易，可一年一年越來越難。能干的人，不在情緒上計(jì)較，只在做事上認(rèn)真；無能的人！不在做事上認(rèn)真，只在情緒上計(jì)較。拼一個春夏秋冬！贏一個無悔人生！早安！—————獻(xiàn)給所有努力的人.學(xué)習(xí)參考
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1