求助！求最大值和最小值，并输出自变量的问题

zhucheng603 发布于 2013-01-19 10:48， 407 次点击

题目如下：
C=2A-B,1≤A≤10,1≤B≤10,
要求输出C的最大值及此时的A和B的值，
以及输出C的最小值及此时A和B的值。
我刚刚开始学VB，只会编出输出C的最大值和最小值，不能输出此时对应的A和B的值。
求各位师傅指导一下！非常感谢！

2 回复

风吹过b2013-01-19 14:41

dim a1 as long ,a2  as long ,b1  as long,b2 as long
dim c1 as long,c2 as long ,c as long
dim i  as long,j as long
c1=20
c2=0
for i=1 to 10
  for j=1 to 10
     c=2*a-b
     if c<c1 then
        c1=c
        a1=i
        b1=j
      end if
      if c>c2 then
        c2=c
        a2=i
        b2=j
      end if
   next j ,j
? "Max C =";c1;":A=" ; a1 ;"B=" ;b1
? "Min C =";c2;":A=" ; a2 ;"B=" ;b2

赤血之魂2013-01-19 14:42

$-_-