不同数据类型也能运算？？ - 编程论坛

#2

txxb2015-01-16 21:52

但是在判断时好像会出问题，
If Text1.Text > a Then
这里会有问题...

#3

sj4766067292015-01-17 23:01

当文本个数值想加时自动把文本转换成数值型，而判断时则要分开

#4

sj4766067292015-01-17 23:41

当文本个数值想加时自动把文本转换成数值型，而判断时则要分开

#5

VB丶小宇2015-01-18 09:27

程序代码：

Option Explicit
Dim a As Integer '定义a 为整型变量
Private Sub Form_Load()
Text1.Text = Text1.Text + a '将text1文本中的值（此时文本框中的值为String）但是a 是整型变量，所以运行会出现错误。提示类型不匹配
End Sub

所以说，不同的数据类型不能运算。
要想运算，只需在Text1.Text = val(Text1.Text) + a，加一个Val函数就可以了。
Val函数简介：就是将字符串类型的数据转换为数值型数据，如果转换的数据为空，则返回值为0

#6

txxb2015-01-19 13:17

以下是引用VB丶小宇在2015-1-18 09:27:32的发言：

Option Explicit
Dim a As Integer '定义a 为整型变量
Private Sub Form_Load()
Text1.Text = Text1.Text + a '将text1文本中的值（此时文本框中的值为String）但是a 是整型变量，所以运行会出现错误。提示类型不匹配
End Sub

所以说，不同的数据类型不能运算。
要想运算，只需在Text1.Text = val(Text1.Text) + a，加一个Val函数就可以了。
Val函数简介：就是将字符串类型的数据转换为数值型数据，如果转换的数据为空，则返回值为0

可以相加，，，，

#7

VB丶小宇2015-01-20 09:14

回复 6楼 txxb

代码发上来瞧瞧。。。
有着稀奇事？