Question

vb中标准表达式中数据类型不匹配.

Dim dbstring As String
Dim db As Database
Dim query As String
Dim i As Integer
Dim names(0 To 3) As String
Dim statuses(0 To 3) As String
Dim new_name As String
Dim new_status As String
Dim new_amount As Single
dbstring = App.Path & "\test.mdb" '打开数据库
Set db = OpenDatabase(dbstring)
'储存几种测试的物品。
statuses(0) = "打印机"
statuses(1) = "扫描仪"
statuses(2) = "计算器"
statuses(3) = "刻盘机"
names(0) = "张三"
names(1) = "王五"
names(2) = "李四"
names(3) = "赵六"
'产生随机数，为几种物品随机设置几种价格。
Randomize
For i = 1 To 50
new_name = names(Int(Rnd * 4))
new_status = statuses(Int(Rnd * 4))
new_amount = 50 + Rnd * 1000
'将价格保存到数据库。
query = "INSERT INTO author values(" & " '" & new_name & "' ," & " '" & new_status & " '," & new_amount & ")"
db.Execute query
Next i
db.Close
出错在db.Execute query这一句，说vb中标准表达式中数据类型不匹配.

Answer 1

可能属于功能性问题.3尖瓣轻度返流意义不大.
孩子体质弱，应该从饮食等方面调节，适当补一点维生素.可能管用！
没有铅中毒、查血铅有意义吗？

请问还有没有其他的症状？

和我家儿子的诊断一样的,我家孩子也是比一般孩子软一样,对于3尖瓣少量返流，我们咨询过很医生都说没事,说正常人也可以是心脏听起来有杂音的,而且也有可能长大了会长好的.没有影响的.建议给孩子查一下血铅含量,我家儿子喝过一段时间排铅的效果明显．