最新vb程序設(shè)計(jì)編程考試題及答案-預(yù)覽頁(yè)
【正文】 End Sub6. 隨機(jī)產(chǎn)生一個(gè)三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時(shí)顯示。 nEnd Sub8. 編程求200400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。Private Sub Command1_Click()Dim i, s3, s7s3 = 0s7 = 0For i = 1 To 100If i Mod 3 = 0 Thens3 = s3 + 1End IfNext iFor i = 1 To 100If i Mod 7 = 0 Thens7 = s7 + 1End IfNext iPrint 3的倍數(shù)。Private Sub Command1_Click()Dim max, a(1 To 7), min, sFor i = 1 To 7a(i) = Val(InputBox(輸入第 amp。Private Sub Command1_Click()Dim c As String, a As Integerb = InputBox(請(qǐng)輸入字符)For i = 1 To Len(b) c = UCase(Mid(b, i, 1)) If c = A Then a = a + 1 End If Next i Print a出現(xiàn)的次數(shù)：?！敝弧盓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. 百元買百雞問(wèn)題。 母雞。 。（斐波那契數(shù)列：F(0)=f(1)=1, F(n)=F(n1)+F(n2) n=2 ）Private Sub Command1_Click()Dim F(11), i As LongF(0) = 1F(1) = 1For i = 2 To 10F(i) = F(i 1) + F(i 2)Next iFor i = 0 To 11Print F(i)。 mEnd Sub20. 隨機(jī)產(chǎn)生10個(gè)[30,100]內(nèi)的整數(shù)，求最大值、最小值和平均值。 AvgEnd Sub 21. 隨機(jī)產(chǎn)生10個(gè)[30,100]內(nèi)的整數(shù)，求最小值及所對(duì)應(yīng)的下標(biāo)。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)。 MaxPrint min=。換行Next iPrint sum=。Next iEnd Sub26. 編寫一函數(shù)，計(jì)算Double類型一維數(shù)組所有元素的平均值。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 ProcMax(a(), amax)PrintPrint amax =。)
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1