1樓：匿名使用者
需要先對這六個數排序，然後輸出出來就行：
const num_count = 6
dim numbers()
'生成數字序列
sub gennumbers()
redim numbers(num_count)dim i
for i = 0 to num_count - 1numbers(i) = getrndnumbernext
end sub
'對數字序列排序
sub sortnumbers()
dim i, j, t
for i = 0 to ubound(numbers)for j = i to ubound(numbers)if numbers(i) > numbers(j) thent = numbers(i)
numbers(i) = numbers(j)numbers(j) = t
end if
next
next
end sub
'輸出結果
sub output()
dim out, i
out = "排序結果: " & vbcrlffor i = 0 to ubound(numbers)out = out & numbers(i) & vbcrlfnext
out = out & "最大值是: " & numbers(ubound(numbers))
msgbox out
end sub
'得到隨機數字
function getrndnumber()randomize
dim imax, imin
imax = 100
imin = 1
getrndnumber = int((imax - imin + 1) * rnd + imin)
end function
'開始執行
gennumbers()
sortnumbers()
output()
十位上的數字比個位上的數字大1的兩位數
十位上的數字比個位上數大1的兩位數有 8 個，最大的是 98 這個問題需要分情況討論 1 兩位數，個位上的數字比十位上的數字大1的有 12，23，34，45，56，67，78，89，共8個。2 多位數，無數個。如112，123，134，145，156，167，178，189，212，223，234，...
兩位數,它的個位上的數字比十位上的數字大2這個數可能是13，
將素枝閔珍 解 設原來的兩位數為10 x 2 x 11x 20,則後來的兩位數為10x x 2 11x 2那麼 11x 2 2 11x 20 138整理得11x2 3x 14 0,解得 x1 14 11 捨去 x2 1故原來的兩位數是10 x 2 x 31 樂為人師 一個兩位數,它的個位上的數字比十...
有兩位數，各位上的數字比十位上的數字大5，如果把這個數十位和個位的數字對換
泡泡茶客 解 設個位是 a，則十位是 a 5，這個數是 10 a 5 a 11a 50 個位 十位數對換後，這個數是 10a a 5 11a 5依題意得 11a 50 11a 5 143即 22a 55 143 得 a 9 所以個位是9，十位是 4，原數是 49，變換後是94二元一次方程法 設原數個...