UC知道VB编程高手帮忙，急求！！
来源：百度知道 编辑：UC知道 时间：2024/05/09 20:21:28
a b c D=5*c/(5*c+b)
0.25 0.75 0
0.3 0.5 0.006
0.35 0.43 0.015
0.4 0.335 0.03
0.45 0.25 0.06
0.5 0.185 0.09
0.55 0.13 0.13
0.6 0.09 0.175
0.65 0.06 0.24
0.7 0.033 0.315
0.75 0.015 0.43
0.8 0 0.58
求D，数组如何编程输出，最好能给完整的语言程序，谢谢！！
这个表格比较清楚
a----- b----- c----- D=5*c/(5*c+b)
0.25----- 0.75----- 0
0.3----- 0.5----- 0.006
0.35----- 0.43----- 0.015
0.4----- 0.335----- 0.03
0.45----- 0.25----- 0.06
0.5----- 0.185----- 0.09
0.55----- 0.13----- 0.13
0.6----- 0.09----- 0.175
0.65----- 0.06----- 0.24
0.7----- 0.033----- 0.315
0.75----- 0.015----- 0.43
0.8----- 0----- 0.58
0.25 0.75 0
0.3 0.5 0.006
0.35 0.43 0.015
0.4 0.335 0.03
0.45 0.25 0.06
0.5 0.185 0.09
0.55 0.13 0.13
0.6 0.09 0.175
0.65 0.06 0.24
0.7 0.033 0.315
0.75 0.015 0.43
0.8 0 0.58
求D，数组如何编程输出，最好能给完整的语言程序，谢谢！！
这个表格比较清楚
a----- b----- c----- D=5*c/(5*c+b)
0.25----- 0.75----- 0
0.3----- 0.5----- 0.006
0.35----- 0.43----- 0.015
0.4----- 0.335----- 0.03
0.45----- 0.25----- 0.06
0.5----- 0.185----- 0.09
0.55----- 0.13----- 0.13
0.6----- 0.09----- 0.175
0.65----- 0.06----- 0.24
0.7----- 0.033----- 0.315
0.75----- 0.015----- 0.43
0.8----- 0----- 0.58
呵呵...帮你做个吧:
Private Sub Command1_Click()
Dim i&, s$(), t$(), t1$, t2$
ReDim s$(10000)
Open "c:\in.txt" For Input As #1 '读取数据文件
Do While Not EOF(1)
Line Input #1, bds$ '先放入临时变量,检查是否为空行
If Len(Trim(bds)) > 0 Then '逐一写入数组
s(i) = Trim(bds)
i = i + 1
End If
Loop
Close #1
If i < 1 Then Exit Sub '如果文件有问题就退出
ReDim Preserve s(i - 1)
t1$ = Mid(s(0), InStr(s(0), "=") + 1)
For i = 1 To UBound(s)
t2$ = t1$
t = Split(s(i))
t2 = Replace(t2, "b", t(1)) '替换变量b
t2 = Replace(t2, "c", t(2)) '替换变量c
'不知道精度,我替你保留小数点2位,不喜欢要以拿掉format语句
s(i) = s(i) & " " & Format(WZcalc(t2), "0.00")
Next
Open "c:\out.txt" For Output As #1 '写出输出文件!
Print #1, Join(s, vbCrLf)
Close #1
MsgBox "ok!"
End Sub
Function WZcalc(Tmpstr$) A