vb程序的設(shè)計(jì)編程考試題與答案-預(yù)覽頁(yè)
【正文】 (i)If a(i) min Then min = a(i)s = s + a(i)Next is = s min maxs = s / 5Print 平均分。Private Sub Command1_Click()Dim a, ia = 13i = 0Do While a 26 a = a * ()i = i + 1LoopPrint iEnd Sub14. 小猴有桃若干，第一天吃掉一半多一個(gè)；第二天吃剩下桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半多一個(gè)，到第7天只剩一個(gè)，問(wèn)小猴原有桃多少？Private Sub Command1_Click()Dim a, ia = 1For i = 1 To 6a = 2 * (a + 1)Next iPrint 小猴原有桃。Private Sub Command1_Click()Print 小雞。 公雞Print For x = 1 To 100For y = 1 To 100For z = 1 To 100If * x + 2 * y + 3 * z = 100 ThenPrint 。 。例如：輸入“ASDFGT”，顯示“TGFDSA”P(pán)rivate 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. 隨機(jī)產(chǎn)生10個(gè)[30,100]內(nèi)的整數(shù)，求最大值及所對(duì)應(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=。 MaxPrint min=。 MinPrint min的下標(biāo)為。NextPrintNextEnd Sub23. 隨機(jī)產(chǎn)生10個(gè)1~100的正整數(shù)放入數(shù)組，顯示產(chǎn)生的數(shù)，求最大值、最小值、平均值。 AvgEnd Sub24. 利用隨機(jī)函數(shù)生成一個(gè)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)。數(shù)組a中的元素分別為{12，6，4，89，75，63，100，20，31}。Next iCall ProcMin(a(), min)PrintPrint min =。 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. 編一個(gè)函數(shù)，求一維數(shù)組a中的最大值，函數(shù)的形參自己確定。調(diào)用該過(guò)程。什么是奮斗？奮斗就是每天很難，可一年一年卻越來(lái)越容易
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1