VB判断一个数是不是判断回文数的程序，怎么改？

来源：蜘蛛抓取(WebSpider) 时间：2018-08-26 11:03 标签： VB求回文数
vb用函数实现判断100到999有多少个回文数_百度知道
vb用函数实现判断100到999有多少个回文数
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
xiangjuan314
来自电脑网络类芝麻团
xiangjuan314
采纳数：23844
获赞数：20540
参与团队：
首先说明什么是回文数：左右对称的自然数称回文数。如121，等你所出的题目是求三位数以内的所有回文数，所以只要判断第一位和第三位的数字是否一样，一样则为回文数。代码如下：Private Sub Command1_Click()For i = 100 To 999 '100到999循环a$ = Trim$(Str(i)) '转换成字符串b = Left$(a$, 1) '截取左边第一位d = Right$(a$, 1) '截取右边第一位If b = d Then '判断左右是否相等,相等既是回文数.T1.Text = T1 + Str(i)End IfNextEnd Sub
这个我在别的提问里看过了
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。编写vb程序，找出给定范围内所有的回文数_百度知道
编写vb程序，找出给定范围内所有的回文数
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
Private&Sub&Command1_Click()Dim&a&As&String,&n&As&Integer,&i&As&Integer&&&&a&=&Text1.Text&&&&n&=&Len(a)For&i&=&1&To&n&&&&If&Mid(a,&i,&1)&&&&Mid(a,&n&-&i&+&1,&1)&Then&Exit&For&&&&Next&i&&&&If&i&=&n+1&Then&&&&Print&&是回文数&&&&&Else&&&&Print&&不是回文数&&&&&End&IfEnd&Sub
刘师傅的一生
来自电脑网络类芝麻团
刘师傅的一生
采纳数：255
获赞数：1423
参与团队：
回文？都不知道你在说什么，我要举报你
你不知道就别说
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。急 求 VB判断回文数的代码_百度知道
急 求 VB判断回文数的代码
判断一数是否是回文数，所谓回文数是指左右数字完全对称的数，如992等要求使用循环结构谢谢各位了...
判断一数是否是回文数，所谓回文数是指左右数字完全对称的数，如121 92等 要求使用循环结构 谢谢各位了
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：57
获赞数：143
建一个Text1,Text2,Command1。Text1,Text2的Multiline都设置为True。代码如下。＝＝＝＝＝＝＝＝＝＝＝＝Private Sub Command1_Click()Text2.Text = &&Dim a, i As Integer, n, s As Stringa = Split(Text1.Text, vbCrLf)For Each n In as = s & nIf n = StrReverse(n) Then s = s & &★&s = s & vbCrLfNextText2.Text = sEnd Sub
采纳数：45
获赞数：115
建一个Text1,Command1Private Sub Command1_Click() Dim i For i = 1 To Fix(Len(Text1.Text) / 2)
If Mid(Text1.Text, i, 1) = Mid(Text1.Text, (Len(Text1.Text) - i) + 1, 1) Then
If i = Fix(Len(Text1.Text) / 2) Then
MsgBox (&是&)
MsgBox (&不是&)
End If Next iEnd Sub
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB中设计算法，判断某一个数是不是回文数（用文字叙述就可以了）_百度知道
VB中设计算法，判断某一个数是不是回文数（用文字叙述就可以了）
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：1516
获赞数：2997
2种方法,1,是使用VB自带的函数StrReverse , 一个数字,被翻过来以后,还和原数字相同,就可以判断是回文数了2.使用循环,每次都2端取数字,都相同,就可以判断为回文数, 当有不同时,跳出循环,不是回文数
自己看回文数的定义 就能明白如何设计
采纳数：3844
获赞数：10567
最简单的方法是把数字转化为字符串R，在去掉前导R的空格后，检查R是否和StrReverse(R)相等，如果是，则是回文数，否则不是。算法：N=12345R=trim(str(N))if R=StrReverse(R) thenprint &是回文数&elseprint &不是回文数&end if
采纳数：239
获赞数：1218
你先判断所求的数十几位数，如果为奇数位（比如3）位数，则判断left(text1,(len(text1)-1)/2)是否等于right(text1,len(text1)/2),如果等于则是回文数。另外的偶数位的你也可以参照这个。哎，我再给你全部编出来吧：if len(text1) mod 2&&o then if left(text1,(len(text1)-1)/2)=right(text1,(len(text1)-1)/2) then msgbox(&shi&) else
msgbox(&bushi&)
end ifelse if left(text1,len(text1)/2)=right(text1,len(text1)/2) then msgbox(&shi&) else
msgbox(&bushi&)
end ifend if
其他1条回答
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
VB编程找出10000以内所有的回文数的平方仍是回文数的数.编程题编程找出10000以内所有的回文数的平方仍是回文数的数.所谓回文数是指左右数字完全对称的自然数,例如：11,121,1221等都是回文数.【编程要求】1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,但界面元素的大小、位置可随意设置.2.单击“生成数据”按钮,应将10000以内所有的回文数的平方仍是回文数的数,按图中示意形式存放在列表框List1中.3.单击“返回”按钮,结束程序运行.4.程序中定义一个判断回文数的函数过程.
作业帮用户
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
Option Explicit Private Sub Command1_Click() Dim i As Long For i = 1 To 10000 If f1(i) = True And f1(i ^ 2) = True Then List1.AddItem i & "^" & "2" & "=" & i ^ 2 Next i End Sub Private Sub Command2_Click() End End Sub Private Function f1(n As Long) As Boolean Dim j As Long,m As Long m = Len(CStr(n)) For j = 1 To m / 2 If Mid(n,j,1) Mid(n,m - j + 1,1) Then Exit Function Next j f1 = True End Function
为您推荐：
扫描下载二维码

我要回帖

更多关于 VB求回文数 的文章

 

随机推荐