VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对(
首页上一页 1 下一页尾页 1 条记录 1/1页
print 输入
发表在VB答疑区
2011-08-01
是否精华
是
否
版块置顶:
是
否
Private Sub Command2_Click()
Dim a, b, c, d As Integer
For a = 1 To 9
For b = 0 To 9
For c = 1 To 9
For d = 0 To 9
If 10 * a + b + 10 * c + d = 10 * b + a + 10 * d + c Then
Print 10 * a + b;10 * c + d
End If
Next d
Next c
Next b
Next a
End Sub
print 的结果不能在一行显示怎办？有什么好方法让它能够换行吗？请高手指教！
Dim a, b, c, d As Integer
For a = 1 To 9
For b = 0 To 9
For c = 1 To 9
For d = 0 To 9
If 10 * a + b + 10 * c + d = 10 * b + a + 10 * d + c Then
Print 10 * a + b;10 * c + d
End If
Next d
Next c
Next b
Next a
End Sub
print 的结果不能在一行显示怎办？有什么好方法让它能够换行吗？请高手指教！
分享到：
