vb编程题.docVIP

编程题 编写程序在窗体上输出如下图形。 Private sub form_click() Dim I,j,k as integer Form1.fontsize=20 Print For i=1 to 7 Print tab(i); For j=1 to 14-(2*i-1) Print “*”; Next j Print “”; For k=1 to 2*i-1 ?”$”; Next k Print Next i End sub 2．? 设计一个窗体，输入一个三位整数，将它反向输出。例如输入246，输出642。 Private sub command1_click() Dim s,x,y,z,k as integer S=val(text1.text) X=s\100 Y=s\10 mod 10 Z=s mod 10 K=z*100+y*10+x 或 k=zyx Label1.caption=k End sub 3．求1+1/1！+1/2！+1/3！+…+1/n! 直到一项小于10-6（用Do…Loop语句） Private sub form_click() Dim e as double,t as double Dim I as integer E=1 T=1 I=1 Do while (1/t)=0.000001) T=t*i E=e+1/t I=i+1 Loop Form1.fontsize=20 ?e End sub 4．编写程序，在100～999三位整数范围内，找出这样的数（水仙花数）：该数等于其各数字的立方和。例如：371=33+73+13，即371就是水仙花数。 Dim s,I,j,k as integer Print Form1.fontsize=20 For s=100 to 999 I=s\100 J=s\10-i*10 或 j=s\10 mod 10 K=s mod 10 If s=i*i*i+j*j*j+k*k*k then Msgbox(“是水仙花”) Else Msgbox(“不是水仙花”) endif Next s End sub 5．编写程序，求出s=1+(1+2)+(1+2+3)+ …+(1+2+3+…+n)的值。 Private sub command1_click() Dim n,I,j as integer Dim s,sum as double S=0:sum=0 N=val(text1.text) For i=1 to n S=s+i Sum=sum+s Next i Text1.text=sum End sub 6．用递归法求n!。 Private function fac(n)as double If n0 then Fac=n*fac(n-1) Else Fac=1 End function Private sub command1_click() Dim n as integer,m as integer show N=val(text1.text) If n0 or n20 then Msgbox(“重新输入数据”) Exit sub End if M=fac(n) Text2.text=format(m,”,”,”@@@@@@”) Text1.setfocus End sub 7．求出矩阵中最大元素所在的行和列，输出其值、行号和列号。 Private sub command1_click() Dim a(1 to 4,1 to 5)as integer Dim max as integer For i=1 to 4 For j=1 to 5 A(I,j)=int(rnd*90+10)+10 Next j Next i Max=a(1,1) For i=1 to 4 For j=1 to 5 If maxa(I,j) then Max=a(I,j) M=i N=j endif Next j Print Next i Print”矩阵的最大元素为:”;max,m,n End sub 8．编写一个程序，从键盘输入10个学生成绩，统计最高分、最低分和平均分。 Private sub command1_click() Dim mark(10)as integer,avger as integer,max as integer Dim min,sum,as integer Sum=0 For i=1 to 10 Mark(i)=inputbox(“输入”i”位同学的成绩”) Sum=sum+mark(i) Next i Aver=sum/10 Max=0:min=100 For i=1 to 10 If ma