51问答网 > VB编程题：编写一个程序，用户连续输入N个数值，直到输入数值0为止，且最后显示出输入数值中的最大数

VB编程题：编写一个程序，用户连续输入N个数值，直到输入数值0为止，且最后显示出输入数值中的最大数

VB高手出来啊！

2025-03-12 02:54:23

推荐回答（4个）

回答1：

dim max as long,x as long
do
x = val(inputbox("输入数据，留空或填0结束"))
if x>max then max=x
loop until x=0
msgbox "max=" & max

回答2：

这样可以了，这个300你可以自己改
Dim a(300)
i = 1
Do While 1
a(i) = InputBox("请输入值:", "输入框")
If a(i) = 0 Then Exit Do
i = i + 1
Loop
Max = a(1)
For j = 2 To i - 1
If Max < a(j) Then Max = a(j)
Next
Print "最大值为:", Max

回答3：

用循环控制语句，条件循环。输入的数据用数组保存。用第一个数组元素分别与其他元素值对比。，取出最大值。

回答4：

300