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/07/04 19:22:38
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
xV[oE+HWvfHP;B~CuxMֈ'%#*@6T@ Ϯ/QѪef~gΜZw7߯p4}|[ ~>*~.] W Vs_UceÉW5Qgr.vo~82YՉ8ܛ8czTpKe/9|bgШdMΰl,gVRHNMFejgh-X]1W(/~/KF֬/{k٬n;QuTxNh~Ҿߢ\BWl(X[9i[l׃r˷jQ4MxXF.rw B@ -.\\r(l!΀CPVu@iy-9HRr߼qF>dqe< ʑUԉWnrپyz ʤ  e@,SBH i1eY@s )LSŠ&FiJ 0M R+LӃaԱǔ1|̶5Y 'Wԕ*ҤA#j"]JV ]H1},@< fkD>PC@`KQ ,("M!0 ĺy%{Z]  >Vwz~x,{vv59o=18wL.>O$bscz+6Fv$nOC8^2ލ_Gb'b>b$_>D&oGkQN dcݵBH\ HgvVHE^ R^TO/Wo^J̨tS$

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