Private Sub Command1_Click()
Dim i,a,b,c,d
For i = 1000 To 9999
a = CLng(Mid(i,1,1))
b = CLng(Mid(i,2,1))
c = CLng(Mid(i,3,1))
d = CLng(Mid(i,4,1))
If (a * 1000 + b * 100 + c * 10 + d) Mod 11 = 0 And a = b + c Then
Debug.Print i
End If
Next
End Sub
VB求滿足下列條件的所有四位數(shù)ABCD的個數(shù),該四位數(shù)是11的倍數(shù),且A=B+C,即第2位數(shù)加上第3位數(shù)等于第1位
VB求滿足下列條件的所有四位數(shù)ABCD的個數(shù),該四位數(shù)是11的倍數(shù),且A=B+C,即第2位數(shù)加上第3位數(shù)等于第1位
數(shù)學(xué)人氣：225 ℃時間：2020-06-02 15:43:11
優(yōu)質(zhì)解答
我來回答
類似推薦
- 一個4位數(shù) ABCD 這個數(shù)字?jǐn)?shù)15 的倍數(shù) 且A+D等于 B+C 求這樣的四位數(shù)的個數(shù)
- 已知四位數(shù)abcd是11的倍數(shù),且有b+c=a,bc為完全平方數(shù),求此四位數(shù).
- 5位數(shù)abcde是9的倍數(shù),其中4位數(shù)abcd是4的倍數(shù),那么abcde的最小值是多少?
- 一個四位數(shù)abcd,乘以9等于dcba,求這個數(shù)abcd是多少?
- abcd是一個四位數(shù),且abcd乘以9等于dcba,問a=?,b=?,c=?,d=?
- 圓形磁體內(nèi)部磁感線的強弱與圖示方向
- 10.“How long have you been here?” “_______ the end of last month.”
- 一個字的反義詞
- 一籃桃子連籃共重3.8千克，吃掉一半桃后，連籃還重2千克，請問桃子和籃各有多重．
- 8篇暑假英語作文
- 人道主義究竟是指什么
- x-（x-21）=七分之四 解方程
猜你喜歡
- 1動聽的反義詞是什么
- 2hard 比較級到底是harder 還是more hard
- 3一只表的時針長六厘米你,如果走一圈,時針的尖端走過的路程是多少厘米,時針?biāo)鶔哌^的面積程是多少厘米?ii
- 4【數(shù)學(xué)】高一三角函數(shù)證明題
- 5物理題關(guān)于物體運動的快慢
- 6土豆浸沒到底面長8厘米,寬4厘米的長方體玻璃缸中,水面上升了1．5厘米,這個土豆的體積是（ ）立方厘米
- 7向量 矢量 是幾年級的課程呀?
- 8by/on/take/with表示方式時的區(qū)別
- 9仿照下列詞語的結(jié)構(gòu)規(guī)律,再試著寫幾個
- 10驚嘆不已的已是什么意思
- 11一堆煤12噸,用去了總數(shù)的四分之一,還剩下這堆煤的幾分之幾；如果用去了四分之一噸,還剩下幾噸；如果用去了4噸,用去了這頓煤的幾分之幾?
- 12因參與人體新陳代謝而消耗的氣體是_______（填化學(xué)式）謝謝了!