基本题型：1、求一个整数的位数及相应的计算问题（1）求所有各位数字的立方和等于1099的3位正整数。PrivateSubForm_Click()Dima%,b%,c%,i%,Fori=100To999a=I\100b=I\10mod10c=Imod10ifa^3+b^3+c^3=1099thenPrintI;NextEndSub(2)编写一程序，输入一正实数x，分别输出该数的整数部分的位数和小数部分的位数。PrivateSubForm_Click()Dimx$,a,i%,j%,b#,l%x=InputBox("inputdata:")leng=Len(x)a=Int(Val(x))len1=Len(Trim(Str(a)))len2=leng-len1-1Print"整数位数=";len1,"小数位数=";len2EndSub（3）求同构数。同构数是这样一种数，它出现在它的平方数的右端。例如5的平方是25，5是25的右端的数，5就是同构数；25也是同构数，因为它的平方是625。编程找出1~100之间的全部“同构数”。PrivateSubForm_Click()Fori=1To100p=i*iIfLen(Trim(Str(i)))=1ThenIfTrim(Str(i))=Right(Trim(Str(p)),1)ThenPrintiElseIfLen(Trim(Str(i)))=2ThenIfTrim(Str(i))=Right(Trim(Str(p)),2)ThenPrintiEndIfNextEndSub（4）求“水仙花”数2、统计类问题（1）1、编写一程序，输入一系列整数，用0作为结束标志，统计其中有多少个正数，多少个负数。PrivateSubCommand3_Click()Dima%,zs%,fs%zs=0:fs=0a=Val(InputBox("inputdata:"))Whilea<>0Ifa>0Thenzs=zs+1Ifa<0Thenfs=fs+1a=Val(InputBox("inputdata:"))WendPrint"正数个数=";zs,"负数个数=";fsEndSub(2)2、编写一程序，输入一串字符，以‘？’结束，输出其中英文字母个数、数字字符个数和其它字符个数。PrivateSubCommand1_Click()Dimc$,i%,ch$,zm%,sz%,a$,qt%c="?"ch=InputBox("inputchar:")i=1:zm=0:sz=0:qt=0a=Mid(ch,1,1)Whilea<>"?"Ifucase(a)>="A"Anducase(a)<="Z"Thenzm=zm+1elseIfa>="0"Anda<="9"Thensz=sz+1elseqt=qt+1endifi=i+1a=Mid(ch,i,1)WendPrint"英文字母=";zm,"数字=";sz,"其它字符=";qtEndSub(3)编写程序：读入一组整数，从第二个数开始遇零结束输入，输出与第一个数相同符号的所有数。PrivateSubCommand9_Click()Dima%,b%,i%a=Val(InputBox("inputonedata:"))i=Sgn(a)b=Val(InputBox("inputnextdata:"))Whileb<>0Ifi=Sgn(b)ThenPrintbb=Val(InputBox("inputdata:"))WendEndSub3、数列放置位置问题（1）编写一程序，用InputBox输入十个整数，求其中最大数，并将最大数和数组中最后一个数交换位置（要求用数组方法实现），在窗体中显示出运行结果。PrivateSubCommand7_Click()Dima%(10),i%,t%,ma%,j%Fori=1To10a(i)=Val(InputBox("inputdata:"))Printa(i);NextPrintma=a(1):j=1Fori=2To10Ifma<a(i)Thenma=a(i):j=iNextt=ma:a(j)=a(10):a(10)=tFori=1To10Printa(i);NextPrintPrint"最大值是：";maEndSub（2）编写一程序，将一个数插入到有序的数列中，插入后使数列仍然有序。如一个数列：1、3、5、6、7、8，插入数字4，结果为：1、3、4、5、6、7、8。PrivateSubCommand10_Click()Dima()