vb程序設(shè)計教程課后參考答案-文庫吧資料
2025-06-13 13:38本頁面
【正文】 For i = 1 To 3 For j = 1 To 3 bb(j, i) = aa(i, j) NextNextCall disp(bb) ‘調(diào)用函數(shù)，顯示bb數(shù)組的內(nèi)容For i = 1 To 3 For j = 1 To 3 cc(i, j) = aa(i, j) + bb(i, j) NextNextCall disp(cc) ‘調(diào)用函數(shù)，顯示cc數(shù)組的內(nèi)容End SubPrivate Sub Form_Load()RandomizeEnd SubSub disp(sz() As Integer) ‘專門編寫一個顯示數(shù)組的函數(shù),希望同學(xué)們在題目中經(jīng)常使用 Dim i%, j% For i = 1 To 3 For j = 1 To 3 Print sz(i, j)。Option ExplicitPrivate Sub Command1_Click()Dim x%, y%, z%x = Val()y = Val()z = Val()If x y Then If x z Then = z = x = y Else If y z Then = x = y = z Else = x = z = y End If End IfElse If y z Then = z = y = x Else If x z Then = y = z = x Else = y = x = z End If End IfEnd IfEnd SubPrivate Sub Form_Load() = = = = = = End Sub10．Option ExplicitPrivate Sub Command1_Click()Dim x%, y%, m%x = Val()y = Val()m = x Mod yDo While m 0 x = y y = m m = x Mod yLoop = yEnd SubPrivate Sub Form_Load() = = = End Sub習(xí)題四一、 選擇題1．B 2. C 3. D 4. A 5. D 6. C 7. D 8. B二、 填空題1． b(i)=a(i1)+a(i) print2． Variant3． M=lbound(a,2) to n next i4． 205． 從大到小排序（這是一種比較好的插入排序法，希望同學(xué)們能夠掌握）6． Preserve7． A(k)=min8． 空的變體型9． J=ubound(a,2) flag=false:exit for10． Dim aa(9,4) as integer三、 簡答題（略）四、 編程題1．Option ExplicitPrivate Sub Command1_Click()Dim zfc As String, zm As String, i%, lenth%, n%zfc = InputBox(please input string:, info, you are good student)lenth = Len(zfc)n = 0For i = 1 To lenth zm = Mid(zfc, i, 1) ‘取每一個字母 If UCase(zm) = A Or UCase(zm) = E Or UCase(zm) = O Or UCase(zm) = I Or _ UCase(zm) = U Then n = n + 1 End IfNextMsgBox 該字符串的元音字母個數(shù)是 amp。 sEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim avefs = Val(InputBox(please input score:, info, 90))s = fsmax = fsmin = fsFor i = 2 To 7 fs = Val(InputBox(please input score:, info, 90)) If max fs Then max = fs End If If min fs Then min = fs End If s = s + fsNext ave = (s max min) / 5Print 該運動員的平均成績是： amp。 ji Print 兔的個數(shù)是： amp。 i End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2 s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim ss = 0For i = 1 To 100 s = s + 1 / i * (1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t, sn = Val(InputBox(please input data:, info, 5))s = 0t
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1