a = Text1 b = Text2 c = a + b Print c为什么输入1和2显示1256
作者&投稿:单枯 (若有异议请与网页底部的电邮联系)
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
旗栋安神: 如果没有定义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 了