Question

VB作业，求助VB高手！

1． 启动VB，创建一应用程序，要求：在屏幕上显示“欢迎您使用VisualBasic”，并输入你的名字，以test1.frm 和test1.vbp文件名保存在磁盘上。并生成可执行文件。

2． 创建一个计算球表面积和球体积的窗体程序，运行界面如图所示。要求分别用文本框输入圆的半径，单击计算按纽后，由标签控件输出球表面积和球体积。

3． 创建一个求三个整数最小值的窗体程序，用户在运行界面上输入三个整数，点击“最小值”按钮，通过Msgbox输出三个整数的最小值。

4． 创建一个求1！+3！+…+13！的程序并输出其计算结果。

5． 创建一个求100到200内所有质数个数的程序并输出计算结果。

6． 创建一个求两个整数最大公约数窗体程序，用户在运行界面上输入两个整数，点击“最大公约数”按钮，通过Msgbox输出两个整数的最大公约数。

7． 仿造P246的10.6程序，做一个基于数据库的单表管理。
请把程序发至ucom123@126.com，谢谢大神！





Answer 1

最大公约数：
Public Function zuidagy() As Integer
Dim m, n, r, t As Integer
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
If m < n Then t = m : m = n : n = t
r = m Mod n
Do While (r <> 0)
m = n
n = r
r = m Mod n
Loop
Return n
End Function