a = Text1 b = Text2 c = a + b Print c为什么输入1和2显示1256

vb 3个text,一个按钮，怎么设定a=1，b=2,然后在text1，text2中输入a和b，点击按钮实现a+b并text3出现3~

Option Explicit

Private Const a As Long = 1
Private Const b As Long = 2
Private Const c As Long = 3

Private Function GetValue(ByVal Value As String) As Long

Select Case LCase(Trim(Value))
Case "a": GetValue = a
Case "b": GetValue = b
Case "c": GetValue = c
Case Else: GetValue = 0
End Select

End Function

Private Sub Command1_Click()

Text3.Text = GetValue(Text1.Text) + GetValue(Text2.Text)

End Sub

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

应该养成良好的编程习惯，即：变量使用前，先声明定义变量．
1. VB允许不声明变量，既是优点，更是缺点：
2. 楼上的方法可行，因为text的内容，属于字符类型，而对于字符进行+（或&）运算，就是连接字符．例如；"A" + "B" 结果为＂AB＂,"12" & "34" 结果为"1234",使用Val() 函数,可以将字符类型转换成数值类型.
3. 如果采用声明变量:
Dim a As Single
Dim b As Single
Dim c As Single
a = text1
b = text2
c = a + b
Print c
就可以得到想要的结果,那是因为变量定义为数值类型,VB具有自动转换功能.
所以要养成先定义后使用变量习惯,并且这样做可以避免许多错,便于检查错误.

你的表达我i不明白
意思是求两个数的和
应该为
a = val(Text1.text)
b = val(Text2,text)
c = a + b
Print c

---

旬邑县15161143048： 问 VB中 目的 取出text1输入中的数值 为什么可以a=Text1 而不需要a=val(tex - ？
旗栋安神： 如果没有定义a是什么类型的,a可以是任何类型. 用a=Text1得到的a就是字符型. 用a=val(Text1)得到的a是数值类型.

旬邑县15161143048： vb 求a与b的乘积 怎么写 - ？
旗栋安神： 添加控件: text1、text2、text3、command1(按钮)'源代码:(双击按钮控件,写入以下代码) Private Sub Command1_Click() a=text1.text b=text2.text c=a*b text3.text= c End Sub'双击窗体空白处写入以下代码 Private Sub Form_Load() ...

旬邑县15161143048： 用vb程序计算三个数的平均值 代码要简单易懂的,本人菜鸟 - ？
旗栋安神： Private Sub Command1_Click() '计算平均分 Dim a As Single, b As Single, c As Single, d As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = (a + b + c) / 3 Text4.Text = d End SubPrivate Sub Command2_Click() '清除 ...

旬邑县15161143048： 在我的C++资料书中有一题中有一个类text,程序中有一条语句对对象数组初始化了:text a[3]={text(0),tex... - ？
旗栋安神： 没有错, a[3]={text(0),text(1),text(2)} text(i) 是显式调用构造函数建立临时对象 然后用这些临时对象通过拷贝构造函数初始化text数组a的三个对象.

旬邑县15161143048： 我编写了一个判断输入的三个数字是能够成三角形的vb代码,可是运行后输入数字都显示“不是三角形” - ？
旗栋安神： 其实呢 abc三边是数据类型的 不是字符串 不能定义成字符型的 当然 你的如果要令a等于文本框的内容的话 应该这样写 a = text1.text 不是你那样写的 还有就是 你的标签怎么可能是label4呢 ?你之前根本就没有标签控件出现的哦,不是你那样写的 ...

旬邑县15161143048： 在Text1输入整数a、Text2输入整数b,判断a和b的大小,并把较大的数在Text3文本框中输出. - ？
旗栋安神： 在比较按钮事件中写 dim a,b as integer a=cint(text1.text) b=cint(text2.text) if a>b then text3.text=a elseif a text3.text=b elseif a=b then msgbox＂两个数一样大!＂ end if

旬邑县15161143048： VB编写程序求三个数中的最大数. - ？
旗栋安神： 假设 三个数字为 a,b,c,你设置个text输入自己想要比较的数字 dim a as integer, b as integer,c as integer,i as integer dim a() as integer a=text1:b=text2:c=text3 redim a(3) a(1)=a:a(2)=b:a(3)=c for i=1 to 2 for j= i+1 to 3 if a(i)<a(j) then temp=a(i) a(i)=a(j) a(j)=temp end if next j next i

旬邑县15161143048： 使用文本框输入变量a和b,然后把a和b的值交换,最后用文本框输出交换后变量a和b的值 - ？
旗栋安神： 最简单就是用两个文本框了 主程序段可以这样 dim a%,b%,t% print ＂请在text1中输入a和b的值,用逗号隔开＂ t=instr(1,text1.text,＂,＂) a=val(left(text1.text,t-1)) b=val(right(text1.text,len(text1.text)-t)) t=a a=b b=t text2.text= a & ＂,＂ & b

旬邑县15161143048： 用VISUAL FOXPRO求三个数的最大数(最小数)(用分支的方法) - ？
旗栋安神： if(a>b)max=a elsemax=b endif if(max<c)max=c endif

旬邑县15161143048： vb语言中Text - value(变量).Text是什么意思 - ？
旗栋安神： value是把字符变量转变成数值变量的函数 比如说你在文本框里输入数字,默认状况下所输入的数字为文本型,需要把他转变成数值型才能进行加减乘除的运算. 比如把text1里的文本转换为数值型可以这样用 a = Val(Tex1.Text) 这样以后就可以用a 来代替text1 了