1.Text
2.text=Text1.Text cstr(fac(x)）Dim s As Long: s=1 s=s*i fac=s
2.m=Max(a,b,c)*mac(a+b,b,c)-max(a,b,b+c）Text4.Text= cstr(m) max=x
3.k=2 redim preserve a(i) loop until n=1 for i=1 to ubound(a)-1
4.a(i)=Int(Rnt*90+1) max=f(a,min) f=b(i) if f<b(i) then f=b(i)
5.mr m mod r 65 r0
6.Open app.path&“\in5.dat “for input as #1 athelete(k)=ch s=s+a(n,k) if s=(s-maxmum-minmum)\5 if Open app.path&“\out5.dat “ for output as #1
7.For i =1 to 10 for j=1 To UBound(a)-i if a(n)=a(i) then ReDim Preserve a(n+1)
monDialog1.Filter input #1,arr(i) CommonDialog1.FilterIndex=2 if arr(i)>arr(j) then
9.If max<a(i) then max=a(i) for i=0 to 9 max=a(0) avg=avg+a(i)
10.Iput #1,a(i,j) close #1 if a(i,j)>x then x=a(i,j) Open App.Path &”\out 5.dat” for output as #1 print #1 label1(k)
11.call prime (x,flag) flag text2=x&”是素数”for i=2 to Sqr(x) If x Mod i=0Then Exit For If i>Sqr(x) Then flg=true Text2.Text=”“Text1.SetFocus
12.Dim s as recordtype get #1,s sumval =s.a1+s.a2+s.a3 output
13.Text1.text File1.Path=Dir1.path dirl.path =drive1.drive do while not EOF(1)
14.Hws x,flag s=x if mid (s,i,1)<>mid(s,len(s)-i+1,1) i>len(s）\2
15.a(i,j)=int(rnd*9+1) b(i,j)=a(j,i) a(i,j) =a(j,i) a(j,i)=temp
16.Find m,n s=1 p=x*y
17.P=p&mid(s,i,1) redim preserve c(k) k=k+1 list1.additem c(i)
18.n=int (rnd*90 +10) n Mod j=0 If j>sqr(n) Then
19.call sxh(i) b=(x\10) Mod 10 x=a^3+b^3+c^3 x&“-”&a&“^3+”&b&“^3+”&c&”^3“
bol1.text text3=a/b
21.n=n\2
22.Text1=Text1.Text+a T=Time y=y+1 n=n+1
23.right(text1,1) ch n
24.Select case s\10
25.If a>b Then max=b
26.S=s&Mid(Text1.Text,i,1)
27.n-1 n mod i=0 sqr(m)\m-1 m mod j=0 sqr(m)\m-1 sqr(n)\n-1
28.S=chr(int(rnd*26+65) if a(i)>a(i-1) then if a(1)>a(n）count=count+1
29.If x=a(k) then exit for do while left<=right else if x>a(mid) then if i<>0 pointer then
30.Redim preserve a(k) if a(j) >a(j+1) then small=small&a(i) if a(i)<>0 then exit for
31.T=t*j s=s+t
32.Len(s) “z”mid(s,j,1)<=”9”
33.Ch=mid(str,i,1) str2=str2+chr(n) str2
34.p=p*1.0008 t=t+1 loop while p<=26
35.If x mod i =0 if i>x-1 then
36.Then Exit for x=i
1、1-10间任一数字阶乘
2、表达式M=max(0,b,c)*max(a+b,b,c)-max(a,b,b+c)
3、求质因子整数N 分解
4、随机产生10个两位数整数，并求最大最小值
5、将一个十进制m整数转换成r（2-16）进制
6、选出冠军，存盘，得分
7、对动态数组生成，排序，插入元素
8、通过对话框部件，完成打开，保存，进行排序
9、利用inputbox给一维数组赋值
10、偶数最大值，奇数平均值
11、判断按钮对文本框1输入的正整数判断编写一个判断素数的sub过程
12、计算最大值最小值，存盘maxval，minval
13、Drivel.dirl 大写转小写，English2
14、编写sub过程hws 判断回文数
15、随机生成4*4二维矩阵显示在图片框
16、利用下面过程求m！和m*n
17、从一个由字母与数字相混的字符串中选出数字串，筛选
18、Rnd随机10个10~99整数，素数个数
19、求所有水仙花数
20、简单计算器程序
21、十进制整数转换成二进制整数
22、文本框随机产生30字母范文，产生范文，结束
23、若是小写字母，显示大写，若是大写，显示小写，其他字符直接显示，在label2中显示总字符数
24、编写程序，输入学生的百分制成绩，将百分制成绩转换成学分制成绩
25、输入两个数，找出其中较大的输出
26、编写一个程序，该程序的功能是：能够将输入的字符
27、编写一个程序，该程序的功能是：输入任意一个整数，若该数不是素数
28、随机产生N个大写字母，并显示
29、对动态数组的选择排序，顺序查找，二分查找
30、利用inputbox函数输入一个N位整数
31、结合累加算法：求1！+2！+3！+...+n！
32、在文本框中输入一串字符，统计其中字母，数字和其他字符个数
33、如图所示，输入一串字符，按规则进行加密
34、我国现有人口13亿，按人口增长率0.8%
35、完善程序代码，要求实现从文本框输入一个正整数
36、完善程序代码，要求筛选出100以内素数
计算两个正整数的最大公约数，
Do
r= m Mod n
If r=0 Then Exit Do
m=n
n=r
Loop
Fun=n
当x的初值为10，
Do
x=x*1.01
n=n+1
Loop Until x>=y
fun=n
求从m到n的奇数的乘积
Product=1
For i=m To n
If i Mod 2< >0 Then Product=Product*i Next i
Fun=Product
整数n的所有因子之和（不包括1与自身）Dim s,i As Integer
For i=2 To n-1
If n Mod i=0 Then
s=s+i
End If
Next
Fun=s。