VB求 接近判断关系.如图 combobox 已经搞定dim x(30) as integer X(0) = 0X(1) = 40 ‘x()=后面所对应的数字都是0级 至当前等级所需经验总合X(2) = 150X(3) = 387X(4) = 837X(5) = 1616X(6) = 2868X(7) = 4

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 02:56:17
VB求 接近判断关系.如图   combobox 已经搞定dim x(30) as integer X(0) = 0X(1) = 40                      ‘x()=后面所对应的数字都是0级 至当前等级所需经验总合X(2) = 150X(3) = 387X(4) = 837X(5) = 1616X(6) = 2868X(7) = 4

VB求 接近判断关系.如图 combobox 已经搞定dim x(30) as integer X(0) = 0X(1) = 40 ‘x()=后面所对应的数字都是0级 至当前等级所需经验总合X(2) = 150X(3) = 387X(4) = 837X(5) = 1616X(6) = 2868X(7) = 4
VB求 接近判断关系.

如图   
combobox 已经搞定
dim x(30) as integer
 
X(0) = 0
X(1) = 40                      ‘x()=后面所对应的数字都是0级 至当前等级所需经验总合
X(2) = 150
X(3) = 387
X(4) = 837
X(5) = 1616
X(6) = 2868
X(7) = 4766
X(8) = 7511
X(9) = 11333
X(10) = 16492
X(11) = 23276
X(12) = 32002
X(13) = 43015
X(14) = 56689
X(15) = 73428
X(16) = 93664
X(17) = 117858
X(18) = 146499
X(19) = 180105
X(20) = 219224
X(21) = 264432
X(22) = 316334
X(23) = 375563
X(24) = 442781
X(25) = 518680
X(26) = 603980
X(27) = 699430
X(28) = 805807
X(29) = 923917
X(30) = 1054596
 
For i = 0 To 30
    Combo1.AddItem i
next i
这些我都搞定了
我想得到 例如我在现经验内输入 5000  可从1级   计算结果得到可以升到7级  剩余274 经验
这个我不知道该怎么写代码 

VB求 接近判断关系.如图 combobox 已经搞定dim x(30) as integer X(0) = 0X(1) = 40 ‘x()=后面所对应的数字都是0级 至当前等级所需经验总合X(2) = 150X(3) = 387X(4) = 837X(5) = 1616X(6) = 2868X(7) = 4
dim i as long
dim s as long,os as long,ot as long
s=5000'------------------------输入的值
if s