VB求最大值程序和流程图

来源：百度知道 编辑：UC知道 时间：2024/09/28 07:54:55
输入20个分别是每年的统计数据
求最大值以及找出是几几年的
就是那什么先假设第一个数是最大的
然后逐个和它比较
若比它大就赋值给它
再继续与其他比较

MS叫啥枚举法....

还要流程图....

Private Sub Command1_Click()Dim i As IntegerDim dbl1 As DoubleDim str1 As StringDim dblMax As DoubleDoredo:str1 = InputBox("输入第" & i + 1 & "个数字", "输入")If Not IsNumeric(str1) Then GoTo redodbl1 = Val(str1)i = i + 1Print dbl1;If dbl1 > dblMax Or i = 1 Then dblMax = dbl1 '假设第一个数（i=1时）最大Loop While (i PrintPrint "最大值是:"; dblMaxEnd Sub流程图



VB求最大值
dim maxa as integer
dim ary(19) as integer
maxa=ary(0)
for i=1 to 19
if ary