VB程序编辑题教程文件.doc

《VB程序编辑题教程文件.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、精品好文档，推荐学习交流一、求和、求均值，最大、最小值；1.求和及平均值（1）每一行的和及平均值Dimsumasinteger,sum1asintegerFori=1To4sum=0Forj=1To4sum=sum+a(i,j)NextjPrintsum/4---每行平均值Nexti2.找最值DimmaxAsInteger,minAsIntegermax=a(1)：min=a(1)Fori=2To10Ifmax<=a(i)Thenmax=a(i)EndIfIfmin>=a(i)Thenmin=a(i)EndIfNextiPrintmax；min二、判断字母、数字、其他字符（

2、1）If...ElseIf...：PrivateSubCommand1_Click()DimaAsString*1a=Text1IfUCase(a)>="A"AndUCase(a)<="Z"ThenText1.Text=a&"是字母"ElseIfa>="0"Anda<="9"ThenText1.Text=a&"是数字"ElseText1.Text=a&"是其它字符"EndIfEndSub（2）SelectCase：PrivateSubCommand2_Click()DimaAsString*1a=Text1SelectCaseaCase"a"To"z","A"To"Z"Te

3、xt1.Text=a&"是字母"Case"0"To"9"Text1.Text=a&"是数字"CaseElseText1.Text=a&"是其它字符"EndSelectEndSub三、计数(统计各个字母个数、各个数字个数)（1）统计各个字母个数：【实验十】2.PrivateSubForm_Click()FontSize=20ClsDima%(65To90),b$,cb=InputBox("输入一串字符串（字母）：")Print"输入的字母串为";bFori=1ToLen(b)c=Asc(UCase(Mid(b,i,1)))a(c)=a(c)+1NextiFori=65To90

4、Ifa(i)<>0ThenPrintChr(i);"的个数为:";a(i)NextiEndSub（2）各个数字个数编写一程序，用随机函数产生〔0－99〕范围的随机整数，统计个位上数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。PrivateSubForm_Click()Dima(100),b(100)AsIntegerFori=1To100a(i)=Int(Rnd*100)Printa(i);IfiMod10=0ThenPrintEndIfNextFori=1To100b(i)=a(i)Mod10Printb(i);IfiMod10=0ThenPrintEndI

5、fSelectCaseb(i)Caseb(i)=0a0=a0+1Caseb(i)=1a1=a1+1Caseb(i)=2a2=a2+1仅供学习与交流，如有侵权请联系网站删除谢谢6精品好文档，推荐学习交流Caseb(i)=3a3=a3+1Caseb(i)=4a4=a4+1Caseb(i)=5a5=a5+1Caseb(i)=6a6=a6+1Caseb(i)=7a7=a7+1Caseb(i)=8a8=a8+1Caseb(i)=9a9=a9+1EndSelectNextiPrintPrint"a0=";a0Print"a1=";a1Print"a2=";a2Print"a3=";a3

6、Print"a4=";a4Print"a5=";a5Print"a6=";a6Print"a7=";a7Print"a8=";a8Print"a9=";a9EndSub一、回文数、水仙花数、百元买百鸡（1）回文数（设n是一任意自然数。若将n的各位数字反向排列所得自然数n1与n相等，则称n为一回文数。例如，若n=1234321，则称n为一回文数；但若n=1234567，则n不是回文数。）PrivateSubForm_Load()DimlAsIntegera=Int(InputBox("请输入一个正整数"))l=Len(a)Fori=1Tol/2IfMid(a,i,1)=Mid

7、(a,l+1-i,1)ThenClsPrintPrintTab(12);a&"是回文数"ElseClsPrintPrintTab(12);a&"不是回文数"EndIfNextiEndSub（2）水仙花数:水仙花数是指一个n位数(n≥3)，它的每个位上的数字的n次幂之和等于它本身。(例如:1^3+5^3+3^3=153)PrivateSubCommand1_Click()DimxAsIntegerDimg%,s%,b%x=153g=xMod10s=x10Mod10b=x100Ifg^3+s^3+b^3=xThen