1樓：匿名使用者
dim a()
dim temp as string = ","
dim n as integer
dim i, j, k, t, y, u as integera = split("1,2,3,4,5,6", temp)n = ubound(a)
dim cou as integer = 0if trim(a(ubound(a))) = "" then n = ubound(a) - 1
textbox1.text = ""
for i = 0 to n - 1
for j = i + 1 to n
textbox1.text = textbox1.text & a(i) & a(j) & vbcrlf
textbox1.text = textbox1.text & a(j) & a(i) & vbcrlf
cou += 2
next j
next i
msgbox(cou)
2樓：
private sub command1_click()for i = 1 to 6
for j = 1 to 6
n = n + 1
next
next
print n
end sub
請用c語言編寫程式輸出100 999之間的所有迴文數
背井蛙 對於三位數來說，只要百位和個位相同就是迴文數，根據此思路,寫程式如下 include int main 希望接納。o 努力！ include include include void check int i if strcmp p,q 注意strcmp,該函式返回false如果兩個字串相等，...
運用if語句編寫程式 輸入數,然後輸出其中最大或者最小的數
比較簡單，我就直接寫在main函式裡面了。1 輸入三個整型數，輸出最大值 如下 include define num 3 int main printf input d integer num for i 0 i num i int nmax adata 0 for i 1 i num i prin...
如何編寫程式，實現由定義抽象基類Shape（形狀）派生出
不曉得你顯示所有圖形的總面積的函式放在 const double pi 3.14 class shape class circle public shapedouble showarea class rectangle public shapedouble showarea class square...