最新vb程序設(shè)計編程考試題及答案-全文預(yù)覽
【正文】 o 10), amax, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i)。(提示：只能被1和自身整除的自然數(shù)稱為素數(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. 編寫一個過程計算并輸出區(qū)間[100，1000]內(nèi)所有素數(shù)的和(要求判斷素數(shù)使用過程（函數(shù)或子過程）來實現(xiàn)。Next iCall ProcMin(a(), amin)PrintPrint amin =。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)。 sumEnd Sub25. 已知有序數(shù)組a()，編程插入x（x的值為14）。 MinPrint avg=。 a(i, j)。Private Sub Command1_Click()Dim a(1 To 10), mRandomizeFor I = 1 To 10a(I) = Int(Rnd * 71) + 30Print a(I)Next IMin = a(1)For I = 2 To 10If a(I) Min Then Min = a(I): m = INext IPrint min=。Private Sub Command1_Click()Dim a(1 To 10)For i = 1 To 10a(i) = Int(Rnd * 71) + 30Print 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=。Next iEnd Sub18. 將輸入的字符串以反序顯示。 y。 。假定小雞每只5角，公雞每只2元，母雞每只3元，編程求解購雞方案。 aEnd Sub13. 我國目前有13億人口，%計算，多少年后我國人口將超過26億。 i amp。 s3Print 7的倍數(shù)。(一個數(shù)如果同時是7和5的倍數(shù)，則只能加一次。例如，產(chǎn)生246，輸出是642。 個數(shù)))If n max Thenmax = nEnd IfNextPrint 三個數(shù)中最大的數(shù)是 。 i amp。Private Sub Command1_Click()a = Val(InputBox(請輸入成績))If a 100 Then Print 超出范圍If a = 90 And a = 100 Then Print 優(yōu)秀If a = 80 And a 90 Then Print 良好If a = 70 And a 80 Then Print 中等If a = 60 And a 70 Then Print 及格If a 60 Then Print 不及格
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1