最新vb程序設(shè)計編程考試題及答案-wenkub.com
2025-06-22 01:27 本頁面
【正文】 調(diào)用該過程。 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 ProcMin(a(), min)PrintPrint min =。數(shù)組a中的元素分別為{12，6，4，89，75，63，100，20，31}。 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)。NextPrintNextEnd Sub23. 隨機產(chǎn)生10個1~100的正整數(shù)放入數(shù)組，顯示產(chǎn)生的數(shù)，求最大值、最小值、平均值。 MinPrint min的下標(biāo)為。 MaxPrint min=。例如：輸入“ASDFGT”，顯示“TGFDSA”Private 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)的下標(biāo)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=。 。 公雞Print For x = 1 To 100For y = 1 To 100For z = 1 To 100If * x + 2 * y + 3 * z = 100 ThenPrint 。Private Sub Command1_Click()Print 小雞。Private Sub Command1_Click()Dim a, ia = 13i = 0Do While a 26 a = a * ()i = i + 1LoopPrint iEnd Sub14. 小猴有桃若干，第一天吃掉一半多一個；第二天吃剩下桃子的一半多一個；以后每天都吃尚存桃子的一半多一個，到第7天只剩一個，問小猴原有桃多少？Private Sub Command1_Click()Dim a, ia = 1For i = 1 To 6a = 2 * (a + 1)Next iPrint 小猴原有桃。 個數(shù)))Next imax = a(1)min = a(1)s = a(1)For i = 2 To 7If a(i
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1