1樓：匿名使用者
dim i as integer
dim j as integer
dim temp as integer
private sub command1_click()dim s as string
s = ""
print "原陣列為："
for i = 1 to 10
s = s & a(i) & " "
next i
print s
for i = 1 to 10
for j = 1 to 10 - i
if a(j) > a(j + 1) thentemp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
end if
next j
next i
s = ""
print "排序後的陣列為："
for i = 1 to 10
s = s & a(i) & " "
next i
print s
end sub
private sub form_load()dim str as string
str = "33,26,96,41,25,99,33,51,21,20"
a(1) = 33
a(2) = 26
a(3) = 96
a(4) = 41
a(5) = 25
a(6) = 99
a(7) = 33
a(8) = 51
a(9) = 21
a(10) = 20
end sub
2樓：瘋狂小鳥
題在**，沒有題目怎麼解決。
用vb程式設計實現怎麼是實現第一題？求大神幫助
求vb大神解決一下問題！！ 30
3樓：vb程式設計解放雙手
這些基礎題，自己動動手吧！要不然不會提高的！光靠記是不行的！
求語文大神解答一下第五題,求語文大師解答一下第三題
該題標準分析如下 通過聲音 1分 我 感知到江南春天專的蓬勃生和活力 1分 通過色屬彩 1分 我 感知江南春天的瑰麗和雄奇 1分 通過結對幫扶 1分 我 感受到人與人之間的關愛互助。1分 分析加解釋意思接近即可 我抒發了自己對江南春天的喜愛之情,這裡的一切在作者心中都是那麼美好,表打了作者對江南春天...
求c語言大神幫忙，解決一下這道題
include main 宣告結構變數和結構指標,並初始化 struct human x p x 利用結構指標顯示結構中的資料 cout p name p name 符為p分配記憶體 p new human 從鍵盤上為p指向的結構物件賦值 cout p name cin p name cout p ...
求VB大佬幫忙，求VB大佬幫忙解決一下！！謝謝
1 代表戶口地 2 出身年份 3 出身月份 4 出生日 5 奇數 男 偶數 女 所以第一步先擷取出這些數字 mid id,7,4 身份證號，從第7位，至後4位 取1994 id 4107211994110111037465 years mid id,7,4 取第7位後4位 出生年份 mdate mi...