《vb期末范围题总汇》
《VB期末范围题总汇》 《VB期末范围题总汇》 1. 求随机10个整数的最大值、最小值、平均值以及和; Dim a(l To 10) Private Sub CommandIClick() Randomize Picturel. Print产生的随机数为:“ For i = 1 To 10 a (i) = Int (Rnd *99+1) Picturel. Print a(i): Next i Picturel. Print End Sub Private Sub Command2_Click() Dim max, min, ave max = a (1) min = a (1) ave = 0. 1 * a(l) For i = 2 To 10 If a(i) > max Then max = a(i) If a(i) nl Then 为了求最小公倍数,增加m, n变量 m = ml: n = nl Else m = nl: n = ml End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print nl; ml:的最大公约数为“;n Print ”最小公倍数二”,ml * nl / n End Sub 7. 求逆序数(感觉题目类型太多) 8. 级数有限项求和问题(题目类型太多) 9. 求质因子问题 Private Sub CommandIClick() Dim N As Integer, I As Integer N = Vai (Box C请输入 2 的整数:“)) I = 2 Do If N Mod I = 0 Then Print I: N = N \ I Else 1 = 11 End If Loop While N 1 End Sub 10. 字符统计 Option Basel Option Explicit Private Sub CommandIClick() Dim i as integer, A(26) as integer, n as integer Dim S as string*!, Strl as string Strl=Textl n=Len(Strl) For i=l 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=l To 26 Listl. Additem Chr (64+i) & “:“ & A(i) Netx i End Sub Private Sub CommandClick() End End Sub 第二大题 1. 判定素数过程 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 CommandIClick() Dim i As Long For i = 1 To 1000 If isprime(i) Then Print i End If Next i End Sub 2. 求最大公约数过程; Function