最新vb程序設(shè)計(jì)編程考試題及答案(參考版)
2025-06-28 01:27本頁面
【正文】 (提示：只能被1和自身整除的自然數(shù)稱為素?cái)?shù)。 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. 編寫一個(gè)過程計(jì)算并輸出區(qū)間[100，1000]內(nèi)所有素?cái)?shù)的和(要求判斷素?cái)?shù)使用過程（函數(shù)或子過程）來實(shí)現(xiàn)。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 ProcMin(a(), amin)PrintPrint amin =。 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中的最小值，子過程的形參自己確定。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)。Private Sub Command1_Click()Dim a(), i%, k%, x%, n%a = Array(4, 6, 12, 20, 31, 63, 75, 89, 100)n = UBound(a)x = Val(InputBox(請(qǐng)輸入所要插入數(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)。 sumEnd Sub25. 已知有序數(shù)組a()，編程插入x（x的值為14）。sum = sum + a(i, j)Next jPrint 39。 MinPrint avg=。Private Sub Command1_Click()Dim a(1 To 10)For i = 1 To 10a(i) = Int(Rnd * 101) + 1Print a(i)Next iMax = a(1)Min = a(1)Avg = a(1)For i = 2 To 10If a(i) Max Then Max = a(i)If a(i) Min Then Min = a(i) Avg = Avg + a(i)Next iAvg = Avg / 10Print max=。 a(i, j)。 mEnd Sub22. 隨機(jī)生成一個(gè)整型的二維數(shù)組，范圍在[10,20]之間，以下三角形式輸出該數(shù)組。Private Sub Comm
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1