关于vb的问题，请大神帮忙！！！ 基本内容就是每个v都对应一个c(已知的v有10个，对应的c也知道

Dim c(10) As Single, v(10) As Single

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Form1.AutoRedraw = True
    Cls
    Print "原始数据是："
    Print "v"; Space(3);
    For i = 1 To 10
        v(i) = Val(InputBox("请输入第 " & i & " 个 v 的值", "输入v", i))
        Print Format(v(i), "###0.00"); Space(3);
        c(i) = Val(InputBox("请输入 v=" & v(i) & " 对应的 c 值", "输入c", v(i) * 1.2))
    Next
    Print
    Print "c"; Space(3);
    For i = 1 To 10
        Print Format(c(i), "###0.00"); Space(3);
    Next
    For i = 1 To 9
        For j = i + 1 To 10
            If v(i) > v(j) Then
                v(0) = v(i)
                v(i) = v(j)
                v(j) = v(0)
                c(0) = c(i)
                c(i) = c(j)
                c(j) = c(0)
            End If
        Next
    Next
    Print
End Sub

Private Sub Command2_Click()
    Dim v1 As Single
    Dim i As Integer, k As Integer
    v1 = Val(InputBox("请输入要计算的速度 v 的值", "输入v", v(3)))
    For i = 1 To 10
        If v(i) = v1 Then
            Print "已经找到与速度 v = " & v1 & " 相对应的 c 值 = " & c(i)
            Print "因没有公式 1 , 无法计算，程序到此结束"
            Exit Sub
        End If
    Next
    If v1 < v(1) Or v1 > v(10) Then
        Print "你输入的 v = " & v1 & "的值太大或太小，找不到两个跟它最接近的值"
        Print "不能完成题目要求，程序终止"
        Exit Sub
    Else
        For i = 2 To 10
            If v1 < v(i) Then
                Print "已经找到与速度 v = " & v1 & " 最接近的两个速度 v 的值，它们分别是：" & v(i - 1) & " 和 " & v(i)
                Print "因没有公式 2 , 无法计算出与 v = " & v1 & " 对应的c，程序到此结束"
                Exit Sub
            End If
        Next
    End If
End Sub

Private Sub Form_Load()
    Command1.Caption = "输入原始数据"
    Command2.Caption = "计算"
End Sub

已经运行过，有什么问题请留言。

指导意见：
您好，带状疱疹属于病毒感染，主要以抗病毒治疗，建议输液治疗：头孢曲松钠、利巴韦林注射液、维生素C注射液静滴。注意饮食，忌鱼虾、香菜、脂肪类、辛辣刺激性食物。避免抓挠，注意卫生。祝康复。

那你这样呀？
dim v(10),c(10)
v(1)=??:v(2)=??:v(3)=??:v(4)=??:。。。。。。v(10)=??
c(1)=??:c(2)=??:c(3)=??:c(4)=??:。。。。。。c(10)=??
这个问号，就是你自己的具体数据，这些数据V从小到大排列！！！
dim i as integer
dim MMax as integer,MMin as integer,K as integer

dim VV
VV = Val(Inputbox("输入一个速度"))
for i=1 to 10
if vv = v(i) then
k=i
exit for
end if
if i<=9 and vv>= v(i) And vv <= v(i+1) then
MMin = i
MMax = i +1
end if
next i
if k<>0 then
'这里用公式一，速度用 v(k)
else
if MMax<>0 And MMin<>0 then
'这里用公式二
end if
end if