2025年Visual Basic核心编程技巧与实践精髓

、求以内的素数1100Private SubForm_ClickDim i%,j%For i=2To100For j=2To i-1If iMod j=0Then Exit ForNext jIfj=i Then Print iNext iEnd Sub、从键盘输入任意长度的字符串，规定将字符次序倒置，例如，将输入的变换成2“ABCDEFG”“GFEDCBA”Private Sub Commandl_ClickDim a$,1%,c$,d$,n%输入字符串”a=InputBox$n=LenaFor I=1To Intn\2c=Mida,I,1Mida,I,1=Mida,n-1+1,1Mida,n-1+1,1=cNext IPrint aEnd Sub、计算之间所有能被或整除的数之和30-200115Private SubForm_ClickDim n%,i%n=0For i=1To200End Sub、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序18Private SubForm_ClickDim a5as string,b4as integer,t%,max%,imax%For i=1to5ai=inputbox,,aNext iFor i=0to4bi=lentrimaiNext iMax=lFor i=0to4If maxbithen max=bi:imax=iNext iPrintmax=,;aiPrint cixu=,imax+lEnd sub、运用随机函数生成一种的矩阵即二维矩阵,范围是［］内的整数,输出该矩阵所194X420,50有数据之和Private SubForm_ClickDim a%3,3For i=0To3For j=0To3ai,j=IntRnd*31+20Print TabQ*5;ai,j;Next jNext i s=a0,0+al,1+a2,2+a3,3+a3,0+a2,1+al,2+a0,3Print s;End Sub、输入一系列字符串，将字符串按递减次序排列请编程实现20Dim aAs String,n%,i%,j%Private Sub Commandl_Clickn=TextlReDim al To nAs StringFor i=LBounda ToUBounda请输入字符串”ai=InputBox“Picturel.Print ai;Spcl;Next iEnd SubPrivate SubCommand2_ClickFor i=1To nFor j=1To n-iIf ajaj+1Then t=aj:aj=aj+1:aQ+1=tNext jNext iFor i=1To nPicture

2.Print ai;Spcl;Next iEnd SubPrivate SubForm_LoadTextl=,H,End Sub、随机产生个［］内的整数，求最大值、最小值和平均值21130,100Dim alTo10As Integer,amin,amax,i%,avera!Private SubForm_ClickFor i=1To10ai=IntRnd*71+30Next iamin=alamax=alavera=alFor i=2To10If aiamax Then amax=aiIf aiamin Thenamin=aiavera=avera+aiNext iFor i=1To10Print ai;Next iPrintPrintmax=;amax,amin,avera=H;avera/10End Sub、定义三个的二维数组和中的元素均随机生成，数组的范围是〜数224x4A,B,C,A B A120,组的范围是〜数组是和相乘得到的请编程生成并输出B100200,C A B A,B,C相加Dim a%3,3,b%3,3,c%3,3Private SubCommandl_ClickPicturel.CIsFor i=0To3For j=0To3Picturel.Print TabQ*6;ai,j;Next jPicturel.PrintNext iEnd SubPrivate SubCommand2_ClickPicture

2.CisFor i=0To3For j=0To3Picture.Print bij;,n,;zNext jPicture.PrintNext iEnd SubPrivate SubCommand3_ClickPicture3,CisFor i=0To3For j=0To3Pictures.Print Tabj*7;ci,j;Next jPictures.PrintNext iEnd SubPrivate SubForm_Load、随机产生个小写字母，放在字符数组中提醒2315c=chrintrnd*26+97Private SubCommandl_ClickDim c$14,i%Picturel.CIsFor i=0To14ci=ChrIntRnd*26+97Next iFor i=0To14Picturel.Print ci;Next iEnd Sub、随机产生个［］内的整数，求最大值及所对应的下标241030,100Private SubForm_ClickDim alTo10As Integer,i%,maxa%,m%For i=1To10ai=IntRnd*70+30Next imaxa=alFor i=2To10If aial Thenmaxa=ai:m=iEnd IfNext iFor i=1To10Print ai;Next i”下标为Print”maxa=max%mEnd Sub、定义三个的二维数组和中的元素均随机生成，数组范围是〜数组254X4A,B,C,ABA120,B的范围是〜数组是和相加得到的请编程生成并输出100200,C ABA,B,CPrivate SubCommandl_ClickDim a3,3,b3,3,c3,3,t%,m%For i=0To3ai,j=IntRnd*20+1Picturel.Print ai,j;Next jNextiPicturel.PrintFor i=0To3Forj=0To3bi,j=IntRnd*101+100Picturel.Print bi,j;Next jNextiPicturel.PrintFor i=0To3Forj=0To3ci,j=ai,j+bi,jNext jNext iEnd Sub、运用随机函数生成一种的矩阵即二维矩阵,范围是［］内的整数，求它的两条264x420,50对角线上元素之和Private SubForm_ClickDim a%3,3For i=0To3Forj=0To3ai,j=IntRnd*31+20Print TabQ*5;ai,j;Next js=al,1+a2,2+a3,3+a0,0+a03+al,2+a2,1+a3,0zPrint”两对角线上元素之和为:“；Print sEnd Sub、运用随机函数生成一种的矩阵即二维矩阵,范围是［］内的整数，求它的最小274x440,80值及所对应的下标Private SubForm_ClickDim a%3,3Min=80For i=0To3Forj=0To3ai,j=IntRnd*41+40Print TabQ*5;ai j;zIf ai,j=Min ThenMin=ai,j:b=i:c=jEnd IfNext jNext iPrint”最小值为”;Print Min”其下标为”；“；；Print b,cEnd Sub、随机生成一种整型的二维数组，范围在［］之间，以上三角形式输出该数组下三角、2810,20所有元素Dim a%4,4Dim a%4,4Private SubCommandl_ClickPicturel.CIsFor i=0To4For j=i To4Picturel.Print Tabj*6;ai j;zNext jPicturel.PrintNext iEnd SubPrivate SubForm_LoadFor i=0To4For j=0To4ai,j=IntRnd*11+10Next jNext iEnd Sub、有个评委对歌手进行打分分数存在数组中规定编程计算出歌手平均得分按去掉一2910A种最高分和一种最低分的计算措施计算a=Array98,97,95,91,90,99,93,94,93,96Private SubForm_ClickDim a,max%,min%,imax%,imin%,s!a=Array98,97,95,91,90,99,93,94,93,96n=UBoundaFor i=0To nPrint ai;Next iPrintmin=a0:imin=0For i=0To nIf aimin Then min=ai:imin=i；；Print”min=“imin=iminFor i=imin+1To nai-1=aiNext iReDim Preserve an-1For i=0To n-1If aimax Then max=ai:imax=iNext i；Print”max=imax*imaxReDim Preservean-2s=0For i=0To n-2s=s+aiPrint ai;Next iPrintPrintHavr=n;s/n-1End Sub、编程输出行杨辉三角图形，由键盘输入30n nPrivate SubCommandl_Clickn=Textl.TextReDim alTo n,1To nFor i=1To nFor j=1To nai,1=1If i=j Thenai,j=1NextiFor i=2To nFor j=2To nai,j=ai-1,j-1+ai-1,jNext jNextiFor i=1To nFor j=1To iPicturel.Print ai,j;HNext jPicturel.PrintNext iEndSub、申明一种整型的二维数组』用随机函数产生各元素，范围介于［］之间,31al to4to4,1,20编程将第行和第行对应元素互换13Dim a%lTo4,1To4,t%Private SubCommandl_ClickPicturel.CisFor i=1To4For j=1TO4*Picturel.Print Tab4;ai,j;Next jPicturel.PrintNext iEndSubPrivate SubCommand2_ClickFor i=1To4For j=1TO4If iMod11=OOr iMod5=0Thenn=n+iEnd IfNext iPrint nEndSub、输入一年份，判断它与否为闰年，并显示有关信息判断闰年的条件是年份能被整除44但不能被整除，或者能被整除100400Private SubCommandl_ClickDim y%”请输入年数”y=InputBoxIf yMod4=0And yMod1000Or yMod400=0Then“年是闰年”Msg Boxy Else“年是平年”Msg Boxy EndIfEnd Sub、已知个变量中寄存了个不一样的数，比较它们的大小并进行调整，使得5x,y,z33xyzPrivate SubCommandl_ClickDim x!,y!,z!x=InputBoxinputxy=InputBoxinputyz=InputBoxCinputz1Print xy zIfxy Thent=x:x=y:y=tIf xz Thent=x:x=z:z=tIf yz Thent=y:y=z:z=t“排序后；；；；；Print x””y…zt=al,j:al,j=a3,j:a3,j=t*Picture

2.Print Tab4;ai,j;Next jPicture

2.PrintNext iEndSubPrivate SubForm_LoadFor i=1To4For j=1TO4ai,j=IntRnd*20+1Next jNext iEndSub、随机产生个小写字母，放在字符数组中提醒3215c=chrintmd*26+97Private SubCommandl_ClickDim c$14,i%Picturel.CIsFor i=0To14ci=ChrIntRnd*26+97NextiFor i=0To14Picturel.Print ci;Next iEndSub、编写一种过程计算并输出区间［］内所有素数的和规定判断素数使用过程函数33100,1000或子过程来实现调用该过程提醒只能被和自身整除的自然数称为素数1Function sushu%ByVal x%Dim m%,Tag AsBoolean,i%m=ValxTag=TrueFor i=2To m-1If mMod i=0Then Tag=FalseNext iIfTag Thensushu=xEnd FunctionPrivate SubCommandl_ClickDim i%,k%Fori=100To1000If sushuiThen Listl.Additem iNextiSum=0For k=0To Listl.ListCount-1Sum=Sum+ValListl.ListkNext k内所有素数和为:La bell=[100,1000]SumEnd Sub、随机产生个〜的正整数放入数组，显示产生的数，求最大值、最小值、平均值34101100Private SubForm_ClickDim alTo10As Integer,i%,maxa%,mina%,suma%For i=1To10ai=IntRnd*71+30Next imina=almaxa=alsuma=alFor i=2To10If aimaxa Thenmaxa=aiIf aimina Thenmina=aisuma=suma+aiNext iFor i=1To10Print ai;Next iPrintPrintmax=;maxa,,,min=,;mina;,,aver=;suma/10EndSub、已知一维数组中的元素已排序，分别为编程将35a{12,15,21,25,27,35,36,39,48,52},插入数组并使仍然有序30a,aPrivate SubCommandl_ClickDim a,i%,k%,x%,n%a=Array12,15,21,25,27,35,36,39,48,52n=UBoundax=ValTextlFor k=0To nIfxak ThenExitForNextkReDim Preservean+1For i=n Tok Step-1ai+1=aiNext iak=xFor i=0To n+1Print ai;NextiEndSub、申明一种整型的二维数组用随机函数产生各元素，范围介于［］之间,编37al to41to4,1,20程将第行和第行对应元素互换24Private SubForm_ClickDim a0To3,0To3,i%,j%,tFor i=0To3For j=0To3ai,j=IntRnd*21+1Print TabQ*5;ai,jNext jNext iPrintPrintFor j=0To3t=al,j:al,j=a3,j:a3,j=tNext jFor i=0To3For j=0To3Print TabQ*5;ai,jNext jNextiEndSub、随机产生个［］内的整数，求最小值及所对应的下标381030100Private SubForm_ClickDim alTo10As Integer,i%,mina%,m%For i=1To10ai=IntRnd*70+30Nextimina=al For i=2To10If aial Thenmina=ai:m=i Elselfai=al Thenmina=ai:m=i End IfNext iFor i=1To10Print ai;Next iPrintmina=Hmina;”下标为“mEnd Sub、编一种判断宿舍的通用过程函数或子过程调用该过程，计算并输出区间内391000,,1100所有素数的和Function ssnAs IntegerDim i%,tag AsBoolean tag=TrueFor i=3To n/2If nMod i=0Then tag=False NextiIf tagThen ss=n EndFunctionPrivate SubPicturel_ClickDim i%,avera avera=0Fori=1000To1100If ssi0ThenPrint ssiavera=avera+ssiNext iPicturel.Print averaEndSub、编一子过程求一维数组中的最小值，子过程的形参自己确定40ProcMin,aPrivate SubForm_ClickDim alTo10,amin,i%For i=1To10ai=IntRnd*101Print ai;Next iCallProcMina,aminPrintPrint amin=;aminEnd SubSubProcMinb,minDim i%min=bLBoundbFor i=LBoundb+1To UBoundbIfbimin Thenmin=biNext iEndSub、编一种冒泡排序法子过程，对已知的若干整数按递减次序排列提醒子过程的形式为41提醒子过程的形式为sub sortla%o subsortla%oPrivate SubCommandl_ClickDim b%10,i%For i=0To9bi=IntRnd*100Print bi;Next iPrint”排序后”PrintCall sortbEndSubSub sorta%Dim i%,m%,n%,min%,j%n=UBoundaFor i=0To n-1For j=0To n-1-iIf aQaQ+1Thenm=aj:aj=aj+1:aj+1=mNext jNextiFori=LBounda ToUBounda-1Printai;NextiEndSub、编一种选择排序法子过程，对已知的若干整数按递增次序排列提醒子过程的形式为42subsortla%oPrivate SubCommandl_ClickDim b%10,i%”排序前”PrintFor i=1To10bi=IntRnd*100Print bi;NextiPrint”排序后”PrintCall sortbEndSubSub sorta%Dim i%,m%,n%,min%,t%n=UBoundaFor i=0To n-1min=iFor j=i+1To nIfajamin Thenmin=jNext jm=ai:ai=amin:amin=mNext iFori=LBounda To UBoundaPrint ai;NextiEndSub、编一种冒泡排序法子过程，对已知的若干整数按递增次序排列提醒子过程的形式为43subsortla%oPrivate SubCommandl_ClickDim b%10,i%排序前”Print”Fori=0To9bi=IntRnd*100Print bi;NextiPrint”排序后”PrintCall sortbEndSubSub sorta%Dimi%,m%,n%,min%,j%n=UBoundaFor i=0To n-1Forj=0To n-1-iIf aQaQ+1Thenm=aQ:aj=a0+1:aQ+1=mNext jNextiFori=LBounda+1ToUBoundaPrintai;NextiEndSub•赞13•转载2686•分享231EndSub、求个其中和的值随机产生，的范围是［］的整数，6s=a+aa+aaa+…aaaaa na,a na1,9n的范围是［］如则编程确定和的5,10a=3,n=6,s=3+33+333+3333+33333+333333na值,并计算SoPrivate SubForm_ClickDim s!,t!,i!,a%,n%a=IntRnd*9+1n=IntRnd*6+5t=0:s=0Printa=n;a,,,n=n;nFor i=1To nt=t*10+as=s+tPrint t;Next iPrintPrint s=n;sEnd Sub、计算之间所有能被和整除的数之和7100-30037Private SubForm_ClickFori=100To300If iMod21=OThens=s+iPrint i;EndIfNextiPrintPrints=;sEndSub、编程求范围内的倍数或的倍数之和一种数假如同步是和的倍数，则只8200-4005775能加一次Private SubCommandl_ClickDim sl%,s2%,s3%,i%Sl=0S2=0Fori=200to400If imod5=0orimod7=0thensl=sl+iEnd ifNextiFori=200to400If imod5=0orimod7=0thens2=s2+iEnd ifNextiS3=sl-s2Prints3End sub、找出被、、除，余数为的最小的个正整数935715Private SubCommandl_ClickDim CountN%,n%CountN=0n=1Don=n+1If nMod3=1And nMod5=1And nMod7=1ThenPrint nCountN=CountN+1End IfLoopUntil CountN=5EndSub、某次歌曲大奖赛，有个评委假如分别输入个评委对某个参赛者的打分数，按照去掉1077一种最高分和一种最低分的计算措施，求出该参赛者的平均得分Private SubCommandl_ClickDim mark!,max!,min!,aver!,i%aver=0Fori=1To7“输入第”位评委的打分”mark=InputBox iIfi=1Thenmax=mark:min=markElseIf markmin Thenmin=markIf markmax Thenmax=markEnd Ifaver=aver+markNext iaver=aver-min-max/5Print averEndSub、编程显示〜之间所有的水仙花数之和水仙花数是位数，其各位数之和等于该111005003数自身Private SubForm_ClickDim i%,s%,si%,s2%,s3%,a!Fori=0To400s=99+isi=s Mod100\10s2=s Mod10s3=s\100If siA3+s2A3+s3A3=s Thena=s+aEnd IfNextiPrint aEndSub、随机产生一种三位正整数，然后逆序输出，产生的数与逆序数同步显示例如，产生12246,输出是642Dim a%,m%,b%,c%,d%Private SubForm_Clicka=IntRnd*900+100Print ad=a Mod10*100b=a Mod100-a Mod10c=a\100m=c+b+dPrint mEndSub、从键盘输入三角形的三条边的值，根据其数值，判断能否构成三角形13a,b,cPrivate SubForm_ClickDim a%,b%,c%a=ValInputBoxninput a”b=ValInputBoxinput bc=ValInputBoxinput c”Ifa+bc Anda+cb Andb+ca Then能构成三角形”Msg BoxElse不能构成三角形”Msg BoxEndIfEnd Sub、已知数组编程删除中第个元素数组中的元素分别为{14a,a5a12,6,4,89,75,63,100,20,31}oPrivate SubForm_ClickDim a,i%,n%a=Array12,6,4,89,75,63,100,20,31n=UBoundaFor i=0To nPrintai;Next iPrintFori=5To nai-1=aiNext in=n-1ReDimPreserveanFor i=0To nPrintai;Next iPrintEndSub、随机生成一种整型的二维数组，范围在［］之间，以上三角形式输出该数组下三151,20角、所有元素Dim a%4,4Dim a%4,4Private SubCommandl_ClickPicturel.CIsFor i=0To4Forj=i To4Picturel.Print TabQ*6;ai,j;Next jPicturel.PrintNext iEndSubPrivate SubForm_LoadFor i=0To4Forj=0To4ai,j=IntRnd*11+10NextjNextiEndSub、运用随机函数生成一种的矩阵即二维矩阵,范围是［］内的整数,输出每行中的164x420,50最大值和下标PrivateSubForm_ClickDim a%3,3,s0%,si%,s2%,s3%,b0%,bl%,b2%,b3%Max=40Fori=0To3Forj=0To3ai,j=IntRnd*31+20Print TabQ*5;ai,j;开a0,j=Max ThensO=a0,j:bO=jIf al,j=Max Thensi=al,j:bl=jIf a2,j=MaxThen s2=a2,j:b2=jIf a3,j=MaxThen s3=a3,j:b3=jNext jNext iPrint第一行”;Print sO;0;bO;Printn第二行”;Print“第三行”；s2;nH;2;b2;PrintH第四行“；s3;“；3;b3;””EndSub、运用随机函数生成一种的矩阵即二维矩阵,范围是［］内的整数，求它的最大值174X440,80及所对应的下标PrivateSubForm_ClickDim a%3,3Min=80Fori=0To3Forj=0To3ai,j=IntRnd*41+40Print TabQ*5;ai,j;If ai,j=Min ThenMin=ai,j:b=i:c=jEnd IfNextjNextiPrint”最小值为“；Print Min”其下标为”；“”；；Print b,c T。