1樓:
按下alt+f11,選單:插入-模組,複製下面**.退出如果你的資料在a1,b1,c1
就在d1輸入=order(a1,b1,c1),結果就會顯示在d1order()就可以看作一下函式.只要輸入=order(字串1,字串2,字串3),就會得到你要的結果.
public function order(byval x as string, y as string, z as string) as string
dim a as string
dim e() as string
dim c as integer
dim b() as integer
dim d() as integer
dim sum as string
dim summary as stringa = x & y & z
redim e(1 to len(a)) as stringsum = ""
summary = ""
for w = 1 to len(a)
if instr(1, sum, mid(a, w, 1)) > 0 then
e(w) = ""
else
e(w) = mid(a, w, 1)
end if
sum = sum & e(w)
next
redim b(1 to len(sum)) as integerredim d(1 to len(sum)) as integerc = 1
for u = 1 to len(sum)b(u) = val(mid(sum, u, 1))next
for u = 1 to len(sum)for v = 1 to len(sum)if b(u) > b(v) then
c = c + 1
end if
next
d(c) = b(u)
c = 1
next
for u = 1 to len(sum)if d(u) = 0 and u > 1 thend(u) = d(u - 1)
end if
summary = summary & d(u)next
order = summary
end function
2樓:匿名使用者
第二個例子為什麼不是123456呢?
英語問題求教,請求好心人幫忙!
作了補充。至於能我問的問題嗎?為什麼形容詞fresh 修飾名詞pruduce 要在其後,不符合語。法啊?不存在不合語法的情況。再回到原句。they often serve their guests produce fresh from the garden.其實是they often serve t...
腳氣是什麼症狀 請求幫忙?腳氣的症狀 請求幫忙?
您好,腳氣的症狀有 1.糜爛型 趾間潮溼,浸漬發白或起小水皰,乾涸脫屑後,剝去皮屑為溼潤,潮紅的糜爛面,有奇癢,易繼發感染。2.水皰型 壁厚飽滿的小水皰,有的可融合成大皰,皰液透明,周圍無紅暈,自覺奇癢。3.角化型 粗厚而乾燥,角化脫屑,搔癢,易發生皸裂,本型無水皰及化膿。建議 腳氣的 1糜爛型的 ...
對數函式的問題,對數函式問題
1.過定點 2,1 形如y logax a 0切a 1 的對數函式形式恆過定點 1,0 則有y loga 2x 3 過 1,0 而y loga 2x 3 1相對y loga 2x 3 在座標軸上下移一個單位 即過 2,1 x g x 的公共定義域為 1,1 f x g x loga 1 x loga...