百科知识

教育/科学

1到6位的回文数有几个？要过程-

2008-11-17 19:45:00x***
1到6位的回文数有几个？【要过程】：你的if只比较了第一位和最后一位就会输出一次答案，输入12341就会输出yesno输入12321也是输出yesno你的程序第?

最佳回答

  •   你的if只比较了第一位和最后一位就会输出一次答案，输入12341就会输出yesno输入12321也是输出yesno你的程序第一位可以判断正确，但当i 的值为2时就会出错。当输入a=12321left(a,2)=12而right(a,2)=21 很明显他们不相等。
      你可以这样写Private Sub Form_Click() a = InputBox("1") do while len(a)<>5 '输入不是5位数就重新输入 msgbox "请输入一个5位数!" a=inputbox("1")loopFor i = 1 To 2 If Mid(a, i, 1) <> Mid(a, 6 - i, 1) Then Exit For Else Print "yes" Exit Sub End IfNext iPrint "no"End Sub当然，步痕旅游网想法：Private Sub Form_Click() a = InputBox("1") Print a sl = Len(a) For i = 1 To 2 If Left(a, i) <> Right(a, i) Then Print "no" Exit For End If Next if i=3 then print "ysees"End 。
      
    2008-11-19 10:29:00
  • 1位：102位：93位：9*104位：9*105位：9*10*106位：9*10*10共1999个。
    2008-11-19 10:24:00
    • 很赞哦！ (120)

    相关文章