编一个VB程序

编一个程序，用户连续输入N个值，直到输入非数据为止。最后输出其中最大的一个数。小弟是个新手，希望用简单的语言来编写，在此 谢过。

dim temp, maxnumber

temp = 0

maxnumber = 0

do

temp = inputbox("请输入数字：")

if not isnumeric(temp) then exit do

if int(temp)>maxnumber then maxnumber = temp

loop

? maxnumber

• ·那位高手可以帮我翻译一下下边这段话（汉译英）
• ·求一首非常大气的背景音乐，古曲
• ·流行与古典的音乐
• ·删不了对你的思念。我该怎么办？
• ·有孩子了 不喂养了会怎样
• ·诺基亚N5200的1G的内存卡多少钱
• ·你会找个爱你多点的还是你爱的做老婆?
• ·高手解答 斯达康702-U
• ·门徒里面吴彦祖弄了一瓶篮绿色的液体，还不让小女
• ·现在最便宜的赛车汽车