sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

Next

End Sub

该程序通过For循环计算一个表达式的值，这个表达式是

（A）1+1/2+ 2/3+3/4+4/5 　　　　 　（B）1+1/2+2/3+3/4

（C）1/2+2/3+3/4+4/5 　　　　　 　（D）1+1/2+1/3+1/4+1/5

8．       程序如下：

　　Private Sub Form_Click( )

　　　Dim a As Integer , b As Integer

　　　a = 5 : b = 8

　　　Call Fun (a , b)

　　　Print a , b

　　End Sub

    Private Sub Fun ( x As Integer , y As Integer )

　　　x = x * y

　　　y = y * x

　　End Sub

　程序运行时，单击窗体后，在窗体上输出的结果为（ 【81】 ）

　（A）5  8　　　（B）40　40　　　（C）40　8　　　（D）40　320

9．       在窗体上画一个命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click( )

　　　x=0

　　　For i=1 to 3

　　　　x=1

　　　　For j=1 to 4

　　　　　x=2

　　　　　For k=1 to 5

　　　　　　x = x + 2

　　　　　Next k

　　　　Next j

　　　Next i

　　　Print x

　　End Sub

　程序运行后，单击命令按钮，输出结果为（ 【82】 ）

　（A）12　　　　（B）24　　　　（C）36　　　　（D）48

10．   在窗体上画一个命令按钮，然后编写如下代码：

　　Private Type Record

　　　ID As Integer

　　　Name As String * 20

　　End Type

　　Private Sub Command1_Click( )

　　　Dim MaxSize , NextChar , MyChar

　　　Open “D:\Vb2003Ks\Ks78.Dat ” For Binary As #1

　　　MaxSize = LOF ( 1 )

　　　For NextChar = MaxSize To 1 Step -1

　　　　Seek # 1 , NextChar

　　　　MyChar = Input ( 1 , # 1 )

　　　Next NextChar

　　　Print EOF ( 1 )

　　　Close # 1

　　End Sub

　程序运行后，单击命令按钮，其输出结果为（ 【83】 ）

　（A）True　　　　（B）False　　　　（C）Null　　　　（D）0