十一、简单综合题：


Private Sub COMEXIT_Click()
End
End Sub

Private Sub COMSTART_Click()
　Dim g As Single, N As Integer, S As Single
　myfile1 = App.Path & "\" & "grade.DAT"
　myfile2 = App.Path & "\" & "average.dat"
　Open myfile1 For Input As #1
　Open myfile2 For Output As #2
　Do While Not EOF(1)
　　Input #1, g
　　N = N 1
　　S = S g
　Loop
　Close #1
　S = S / N
　Write #2, S
　Close
　COMSTART.Caption = "完成"
　COMSTART.Enabled = False
End Sub
　　十二、文本加密题：


Private Sub C1_Click()
　Dim strinfo As String
　Open "in7.txt" For Input As 1
　Input #1, strinfo
　Close #1
　Text1.Text = strinfo
End Sub

Private Sub C2_Click()
　Dim strchange As String
　Dim i As Integer
　For i = 1 To Len(Text1.Text)
　　strchange = strchange Chr(Asc(Mid(Text1.Text, i, 1)) 2)
　Next
　Text1.Text = strchange
End Sub

Private Sub C3_Click()
　Open "out7.txt" For Output As 1
　Print #1, Text1.Text
　Close #1
End Sub
　　十三、数组综合应用题：


　　本程序解答分二部分,一部分在窗体模块:

Option Explicit
　Dim a(1 To 100)
　Dim i As Integer
　Dim n As Integer
　Dim f As Integer
　Dim s As Long

Private Sub Cmd1_Click()
　Open App.Path & "\in.txt" For Input As #1
　For i = 1 To 100
　　Input #1, n
　　a(i) = n
　　Text1.Text = Text1.Text & a(i) & " "
　Next i
　Close #1
End Sub

Private Sub Cmd2_Click()
　For i = 1 To 100
　　If a(i) <= 700 Then s = s a(i)
　Next i
　Call putdata("out.txt", s)
　Text1.Text = s
End Sub
　　另一部分在标准模块:

Option Explicit

Sub putdata(t_FileName As String, t_Str As Variant)
　Dim sFile As String
　sFile = "\" & t_FileName
　Open App.Path & sFile For Output As #1
　Print #1, t_Str
　Close #1
End Sub
　　十四、素数应用又一例：


　　本程序分两部分,第一部分在窗体模块:

Private Sub Cmd1_Click()
　Dim i As Integer
　Dim temp As Long
　temp = 0

　If Opt2.Value Then
　　For i = 200 To 400
　　　If isprime(i) Then
　　　　temp = temp i
　　　End If
　　Next
　Else
　　For i = 100 To 200
　　　If isprime(i) Then
　　　　temp = temp i
　　　End If
　　Next
　End If
　Text1.Text = temp
End Sub

Private Sub Cmd2_Click()
　putdata "\out.txt", Text1.Text
End Sub
　　第二部分在标准模块:

Option Explicit

Sub putdata(t_FileName As String, T_Str As Variant)
　Dim sFile As String
　sFile = "\" & t_FileName
　Open App.Path & sFile For Output As #1
　Print #1, T_Str
　Close #1
End Sub

Function isprime(t_I As Integer) As Boolean
　Dim J As Integer
　isprime = False
　For J = 2 To t_I / 2
　　If t_I Mod J = 0 Then Exit For
　Next J
　If J > t_I / 2 Then isprime = True
End Function