[已解决]有意思的程序，字符 根据设定值 变化

elexy

local   $str="149"  ;这个值是获取的硬盘容量，可变的，因为标称值、格式化、隐藏分区等问题，这个数值都会比标准较低一些。

硬盘容量众所周知，常见以下几种  40 60 80 250 320 500 1000 1500 2000

怎么样通过代码，将$str的值放在以上几个档位里面，取大的档位， 变成 某个数值？？？

像 149 的例子，就得到 $str2 = 160  结果
74  就得到 80 的结果
223  就得到 250 的结果
251 就得到 500 的结果
0 的话 就得到 $str2 = ERR

afan版主搞定，谢谢！见5楼

3mile

81呢？是算入160还是80？

chenzhi1210

硬盘值比标准值低，如果出现81，那肯定不是80G的硬盘，而是更大的硬盘

elexy

81呢？是算入160还是80？
3mile 发表于 2011-9-28 10:43

3楼正解  值若是 81  算更大的值。

afan

Local $val = InputBox('', '输入数值', '150', '', 200, 100)
If @error Then Exit
$val = Number($val)
Local $a[10] = [1, 80, 160, 250, 320, 500, 1000, 1500, 2000, '2000以上']
For $i = UBound($a) - 2 To 0 Step -1
        If $val = Number($a[$i]) Then
                $val = $a[$i]
                ExitLoop
        ElseIf $val > Number($a[$i]) Then
                $val = $a[$i + 1]
                ExitLoop
        EndIf
Next
MsgBox(64, '', $val)