编写VB程序，求在10~1000之间所有能被4除余3，被7除余5，被9除余2的数之和

Question

一、程序改错题（要求，改错题，改正的部分以红色显示） 程序功能：计算两个数的最大公约数。程序中有一行有错误，改正错误，使程序能输出正确结果 Private Sub Command1_Click() Print fun(1107,2889) End Sub Private Function fun(u, v) As Integer While (v <> 0) t = u Mod v u = v v = t Wend fun = v End Function 二、编程 编写程序，求在10~1000之间所有能被4除余3，被7除余5，被9除余2的数之和 三、程序填空题： 一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为60枚，问共有多少种换法？(注：在兑换中一分、两分或五分的硬币数可以为0枚) Private sub form_click( ) FOR A=0 TO 60 FOR B=0 TO 60 FOR C=0 TO 60 IF and THEN Count=count+1 END IF NEXT C，B，A Print count END SUB

Answer 1

Private Sub Command1_Click() Print fun(1107, 2889) End Sub Private Function fun(u, v) As Integer While (u Mod v <> 0) t = u Mod v u = v v = t Wend fun = v End Function 粗体部分是修改过的，就是判断条件错误。 第二题： 两个空分别填上： a + b + c = 60 （表示1分2分5分的枚数合起来是60） a + 2*b+ 5*c = 100 （表示这些硬币各自乘上各自的面值之后刚好等于100分钱，a前面的乘以1省略了）

满意请采纳