最新vb程序設(shè)計(jì)編程考試題及答案(專業(yè)版)
【正文】 Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i)。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)。 。Private Sub Command1_Click()Dim max, a(1 To 7), min, sFor i = 1 To 7a(i) = Val(InputBox(輸入第 amp。 i amp。 s3Print 7的倍數(shù)。 。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=。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 Form_Click()Dim a(1 To 10), amax, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i)。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=。 zEnd IfNext zNext yNext xEnd Sub17. 編程求斐波那契數(shù)列前11項(xiàng)。 sEnd Sub12. 輸入一串字符，統(tǒng)計(jì)其中字母A(不區(qū)分大小寫)出現(xiàn)的次數(shù)。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox(請(qǐng)輸入年份)If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 ThenVal (MsgBox(閏年！))ElseVal (MsgBox(平年！))End IfEnd Sub5. 輸入學(xué)生的百分制成績，轉(zhuǎn)換輸出為五級(jí)制成績，90～100分轉(zhuǎn)換為優(yōu)秀，80～89轉(zhuǎn)換為良好，70～79轉(zhuǎn)換為中等，60～6
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1