vb vb list里数据的计算

2024-12-23 01:15:10

推荐回答（4个）

回答1：

通过LIST的ITEM子项的TEXT子项调取某行所有文本
将文本进行处理，也就是将字符串拆解成数字和数学符号
当然字符串形式的数学符号不能直接应用变量的计算，但是可以通过判断IF"+"THEN ...A+B....的形式完成。
如果不会分解字符串，别学了，你没天赋

是我太久不编程了还是怎样，1楼的疯了吗？

回答2：

Private Sub Command1_Click()

Select Case List1.ListIndex
Case 0
MsgBox "6"
Case 1
MsgBox "4"
case 2
......................
case 3
......................
End Select

End Sub

回答3：

Private Sub Command1_Click()
On Error GoTo ErrHandle
Dim sc As Object
Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"
MsgBox sc.Eval(list1.Text), 64, "YE"
Set sc = Nothing
Exit Sub
ErrHandle: '错误处理
MsgBox "程序出错 " & vbCrLf & "错误号: " & Err.Number & vbCrLf & "请输入正确算式! ", vbCritical Or vbOKOnly, "出错" 'Err.Description
End Sub

回答4：

呵呵，楼上的“追逐柏拉图”说得对，再说只要5分根本没什么动力写代码。