VB编程求10个两位随机数的最大值( 要求用过程或函数完成)
答案:2 悬赏:50 手机版
解决时间 2021-03-25 08:28
- 提问者网友：佞臣
- 2021-03-25 02:18
VB编程求10个两位随机数的最大值( 要求用过程或函数完成)
最佳答案
- 五星知识达人网友：罪歌
- 2021-03-25 03:23
private sub form_load()
show
dim a%(10)
for i=1 to 10
a(i)=int(rnd*90+10)
print a(i);
next i
print
max=mymax(a)
print "最大值为；";max
end sub
private function mymax( x) as integer
dim k%
m=lbound(x)
n=ubound(x)
for i=m to n
if k
mymax=k
end function
show
dim a%(10)
for i=1 to 10
a(i)=int(rnd*90+10)
print a(i);
next i
max=mymax(a)
print "最大值为；";max
end sub
private function mymax( x) as integer
dim k%
m=lbound(x)
n=ubound(x)
for i=m to n
if k
mymax=k
end function
全部回答
- 1楼网友：玩世
- 2021-03-25 03:57
private sub form_load()
show
dim a%(10)
for i=1 to 10
a(i)=int(rnd*90+10)
print a(i);
next i
print
max=mymax(a)
print "最大值为；";max
end sub
private function mymax( x) as integer
dim k%
m=lbound(x)
n=ubound(x)
for i=m to n
if k
mymax=k
end function追问这个我们没学过= =不能运行啊追答我运行通过才发上来的。怎么会不能运行？而且，这是最简单的做啊。怎么没学过呢？追问哦哦我再试试谢谢
show
dim a%(10)
for i=1 to 10
a(i)=int(rnd*90+10)
print a(i);
next i
max=mymax(a)
print "最大值为；";max
end sub
private function mymax( x) as integer
dim k%
m=lbound(x)
n=ubound(x)
for i=m to n
if k
mymax=k
end function追问这个我们没学过= =不能运行啊追答我运行通过才发上来的。怎么会不能运行？而且，这是最简单的做啊。怎么没学过呢？追问哦哦我再试试谢谢
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯