trim 是什么意思,str又是什么意思?
PrivateSubCommand1_Click()Dimi%,n%,x$,y$,k%Form1.ClsFori=100To999x=Trim(Str(i))y=""n=...
Private Sub Command1_Click()
Dim i%, n%, x$, y$, k%
Form1.Cls
For i = 100 To 999
x = Trim(Str(i))
y = ""
n = Len(x)
For j = 1 To n
y = Mid(x, j, 1) + y
Next j
If x = y Then
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
End If
Next i
End Sub 展开
Dim i%, n%, x$, y$, k%
Form1.Cls
For i = 100 To 999
x = Trim(Str(i))
y = ""
n = Len(x)
For j = 1 To n
y = Mid(x, j, 1) + y
Next j
If x = y Then
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
End If
Next i
End Sub 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询