最新vb程序設(shè)計(jì)編程考試題及答案(更新版)
【正文】 = 0 To n + 1Print a(i)。Private Sub Form_Click()Dim a(1 To 10), amax, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i)。 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)。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)。 MinPrint avg=。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=。Next iEnd Sub18. 將輸入的字符串以反序顯示。 。 aEnd Sub13. 我國目前有13億人口，%計(jì)算，多少年后我國人口將超過26億。 s3Print 7的倍數(shù)。例如，產(chǎn)生246，輸出是642。 i amp。 nEnd Sub8. 編程求200400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。Private Sub Command1_Click()Dim max, a(1 To 7), min, sFor i = 1 To 7a(i) = Val(InputBox(輸入第 amp?！敝弧盓nd Sub15. 求100以內(nèi)的素?cái)?shù)Private Sub Command1_Click()Dim i, jFor i = 2 To 100For j = 2 To i 1If i Mod j = 0 Then Exit ForNext jIf j = i Then Print iNext iEnd Sub16. 百元買百雞問題。 。 mEnd Sub20. 隨機(jī)產(chǎn)生10個(gè)[30,100]內(nèi)的整數(shù)，求最大值、最小值和平均值。Private Sub Command1_Click()Dim a(1 To 10, 1 To 10), i, j As IntegerFor i = 1 To 10For j = 1 To 10a(i, j) = Int(Rnd *11 + 10)NextNextFor i = 1 To 10For j = 1 To iPrint Spc(3)。換行Next iPrint sum=。Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i)。)
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1