1、本网站免费注册后即可以下载，点击开通VIP会员可无限免费下载！
2、资料一般为word或PPT文档。建议使用IE9以上浏览器或360、谷歌、火狐浏览器浏览本站。
3、有任何下载问题，请联系微信客服。
扫描下方二维码，添加微信客服
《2.1.1VB语言概述》精品PPT课件优质课下载
x = 2 a - b / 2
y = b ÷ 2 - a
Print “鸡数x=”; x, “兔数y=”; y
End Sub
b
/
求最大公约数（辗转相除法） （找错）
Private Sub Command1_Click()
Dim m As Long, n As Long
m = InputBox("请输入m的值")
n = InputBox("请输入n的值")
r = m Mod n
Do While r ≠ 0
m = m
n = r
r = m Mod n
Loop
Print "最大公约数="; m
End Sub
<>
n
n
案例探究
以下是一个“求半径为r的圆的面积”，请你注意观察程序的组成结构及其功能，并思考如下的问题：
（1）程序有多少行，每一行的作用是什么？