vb程序設(shè)計(jì)30道編程題(編輯修改稿)
2025-08-22 04:44 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 s(i)=InputBox(input)Next iFor i=9 To 0 Step1Print s(i)Next iEnd SubPrivate Sub Command22_Click()39。[30,100]內(nèi)的整數(shù)，求最大值及所對(duì)應(yīng)的下標(biāo)Dim a(10)As Integer,max%For i=0 To 9a(i)=Int(Rnd*70+30)Next imax=a(0)maxi=0For i=1 To 9If a(i)=max Thenmax=a(i)maxi=iEnd IfNext iMsgBox(max=amp。max)MsgBox(maxi=amp。maxi)End SubPrivate Sub Command23_Click()39。[30,100]內(nèi)的整數(shù)，求最大值、最小值和平均值。Dim a(10)As Integer,max%,min%For i=0 To 9a(i)=Int(Rnd*70+30)Next imax=a(0)min=a(0)For i=1 To 9If a(i)=max Thenmax=a(i)Elsemin=a(i)End Ifsum=sum+a(i)Next iMsgBox(max=amp。max)MsgBox(min=amp。min)MsgBox(avg=amp。sum/10)End SubPrivate Sub Command24_Click()39。4的矩陣(即二維矩陣),范圍是[20,50]內(nèi)的整數(shù),輸出該矩陣所有數(shù)據(jù)之和Dim a(4,4)As IntegerDim sum%,i%,j%For i=0 To 3For j=0 To 3a(i,j)=Int(Rnd*30+20)sum=sum+a(i,j)Next jNext iFor i=0 To 3For j=0 To 3Print a(i,j),Next jPrintNext iMsgBox(sum=amp。sum)End SubPrivate Sub Command25_Click()39。()，編程插入x（x的值為14）。數(shù)組a中的元素分別為{12，6，4，89，75，63，100，20，31}。Dim a(),iMin%,n%,i%,j%,t%a=Array(2,6,4,89,75,63,100,20,31)X=14n=UBound(a)39。獲得數(shù)組的下標(biāo)上界For i=0 To n139。進(jìn)行n1輪比較iMin=i39。對(duì)第i輪比較時(shí)，初始假定第i個(gè)元素最小For j=i+1 To n39。在數(shù)組i+1～n個(gè)元素中選最小元素的下標(biāo)If a(j)a(iMin)Then iMin=jNext jt=a(i)39。i+1～n個(gè)元素中選出的最小元素與第i個(gè)元素交換a(i)=a(iMin)a(iMin)=tNext iFor k=0 To n39。查找欲插入數(shù)x在數(shù)組中的位置If Xa(k)Then Exit ForNext kReDim Preserve a(n+1)39。數(shù)組增加一個(gè)元素For i=n To k Step139。數(shù)組元素后移一位，騰出位置a(i+1)=a(i)Nex
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1