freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

vb考試復(fù)習(xí)題(編輯修改稿)

2024-08-22 10:45 本頁面
 

【文章內(nèi)容簡介】 : A(6) = 75: A(7) = 89A(8) = 100End Sub2聲明一個整型的二維數(shù)組a(1 to 4,1 to 4),用隨機函數(shù)產(chǎn)生各元素,范圍介于[1,20]之間,編程將第2行和第4行對應(yīng)元素交換。Private Sub Form_Click()Dim a(0 To 3, 0 To 3), i%, j%, tFor i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 21 + 1) Print Tab(j * 5)。 a(i, j)。Next jNext iPrint Print For j = 0 To 3t = a(1, j): a(1, j) = a(3, j): a(3, j) = tNext jFor i = 0 To 3 For j = 0 To 3Print Tab(j * 5)。 a(i, j)。Next jNext iEnd Sub2定義三個44的二維數(shù)組A,B,C,A和B中的元素均隨機生成,數(shù)組A的范圍是1~20,數(shù)組B的范圍是100~200,數(shù)組C是A和B相加得到的。請編程生成并輸出A,B,C。Private Sub Command1_Click()Dim a(3, 3), b(3, 3), c(3, 3), t%, m%For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 20 + 1) a(i, j)。 Next j Next i For i = 0 To 3 For j = 0 To 3b(i, j) = Int(Rnd * 101 + 100) b(i, j)。 Next jNext i For i = 0 To 3 For j = 0 To 3 c(i, j) = a(i, j) + b(i, j) c(i, j)。 Next j Next i2隨機產(chǎn)生10個1~100的正整數(shù)放入數(shù)組,顯示產(chǎn)生的數(shù),求最大值、最小值、平均值。Private Sub Form_Click()Dim a(1 To 10) As Integer, i%, maxa%, mina%, suma%For i = 1 To 10a(i) = Int(Rnd * 71 + 30)Next imina = a(1)maxa = a(1)suma = a(1)For i = 2 To 10If a(i) maxa Then maxa = a(i)If a(i) mina Then mina = a(i)suma = suma + a(i)Next iFor i = 1 To 10Print a(i)。Next iPrintPrint max=。 maxa, min=。 mina, aver=。 suma / 10End Sub2利用隨機函數(shù)生成一個44的矩陣(即二維矩陣),范圍是[20,50]內(nèi)的整數(shù),輸出每行中的最大值和下標(biāo)。Dim a%(3, 3), i%, j%, imax%Private Sub Command1_Click() For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 31 + 20) a(i, j)。 。 Next j Next iimax = 0 For i = 0 To 3 For j = 0 To 3 If a(i, imax) a(i, j) Then imax = j End If Next j 第。 i + 1。 行。 最大值為。 a(i, imax)。 下標(biāo)為。 (。 i。 imax。 ) Next iEnd Sub2聲明一個整型的二維數(shù)組a(1 to 4,1 to 4),用隨機函數(shù)產(chǎn)生各元素,范圍介于[1,20]之間,編程將第1行和第3行對應(yīng)元素交換。Private Sub Form_Click()Dim a%(1 To 4, 1 To 4), i%, j%Print 排序前For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 20 + 1) Print Tab(j * 4)。 a(i, j)。 Next j PrintNext iPrint 排序后For j = 1 To 4t = a(1, j): a(1, j) = a(3, j): a(3, j) = tNext jFor i = 1 To 4 For j = 1 To 4 Print Tab(j * 4)。 a(i, j)。 Next j PrintNext iEnd Sub[100,1000]內(nèi)所有素數(shù)的和(要求判斷素數(shù)使用過程(函數(shù)或子過程)來實現(xiàn))。調(diào)用該過程。(提示:只能被1 和自身整除的自然數(shù)成為素數(shù))Function sushu%(ByVal x%)Dim m%, Tag As Boolean, i% m = Val(x) Tag = True For i = 2 To m 1 If (m Mod i) = 0 Then Tag = False Next i If Tag Then sushu = xEnd FunctionPrivate Sub Command1_Click()Dim i%, k%For i = 100 To 1000If sushu(i) Then iNext iSum = 0 For k = 0 To 1 Sum = Sum + Val((k)) Next kLabel1 = [100,1000]內(nèi)所有素數(shù)和為: amp。 SumEnd Sub29,隨機生成一個整型的二維數(shù)組,范圍在[10,20]之間,以下三角形式輸出該數(shù)組。 Private Sub Form_Click()Dim a(4, 4) As IntegerFor i = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd * 11 + 10) Next j Next iFor i = 0 To 4 For j = 0 To i Print a(i, j)。 Next j PrintNext iEnd Sub以上三角形式輸出該數(shù)組Dim a%(4, 4)Private Sub Command1_Click()For i = 0 To 4For j = i To 4 Tab(j * 6)。 a(i, j)。Next jNext iEnd SubPrivate Sub Form_Load()For i = 0 To 4For j = 0 To 4a(i, j) = Int(Rnd * 11 + 10)Next jNext iEnd Sub3利用隨機函數(shù)生成一個44的矩陣(即二維矩陣),范圍是[40,80]內(nèi)的整數(shù),求它的最大值及所對應(yīng)的下標(biāo)。Private Sub Form_Click()Dim a(3, 3), max%, imax%For i = 0 To 3 For j = 0 To 3a(i, j) = Int(Rnd * 41 + 40) Next jNext iFor i
點擊復(fù)制文檔內(nèi)容
環(huán)評公示相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1