123vb.docVIP

第十套 二、（1）Private Sub C1_Click() For i = 0 To 2 If Op1(i).Value = True Then Print 我是 + Op1(i).Caption End If Next End Sub （2）1）If Val(Text1.Text) = 0 Then 2）Timer1.Enabled = False 3）Text1.SetFocus 三、Open App.Path \in5.txt For Random As #1 Len = Len(pal) For i = 1 To 5 Get #1, i, pal Text1.Text = Text1.Text pal.Name Text1.Text = Text1.Text pal.Tel Text1.Text = Text1.Text Str(pal.Post) Text1.Text = Text1.Text + vbCrLf Next Close 1 第二十八套 二、（1） 1）List1.AddItem Text1.Text 2）For i = 0 To List1.ListCount – 1 3）If List1.List(i) = Text1.Text Then 4）List1.RemoveItem i （2） 1）Start = LBound(a) 2）Finish = UBound(a) 3）Min = a(Start) 4）Sum = 0 5）Sum = Sum + a(i) 6）Average = Sum / Finish 7）Aver = Average(arr2()) 三、Dim Sum As Integer Private Sub Read_Click() ReadData End Sub Private Sub Calc_Click() Dim S As String Sum = 0 For i = 1 To 100 If Int(Arr(i) / 3) = Arr(i) / 3 Then Sum = Sum + Arr(i) S = S Str(Arr(i)) End If Next i Text1.Text = S Print Sum = ; Sum End Sub Private Sub Save_Click() WriteData DataOut.txt, Sum End Sub 第三十三套 二、（1）Private Sub Command2_Click() Max = a(1) Min = a(1) For i = 2 To 100 If isnarc(a(i)) = True Then If a(i) Max Then Max = a(i) If a(i) Min Then Min = a(i) End If Next Text1.Text = Max Text2.Text = Min End Sub （2）Private Sub C1_Click() Dim n As Integer, k As Integer, s As Long n = Val(Cb1.Text) s = 0 For k = n To 5000 If k / n = Int(k / n) Then s = s + k End If Next k Text1.Text = s End Sub 三、1）If which = 1 Then 2）ElseIf which = 2 Then 3）Text1.Text = Text1 + Text3.Text 4）Text2.Text = Text2 + Text3.Text 第三十七套 二、（1） 1）arrN(i) = Int(Rnd * 1000) 2）Min = arrN(1) 3）If arrN(i) Min Then （2）Function Fun() For i = 0 To 1000 If i Mod 7 0 Then Y = Y + 1