全文预览

大学VB专业考试汇总题库

上传者:upcfxx |  格式:pdf  |  页数:77 |  大小:5014KB

文档介绍
UBound(a) - 1\rimin =i\rFor j= i + 1 To UBound(a)\rIfa(j) < a(imin) Then imin = j\rNext j\rt = a(i): a(i) = a(im in): a(imin) = t\rNext i.\rEndSub\rPrivateSub Form_Click()\rDimbO, i%\rb `Array (8, 9, 4, 2, 6)\rCal Isort (b())\rFor i = 0 To UBound(b)\rPrint b(i);\rNext i\rEndSub\r45.\rde?/#,\nD?fgh./i#4RO?\rSubsort (a())\rDimimin%, i%, j%\rFor i= 0 To UBound(a) - 1\rForj = 0 To UBound(a) - 1 - i\rIfa(j) > a(j + 1) Then\rt= a(j): a(j) = a(j + 1): a(j + 1) = t\rEndlf\rNext j\rNext i\rEndSub\rPrivateSub Form_Click()\rDimb (), i%\rb `Array (8, 9, 4, 2, 6)\rCallsort (b())\rFori = 0 To UBound(b)\rPrintb(i);\rNexti.\rEndSub

收藏

分享

举报
下载此文档