题目内容（请给出正确答案）

[主观题]

从键盘上输入两个正整数m 和n ,求最大公约数。 Private Sub Form_Click（) Dim m As Integer, n As

从键盘上输入两个正整数m 和n ,求最大公约数。 Private Sub Form_Click() Dim m As Integer, n As Integer,m1 As Integer, n1 As Integer Dim r As Integer m = Val(InputBox("请输入m的值")) m1=m n = Val(InputBox("请输入n的值")) n1 =______(1)______ r = m Mod n Do While______(2)______ m = n ______(3)______ r = m Mod n Loop Print m1; "和"; n1; "的最大公约数是:"; n End Sub 完善程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________

提问人：网友yanshan415 发布时间：2022-01-07

参考答案

抱歉！暂无答案，正在努力更新中……

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“从键盘上输入两个正整数m 和n ,求最大公约数。 Priva…”相关的问题

第1题

运行下列程序，单击窗体，从键盘输入50，则输出结果是。 Private Sub Form_Click() a = Val(InputBox("A=")) Select Case a Case Is < 100: Print a + 1; Case Is < 80: Print a + 2; Case Is < 60: Print a + 3; Case Else: Print a + 4; End Select End Sub

点击查看答案

第2题

运行下列程序：

Private Sub form_Click()

s = InputBox("请输入一个字符A：")

Select Case Asc(s)

Case Is > 65

n = String(3, UCase(s))

Case Is = 65

n = String(3, LCase(s))

Case Else

n = s

End Select

Print n

End Sub

从键盘输入A，输出的结果是()。

A.aaa

B.AAA

C.65

D.a

点击查看答案

第3题

使用选择结构实现以下功能：从键盘任意输入三个整数，求最大值。

点击查看答案

第4题

实现键盘输入1个整数，用input函数接收并保存于a变量里，经处理后与存储在b变量里的100相加，最后打印输出求和结果。

点击查看答案

第5题

运行下列程序，输出结果是 struct contry { int num; char name[20]; }x[5] = {1,"China", 2, "USA", 3, "France", 4, "Englan", 5, "Spanish"}; int main() { int i; for(i=3; i<5; i++) printf("%d%c", x[i].num, x[i].name[0]); return 0; }> A、3F4E5S

B、4E5S

C、F4E

D、c2U3F4E

点击查看答案

第6题

运行下列程序：

Private Sub form_Click()

t = Val(InputBox("请输入一个数："))

x = t - 1

Select Case t

Case 1 To 10

y = 4 * t

Case Is >10

y = 3 * t

Case Else

y = 2 * t

End Select

Print x; y

End Sub

运行时，从键盘输入4，输出的结果是()。

A.3 16

B.4 4

C.3 4

D.4 10

点击查看答案

第7题

两个正整数的最大公约数(Greatest Common Divisor，GCD) 是能够整除这两个整数的最大整数，请分别采用如下3种方法编写计算最大公约数的函数Ged()，在主函数中调用该函数计算并输出从键盘任意输入的两整数的最大公约数。

(1)穷举法，由于a阳的最大公约数不可能比a和b中的较小者还大，否则一定不能整除它，因此，先找到，a和b中中的较小者t，然后从t开始逐次减I尝试每种可能.即检验t到I之间的所有整数，第一个满足公约数条件的t就是和b的最大公约数。

(2)欧几里得算法，也称辗转相除法、对正整数a和b，连续进行求余运算，直到余数为0为止.此时非0的除数就是最大公约数。设r=a mod b表示a除以上的余数，若r≠0将b作为新的a，r作为新的b，即Ged(a，b)=Ged(b，r)，重复a mod b运算，直到r=0为止，此时b为所求的最大公约数。例如，50和15的最大公约数的求解过程可表示为：Ged(50，15)=Ged(15，5)=Ged(5，0) =5。

(3)递归方法。对正整数a和b，当a>b时，若a中含有与b相同的公约数，则a中去掉b后剩余的部分a-b中也应含有与b相同的公约数，对a-b和b计算公约数就相当于对a和b计算公约数。反复使用最大公约数的如下3条性质，直到a和b相等为止，这时，a或b就是它们的最大公约数。

性质1如果a>b，则a和b与a-b和b的最大公约数相同，即Ged(a，b)=Ged(a-b，b)

性质2如果b>a，则a和b与a和b-a的最大公约数相同，即Ced(a，b)=Ged(a，b-a)

性质3如果a=b，则a和b的最大公约数与a值和b值相同，即Ged(a，b)=a=b

点击查看答案

第8题

从键盘输入两个整数,计算这两个数的最小公倍数和最大公约数并输出。

点击查看答案

第9题

输入一个正整数（n≥2），判断其是否为素数。 Private Sub Form_Click() Dim n As Integer, i As Integer Dim flag As Boolean 'flag是逻辑型变量 n = Val(InputBox("请输入一个正整数", "判断素数")) flag = True For i = 2 To Int(Sqr(n)) If ______(1)______Then 'n除以i的余数等于0 flag = False ______(2)______ '退出循环 End If Next i If ______(3)______ Then '如果flag=True，则说明正整数n是一个素数 Print n & "是一个素数！" Else Print n & "不是一个素数！" End If End Sub 完善程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________

点击查看答案