高级班实验一 简单VB程序设计（2学时）
建议：从简单到复杂，先实现同一个半球上的计算，正确运行之后再拓展到两个半球。
已知地球的赤道半径为6378.137千米。假设在赤道上，有两个处于不同经度（单位为度）的城市，用VB编程序求出这两个城市之间的地面距离（即劣弧的长度）。
实验要求：
1. 设计合适的运行界面并编写相应的事件代码。
2. 计算结果要有尽可能高的精确度。
3. 将工程中所有的文件（必须包含.frm文件、.vbp文件）压缩为一个RAR文件。
4. 最后提交完成的RAR文件。
参考测试数据：
东经0度，东经90度——10018.75417 （提示：东经为正，西经为负。 ）
东经20.5度，西经36.6度——6356.342924
东经160度，西经170度——3339.584724

楼上为实验一效果图，此为代码截图

实验一代码：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single, e As Single, x As Single
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
Text5.Text = "请输入完整的经纬度！！！！"
Else
a = ((Text1.Text) * 2 * 3.14159265354) / 360
b = ((Text2.Text) * 2 * 3.14159265354) / 360
c = ((Text3.Text) * 2 * 3.14159265354) / 360
d = ((Text4.Text) * 2 * 3.14159265354) / 360
x = Cos(d) * Cos(b) * Cos(c - a) + Sin(d) * Sin(b)
l = 6378.137 * (Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1))
Text5.Text = l
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
此为简易模板，各位可以探讨一下完美版的

高级班实验二 VB综合程序设计（4学时）
建议：从简单到复杂，先实现加的功能，正确运行之后再拓展到减、乘、除的功能。
用VB编程序设计一个简易的计算器。
实验要求：
1. 设计合适的运行界面并编写相应的事件代码。
2. 要求用标签显示运算数据及运算结果。
3. 要求用命令按钮输入运算数据，而且窗体中只包含0-9、+、-、*、/、=、C等16个命令按钮。
4. 当首次单击任一数字按钮时，在标签上显示这个数字。当再次单击任一数字按钮时，在标签内容的右端添加显示这个数字。
5. 当单击+、-、*、/按钮时，将第一个运算数取出，并将标签清零。
6. 当单击“=”按钮时，将第二个运算数取出，计算出运算结果之后显示到标签上。
7. 当单击“C”按钮时，清除两个运算数并将标签清零。
8. （选作）在窗体上添加两个命令按钮：小数点、二进制转换。当单击“二进制转换”按钮时，将标签上的数值转换为二进制形式。
9. 将工程中所有的文件（必须包含.frm文件、.vbp文件）压缩为一个RAR文件。
10. 最后提交完成的RAR文件。
（提示：可以使用全局变量或模块变量在事件过程之间传递数据。）

实验二效果图

实验二代码业余版，度娘总是吞楼。楼主没办法了。。。。

亲们，分享一下我们的成果哦。。。。有错可以指出来，毕竟我们不是大神
http://pan.baidu.com/s/17pgYV

实验二代码图业余版

网盘里有普通班，高级班的实验

哦。。。。。

网盘共享链接〉〉〉〉〉〉〉〉http://pan.baidu.com/s/17pgYV

你怎么看 @贪沧殇 @卢煦然 @小小小丸子丶 @自己的咖啡壶
—来自 核桃杀手 纯黑色 NOKIA™Lumia♥920 —love灬A♥g

果断收藏了

我不会