vb程序設(shè)計(jì)基礎(chǔ)習(xí)題答案(編輯修改稿)
2024-07-23 04:42 本頁面
【文章內(nèi)容簡介】 1 Print *。 Next j Print Next i For i = 4 To 1 Step 1 Print Tab(6 i)。 For j = 1 To 2 * i 1 Print *。 Next j Print Next iEnd SubP104 練習(xí)四一、 單選題1，D 2,C 3, C 4,C 5, D二、程序閱讀題1， 12 10 92， 0 11 2 3 2 div = 3三、程序填空題 Len(str1) Mid(str1, i, 1) p = ji p l = Len(St$) a(i) = Mid(St$, i, 1) p = s 96 x(p) = x(p) + 1a(1 To 4, 1 To 5) s = 0 a(i, 5) = s / 4四、程序設(shè)計(jì)題1.Private Sub Form_Click() Dim a(50) As Integer For i = 1 To 50 a(i) = Int(Rnd * 71) + 30 Print a(i)。 If i Mod 5 = 0 Then Print Next i Min = a(1): Max = a(1): s = 0 For i = 2 To 50 If Min a(i) Then Min = a(i) If Max a(i) Then Max = a(i) s = s + a(i) Next i Print max=。 Max, min=。 Min, average=。 s / 50End Sub2.Private Sub Form_Click() Dim max As Integer, min As Integer Dim a() As Integer n = Val(InputBox()) ReDim a(n) As Integer For i = 1 To n a(i) = Int(Rnd * 100) Print a(i)。 Next i For i = 1 To n If a(i) Mod 2 = 0 Then min = a(i) Else max = a(i) If min 0 And max 0 Then Exit For Next i For i = 1 To n If a(i) Mod 2 = 0 And min a(i) Then min = a(i) ElseIf a(i) Mod 2 = 1 And max a(i) Then max = a(i) End If Next i Print max=。 max, min=。 minEnd Sub3.冒泡法：Private Sub Form_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i)。 Next i Print For i = 1 To 9 For j = 1 To 10 i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j Next i For i = 1 To 10 Print a(i)。 Next iEnd Sub選擇法：Private Sub Form_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i)。 Next i Print For i = 1 To 9 For j = i + 1 To 10 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j Next i For i = 1 To 10 Print a(i)。 Next iEnd SubPrivate Sub Form_Click() Dim a(20) As Integer, score(5) As Integer For i = 1 To 20 a(i) = Int(
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1