VB 输出回文数

2025-05-29 15:58:28

1、双击桌面图标启动visual basic 6.0

3、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到Form_Click猾诮沓靥() 事件中。代码：Dim l As Integera = Int(InputBox("请脶巴躔炒输入一个正整数"))l = Len(a)For i = 1 To l / 2 If Mid(a, i, 1) = Mid(a, l + 1 - i, 1) Then Cls Print Print Tab(12); a & "是回文数" Else Cls Print Print Tab(12); a & "不是回文数" End IfNext i

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。