VB编程复习

助力期末🤞

---

1、累加

'-------------------------------------------------------
'题目：编写程序，当单击窗体时求1~100中既是5的倍数
’ 又是7的倍数的数的和。其中Sum为累加和变量，
’ i为循环控制变量，并在窗体上输出累加结果。
'-------------------------------------------------------

Sum = 0
	For i = 1 To 100
		IF i Mod 5 = 0 And i Mod 7 = 0 Then
			Sum = Sum + i
		End If
	Next i
Print "Sum= "; Sum

2、累加

'-------------------------------------------------------
'题目： (事件)单击窗体。
’ (响应)已知sum=1-1/4+1/9-1/16+1/25…-1/100,
’ 请将sum结果值输出到窗体上。
’ 使用for…next语句完成程序
'-------------------------------------------------------

Dim i As Integer
For i = 1 To 10
	Sum = Sum + (-1)^(i -1)/(i*i)
Next
Print Sum

3、偶数之积

'-------------------------------------------------------
'题目：编写函数fun，函数的功能是：求1到m
’ 之间的偶数之积。
'-------------------------------------------------------

Dim y As Double
y = 1
Dim i As Integer
For i = 1 To m
	If i Mod 2 =