VB如何求补集问题假设有4个文本框,如果四个文本框的内容只能为“1”“2”“3”“4”其中的一个数字,已知其中三个,如何自动生成第四个内容,就是如何求补集的问题

Question

VB如何求补集问题
假设有4个文本框,如果四个文本框的内容只能为“1”“2”“3”“4”其中的一个数字,已知其中三个,如何自动生成第四个内容,就是如何求补集的问题

Answer 1

程序解决数学问题常常是遍历,即逐个比较.
Dim num(1 To 4) As Integer
Dim i As Integer
'以输入的值为索引,1表示该数字已经输入.最后只要检查哪个元素的值为0即可
num(Val(Text1.Text)) = 1
num(Val(Text2.Text)) = 1
num(Val(Text3.Text)) = 1
For i = 1 To 4
If num(i) = 0 Then
Text4.Text = i
Exit For
End If
Next