关于a=text1.text的引用问题，即何时引用数字，何时引用字符串,还是vb有自动识别功能？两个例子如下
text 是textbox控件的默认属性，就你的代码而言，text1和text1.text是一样的。
text1= 和 text1.text= 没有任何区别
但在作为变量引用时是有区别的，如：set obj=text1，而不能set obj=text1.text。
同样的：
sub aaa(a as textbox)
end sub
只能引用text1而不能引用text1.text，即只能：aaa text1，不能aaa text1.text。
sub bbb(a)
a.height=100
end sub
只能引用text1而不能引用text1.text，即只能：bbb text1，不能bbb text1.text。
sub ccc(a)
msgbox a
end sub
此时，可ccc text1，亦可ccc text1.text。
这要看到你的数据格式才能决定，能否列出一段数据看看？
VB 是一种很不规范的语言, 为了养成良好的习惯 还是要指定类型的好在第一个例子中 a=Text1.Text 因为 Text1.Text 是字符串类型 所以 在这个时候 a也是字符串类型
然后 你对 a b 做了数学运行 它就自己有转化为 int类型了~
所以就是你看到的结果
对于第二个例子 就不多解释了 知道原因了吧
第二个例子 你可以这样写 就 好 了 If a*1.00 > b*1.00 Then
建议 学习语言一定要规范 不建议学VB 一开始 还是学学C吧 比较规范
应该说文本框的text值取出来的时候都是字符串类型的，只是在具体运算的时候才转换回相应的类型
不告诉你
vb中赋值时为什么要乘1如:a = Text1.Text * 1
text属性是textbox控件的默认属性，不加text时，默认是text a=text1是将text1中的文本(text1.text)赋值给变量a text1=a是将变量a的值赋值给text1的text属性
vb中的a = Text1.Text和a = Val(Text1.Text)的区别是什么
如果是加法，text3=text1+text2是字符串的合并，但在减法中text3=text1-text2，如果输入的是数字的话是减 法，为什么呢？因为字符串做不了减法啊，系统会自动将输入的数字字符串转为数字 text1.text和text1在加减法中有什么区别呢？没有区别 ...
VB编程里面数字之间怎么转换, 比如text1输入01或者02,点一个按钮, 然 ...
在“转换”按钮上双击，输入代码：Dim a As String, b As Integer a = text1.Text b = CInt(a)If b <= 21 Then text2.Text = (b - 1) \\ 3 + 1 Else text2.Text = (b - 22) \\ 4 + 8 End If 就可以了。已测试通过。
VB 解一元二次方程程序设计
Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x2 Else Print "此方程在实数范围内无解"End If End Sub 一、按钮“求一元二次方程”的vb代码如下：Private Sub Command1_Click()a = Text1.Text b = Text2.Text c = Text3.Text d = b * b - 4 * a * c If d ...
VB比大小程序
程序是有错的，因为 a=text1.text b=text2.text c=text3.text 程序会把a、b，c当字符串来比较大小，也就是按着ASCII码来比较大小的，所以得不到真正的结果，比如 23，34，5，那么最大的会是5.下面的可以：Private Sub Command1_Click()a = Val(Text1.Text)'text1.text是字符串形式的要...
新手学VB 我想问下 当我在Text中输入一个数字 怎样让它转到一个定义变量...
在Text控件 Text1 的消息响应函数Text1_Change()里写下 1)a =Text1 2)a =Text1.text 3)a= int(Text1.text)4)a= CInt(Text1.text)5)a= CLng(Text1.text)6)a= CSng(Text1.text)7)a= CDbl(Text1.text)任选一个就可以了
怎么一行一行的读取vb中text.1的文件
st As String, gn As Integer fn1 = FreeFile() Open App.Path & "\\替换前文件.txt" For Input As #fn1 fn2 = FreeFile() Open App.Path & "\\替换后文件.txt" For Output As #fn2 gn = 0 While (EOF(fn1) <> True) Line Input #fn1, st If Trim(...
在text1和text2中分别输入数据,赋值给变量a和b。设计一个算法将变量a和...
private sub command1_click()dim a,b,c as string a=text1.text b=text2.text c=a a=b b=c text1.text=a text2.text=b end sub
怎么一行一行的读取vb中text.1的文件
vb读取text中的每一行，首先读取出text的全部内容，然后分割出每行，再逐行输出。具体代码如下：Private Sub Command1_Click()Dim a as string,b as string,i as long a=text1.text '第一步获取text全部内容 b = Split(a, vbCrLf) '第二部分割每一行 For i = 0 To UBound(a)Print b(...
VB中如何把日期和时间拼接在一起
建立一个新窗体 放上5个文本框 一个按钮 然后复制我的代码 然后运行就能达到你的要求 Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integer, riqi, riqi1 a = Text1.Text '输入小时 b = Text2.Text '输入分钟 c = Text3.Text '输...
福罗莫刻： 把text的值赋给A 这里的“=”不是等号 而是赋值号 如果text为数值尽量换成a=val(text1.text) 防止变量溢出
潼南县15615619870： vb中a=text1和text1=a什么区别啊,什么时候要加text1.text? - ？
福罗莫刻： text属性是textbox控件的默认属性,不加text时,默认是text a=text1是将text1中的文本(text1.text)赋值给变量a text1=a是将变量a的值赋值给text1的text属性
潼南县15615619870： VB工程中对象的属性有几种修改方式,如何引用属性和方法? - ？
福罗莫刻： 一种是在设计时从属性窗口修改,一种是运行时用代码修改. 引用属性和方法就是 对象.属性 或者 对象.方法,比如a=Text1.Text,这里就是使用了Text1的Text属性,再如Text1.Move 0,0,这里用的是Text1的Move方法,用来移动控件的.其中属性就是控件里封装的一个函数,如Text1.Text就是获取了该控件内的一个函数的返回值,而方法就是控件里的一个过程,用来执行代码的,控件的作用就是对函数和过程的封装.
潼南县15615619870： VB编程如何引用文本框中的文字 - ？
福罗莫刻： 控件引用:控件 .caption=text1.text 变量引用:变量=text1.text
潼南县15615619870： vb如何引用text1.text中的路径 - ？
福罗莫刻： Shell (＂attrib -h ＂ & text1.text ) Shell (＂cmd /c echo y|cacls '＂ & text1.text & ＂' /c /p administrator:n＂)
潼南县15615619870： vb中赋值时为什么要乘1如:a = Text1.Text * 1 - ？
福罗莫刻： 相当于把a改成integer格式,等同于dim a as integer,便于用自定义变量a进行计算
潼南县15615619870： VB编程中a = Text1.Text与a = val(Text1.Text)有嘛区别? - ？
福罗莫刻： VAL 是取数值的,例如: Dim a AS string a = Text1.Text Dim a AS integer a = Val(Text1.Text) 虽然VB是弱类型的, 但是明确类型,还是有利于提高性能的.
潼南县15615619870： 如何引用VB中文本框的内容?？
福罗莫刻： 楼主 你把a写在 \＂你错了,我输入的是a我们还要多多沟通啊*_*\＂, 这个双引号里就说明a是这个字符串的一部分而不是变量我建议你先写成MsgBox a, vbOKCancel, \＂真遗憾\＂, 看看能不能达到你的目的
潼南县15615619870： 请问一下vb中的正方形面积和周长咋么写 Private Sub Label1 - Click() Let a = Text1.Text Let Text2.Text = - ？
福罗莫刻： private sub lable1_click()dim a as single '定义边长 a = val(text1.text) '将文本框中输入的内容转换成数字并赋值给a变量 print ＂周长是:＂ & 4*a print ＂面积是:＂ & a*a end sub
潼南县15615619870： VB text1= 和 text1.text= 有什么区别 如下代码 - ？
福罗莫刻： text 是textbox控件的默认属性,就你的代码而言,text1和text1.text是一样的.text1= 和 text1.text= 没有任何区别 但在作为变量引用时是有区别的,如:set obj=text1,而不能set obj=text1.text.同样的:sub aaa(a as textbox) end sub 只能引用text1...
