vb程序設(shè)計(jì)教程(第3版)課后實(shí)驗(yàn)答案(編輯修改稿)

　

【文章內(nèi)容簡介】 ub Command2_Click() For i = 0 To 3 For j = i To 3 Tab(j * 6)。 b(i, j)。 Next j Next i End Sub Private Sub Command3_Click() sa = 0 For i = 0 To 3 sa = sa + a(i, i) Next i sb = 0 For i = 0 To 3 sb = sb + b(i, 3 i) Next i A數(shù)組主對(duì)角線元素和為： 。 sa B數(shù)組副對(duì)角線元素和為： 。 sb End Sub E． 6 Private Sub Form_Click() n = InputBox(輸入 n值 ) ReDim a6%(n + 1, n + 1) a6(0, 0) = 1: a6(1, 1) = 1: a6(1, 0) = 1 For i = 2 To n + 1 For j = 2 To i a6(i, j) = a6(i 1, j 1) + a6(i 1, j) a6(i, j)。 。 Next j Next End Sub E． 7 Private Sub Form_Load() 大學(xué)計(jì)算機(jī)基礎(chǔ) C/C++程序設(shè)計(jì) VB程序設(shè)計(jì) Web程序設(shè)計(jì) 多媒體技 術(shù)與應(yīng)用 數(shù)據(jù)庫技術(shù)與應(yīng)用 網(wǎng)絡(luò)技術(shù)與應(yīng)用 硬件技術(shù)基礎(chǔ) 軟件技術(shù)技術(shù)基礎(chǔ) End Sub Private Sub List1_Click() If = 5 Then MsgBox (超過 5門課程，不能再選 ) Exit Sub Else End If End Sub E． 8 Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57, 13 Case Else KeyAscii = 0 End Select If KeyAscii = 13 Then = End If End Sub Private Sub Command1_Click() Dim min%, max% min = Val((0)) max = Val((0)) imin = 0 imax = 0 For i = 1 To 1 If Val((i)) max Then imax = i max = (i) ElseIf Val((i)) min Then imin = i min = (i) End If Next i t = (0) (0) = (imin) (imin) = t t = ( 1) ( 1) = (imax) (imax) = t End Sub E． 9 Private Sub Form_Click() For i = 0 To 1 If Asc(Left((i), 1)) 0 Then (i) = (i) 商丘師范學(xué)院 End If Next i End Sub E． 10 Private Type clerk number As String * 3 name As String * 5 salary As Integer End Type Dim a(0 To 4) As clerk, n% Private Sub Command1_Click() If n = 5 Then MsgBox (輸入人數(shù)超過數(shù)組聲明的個(gè)數(shù) ) Else With a(n) .number = Text1 .name = Text2 .salary = Text3 a(n).number, a(n).name, a(n).salary Print End With n = n + 1 Text1 = Text2 = Text3 = End If End Sub Private Sub Command2_Click() Dim t As clerk, i%, j% For i = 0 To n 1 For j = i To n 1 If a(i).salary a(j + 1).salary Then t = a(i): a(i) = a(j + 1): a(j + 1) = t End If Next j Next i 工號(hào) 姓名 工資 For i = 0 To n 1 a(i).number, a(i).name, a(i).salary Print Next i End Sub 實(shí)驗(yàn) F F． 1 Private Sub Form_Click() Dim a(1 To 10), amin, i% For i = 1 To 10 a(i) = Int(Rnd * 101 + 300) Print a(i)。 Next i Call s(a(), amin) Print Print min=。 amin End Sub Sub s(b(), min) Dim i% min = b(LBound(b)) For i = LBound(b) + 1 To UBound(b) If b(i) min Then min = b(i) Next i End Sub F． 2 Private Sub Command1_Click() Dim mm%, nn% mm = Val(Text1) nn = Val(Text2) mm。 Tab(6)。 nn。 Tab(12)。 gcd(mm, nn) End Sub Function gcd%(ByVal m%, ByVal n%) If m n Then t = m: m = n: n = t r = m Mod n Do While (r 0) m = n: n = r: r = m Mod n Loop gcd = n End Function F． 3 Dim x! Private Sub Command1_Click() Print 調(diào)用標(biāo)準(zhǔn)函數(shù) Sin的結(jié)果 。 Sin(x) End Sub Private Sub Command2_Click() Print 調(diào)用自定義函數(shù) MySin的結(jié)果 。 MySin(x) End Sub Function MySin(x!) As Double Dim i%, t!, s! t = x s = t i = 1 Do While Abs(t) t = 1 * t * x * x / ((i + 1) * (i + 2)) s = s + t i = i + 2 Loop MySin = s End Function Private Sub Command3_Click() x = InputBox(輸入要計(jì)算正弦函數(shù)的角度值 x) x = x * / 180 End Sub F． 4 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric(Text1) Then MsgBox 輸入非數(shù)字串，重新輸入 = Else If IsH(Text1) Then Text1。 ★ Else Text1 End If Text1 = End If End If End Sub Function IsH(ss As String) As Boolean Dim i%, Ls% IsH = True ss = Trim(ss) Ls = Len(ss) For i = 1 To Ls \ 2 If Mid(ss, i, 1) Mid(ss, Ls + 1 i, 1) Then IsH = False Exit Function End If Next i End Function F． 5 Function prime(ByVal m As Integer) As Boolean prime = True Dim i% For i = 2 To m 1 If (m Mod i) = 0 Then prime = False: Exit Function 39。注意冒號(hào)和 exit的范圍 Next i End Function Private Sub Command1_Click() n = 0 For i = 6 To 100 Step 2 For j = 3 To i \ 2 If prime(j) Then If prime(i j) Then i amp。 = amp。 j amp。 + amp。 i j n = n + 1 End If End If Next j Next i 6和 100之間共有 。 n。 對(duì)素?cái)?shù)和 End Sub F． 6 Dim a%() Private Sub Form_Click() Print 1000以內(nèi)的完數(shù)為： For i = 1 To 1000 If IsWs(i) Then Print i。 =1。 For j = 1 To UBound(a) Print +。 a(j)。 Next j Print End If Next i End Sub Function IsWs(m) As Boolean Dim s% s = 0 For i = 1 To m \ 2 If m Mod i = 0 Then ReDim Preserve a(j) a(j) = i j = j + 1 s = s + i End If Next i If m = s Then IsWs = True End Function F． 7 Private Sub DeleStr(s1 As String, ByVal s2 As String) Dim i% ls2 = Len(s2) i = InStr(s1, s2) Do While i 0 s1 = Left(s1, i 1) + Mid(s1, i + ls2) 39。 在 s1中去除 s2子串 i = InStr(s1, s2) Loop End Sub Private Sub Command1_Click() 39。 調(diào)用 DeleStr子過程 Dim ss1 As String ss1 = Text1 Call DeleStr(ss1, Text2) Text3 = ss1 End Sub Priva