全部答案

2014-07-05 11:45:26

•   1、冒泡法排序后输出最大值和最小值
  dim ss
  num=val(inputbox ("输入要求的数的个数"))
  dim a(1 to num) 
  for i=1 to num
  a(i)=texti。text
  next
  for m=num to 2
  for n=1 to m-1
  if a(n)>=a(n+1) then
  ss=a(n+1)
  a(n+1)=a(n)
  a(n)=ss
  end if
  next
  next
  print "MAX:" & a(num)
  print "MIN:" & a(1)
  2、直接求最大值和最小值
  dim ss
  num=val(inputbox ("输入要求的数的个数"))
  dim a(1 to num) 
  for i=1 to num
  a(i)=texti。
    text
  next
  for i=1 to num-1
  if a(i)>=a(i+1) then
  ss=a(i+1)
  a(i+1)=a(i)
  a(i)=ss
  end if
  next
  print "MIN:" & a(1)
  for i=1 to num-1
  if a(i)<=a(i+1) then
  ss=a(i+1)
  a(i+1)=a(i)
  a(i)=ss
  end if
  next
  print "MAX:" & a(1)。
    

  全部
  

  谢***

  2014-07-05 11:45:26

  700 395 评论

  分享
  提交评论
2014-07-05 11:36:35

•   VB好久没有接触了，都忘了，这是我在其他地方找的，你试试看
  1、冒泡法排序后输出最大值和最小值 
  dim ss 
  num=val(inputbox ("输入要求的数的个数")) 
  dim a(1 to num)  
  for i=1 to num 
  a(i)=texti。
    text 
  next 
  for m=num to 2 
  for n=1 to m-1 
  if a(n)>=a(n+1) then 
  ss=a(n+1) 
  a(n+1)=a(n) 
  a(n)=ss 
  end if 
  next 
  next 
  print "MAX:" & a(num) 
  print "MIN:" & a(1) 
  2、直接求最大值和最小值 
  dim ss 
  num=val(inputbox ("输入要求的数的个数")) 
  dim a(1 to num)  
  for i=1 to num 
  a(i)=texti。
    text 
  next 
  for i=1 to num-1 
  if a(i)>=a(i+1) then 
  ss=a(i+1) 
  a(i+1)=a(i) 
  a(i)=ss 
  end if 
  next 
  print "MIN:" & a(1) 
  for i=1 to num-1 
  if a(i)<=a(i+1) then 
  ss=a(i+1) 
  a(i+1)=a(i) 
  a(i)=ss 
  end if 
  next 
  print "MAX:" & a(1)。
    

  全部
  

  伊***

  2014-07-05 11:36:35

  701 395 评论

  分享
  提交评论
2014-07-05 04:51:21

•   1、冒泡法排序后输出最大值和最小值
  dim ss
  num=val(inputbox ("输入要求的数的个数"))
  dim a(1 to num) 
  for i=1 to num
  a(i)=texti。text
  next
  for m=num to 2
  for n=1 to m-1
  if a(n)>=a(n+1) then
  ss=a(n+1)
  a(n+1)=a(n)
  a(n)=ss
  end if
  next
  next
  print "MAX:" & a(num)
  print "MIN:" & a(1)
  2、直接求最大值和最小值
  dim ss
  num=val(inputbox ("输入要求的数的个数"))
  dim a(1 to num) 
  for i=1 to num
  a(i)=texti。
    text
  next
  for i=1 to num-1
  if a(i)>=a(i+1) then
  ss=a(i+1)
  a(i+1)=a(i)
  a(i)=ss
  end if
  next
  print "MIN:" & a(1)
  for i=1 to num-1
  if a(i)<=a(i+1) then
  ss=a(i+1)
  a(i+1)=a(i)
  a(i)=ss
  end if
  next
  print "MAX:" & a(1)。
    

  全部
  

  a***

  2014-07-05 04:51:21

  699 395 评论

  分享
  提交评论