你是想知道怎么用vb语言写还是想知道思路。我不会vb,但无论用什么编程思路是一样的。说说思路吧希望能帮上你 思路有两种 一种冒泡法 一种遍历法 都可行 也都对
先设abc三个变量作为输入变量 设x为缓冲变量
冒泡法:
如果 a>=b 那么 x=a
否则 x=b
如果 x>=c 输出c
否则 输出x
其实这个思路就是 随便两个数比较 ,取出较大的数,然后再与第三个数比较,取出较大的数
最后得出那个一定是最大的。
遍历法 :
如果a>=b 那么a=a
否则 a=b
如果a>=c 那么a=a
否则 a=c
输出a
这个思路就是永远让a的值保持在三个数中最大的
最后输出x就可以了
三个数的比较有点特殊 所以冒泡和遍历看起来差别不大
如果是n个数的话 推荐遍历法比较简便 逻辑也更清晰
Private Sub Form_Load()
Dim a As Integer, b As Integer, c As Integer, Max As Integer, Min As Integer
a = InputBox("请输入a值")
b = InputBox("请输入b值")
c = InputBox("请输入c值")
If a > b Then
Max = a
Min = b
Else
Max = b
Min = a
End If
If Max > c Then '确定最大值
Max = Max
Else
Max = c
End If
If Min < c Then '确定最小值
Min = Min
Else
Min = c
End If
Print "Max=" & Max
Print "Min=" & Min
End Sub