【正文】 ion2Caption隸書 下列程序的功能是單擊命令按鈕后，根據(jù)單選按鈕的選中狀態(tài)，將標(biāo)簽中的“示例文字”設(shè)置為相應(yīng)的字體。請?zhí)羁胀晟瞥绦颉rivate Sub Command1_Click() Dim fn As String 39。 fn:存放選中的字體 If 【7】 Then 答案： = True fn = 宋體 Else fn = 隸書 End If 【8】 = fn 答案：End Sub4．下列程序中用戶自定義函數(shù)ave的功能是求一維數(shù)組中所有元素的平均值，并返回。單擊窗體時，能夠輸入數(shù)組a的10個元素，并調(diào)用函數(shù)ave，求數(shù)組a中所有元素的平均值，并顯示輸出。請?zhí)羁胀晟瞥绦?。Option Base 1Private Sub Form_Click() Dim a(10) As Single For i = 1 To 10 a(i) = Val(InputBox(輸入一個數(shù)值)) Next i Print 平均值=。 【9】 39。調(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個整數(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)。 Next i End Sub Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1) ave = * a(1) For i = 2 To 10 If a(i) max Then max = a(i) If a(i) min Then min = a(i) ave = ave + * a(i) Next i 最大數(shù)為：。 max 最小數(shù)為：。 min 平均數(shù)為：。 ave End Sub Private Sub Form_Click() Dim a, b, c As Integer 39。a(個)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub ； Option Explicit Const a = 5, b = 3, c = 1 Private Sub Form_Activate() Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100 For j = 1 To 100 For k = 1 To 100 If i * a + j * b + k * c = 100 Then n = n + 1 公雞： amp。 i amp。 母雞： amp。 j amp。 小雞： amp。 k End If Next: Next: Next MsgBox 共有組合： amp。 n End Sub 求1000以內(nèi)的所有完數(shù) 一個按鈕里調(diào)用的過程 Private Sub Command1_Click() OutputWanNumber 1000 End Sub 4.39。求完數(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。輸入任意數(shù) do b=a mod 10:39。取a的末位數(shù) sum=sum+b:39。求和 a=a \ 10:39。去掉末位數(shù) loop until a=0 print sum=。sum:39。輸出 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ù)，增加m,n變量 m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print n1。 ,。 m1。 的最大公約數(shù)為。 n Print 最小公倍數(shù)=, m1 * n1 / n End Sub （感覺題目類型太多） 8. 級數(shù)有限項(xiàng)求和問題（題目類型太多） 9. 求質(zhì)因子問題 Private Sub Command1_Click() Dim N As Integer, I As Integer N = Val(InputBox(請輸入2的整數(shù):)) I = 2 Do If N Mod I = 0 Then Print I。 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。 “:” 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。求出兩個數(shù)的最大公約數(shù) Dim X As Long, Y As Long, K As Long X = IIf(A = B, A, B) 39。x存入最大值 Y = IIf(A = B, A, B) 39。y 存入最小值 Do 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。 i amp。 ) = amp。 a(i) 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個整數(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)。 Next i End Sub Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1) ave = * a(1) For i = 2 To 10 If a(i) max Then max = a(i) If a(i) min Then min = a(i) ave = ave + * a(i) Next i 最大數(shù)為：。 max 最小數(shù)為：。 min 平均數(shù)為：。 ave End Sub Private Sub Form_Click() Dim a, b, c As Integer 39。a(個)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub ； Option Explicit Const a = 5, b = 3, c = 1 Private Sub Form_Activate() Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100 For j = 1 To 100 For k = 1 To 100 If i * a + j * b + k * c = 100 Then n = n + 1 公雞： amp。 i amp。 母雞： amp。 j amp。 小雞： amp。 k End If Next: Next: Next MsgBox 共有組合： amp。 n End Sub 求1000以內(nèi)的所有完數(shù) 一個按鈕里調(diào)用的過程 Private Sub Command1_Click() OutputWanNumber 1000 End Sub 4.39。求完數(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。輸入任意數(shù) do b=a mod 10:39。取a的末位數(shù) sum=sum+b:39。求和 a=a \ 10:39。去掉末位數(shù)