发布时间 : 星期三 文章VB练习题(1)(1)(1) 2更新完毕开始阅读d74a26646c85ec3a87c2c5e0
'题目：(事件)双击窗体。
' (响应)编写代码功能如(图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