VB编程（功能实现了追加100分，跪求了。。。。）

来源：百度知道 编辑：UC知道 时间：2024/06/27 07:19:23
假设5个文本框，在一个文本框中输入1，点下按钮，则另外4个文本框中都输出2，文本框名称分别为Text1，Text2，Text3，Text4，Text5，按钮为Command1，知道的的写下啊，拜托了功能实现了再追加奖励100分！
跪求~！
晕啊~都不对啊，要其中任意一个文本框输入1，另几个都输出2。
假设多个都是1，则不显示

有点歧义，假如多个文本框中都是1，点按钮是哪些为2？

如果不考虑多个1存在的情况的话，代码：
Private Sub Command1_Click()
  Dim T1(1 To 5) As TextBox
  Set T1(1) = Me.Text1
  Set T1(2) = Me.Text2
  Set T1(3) = Me.Text3
  Set T1(4) = Me.Text4
  Set T1(5) = Me.Text5
  
  Dim s1 As Long, b1 As Long
  b1 = 0
  For s1 = 1 To 5
    If T1(s1).Text = "1" Then b1 = s1: Exit For
  Next
  If b1 > 0 Then
    For s1 = 1 To 5
      If s1 <> b1 Then T1(s1).Text = "2"
    Next
  End If
End Sub

——————————————
PS：楼上居然!=都出来了。。。。

if text1.text!="1" then
text1.text=="2"
end if

各写一边..

Private Sub Command1_Click()
If Text1 = 1 Th