vb6.0计算游戏内某件装备造价

建议一个题外话，你的那些textbox控件可以弄成一个数组，那些公共变量也弄成一个数组。

另外，你的问题，可能不大现实。
玩游戏的人都知道，例如
装备一：头饰1，适合1段；头饰2，适合2到3段；头饰3，适合4到6段，头饰,4；适合7段到8段……
装备二：项圈1适合1段到4段；项圈二适合5段到8段，项圈3，适合9段到10段……
装备三：护甲1适合1段，护甲2适合2段到4段，护甲3适合3段到6段，护甲4适合4段到7段，护甲5适合5段到9段，护甲6，适合6段到10段……
等等
仅就这三样，2段到5段就有很多个值了，而不是一个确定的值。

一个arr(1 to 15, 1 to a)数组（a-15种材料某种材料数目的最大数），
一个brr=arr数组，内设价格，与arr一一对应
另一个index(1 to 15)辅助数组，每种材料的材料数目(因为每种材料的数目不一定一样)，写代码可减少计算量，也可不要而直接循环到ubound(arr,2)。
-----------
textbox控件数组（1 to 15),
计算反正很简单，不过材料名搞起来有点复杂，可在excel先做个表格罗列一下，这样写代码的时候不容易错。

'写个测试代码，自己理解一下
Option Explicit
Private Sub Form_Activate()
　　Dim arr(1 To 14, 1 To 2), i, s
　　For i = 1 To UBound(arr)
　　　　arr(i, 1) = i & "-" & i + 1
　　　　arr(i, 2) = i
　　　　Debug.Print arr(i, 1); arr(i, 2),
　　Next
　　Print getcash(arr, "1-3")
　　Print getcash(arr, "1-5")
End Sub
Function getcash(arr, s)
　　Dim i, j
　　s = Split(s, "-")
　　For i = 1 To UBound(arr, 1)
　　　　If Split(arr(i, 1), "-")(0) = s(0) Then
　　　　　　For j = i To UBound(arr, 1)
　　　　　　　　getcash = getcash + arr(j, 2)
　　　　　　　　If Split(arr(j, 1), "-")(1) = s(1) Then
　　　　　　　　　　i = UBound(arr, 1)
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　End If
　　Next
End Function

你把你的那一堆变量和文本框整成数组
把你的excel里的数据看成15条数组。例如2~6段，你就将循环的初始值设置为2，终值为6。。累加后面的金额就是总金额了。是这个意思吗？

曲突徙薪