亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

Next

End Sub

該程序通過For循環(huán)計算一個表達(dá)式的值，這個表達(dá)式是

（A）1+1/2+ 2/3+3/4+4/5 　　　　 �。˙）1+1/2+2/3+3/4

（C）1/2+2/3+3/4+4/5 　　　　　 �。―）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

　程序運行時，單擊窗體后，在窗體上輸出的結(jié)果為（ 【81】 ）

�。ˋ）5  8　　�。˙）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

　程序運行后，單擊命令按鈕，輸出結(jié)果為（ 【82】 ）

�。�A）12　　　�。˙）24　　　　（C）36　　　�。―）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

　程序運行后，單擊命令按鈕，其輸出結(jié)果為（ 【83】 ）

　（A）True　　　　（B）False　　　�。–）Null　　　�。―）0