1.运行时报错“13”,类型不匹配
你的command1到command4不是控件数组,而Command(i)是控件数组的标志,当然不匹配了。
如果不改用控件数组,你应该把: For i = 1 To 4 '禁用或者隐藏command1~command4这四个按钮 Command(i).Visible = False '这句一直报错,实时错误"13" 数据类型不匹配 Next i 改为 For i = 1 To 4 Controls("Command" + Trim(Str(i))).Visible = False Next i 你检查一下是哪句出现这个错误,估计是你的拼写有误。