关于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...