vb算法重点修改版.doc

1 市营老师给重点，说会出两道题2 一“一个范围内判断素数，并求素数和”3 二“统计每个字符出现的个数表达式Fix(-32.68)+Int(-23.02)的值为 【13】-56 fix（取整，舍弃小数点后面的）int（取小于或等于N的最大整数）4 冒泡 从大到小Option Base 1Private Sub Command1_Click()Dim aa = Array(67, 45, 24, 52, 49, 37, 87, 58, 23, 82)For i = 1 To UBound(a) - 1For j = 1 To UBound(a) - iIf a(j) b then max=a Elsemax=b End if If cmax then max=c3. 随机生成10个500-1000的数，能被5整除的print出来for i=1 to 10n=Int (Rnt * 501)+500 If x mod 5 = 0 then Print n End if Next4. 一串字符中找到字母，print出来Private Sub Command1_Click()t = Text1.TextFor i = 1 To Len(t)r = Mid(t, i, 1): r1 = UCase(r) If (r1 A And r1 = Z) Then m = m & r End IfNextPrint mEnd Sub5. 20个数中找最大最小Option Base 1Private Sub Command1_Click() Dim i%, arr(10)randomize For i = 1 To 10 arr(i) = Int(Rnd * 101) + 100 Next i Print arr数组的最小值为; FunMin(arr)End SubFunction FunMin(a( ) As Variant Dim i%,min min = a( LBound(a) ) For i = LBound(a)+ 1 To UBound(a) If a(i) ”即可。） Next FunMin = minEnd Function6.求斐波那契级数的前5项，以及，求和Private Sub Form_click()Dim i%, a&(5), s#a(1) = 1: a(2) = 1Print a(1); a(2)For i = 3 To 20 a(i) = a(i - 2) + a(i - 1) s = s + a(i) Print a(i); NextPrint sEnd Sub7. 判断素数，并求范围内的素数之和a.函数求解 Function Prime(n%) As Boolean tag = True For i=2 To n/2 If n mod i = 0 Then tag = False Exit For End If Next Prime = tagEnd Functionb.调用过程求解 Private Sub Command1_Click( ) Dim i%,n1%,n2%,s% If op1.Value Then n1 = 100 : n2 = 200 Else n1 = 200 : n2 = 400 End If For i = n1 to n2 If Prime(i) then s = s + i Next Text1.Text = sEnd Sub例:输入一个正整数，判断该数是否为素数。（素数是指一个数只能被1和其本身整除。）Dim i%, n%,s$n = Val(InputBox(请输入一个正整数：)s = n & 是素数“ For i = 2 To n - 1 If n Mod i = 0 Then s = n & 不是素数 Exit For End IfNextPrint s例：输出100以内的素数Dim i%, n%,Tag as Boolean n = Val(InputBox(请输入一个正整数：) Tag= True For i = 2 To n - 1 If n Mod i = 0 Then Tag=False Exit For End If Next i If Tag=True then Print n子过程求解Sub subprime(n%, flag As Boolean)flag = TrueFor i = 2 To Sqr(n) If n Mod i = 0 Then flag = False Exit For End If Next iEnd Sub控件，添加Fad =array(“馒头”，“包子”，“稀饭”) For i = Lbound(fad) to Ubound (fad) Combo1. additem fad(i)双击List1中的某一项，就从该项删除添加至list2 Private sub list1_DblClickList2.AddItem List1.TextList1.RemoveItem List1.listIndex9.把文本框内容选中放入另外一个文本框设当前文件夹已有文件t1.txt和t2.txt，其中各有若干文字。现要将t2.txt的内容合并到t1.txt 中。例如t1.txt原来内容为ABCD, t2.txt原来内容为1234，合并后t1.txt的内容将成为“ABCD1234”Private Sub Command1_Click() Open t1.txt _for append_（在文件末尾追加记录）_ As #1 Open t2.txt For Input （对文件进行读操作）As #2 Do While Not EOF（判断是否到达尾端）(2) Line Input #2, s（读一行数据送入s中） _Print #1,s_ Loop CloseEnd Sub10.统计每个字符出现的个数方法：统计26个字母出现的个数，必须声明一个具有26个元素的数组，每个元素的下标表示相应的字母的Ascii值，元素的值表示对应字母出现的次数。Dim a%(65 to 90),s$S=Inputbox(“输入一串字符串：”)For i= 1 to Len(s) n=Asc(Ucase(Mid(s,i,1) a(n)=a(n)+1NextFor i= 65 to 90 if a(i)0 then print Chr(i);”的个数为:”;a(i)Next11.大小写转换，字符转换为数字，写入文件1Asc() chr()12.去掉最高分最低分，求平均数Option Base 1Private Sub Command1_Click() Dim i%, a(), s# a = Array(1, 2, 3, 4, 5) Print a数组的最小值为; FunMin(a() Print a数组的最大值为; FunMax(a() For i = LBound(a) To UBound(a) s = a(i) + s Next s = (s - (FunMin(a() + FunMax(a() / (UBound(a) - 2) Print 去掉最大最小后的平均值为：; sEnd SubFunction FunMin(a() As Variant Dim i%, min% min = a(LBound(a) For i = LBound(a) + 1 To UBound(a) If a(i) max Then max = a(i) Next FunMax = maxEnd Function13找一个数除另外几个数的余数都是一个数，统计有多少个这样的数例:输出1100之间所有能被3整除并且个位数字为2的数。Private Sub Command1_Click()Dim i% For i = 1 To 100 If i Mod 3 = 0 And i Mod 10 = 2 Then Print i n = n + 1 End If Next Print 共有; n; 个End SubDim i% For