第十題,解數字謎,VB程式設計,要求用到迴圈語句

2022-06-08 02:41:32 字數 957 閱讀 3828

1樓:匿名使用者

private sub command1_click()dim a as integer

dim b as integer

dim c as integer

dim d as integer

for a = 1 to 9

for b = 1 to 9

for c = 0 to 9

for d = 0 to 9

if 1000 * a + 100 * b + 10 * c + d - 100 * a - 10 * d - a = 1000 * b + 100 * c + 10 * a + a then

print a & " " & b & " " & c & " " & d

end if

next d

next c

next b

next a

end sub

2樓:慶年工坊

sub s()

for i = 1203 to 9876

a = i \ 1000

b = (i mod 1000) \ 100if b = 0 or b = a then goto 1c = (i mod 100) \ 10

if c = a or c = b then goto 1d = i mod 10

if d = a or d = b or d = c then goto 1

if i - (a * 101 + d * 10) = b * 1000 + c * 100 + a * 11 then

print tab(3); i & ""

print "-"; tab(4); a & d & aprint "-------"

print tab(3); b & c & a & aend if

1:next

end sub

第十題過程

10解 f x 2x 3是線性函式,在 2,2 的最大值p 2 2 3 7 最小值q 2 2 3 1 g x 2x 2 px q 2x 2 7x 1 2 x 2 7 2x 1 2 x 2 7 2x 49 16 49 8 1 2 x 7 4 2 57 8 x 7 4,g x 取極小值 57 8,也是最...

第十題選a還是b,麻煩理由說一下

選b,when引導的時間狀語從句 如果選a的話是想用it is was.that.的強調句,這種情況下去掉it is was和that後的句子是一個完整的句子,但題中若去掉則不能構成完整的句子,要在ten前面加一個at.b 首先分析空格後面的是一個完整句子,由此判定這裡應該用一個副詞來修飾,因為這是...

2019攀枝花中考數學試題的第十題

大哥你倒是給題啊!你沒有題目怎麼幫你?qq524065428,發題目來 10 2011o攀枝花 如圖,在 abc中,ab bc 10,ac 12,bo ac,垂足為點o,過點a作射線ae bc,點p是邊bc上任意一點,連線po並延長與射線ae相交於點q,設b,p兩點之間的距離為x,過點q作直線bc的...