VB课后答案(3)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB课后答案(3)在线全文阅读。