a(i) = InputBox(\请输入第\个数：\ Print a(i); '显示在窗体上 Next i
Print '显示换行 '求出v： For i = 1 To n sum = sum + a(i) Next i
v = sum / n '求出s： sum = 0
For i = 1 To 10
sum = sum + (a(i) - v) ^ 2 Next i s = Sqr(sum) / n '显示结果： Print v, s End Sub
习题五
三、程序设计
1. 2.
'功能：判断整数x是否素数，如果是返回True，否则返回False Function Prime(ByVal x As Integer) As Boolean Dim i As Integer
If x < 2 Then Exit Function '当x<2返回False
For i = 2 To Sqr(x)
If x Mod i = 0 Then Exit Function '如果x被i整除，说明x不是素数，立刻返回 Next i
Prime = True 'x是素数 End Function
Private Sub Form_Click() Dim i As Integer
For i = 1 To 100
If Prime(i) Then Print i; Next i End Sub
3.
'功能：在字符串S1中查找子串S2，返回找到的个数，未找到返回0
Function Find(S1 As String, S2 As String) As Integer
Dim i As Integer, j As Integer, L1 As Integer, L2 As Integer L1 = Len(S1) L2 = Len(S2)
For i = 1 To L1 - L2 + 1
If Mid(S1, i, 1) = Left(S2, 1) Then '如果S1中第i个字母与S2的首字母是否相同，进行下面的判断
For j = 2 To L2 '判断S1中第i+1个开始的字母序列与S2中第2个开始的字母序列是否相同
If Mid(S1, i + j - 1, 1) <> Mid(S2, j, 1) Then Exit For Next j
If j > L2 Then Find = Find + 1 '找到相同的子串，子串计数+1 End If Next i End Function
Private Sub Form_Click()
Dim S1 As String, S2 As String, n As Integer S1 = Input(\请输入一个字符串：\ S2 = Input(\请输入要查找的子串：\ n = Find(S1, S2)
If n > 0 Then
MsgBox \找到\个子串。\ Else
MsgBox \未找到。\ End If End Sub 习题九
三、程序填空题 1.
Private Sub Command1_Click() Dim str1 As String
Open \ Open \ Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop
Close #1, #2 Kill \End Sub
2.
Private Sub Command1_Click()
Dim s As String
Open \ Open \ Do While Not EOF(2) Line Input #2, s Print #1, s Loop Close #1, #2 End Sub
10学年第2学期试卷题型：
一、填空题（共10个空，每空1分，共10分） 二、是非题（共4小题，每小题1分，共4分）
三、程序阅读与填空（共22个空，每空3分，共66分）共有6个程序 四、程序编写（2小题，每小题10分，共20分）共有2个程序
试题来源：
1、课本附录3套试卷 2、实验报告 3、课本例题 4、课后习题
课本例题：
例3-2、3-3、3-4、3-5、3-7、3-9、3-10、3-11、3-12、3-14、3-15、3-16、3-17、3-18、3-19 掌握选择排序
掌握变量的作用范围 例5-3、例5-5
掌握列表框各属性和方法
例6-1、例6-4、例6-5、例6-7、例6-8 掌握CommonDialog的Show方法 例9-1、例9-3、例9-4
课后习题： 习题二填空题 习题三：
一：2、3、4、5、6、9、10 二：全部
三：1、2、3、4、5、7、8、9、10 习题四：
一：1、2、3、4、5 二：全部 三：全部
习题五： 一：1、2、4 二：全部 三：全部 习题六： 一：2、3、6 习题七： 一：全部 习题九： 三：1、2