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

来源:百度文库 编辑:神马品牌网 时间:2024/05/05 02:50:48

你的意思是不是指在一个窗口中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

INPUT

z=x+y,z怎么可以输入?