最新vb程序設計編程考試題及答案-免費閱讀
【正文】 Next iCall ProcMax(a(), amax)PrintPrint amax =。Next iEnd Sub26. 編寫一函數(shù)，計算Double類型一維數(shù)組所有元素的平均值。 MaxPrint min=。 AvgEnd Sub 21. 隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最小值及所對應的下標。（斐波那契數(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)。 母雞。Private Sub Command1_Click()Dim c As String, a As Integerb = InputBox(請輸入字符)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ù)：。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()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 不及格End Sub6. 隨機產(chǎn)生一個三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時顯示。 個數(shù)))If n max Thenmax = nEnd IfNextPrint 三個數(shù)中最大的數(shù)是 。(一個數(shù)如果同時是7和5的倍數(shù)，則只能加一次。 i amp。假定小雞每只5角，公雞每只2元，母雞每只3元，編程求解購雞方案。 y。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=。 a(i, j)。 sumEnd Sub25. 已知有序數(shù)組a()，編程插入x（x的值為14）。Next iCall
黨政相關相關推薦
鄂ICP備17016276號-1