怎么让vb程序显示计算后的数值

Dim a, s, x As Single
a = InputBox("请输入1自变量宽")
x = InputBox("请输入自变量值")
s = a * a + 8 * x
(Text.1 text) = s
这是这个程序的式子,如何让他们计算后再显示出来??本人新手,求大神指教
就是让s这个量显示出来,现在我调试的时候显示不出来

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

2、用 print 语句
print 语句用法为: 控件名.print s
控件名为你要显示的地方,可以是form 也可以是picture控件等 s就是的计算结果。
也可以用debug.print s。这样结果就显示在调试窗口。
温馨提示:内容为网友见解,仅供参考
第1个回答  2016-05-17
1、在窗体添加text1和command1,在command1的单击事件里运行你代码,在text1里显示结果。
2、工具vb6
3、示例:
Private Sub Command1_Click()
Dim a, s, x As Single
a = InputBox("请输入1自变量宽")
x = InputBox("请输入自变量值")
s = a * a + 8 * x
Text1.Text = s
End Sub
3、注意:要确保inputbox()输入的是数值。
第2个回答  2016-05-29
最简单的,在窗体上画一个 Label(标签),默认名字是 Label1。代码里计算过程之后写上:
Lable1.Text = "计算结果是:" & 【计算结果那个变量的名字】
第3个回答  2016-06-10

用text或label之类作为数字的出口比如:text1.text=t   t(计算后的数值)

第4个回答  2016-06-06
Dim a As Single, s As Single, x As Single
a = InputBox("请输入自变量宽")
x = InputBox("请输入自变量值")
s = a * a + 8 * x
Text1.Text = s '你的语法错误了,怎么能写成 (Text.1 text) = s 呢?

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

如何将vb代码输出的公式直接输出为结果值显示?
一、把公式转换为数值的方法,就是理解公式的逻辑,使用VBA语句实现公式的运算,例如第一个语句:Sheet2.Cells(a, 4).FormulaR1C1 = "=IF(LEN(RC[-1])>=2,""有效"",""无效"")"修改为用VBA实现是:If Len(Sheet2.Cells(a, 3))>=2 Then Sheet2.Cells(a, 4) = "有效" Else Sheet...

怎样用vb写入数据和显示数据啊?
改成 append text1-text3是你写知入的数据 直接操作这3个文本道框 比如你text1是数值 你要统回计累计值答 就直接如下 Private Sub Command1_Click()Open "lz.txt"For append As 1 Write 1,Text1.Text,Text2.Text,Text3.Text sum=sum + val(text1.text)debug.print sum Close 1 End Sub...

VB编程 VB进行加法运算,运算已经完成了,计算结果已经在TEXT里显示,想监...
你把第一次计算的结果保存下,然后和现在的比较,看有没有进位就ok了。程序如下。static value_old long dim value_new as long static n as long '。。。中间的计算过程 if n=0 then ’ 第一次运行的时候不进行比较 '这里value_new 已经有值了 text1.text=value_new ’显示数值 value_old=...

VB 用val(text1.text)不显示小数点后面的数,请问该如何解决
Sub Command1_Click()Text3.Text = Val(Text1.Text) \/ Val(Text2.Text)End Sub 可能是你先把实数赋给了整型变量,然后再赋给文本框,比如说 Private Sub Command1_Click()Dim a As Integer a = Val(Text1.Text) \/ Val(Text2.Text)Text3.Text = a End Sub 这样就会丢失小数部分。

vb ACCESS 目的是下次打开程序,两个文本框会显示上次最后操作的数值
If Dir(FileName) = "" Then Exit Function i = FreeFile ReDim BB(FileLen(FileName) - 1)Open FileName For Binary As #i Get #i, , BB Close #i s = StrConv(BB, vbUnicode)GetFile = s End Function 添加下列窗体卸载事件过程,将最后出现的文本框值写入文本文件中:Private Sub ...

在vb的文本框中显示计算数据整数是零怎么不能显示出零来
是不得显示,要用format命令去设置格式

在VB中…设计“计算器”中,如何通过命令按键设计屏幕上输出的数据。
在 private sub command1_click()text1=text1+command1.caption end sub text1用来存储输入数据,数据不可能只是十以内的所以要进行这样的处理。而当你这样做了之后还是不够的,因为text1中的数据在VB中好像不是以数值int类型存储的。在计算时要进行一下强制类型转换,转换成int类型。

怎么显示vb msgbox 返回值
)②MsgBox()其语法格式为:MsgBox(提示信息[,按钮][,标题])VB程序设计中常用的交互函数,其功能非常强大,可以显示多种样式的消息对话框。该函数的返回结果为一数值,其中,“按钮”参数一般用VB的内部符,这些符号常量有vbOkOnly.vbOKCancel.vbYesNo.vbYesNoCanse等等,他们一般可以望文生义。

vb编程输入数值后,显示的的数值会超过59,请问怎么解决?
注意:程序设计语言(不管什么高级语言)中的表示方式与数学表示方式不同;If 0 <= t3 <= 59 And 0 <= t2 <= 59 Then 要改成如下表示 If 0 <= t3 And t3<= 59 And 0 <= t2 And t2 <= 59 Then 你代码里还有几处也要修改:

相似回答