VB 高手回答~谢谢

来源:百度知道 编辑:UC知道 时间:2024/06/25 19:41:37
从n个数中挑出最大数
1.读入n的值
2.读入第一个数,赋值给变量max
3.依次读入后n-1个数,与max比较
4.若数值大于max,则将此数赋值给max,输出最大数
(要完整的编程语言!!)

窗体加一按钮
Private Sub Command1_Click()
max=0
for i=1 to 10
m=inputbox("请输入10个数,每次一个:")
if m>max then max=m
next i
msgbox "最大数为:" & max
End Sub

都是高手啊