谁有VB6.0的程序实例

VB实例程序，要功能多、但容易看懂的代码

补充：你这也太简单了吧！ 有没的像小游戏或者计算器这类的程序（我有计算器程序，就不需要了）
		

答案：
很多,是压缩格式的.你的邮箱是多少,我发给你.
答案补充
QQ:932896635
#include <iostream>
using namespace std;

int main()
{
int year = 0;
bool isLeapYear;

cout << "please input a year:" << endl;
cin >> year;
isLeapYear = ((year % 4 == 0 && year % 100 != 0) || (year % 400 == 0));

if (isLeapYear)
{
cout << year << "is a leapyear" << endl;
}
else
{
cout << year << "is not a leapyear" << endl;
}

return 0;
}
Private Sub Form_Click()
Me.Cls
Dim f(0 To 2), i, Max As Integer
For i = 0 To 2
f(i) = Int(InputBox("输入数字"))
Next i
Max = Gys(f(0), f(1))
Max = Gys(f(2), Max)
Print "最大公约数是 " & Max
End Sub

Private Function Gys(x, y)
Dim i, z As Integer
If x >= y Then
z = x
Else
z = y
End If
For i = 1 To z
If Int(x / i) = x / i And Int(y / i) = y / i Then
Gys = i
End If
Next i
End Function 

'两个整数的最大公约数示例代码如下：
Private Sub Form_Click()
a = Val(InputBox("请输入一个正整数："))
b = Val(InputBox("请输入一个正整数："))
MsgBox "最大公约数是：" & zdgys(a, b)
End Sub

Function zdgys(x1, x2)
If x1 > x2 Then
x = x1
x1 = x2
x2 = x
End If
For i = x1 To 1 Step -1
If x1 Mod i = 0 And x2 Mod i = 0 Then
zdgys = i
Exit Function
End If
Next i
End Function
'三个整数的最大公约数示例代码如下：
Private Sub Form_Click()
a = Val(InputBox("请输入一个正整数："))
b = Val(InputBox("请输入一个正整数："))
c = zdgys(a, b)
d = Val(InputBox("请输入一个正整数："))
MsgBox "最大公约数是：" & zdgys(c, d)
End Sub

Function zdgys(x1, x2)
If x1 > x2 Then
x = x1
x1 = x2
x2 = x
End If
For i = x1 To 1 Step -1
If x1 Mod i = 0 And x2 Mod i = 0 Then
zdgys = i
Exit Function
End If
Next i
End Function 
答案补充
没奖励分，编起来太累
答案补充
你说什么游戏，我自己编一个，我是编程排名第一的
答案补充
回做

上一个：程序填空题的答案是什么？求高手
下一个：在本机测试aspx.net程序需要装什么组件?