Text2.Text = Text2.Text + 1 / Text1.Text这句话在VB里是错的吗?
如何修正,就是一个变量的值加另外一个数,结果放到第一个变量里这样的结构在C里是正确的啊VAL是什么意思?我这里调试错误的原因是对TEXT1输入数据的时候,说类型不匹配...
如何修正,就是一个变量的值加另外一个数,结果放到第一个变量里
这样的结构在C里是正确的啊
VAL是什么意思?
我这里调试错误的原因是对TEXT1输入数据的时候,说类型不匹配 展开
这样的结构在C里是正确的啊
VAL是什么意思?
我这里调试错误的原因是对TEXT1输入数据的时候,说类型不匹配 展开
展开全部
在我这里调试正常可用。是正确的。
改成
Text2.Text = Val(Text2.Text) + 1 / Val(Text1.Text)
更好。
改成
Text2.Text = Val(Text2.Text) + 1 / Val(Text1.Text)
更好。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
说类型不匹配
是因为你的text1或者text2里边填的不是数字,所以val()无法正确转化。
可以加一个老鼠夹子:
Private Sub Command1_Click()
On Error GoTo L
Text2.Text = Val(Text2.Text) + 1 / Val(Text1.Text)
Exit Sub
L:
MsgBox "text框中不是数字"
End Sub
是因为你的text1或者text2里边填的不是数字,所以val()无法正确转化。
可以加一个老鼠夹子:
Private Sub Command1_Click()
On Error GoTo L
Text2.Text = Val(Text2.Text) + 1 / Val(Text1.Text)
Exit Sub
L:
MsgBox "text框中不是数字"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
text的值是字符来的.字符不能用来+ -*/运算..要加上变体函数VAL()才可以
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
val是转换函数,把字符串转换成浮点数,而计算机计算要的就是浮点数,所以应该在你想要的数据转换成浮点数.
text2.text=val(text2.text)+1/val(text1.text)
text2.text=val(text2.text)+1/val(text1.text)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
private
sub
text1_change()
if
option1.value
then
text2.text
=
strreverse(text1.text)
'逆序
elseif
option2.value
then
l
=
len(text1.text)
for
i
=
1
to
l
s
=
s
+
val(mid(text1.text,
i,
1))
'求各数之和
next
i
text2.text
=
s
end
if
end
sub
private
sub
option1_click()
text1_change
end
sub
private
sub
option2_click()
text1_change
end
sub
sub
text1_change()
if
option1.value
then
text2.text
=
strreverse(text1.text)
'逆序
elseif
option2.value
then
l
=
len(text1.text)
for
i
=
1
to
l
s
=
s
+
val(mid(text1.text,
i,
1))
'求各数之和
next
i
text2.text
=
s
end
if
end
sub
private
sub
option1_click()
text1_change
end
sub
private
sub
option2_click()
text1_change
end
sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询