判斷同構(gòu)數(shù)vb代碼
2025-04-17 21:22:19問(wèn)答瀏覽：5792次
最新回答：可以通過(guò)以下方法解決問(wèn)題：
我要提問(wèn)
登錄后回復(fù)
共 2 個(gè)回答
- VB代碼如下： Sub 判斷同構(gòu)數(shù)() Dim num As Integer = 12321 Dim reversedNum As Integer = 0 Dim originalNum As Integer = num While num > 0 Dim digit As Integer = num Mod 10 reversedNum = reversedNum 10 + digit num = num \ 10 Wend If originalNum = reversedNum Then MsgBox "這是一個(gè)同構(gòu)數(shù)" Else MsgBox "這不是一個(gè)同構(gòu)數(shù)" End If End Sub贊60回復(fù)舉報(bào)
- 判斷同構(gòu)數(shù)的vb代碼 先獲取數(shù)字長(zhǎng)度 然后把數(shù)字轉(zhuǎn)成字符串比較每一位出現(xiàn)次數(shù) 最后判斷是否每一個(gè)字符出現(xiàn)次數(shù)都相同贊2回復(fù)舉報(bào)
.jpg)
.jpg)
我也是有底線的人~
點(diǎn)擊加載更多
最新資訊
更多相關(guān)資訊
更多
熱門新聞
-
由他 2003位用戶圍觀了該問(wèn)題 -
肖肖 474位用戶圍觀了該問(wèn)題 -
那一抹藍(lán) 465位用戶圍觀了該問(wèn)題
