Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms。ReturnInteger, ByVal Shift As Integer)
If KeyCode <> 13 Then Exit Sub
totalcnt = totalcnt + 1: Label5。
Caption = totalcnt
If TextBox1。Value = ccc。Caption Then rightcnt = rightcnt + 1: Label3。Caption = rightcnt
x = Int(Rnd() * UBound(arr) + 1)
ccc。
Caption = arr(x, 1)
TextBox1。Value = ""
Application。SendKeys "{TAB}", True
End Sub。
将m²+m³答案中的TextBox1的回车命令语句改成下列语句，Label1在TextBox1的回车后会自动生成新的随机数据。 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms。
ReturnInteger, ByVal Shift As Integer) If KeyCode <> 13 Then Exit Sub totalcnt = totalcnt + 1: Label5。Caption = totalcnt If TextBox1。
Value = ccc。Caption Then rightcnt = rightcnt + 1: Label3。Caption = rightcnt TextBox1。Value = "" Application。
SendKeys "{TAB}", True UserForm1。Left = [e8]。Left UserForm1。Top = [e8]。Left Randomize (Timer) TextBox1。Value = "" ccc。
Font。Size = ccc。Height: Label3。Font。Size = Label3。Height: Label5。Font。Size = Label5。Height: Label6。Font。Size = Label6。Height TextBox1。
Font。Size = TextBox1。Height arr = Sheet2。Range(Sheet2。Cells(1, 2), Sheet2。[b65536]。End(xlUp)) cnt = Int(Rnd() * UBound(arr) + 1) c。
Caption = arr(cnt, 1) End Sub 以上语句是m²+m³写的，本人只是将打开Userform1语句中自动生成随机数据语句补充进TextBox1回车语句里，以便再次生成随机数据。
答：你加了前面那一段字合并变成文本了，试试在设置单元格格式-数字-自定义，把前面那段文本（序号1-86）汇总 加进0.00前面，这样就可以保留2位小数了。详情>>
问：各位大神各位技术宅出来啦！！！！！PPT存为哪种格式可以在没有安装PPT的电脑上...
答：pps格式可以。详情>>
问：爱问里的朋友和网络专家你们好，怎样才能解除还原精灵的密码？老师控制的我们的电脑。
答：还用问吗?有两个方法.一.用刀架在你们老师脖子上.密码就会有.二.点F11,进入还原精灵.在他弹出输入密码时关机.重复几次.后马上跟老师说.电脑有问题了.叫老师...详情>>
