《《VB期末范围题总汇》.doc》由会员分享,可在线阅读,更多相关《《VB期末范围题总汇》.doc(9页珍藏版)》请在金锄头文库上搜索。
1、VB期末范围题总汇VB期末范围题总汇 1 求随机10个整数的最大值、最小值、平均值以及和; Dim a(1 To 10) Private Sub Command1_Click() Randomize Picture1.Print 产生的随机数为: For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) Picture1.Print a(i); Next i Picture1.Print End Sub Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1) ave = 0.1 * a(1
2、) For i = 2 To 10 If a(i) max Then max = a(i) If a(i) n1 Then 为了求最小公倍数,增加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; 的最大公约数为; n Print 最小公倍数=, m1 * n1 / n End Sub 7.求逆序数(感觉题目类型太多) 8. 级数有限项求和问题(题目类型太多) 9. 求质因子问题 Private Sub Com
3、mand1_Click() Dim N As Integer, I As Integer N = Val(InputBox(请输入2的整数:) 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. 字符统计 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
4、 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 List1.Additem Chr(64+i) & “:” & A(i) Netx i End Sub Private Sub Command_Click() End End Sub 第二大题 1. 判定素数过程 Function isprime(Num As Long) As Boolean If Nu
5、m = B, A, B) x存入最大值 Y = IIf(A 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) Randomize Print 原数组: For i = 1 To 10 a(i) = Rnd * 10 Print a( & i & ) = & a(i) & Space(2), If i Mod 2 = 0 Then Print Next i Print For i = 1 To 9 For j = i + 1 To 10 If a(j) a(i) Then t = a(i) a(i