好吧问答库 > vb再窗体上添加5个文本框组控件数组,以及一个命令按钮,向文本框输入数据后，单击命令按钮可逆序显示

vb再窗体上添加5个文本框组控件数组,以及一个命令按钮,向文本框输入数据后，单击命令按钮可逆序显示

2024年11月18日 21:41

有1个网友回答

网友（1）：

有很多种方法可以实现题目的变化

第一种适用于文本框较少的情况

Private Sub Command1_Click()
    Dim s As String
    s = Text1(0).Text
    Text1(0).Text = Text1(4).Text
    Text1(4).Text = s
    s = Text1(1).Text
    Text1(1).Text = Text1(3).Text
    Text1(3).Text = s
End Sub

效果图

第二种适用于文本框较多的情况

Private Sub Command1_Click()
    Dim s(0 To 14) As String
    For i = 0 To 14
        s(i) = Text1(i).Text
    Next i
    For i = 0 To 14
        Text1(i).Text = s(14 - i)
    Next i
End Sub

效果图

注意两个方法都需要自己添加控件数组，index的值从左到右从上到下递增

希望可以帮到你