最新vb程序設(shè)計(jì)編程考試題及答案-文庫(kù)吧在線文庫(kù)
【正文】 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=。 MinPrint min的下標(biāo)為。 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)。Next iCall ProcMin(a(), min)PrintPrint min =。調(diào)用該過(guò)程。 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ù)的形參自己確定。數(shù)組a中的元素分別為{12，6，4，89，75，63，100，20，31}。NextPrintNextEnd Sub23. 隨機(jī)產(chǎn)生10個(gè)1~100的正整數(shù)放入數(shù)組，顯示產(chǎn)生的數(shù)，求最大值、最小值、平均值。 MaxPrint min=。 。Private Sub Command1_Click()Print 小雞。 個(gè)數(shù)))Next imax = a(1)min = a(1)s = a(1)For i = 2 To 7If a(i) max Then max = a(i)If a(i) min Then min = a(i)s = s + a(i)Next is = s min maxs = s / 5Print 平均分。Private Sub Command1_Click()For i = 200 To 400If i Mod 5 = 0 Or i Mod 7 = 0 ThenSum = Sum + iEnd IfNext iFor i = 200 To 400If i Mod 5 = 0 And i Mod 7 = 0 ThenSum = Sum iEnd IfNext iPrint “倍數(shù)之和=”。 maxEnd Sub2. 有一元二次方程：aX2+bX+c=0，依次輸入a，b，c，判斷此方程是否有實(shí)根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1