问答题

[说明]
下面的流程图采用欧几里得算法,实现了计算两正整数最大公约数的功能。给定正整数m和 n,假定m大于等于n,算法的主要步骤为:
(1)以n除m并令r为所得的余数;
(2)若r等于0,算法结束;n即为所求;
(3)将n和r分别赋给m和n,返回步骤(1)。
[流程图]


[问题1] 将流程图中的(1)~(4)处补充完整。
[问题2] 若输入的m和n分别为27和21,则A中循环体被执行的次数是 (5)

【参考答案】

[问题1] (1) n>m或n≥m或其它等效形式
(2) m←t (3) n←r (4) m%n
[问题2] (5) 1
热门 试题

问答题
[说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信息则呈现于右侧文本框中。用户还可以删除或复制选中的图片文件。 在开发过程中,驱动器列表框名为Drivel,目录列表框名为Dir1,文件列表框名为File1,图片的显示由Image控件对象Image1来实现,文件信息文本框名为Text1,按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。[Visual Basic代码]Dim filename As StringDim fso As New (1) , file As filePrivate Sub Form_Load() Set fso = CreateObject( Scripting.FileSystemObject ) Drivel.Drive = F: End SubPrivate Sub Dir1_Change() File1.path=Dirl.path ’更新文件列表框的路径End SubPrivate Sub Drive1_Change() Dir1.path = (2) ’更新目录列表框的路径End SubPrivate Sub File1_Click()’文件列表框的单击事件响应代码 If Right(Dir1.path, 1) <> Then filename = Dir1.path & & Filel.filename Else filename = Dir1.path & Filel.filename End If Image1.Picture = (3) Set file = fso.GetFile(filename) Text1. Text = 文件名称: & file.Name & vbCrLf & _ 文件大小: & file. Size & 字节 & vbCrLf & _ 文件类型: & file.Type & vbCrLf & _ 创建日期: & file. DateCreated & vbCrLf & _ 修改日期: & file. DateLastModifiedEnd SubPrivate Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码 Dim path As String path = InputBox( 请输入目标路径(含文件名): ) (4) End SubPrivate Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码 (5) End Sub