VB编程中怎样在一个窗口中显示函数x+y=z的x y z 都是可以输入的变量

如题所述

你的意思是不是指在一个窗口中x,y,z变量的值都可以由用户输入,只要任意两个变量的值输入就可以自动计算出最后一个变量的值?如果是这样你可以这样实现:
1、新建一个窗体,在窗体上添加三个单选框(选中的单选框所代表的变量的值由另外两个输入的值自动计算得出,本例用数组)、三个文本框(用于输入变量的值,本例用数组)、两个标签(标题分别设为:“+”、“=”),按如下位置排列:
⊙x oy oz
□ + □ =□
2、在窗体模块加入以下代码(该源码已经过测试,你可将其复制过去用):
Dim xyz(2) As Long '存放x、y、z的值
Private Sub Text1_Change(Index As Integer)
Dim str As String
str = Trim(Text1(Index).Text)
If IsNumeric(str) Then '如果输入的是数值保存输入的值
xyz(Index) = CLng(str)
Else '否则替换回上一次的数值
Text1(Index).Text = CStr(xyz(Index))
End If
If Option1(0).Value Then 'x的结果由z、y输入的值计算得到
xyz(0) = xyz(2) - xyz(1)
Text1(0).Text = CStr(xyz(0))
End If
If Option1(1).Value Then 'y的结果由z、x输入的值计算得到
xyz(1) = xyz(2) - xyz(0)
Text1(1).Text = CStr(xyz(1))
End If
If Option1(2).Value Then 'z的结果由x、y输入的值计算得到
xyz(2) = xyz(0) + xyz(1)
Text1(2).Text = CStr(xyz(2))
End If
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2006-04-01
INPUT
第2个回答  2006-04-01
z=x+y,z怎么可以输入?

VB编程中怎样在一个窗口中显示函数x+y=z的x y z 都是可以输入的变量
1、新建一个窗体,在窗体上添加三个单选框(选中的单选框所代表的变量的值由另外两个输入的值自动计算得出,本例用数组)、三个文本框(用于输入变量的值,本例用数组)、两个标签(标题分别设为:“+”、“=”),按如下位置排列:⊙x oy oz □ + □ =□ 2、在窗体模块加入以下代码(该源...

VB编程题 输入xyz三个数,按从小到大的次序显示
3 .要显示多个数据,可以用“;”逐一显示,也可利用“&”字符串连接将多个变量连接显示。解题:先在窗体上画一个按钮,代码如下:Private Sub Command1_Click()Dim x!, y!, z!x = InputBox("input x")y = InputBox("input y")z = InputBox("input z")Print " 排序前:"; x; " ...

vb:简易计算器(加减乘除)代码
Public Sub com()x = Val(l1.Caption)Select Case t1 Case Is = 1: y = y + x Case Is = 2: y = y - x Case Is = 3: y = y * x Case Is = 4: y = y \/ x End Select t1 = 0 t = 0 l1.Caption = "0"End Sub Private Sub Form_Load()x = 0 y = 0 t =...

VB下怎样定义一个可变长的字符串数组?
给数组附以一个空维数表,这样就将数组声明为动态数组。Dim DynArray ()用 ReDim 语句分配实际的元素个数。ReDim DynArray (X + 1)ReDim 语句只能出现在过程中。与 Dim 语句、Static 语句不同,ReDim 语句是一个可执行语句,由于这一语句,应用程序在运行时执行一个操作。ReDim 语句支持这样的语...

VB6如何实现在一个文本框显示多次循环的计算结果?教程上都是用的pri...
然后再设置 ScrollBars 属性为 3 - VbBoth,表示支持垂直和水平滚动条,然后再对 TextBox 的 Text 属性赋值,如果你的文本包含换行符,那么文本框也会显示换行效果的文本出来。如:Private Sub Form_Load()Text1.Text = ""For i = 0 To 2 TextPrint Chr(Asc("a") + i)Next i End Sub '...

关于VB程序窗口的问题
如果你想使你的Form窗口在不同桌面分辨率情况下都能正常显示,你可以事先设定一个Form窗口的分辨率在桌面分辨率中的占有量。例如:我设置的X方向占有量为XZ=0.25,Y方向占有量为YZ=0.25 那么:只要使Form1X=XZ*X Form1Y=YZ*Y 其他控件,例如按钮等等,设置起来比较烦吧,你还要设置按键在Form中...

用VB编写程序时若想让窗体永远在屏幕最前面该怎么做?
在使用VB编写程序时,若希望窗体始终显示在屏幕最前面,可以通过调用SetWindowPos函数实现。具体代码如下:在程序中定义SetWindowPos函数,使用Private Declare Function语句实现,参数包括:hwnd(要移动的窗口句柄)、hWndInsertAfter(插入的窗口句柄,-1表示插入在顶层窗口的最前端)、x、y、cx、cy(窗口位置和...

VB定义的全局变量能不能用在函数里
你上面说的情况,应该使用本窗体中声明变量就可以了。3、过程(函数)体中声明的变量 Dim fileName as String 生命历程仅限于本过程(函数)简单看你的函数,有下面建议:1、函数体中的变量最好要声明,如 dim sum as double 2、函数调用一般格式:dim x as double x=calculatefitnessvalue(x,y)...

如何用vb实现一个窗体总在前台
要使用VB实现窗体总在前台显示,可以使用Windows API函数SetWindowPos。首先需要在模块中声明这个函数,其语法如下:Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As ...

VB自定义函数的调用
y + z + 1 d(2) = x + y + z + 2 End Sub End Class 在form1里这样用 dim v as new stands v.read(1,2,3)然后比如需要知道a就x=v.a就可以了 还有就是不知道你用的什么版本的VB,我用的VB2008已经规定数组下限只能是0了。不能象d(1 To 3) As Integer 这样定义数组了。

相似回答
大家正在搜