VB 求大神指点,怎么才能让文本框1和2做加法乘除法,分别在文本框3456中显示

最好有代码,本人是刚入门,很多都不懂

'Command1是“确定”按钮
Private Sub Command1_Click()
Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text))
Text4.Text = Str(Val(Text1.Text) - Val(Text2.Text))
Text5.Text = Str(Val(Text1.Text) * Val(Text2.Text))
If Val(Text2.Text) <> 0 Then
Text6.Text = Str(Val(Text1.Text) / Val(Text2.Text))
Else
Text6.Text = "除数为零!"
End If
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-04-08
若你的text是控件组的话:
Private Sub Command1_Click()

tetx1(2)=val(text(0))+val(text(1))
tetx1(3)=val(text(0))-val(text(1))
tetx1(4)=val(text(0))*val(text(1))

tetx1(5)=val(text(0))/val(text(1))
第2个回答  2013-04-08
要求不明确,详细点

VB 求大神指点,怎么才能让文本框1和2做加法乘除法,分别在文本框3456中...
'Command1是“确定”按钮 Private Sub Command1_Click()Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text))Text4.Text = Str(Val(Text1.Text) - Val(Text2.Text))Text5.Text = Str(Val(Text1.Text) * Val(Text2.Text))If Val(Text2.Text) <> 0 Then Text6.Text = Str(Val...

VB中如何在文本框内输入文字的同时,在标签上显示文本框中的文字
1、方法一:text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 2、方法二:sub command1_click()label1.caption = string("*",len(text1.text))end sub

用vb求数组每行的和并显示在文本框中怎么做啊?我做了之后只显示一行的和...
'你首先要设置text的属性MultiLine = True,这个属性需要你在编程的时候在控件属性中更改,程序中不允许更改 Private Sub Command1_Click()Dim a(4, 4) As Integer '---以下为对这个5行5列数组赋值并显示出来--- For i = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd * 90) + 10...

vb 怎样打开文件并把文件内容显示在文本框
1、添加必要的组件(文本框、按钮)2、设置属性:3、编写按钮的响应代码:代码如下:Private Sub Command1_Click() Dim a$ Text1.Text = "" Open "d:\\test.txt" For Input As #1 Do Input #1, a Text1.Text = Text1.Text & a & vbCrLf Loop Until EOF(1) C...

用vb如何把一个文本框(text1)中的任意一行内容,添加到另一个文本框(t...
用来seltext确定text1选中的内容就可以了,如在text2中显示:text2=text1.seltext,大致思路是这样的~

VB怎么把多个文本框内容显示到一个文本框中
例如:要在text2显示text1,text2,text3中的内容,可以写 text2.text=text1 + text2 +text3

vb里面添加文本框,让文本框可以多行显示,满了换行,有一个竖直的滚动条...
当键入文本超出文本框时多行 TextBox 控件将使正文卷绕。使用 ScrollBars 属性也能够在 TextBox 控件中加入滚动条来加大 TextBox 控件的显示范围。如果没有指定水平滚动条,那么在多行 TextBox 中文本将自动地卷绕。注意 在一个没有缺省按钮的窗体上,在多行 TextBox 控件中按下 ENTER 将把焦点移动...

VB代码怎样做到在文本框的某一指定行、指定列反复显示,比如在一个文...
运行的时候,该图标是隐藏的见下图:完整的代码如下:Option ExplicitPrivate n As IntegerPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 1000n = 0End SubPrivate Sub Timer1_Timer()n = n + 1Text1.Text = ...

vb窗体上有两个文本框:text1和text2,要求在文本框中输入用户名和登入密...
private sub command1_click()if text1.text="12345" and text2.text="12345" then form2.show else msgbox “用户名不对,请重新输入!"a=inputbox("请输入用户名")print “黄莺登入,” & a end if end sub

...中有一个文本框Text1和一个标签框Label1,在文本框中输入字符串后在...
呵呵,一句代码,往窗体拖以上2控件,不用改名 Private Sub Text1_Change()Label1.Caption = trim(Text1.Text)End Sub 复制以上完事。下次发题目应该说明你是用的是VB啊。

相似回答