VB编程,怎么用文本框接收数据然后弹出计算结果?

函数a*1.5。用文本框控件接受输入数据a,点击确定,弹出消息框显示计算明细和结果,请问这个程序怎么编啊?
我想要程序,2楼的语句不对。

第1个回答  2009-08-10
msgbox "计算结果是:" & cdbl(text1)*1.5本回答被提问者采纳
第2个回答  2009-08-10
text1.text=a*1.5
msgbox"结果为:" & text1.text
第3个回答  2009-08-10
msgbox val(a)*1.5

在VB中,如何从文本框里获取算式直接计算?
如 Print ScriptControl1.Eval(Replace(Replace("1×2+3÷4+5", "×", "*"), "÷", "\/"))等价式为 Print ScriptControl1.Eval("1*2+3\/4+5")输出的是 7.75.要注意 替换 × ÷ 等 非法运算符为VB可以识别的运算符 * \/ .

vb怎么把结果输出到文本框里?
参考输出方法如下:text1.text="想要的文本"text1.text = text1.text & out Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。

VB中,我Text文本框输入一个数学公式,怎么才能提到它的结果?
手机回答不多打字我就给你个思路吧!先把公式赋给数组然后用for便历数组然后用selectcase判断是+就用前一个元素于后一个相加然后赋给变量以此类推这个写法不判断算数优先级

vb里执行时往文本框输入数据,怎么获取这个数据。文本框原来有值在
标准的做法,是在标签(Label)中显示“需要的时间”这几个字,而在Text中输入数据,这样其他文本框可以直接调用这个Text的内容,也就是说提示性的文字应该与要输入的数据分离开来,以便程序分别对待,这才是符合所谓“图形用户界面”精髓的规范做法,否则就回到10多年前DOS时代的字符界面了。如果你非要这...

VB6.0如何读取TXT中的数据并求和
MsgBox "第一个文本框内容" & Text1.Text & ",第二个文本框内容" & Text2.Text & "第三个文本框内容" & Text3.Text & 总和 Text1.Text + Text2.Text + Text3.Text & "。"End Sub 读取文件的话,用下面的代码:Private Sub Command1_Click()Dim txt1 As String, txt2 As String...

怎么让vb程序显示计算后的数值
1、直接用输出控件 比如用text1输出。计算结果是s 你可以把s赋给text1.text 代码为 text1.text=s 这里的s可以字符型,也可以是数字型 他会自动转换成字符型,等效 text1.text=cstr(s)本例中 就用这种方法来显示,代码有错误 把(Text.1 text) = s 改成(Text1. text) = s 就可以了 ...

vb2005中如何在文本框中输入数据就自动查询数据库将结果显示在Datagridv...
在文本框的键按下值过程中,检查如果您按下的是回车键或制表键,从数据库从调用数据表的LOAD过程,这样可以降低数据库的导入过程.方案三,在初始化时,导入数据,并设置数据表的FILTER的值,以达到初始化.在文本框中输入内容时,重新设定数据表的FILTER属性即可.(FILTER和SQL的查询命令中的条件差不多,具体...

vb 程序设计 如何用文本框来显示所有要显示的东西???
这样当数据超出文本框的范围时,可以通过滚动条扩展显示;如果数据是一次性读入的,则: Text1.Text = 文本字串或文本型变量名 如果数据是分多次读入,每次读入一行,则: Text1.Text = Text1.Text & 文本字串或文本型变量名 & vbCrLf 最后要注意一点,VB的文本框最多只能读入64KB的数据。

关于VB编程实现:在文本框中每输入一个字符时,立即在窗体上输出当前文本...
Text1.Text = "" '清除文本框Text1里的内容 Text1.SetFocus '使得文本框Text1获得焦点,即光标处于该控件里 End Sub '本行表示事件过程的结束 --- Private Sub Command2_Click() ’这个表示是Command2的单击事件,本行表示事件过程的开始 End ...

vb6.0读取文本框数据并排序计算代码?
Option Base 1 Private Sub CommandButton1_Click()Dim Wjm As String Wjm = Application.GetOpenFilename("文本文件(*.txt),*.txt")If Wjm <> "" Then Dim Zfc As String Dim Fhz(10000) As String Dim Sjb()Dim Jgb()Dim Zbb Dim Zgs As Integer Dim i As Integer Dim j As Integer...

相似回答