【正文】 是 【4】 。 sEnd Sub5． 答案：1 5 1 Private Sub Form_Click() Dim a(1 To 3, 1 To 3) For i = 1 To 3 For k = 1 To 3 If k = 1 Or i = k Then a(i, k) = 1 Else a(i, k) = i + k End If Next k Next i Print a(1, 1)。 a(3, 3)End Sub6．在窗體上放置一個(gè)命令按鈕，名稱為Command2，并編寫如下代碼。 n。答案：18 12 67．在窗體上放置一個(gè)命令按鈕，名稱為Command3，并編寫如下代碼。 Print fun1(k)。End SubFunction fun1(a As Integer) As Integer Static c As Integer Dim b As Integer a = a + 2: b = b + 2: c = c + 2 fun1 = a + b + cEnd Function程序運(yùn)行后，單擊命令按鈕，則輸出結(jié)果是 【7】 。Dim s As StringPrivate Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s。答案：aababc1．在窗體上放置一個(gè)計(jì)時(shí)器和一個(gè)標(biāo)簽，計(jì)時(shí)器名稱為Timer1，標(biāo)簽名稱為Label1。程序中有一處錯(cuò)誤，請更正。(1)Private Sub Form_Load()(2) = 5 答案：200(3) = True(4)End Sub(5)Private Sub Timer1_Timer()(6) = + 2(7) If Then(8) = 8(9) End If(10)End Sub2．下列程序的功能是計(jì)算1+3+5+…+99的和s。請更正。(1)s = 0(2)k = 1(3)Do While k = 99(4) k = k + 2 答案：將（4）、（5）調(diào)換順序(5) s = s + k(6)Loop(7)Print s1．在窗體上放置一個(gè)列表框，名稱為List1；放置一個(gè)文本框，名稱為Text1；放置一個(gè)命令按鈕，名稱為Command1，Caption屬性值為“統(tǒng)計(jì)3的倍數(shù)”。下列程序的功能是：（1） 在窗體的Load事件中，產(chǎn)生10個(gè)20~30（含20和30）之間的隨機(jī)整數(shù)，并作為列表項(xiàng)逐個(gè)添加到列表框List1中。請?zhí)羁胀晟瞥绦颉．a(chǎn)生一個(gè)[20,30]之間的隨機(jī)整數(shù) 【2】 39。 n:存放是3的倍數(shù)的列表項(xiàng)的個(gè)數(shù) For k = 【3】 答案：0 To – 1 或 0 To 9 If Val((k)) 【4】 = 0 Then 答案： Mod 3 n = n + 1 End If Next k = nEnd Sub2．下列程序的功能是用近似公式 求自然對數(shù)的底 e 的值，直到最后一項(xiàng)小于104時(shí)停止計(jì)算。Private Sub Form_Click() Dim e As Single, n As Integer, p As Single 39。 eEnd Sub3．在下圖所示的窗體上放置的主要控件及其主要的屬性設(shè)置如下：控件類型控件名稱屬性屬性值標(biāo)簽Label1Caption示例文字命令按鈕Command1Caption設(shè)置單選按鈕Option1Caption宋體Option2Caption隸書 下列程序的功能是單擊命令按鈕后，根據(jù)單選按鈕的選中狀態(tài)，將標(biāo)簽中的“示例文字”設(shè)置為相應(yīng)的字體。Private Sub Command1_Click() Dim fn As String 39。單擊窗體時(shí)，能夠輸入數(shù)組a的10個(gè)元素，并調(diào)用函數(shù)ave，求數(shù)組a中所有元素的平均值，并顯示輸出。Option Base 1Private Sub Form_Click() Dim a(10) As Single For i = 1 To 10 a(i) = Val(InputBox(輸入一個(gè)數(shù)值)) Next i Print 平均值=。調(diào)用函數(shù)ave 答案：ave(a)End SubPublic Function ave(b() As Single) As Single Dim s As Single Dim n As Integer n = UBound(b) For k = 1 To n s = s + b(k) Next k 【10】 答案：ave = s / nEnd Function《VB期末范圍題總匯》 1． 求隨機(jī)10個(gè)整數(shù)的最大值、最小值、平均值以及和； Dim a(1 To 10) Private Sub Command1_Click() Randomize 產(chǎn)生的隨機(jī)數(shù)為： For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) a(i)。 max 最小數(shù)為：。 ave End Sub Private Sub Form_Click() Dim a, b, c As Integer 39。 i amp。 j amp。 k End If Next: Next: Next MsgBox 共有組合： amp。求完數(shù)的過程 Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1 For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j If temp = i Then Print i End If Next i End Sub input a:39。取a的末位數(shù) sum=sum+b:39。去掉末位數(shù) loop until a=0 print sum=。輸出 end （dim n as string input n for i = 1 to len(n) sum=sum+val(mid(n,i,1)) next i print sum） Private Sub Form_Load() = True Dim n1%, m1%, m%, n%, r% n1 = InputBox(輸入n1) m1 = InputBox(輸入m1) If m1 n1 Then 39。 ,。 的最大公約數(shù)為。 N = N \ I Else I = I 1 End If Loop While N 1 End Sub 10. 字符統(tǒng)計(jì) Option Base1 Option Explicit Private Sub Command1_Click() Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1) If UCase(S)=”A” And UCase(S)=”Z” Then A(Asc(UCase(S))64)+1 End If Next i For i=1 To 26 Chr(64+i) amp。 A(i) Netx i End Sub Private Sub Command_Click() End End Sub 第二大題 1. 判定素?cái)?shù)過程 Function isprime(Num As Long) As Boolean If Num 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub Command1_Click() Dim i As Long For i = 1 To 1000 If isprime(i) Then Print i End If Next i End Sub ； Function Max公約數(shù)(A As Long, B As Long) 39。x存入最大值 Y = IIf(A = B, A, B) 39。輾轉(zhuǎn)相除法 K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop Max公約數(shù) = Y End Function Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer For i = 0 To 9 a(i) = InputBox(輸入整數(shù)) Next Sort a For i = 0 To 9 Print a(i) Next End Sub Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step 1 If a(j 1) a(j) Then t = a(j 1) a(j 1) = a(j) a(j) = t End If Next Next End Sub 4順序查找過程 Private Sub Command1_Click()Dim i, j, t, a(1 To 10)RandomizePrint 原數(shù)組:For i = 1 To 10 a(i) = Int(Rnd * 10) Print a( amp。 ) = amp。 Space(2), If i Mod 2 = 0 Then PrintEnd IfNext iPrintFor i = 1 To 9 For j = i + 1 To 10 If a(j) a(i) Then t = a(i) End If Next jNext iEnd Sub 《VB期末范圍題總匯》 1． 求隨機(jī)10個(gè)整數(shù)的最大值、最小值、平均值以及和； Dim a(1 To 10) Private Sub Command1_Click() Randomize 產(chǎn)生的隨機(jī)數(shù)為： For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) a(i)。 max 最小數(shù)為：。 ave End Sub Private Sub Form_Click() Dim a, b, c As Integer 39。 i amp。 j amp。 k End If Next: Next: Next MsgBox 共有組合： amp。求完數(shù)的過程 Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1 For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j If temp = i Then Print i End If Next i End Sub input a:39。取a的末位數(shù) sum=sum+b:39。去掉末位數(shù) lo