【正文】 Next i 總分 amp。 stud(i).name。 = amp。 s Loop Close End Sub H． 2 Private Sub Command1_Click() Dim fib%(0 To 9), i% Open c:\ For Output As 1 For i = 0 To 9 If i = 0 Or i = 1 Then fib(i) = i Else fib(i) = fib(i 1) + fib(i 2) End If Print 1, Fib( amp。 分 amp。 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。 對(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。 j amp。 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。 nn。 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ù)庫(kù)技術(shù)與應(yīng)用 網(wǎng)絡(luò)技術(shù)與應(yīng)用 硬件技術(shù)基礎(chǔ) 軟件技術(shù)技術(shù)基礎(chǔ) End Sub Private Sub List1_Click() If = 5 Then MsgBox (超過(guò) 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ù)超過(guò)數(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 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ì)角線元素和為： 。 If i Mod 5 = 0 Then Next i End Sub E． 5 Dim a%(3, 3), b%(3, 3) Private Sub Form_Load() For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 36 + 35) b(i, j) = Int(Rnd * 41 + 100) Next j Next i End Sub Private Sub Command1_Click() For i = 0 To 3 For j = 0 To i a(i, j)。 i。 。 Min。 。 。 s End Sub D． 6 Private Sub Command1_Click() Dim s As Integer s = 0 For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 s = i * 100 + j * 10 + k If s = i ^ 3 + j ^ 3 + k ^ 3 Then Print s End If Next k Next j Next i End Sub Private Sub Command3_Click() End Sub D． 7 Private Sub Command1_Click() Dim a!, x0!, x1! a = 27 x0 = 2 i = 0 Do i = i + 1 x1 = 2 * x0 / 3 + a / (3 * x0 * x0) If Abs(x1 x0) Then Exit Do x0 = x1 Loop Print x1, i End Sub D． 8 Private Sub Command1_Click() s = 0 x0 = For i = 1 To 30 s = s + x0 x0 = x0 * 2 Next i Print s End Sub D． 9 Private Sub Command4_Click() x課安排在 。 pi End Sub D． 5 Private Sub Form_Click() Dim s!, t!, i!, a%, n% a = Int(Rnd * 9 + 1) n = Int(Rnd * 6 + 5) t = 0: s = 0 Print a=。, pi, iamp。 String((20 2 * i), Chr(64 + i)) Next i End Sub D． 3 Private Sub Command1_Click() Dim s!, t!, iamp。 amp。 z End Sub C． 4 Dim a(3) As Integer Private Sub Command1_Click() For i = 0 To 2 a(i) = Int(Rnd * 100 + 200) a(i) Next i End Sub Private Sub Command2_Click() Dim z As Integer For i = 0 To 1 If a(i) a(i + 1) Then z = a(i + 1) a(i + 1) = a(i) a(i) = z End If Next i a(0) a(1) a(2) End Sub C． 5 Private Sub Text2_LostFocus() Dim m%, n%, y% m = Val(Text1) n = Val(Text2) If n Mod 2 0 Then MsgBox (腳數(shù)必定為偶數(shù) ) Text2 =