顶

额 没人么？

If x = x + 1 Then
KeyPress "enter",1
End If
这句是什么意思？

For x = 1 To 9 Step 1
For y= 1 to 9 step 1
这地方出问题。我改了一下。代码如下：
For y = 1 To 9
For x = 1 To y
z = y * x
//TracePrint z & "=" & y & "X" & x
SayString x & "X" & y& "=" & z&" "
If y= x Then
KeyPress "Enter", 1
End If
Next
NextI

y = 1
x = 1
For 9
For 10-y
s = x * y
SayString y & "*" & x & "=" & s
KeyPress 13,1
x = x + 1
Next
y = y + 1
x=y
Next
这样应该没问题了

y = 1
x = 1
For 9
For 10-y
s = x * y
If s < 10 Then
SayString y & "*" & x & "="&s&" " Else
SayString y & "*" & x & "=" & s End if
KeyPress 32,2
x = x + 1
Next
KeyPress 13,1
y = y + 1
x=y
Next
这样输入的文本是梯形的，小时候乘法表那样的I

嗯