最新vb程序設(shè)計編程考試題及答案-閱讀頁
2025-07-10 01:27本頁面
【正文】 ate Sub Command1_Click()Dim a, b, c, d, na = InputBox(輸入字符串)n = Len(a)For b = 1 To Int(n \ 2)c = Mid(a, b, 1)Mid(a, b, 1) = Mid(a, n b + 1, 1) Mid(a, n b + 1, 1) = cNext bPrint aEnd Sub19. 隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最大值及所對應(yīng)的下標Private Sub Command1_Click()Dim a(1 To 10), mRandomizeFor I = 1 To 10a(I) = Int(Rnd * 71) + 30Print a(I)Next IMax = a(1)For I = 2 To 10If a(I) Max Then Max = a(I): m = INext IPrint max=。 mEnd Sub20. 隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最大值、最小值和平均值。 MaxPrint min=。 AvgEnd Sub 21. 隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最小值及所對應(yīng)的下標。 MinPrint min的下標為。Private Sub Command1_Click()Dim a(1 To 10, 1 To 10), i, j As IntegerFor i = 1 To 10For j = 1 To 10a(i, j) = Int(Rnd *11 + 10)NextNextFor i = 1 To 10For j = 1 To iPrint Spc(3)。NextPrintNextEnd Sub23. 隨機產(chǎn)生10個1~100的正整數(shù)放入數(shù)組，顯示產(chǎn)生的數(shù)，求最大值、最小值、平均值。 MaxPrint min=。 AvgEnd Sub24. 利用隨機函數(shù)生成一個44的矩陣(即二維矩陣),范圍是[20,50]內(nèi)的整數(shù),輸出該矩陣所有數(shù)據(jù)之和Private Sub Command1_Click()Dim a%(4, 5), sumFor i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 31) + 20Print a(i, j)。換行Next iPrint sum=。數(shù)組a中的元素分別為{12，6，4，89，75，63，100，20，31}。Next iEnd Sub26. 編寫一函數(shù)，計算Double類型一維數(shù)組所有元素的平均值。Next iCall ProcMin(a(), min)PrintPrint min =。Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i)。 aminEnd SubSub ProcMin(b(), min)Dim i%min = b(LBound(b))For i = LBound(b) + 1 To UBound(b)If b(i) min Then min = b(i)Next iEnd Sub29. 編一個函數(shù)，求一維數(shù)組a中的最大值，函數(shù)的形參自己確定。Next iCall ProcMax(a(), amax)PrintPrint amax =。調(diào)用該過程。)
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1