算法设计题 要求：输出三个数中最大的数 请画出流程图
rivate Sub Command1_Click()。
Dim a1, a2, a3, max1 As Integer。
a1 = InputBox("请输入第1个数")。
max1 = a1。
a2 = InputBox("请输入第2个数")。
If a2 > max1 Then max1 = a2。
a3 = InputBox("请输入第3个数")。
If a3 > max1 Then max1 = a3。
MsgBox (max1)。
End Sub。
扩展资料：
作为诊断工具，它能够辅助决策制定，让管理者清楚地知道，问题可能出在什么地方，从而确定出可供选择的行动方案。
流程图有时也称作输入-输出图。该图直观地描述一个工作过程的具体步骤。流程图对准确了解事情是如何进行的，以及决定应如何改进过程极有帮助。这一方法可以用于整个企业，以便直观地跟踪和图解企业的运作方式。
流程图使用一些标准符号代表某些类型的动作，如决策用菱形框表示，具体活动用方框表示。但比这些符号规定更重要的，是必须清楚地描述工作过程的顺序。流程图也可用于设计改进工作过程，具体做法是先画出事情应该怎么做，再将其与实际情况进行比较。
参考资料来源：百度百科-流程图
思路分析：先比较2个数,取其中大者与第三个数比较得出较大者为最大数,记为max.步骤如下:
第一步:输入a,b,c.
第二步:比较a,b.若a＞b,则执行第三步;否则,执行第四步.
第三步:比较a,c.若a＞c,则输出最大数max=a;否则,输出最大数max=c.
第四步:比较b,c.若b＞c,则输出最大数max=b;否则,输出最大数max=c.
启示:自然语言与流程图是表示算法的两种方法,显然流程图更直观、更准确.此算法中包含了顺序和条件两种结构,注意其中条件结构的嵌套(条件分支中含有条件结构)的使用.
流程图：
我画出来了，就是最后不知道怎么输出最大值，看你的才知道少了一步，谢谢啦
思路分析：先比较2个数,取其中大者与第三个数比较得出较大者为最大数,记为max.步骤如下:
第一步:输入a,b,c.
第二步:比较a,b.若a＞b,则执行第三步;否则,执行第四步.
第三步:比较a,c.若a＞c,则输出最大数max=a;否则,输出最大数max=c.
第四步:比较b,c.若b＞c,则输出最大数max=b;否则,输出最大数max=c.
流程图:
