VB练习题(1)(1)(1) 2

'题目：(事件)双击窗体。

' (响应)编写代码功能如(图1)。 ' 将结果存入变量S中

'------------------------------------------------- Private Sub Form_DblClick() Dim s As Double

'********** Begin **********

Dim i As Integer s = 1

For i = 1 To 10 s = s * i * i Next i Print s

'*********** End ************** TestFunc (s) End Sub

Private Sub TestFunc(i As Double)

Dim OUT As Integer OUT = FreeFile

Open App.Path & \ Print #OUT, i Close #OUT

End Sub

5. '题目：(事件)双击窗体。

' (响应)求出 1-50 所有奇数的和。

' 将结果存入变量 sum 中，并在窗体上输出。 '------------------------------------------------- Private Sub Form_dblClick() Dim sum As Integer '******* Begin ******* Dim i As Integer

sum = 0

For i = 1 To 50

If i Mod 2 = 1 Then sum = sum + i End If Next i Print sum

'******* End ********** TestFunc (sum) End Sub

Pivate Sub TestFunc(i As Integer)

Dim OUT As Integer OUT = FreeFile

Open App.Path & \ Print #OUT, i Close #OUT End Sub

6.'题目：(事件)单击窗体。

' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。

'------------------------------------------------- Private Sub Form_Click() Dim s As Single

'************* Begin **************

Dim i As Integer s = 0

For i = 1 To 10 s = s + 1 / (i ^2) Next i Print s

'************* End ************** TestFunc (s) End Sub

Private Sub TestFunc(i As Single)

Dim OUT As Integer OUT = FreeFile

Open App.Path & \ Print #OUT, i Close #OUT End Sub

7.'题目：(事件)双击窗体。

' (响应)求出 100~200 之间，能被 5 整除，但不能被 3 整除的数。 ' 求所有数之和，存入变量中 sum 中，并输出到窗体。 '------------------------------------------------- Private Sub Form_DblClick() Dim sum As Integer

'********** Begin *********

Dim i As Integer sum = 0

For i = 100 To 200

If ((i Mod 5) = 0) And ((i Mod 3) <> 0) Then sum = sum + i End If

Next i Print sum

'********** End ************* TestFunc (sum) End Sub

Private Sub TestFunc(i As Integer)

Dim OUT As Integer OUT = FreeFile

Open App.Path & \ Print #OUT, i Close #OUT End Sub