展开全部
首先在表单中添加一个按钮。Command1然后添加两个文本框：intext用于输入数字Text1并在“属性”窗口中设置Text1的Index1属性。主要功能是找到PrivateSubCommand1_Click（）DimIAsLongtext1（0）。
Visible = False对齐框不显示= intext。
输入文本编号3Top1 = Text1（0）。
上部确定定位框架的初始位置。Forx = 1Ta从列退出。Fory = 1Ta行I =来自Text1。
CountLoadText1（I）Text1（I）。
可见= TrueText1（I）
ZOrderText1（I）
MoveText1（0）
左+文字1（0）
宽度* 1 * y NextyText1（0）
上=文字1（0）
确定下一行定位框的第一个位置+第一个位置，并确定NextxEndSub。