发布网友 发布时间:2022-05-02 17:40
共3个回答
热心网友 时间:2022-06-21 02:27
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。
扩展资料:
作为诊断工具,它能够辅助决策制定,让管理者清楚地知道,问题可能出在什么地方,从而确定出可供选择的行动方案。
流程图有时也称作输入-输出图。该图直观地描述一个工作过程的具体步骤。流程图对准确了解事情是如何进行的,以及决定应如何改进过程极有帮助。这一方法可以用于整个企业,以便直观地跟踪和图解企业的运作方式。
流程图使用一些标准符号代表某些类型的动作,如决策用菱形框表示,具体活动用方框表示。但比这些符号规定更重要的,是必须清楚地描述工作过程的顺序。流程图也可用于设计改进工作过程,具体做法是先画出事情应该怎么做,再将其与实际情况进行比较。
参考资料来源:百度百科-流程图
热心网友 时间:2022-06-21 02:27
思路分析:先比较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.
启示:自然语言与流程图是表示算法的两种方法,显然流程图更直观、更准确.此算法中包含了顺序和条件两种结构,注意其中条件结构的嵌套(条件分支中含有条件结构)的使用.
流程图:
追问我画出来了,就是最后不知道怎么输出最大值,看你的才知道少了一步,谢谢啦
热心网友 时间:2022-06-21 02:28
思路分析:先比较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.
流程图: