Question

VBA中，窗体上有两个文本框，如何使第二文本框在回车键后或空格键后显示内容？

VBA中，窗体上有两个文本框，运行程序时，第一文本框自动显示内容，回车键后第二文本框显示内容，再回车后第一文本框显示内容。请问高手，如何写这一段程序？
非常感谢！

Answer 1

使用窗体控件的事件即可。

Private Sub UserForm_Initialize()
UserForm1.TextBox1 = "文本"
End Sub

Private Sub TextBox1_Enter()
UserForm1.TextBox2 = "文本"
End Sub

Private Sub TextBox2_Change()
UserForm1.TextBox1 = "文本"
End Sub

追问

非常感谢！
我没有表达清楚的，这是在一个循环语句中进行，因为第一文本框的内容是题目，第二文本框的内容是答案，而且这些题目都是从一个题库中随机选择的。第一次回车给出的第一文本框的答案（第二文本框中显示的），第二次回车给出了一个新的题目（又回到第一文本框）。

追答

这个严格说来不是循环语句，仍然可以沿用textbox enter事件的框架。
只是文本内需要按照如下方式引用：
1、引用随机函数生成某一数字，利用该数字取到题目；
2、根据题目返回对应的答案。

追问

你说的很对，其实是不需要循环语句的，主要是限定所出题目数，同时保证随机生成的数字不重复。不过我还是不知道如何利用textbox enter事件的框架来保证两个文本框的内容只与同一个随机数发生关系。
刚刚开始学VBA，抱歉打扰了。

追答

1、随机数不重复问题，则需要将已经赋值给text1后，增加标记。下一次随即生成的数据，只要是增加标记的就选择跳过。

2、text1赋值后，text2可直接引用。

追问

非常感谢！差不多了。
但出现了另一个问题：textbox2不能相应键盘动作，必须将鼠标在textbox2上点击一下，才会出现textbox1的答案。如果在commandbutton_click中输入textbox2.setfocus，则同时出现题目与答案，与要求不符。