下面的程序是找出两个正整数a和b 使得a<b a+ b=99 a和b的最大公约数是3的倍数 并统计满
下面的程序是找出两个正整数a和b,使得a<b、a+ b=99、a和b的最大公约数是3的倍数,并统计满足条件数对的个数。 Option Explicit Dim a As Integer, b As Integer, n As Integer, c As Integer Private Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer do c=a Mod b: a=b=c Loop【 】 Gcd=a End Function Private Sub form_ Click() n=0 for a= 1 To 49 b=【 】 c= Gcd (a, b) if c Mod 3= 0 then 【 】 Print a, b, c End if Next a Print n End Sub
请帮忙给出正确答案和分析,谢谢!
参考解答
正确答案:until c=0或while c<>099-an=n+1
由求最大公约数的算法可知,当余数c为零时,a为a和b的最大公约数。因条件给定:“a+b=99”,所以“b=99-a”。n为累计数。
相似问题
表达式'12345'<>'12345'&'ABC'的值是______。请帮忙给出正确答案和分析 谢谢
表达式 "12345 "<> "12345 "& "ABC "的值是______。请帮忙给出正确答案和分析,谢谢!
算法的工作量大小和实现算法所需要的存储单元分别称为算法的【 】。请帮忙给出正确答案和分析 谢谢!
算法的工作量大小和实现算法所需要的存储单元分别称为算法的【 】。请帮忙给出正确答案和分析,谢谢!
有下列程序 程序运行后 单击“Command1”按钮 在列表框List1中显示的第一行和第二行的结果
有下列程序,程序运行后,单击“Command1”按钮,在列表框List1中显示的第一行和第二行的结果分别是【 】和【 】,最后一行的结果是【 】。 Type ty
在窗体上画一个文本框和一个图片框 然后编写如下两个事件过程: Private Sub Form_Lo
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Load( ) Text1 Text="计算机" End Sub Private Sub Text1_C
在窗体上建立一个单选按钮组Option1和一个图片框Picture1 如图所示。当选择不同的单选按钮
在窗体上建立一个单选按钮组Option1和一个图片框Picture1,如图所示。当选择不同的单选按钮时,图片框中填充不同的图案,请填写程序的空白处,使程序完整
