最新vb程序設(shè)計(jì)編程考試題及答案(存儲(chǔ)版)
【正文】 ProcMin(a(), amin)PrintPrint amin =。(提示：只能被1和自身整除的自然數(shù)稱為素?cái)?shù)。 minEnd Sub Sub 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 Sub28. 編一子過程ProcMin,求一維數(shù)組a中的最小值，子過程的形參自己確定。sum = sum + a(i, j)Next jPrint 39。 mEnd Sub22. 隨機(jī)生成一個(gè)整型的二維數(shù)組，范圍在[10,20]之間，以下三角形式輸出該數(shù)組。 MaxPrint max的下標(biāo)為。 x。 a。如果分別輸入7個(gè)評(píng)委對(duì)某個(gè)參賽者的打分?jǐn)?shù)，按照去掉一個(gè)最高分和一個(gè)最低分的計(jì)算辦法，求出該參賽者的平均得分。private Sub Command1_Click() n1 = InputBox(輸入n) m1 = InputBox(輸入m) If m1 n1 Then m = m1: n = n1 Else m = n1: n = m1 End If r = m Mod n Do While r 0 m = n n = r r = m Mod n LoopPrint m n 的最大公約數(shù)是：。VB程序設(shè)計(jì)編程考試題及答案1. 輸入3個(gè)數(shù)，輸出最大的數(shù)Private Sub mand1_click()Dim maxFor i = 1 To 3n = Val(InputBox(輸入第 amp。Private Sub Command1_Click()Dim x%, x1%, x2%, x3%x = Text1x1 = x Mod 10x2 = (x Mod 100) \ 10x3 = x \ 100Label1 = x1 * 100 + x2 * 10 + x3End Sub7. 輸入兩個(gè)整數(shù)，求它們的最大公約數(shù)。 s7End Sub11. 某次歌曲大獎(jiǎng)賽，有7個(gè)評(píng)委。Private Sub Command1_Click()Dim a, ia = 13i = 0Do While a 26 a = a * ()i = i + 1LoopPrint iEnd Sub14. 小猴有桃若干，第一天吃掉一半多一個(gè)；第二天吃剩下桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半多一個(gè)，到第7天只剩一個(gè)，問小猴原有桃多少？Private Sub Command1_Click()Dim a, ia = 1For i = 1 To 6a = 2 * (a + 1)Next iPrint 小猴原有桃。 公雞Print For x = 1 To 100For y = 1 To 100For z = 1 To 100If * x + 2 * y + 3 * z = 100 ThenPrint 。例如：輸入“ASDFGT”，顯示“TGFDSA”Private Sub Command1_Click()Dim a, b, c, d,
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1