VB编程程序代码

1、V E编程程序代码1求10 0以内得素Priv a t e S u b FormClick ()Dim i %, j%Fo r i = 2 To 1 0 0For j = 2 To i - 1If i Mo d j = 0 T he nEx it ForNext jIf j = i T h en Pr i n t iN e xt iE nd S u b2、从键盘输入任意长度得字符串，要求将字符顺序倒置 例如，将输入得 “AECD EFG变换成 G FED CEAPr ivate S ub man d1_Click ()D im a $ , I %, c $ , d$, n %a = In p

2、utBo x $(输入字符串”)n = Len( a )For I = 1 To Int (n 2)c = Mid (a, I , 1)| Mid (a, I, 1 ) Mid (a, n I +1,1)Mid (a , n -I + 1 ,1 ) = cN e x t IP rint aEnd Su b3、计算0 200之间所有能被1 1或5整除得数之与Priv ate Su b Form_C li ck ()Dim n%, i %n = 0F o r i = 1 T o 2 0 0I f i Mod 1 1 = 0 O r i M od 5 = 0 T h en n = n + iEn d

3、 IfN e x t iPr in t nEn d Sub4、输入一年份，判断它就是否为闰年，并显示有关信息。(判断闰年得条件就是：年份能被 4整除但不能被1 00整除，或者能被400整除)Pr iv ate Sub mand1_C lie k()Dim y%y = I np utB ox (”请输入年数)If y Mod 4 = 0 A n d y Mo d 10 000 r y Mod 40 0 = 0 The nMs g Box (y & 年就是闰年)E ls eMsgBox ( y & ”年就是平年)En d I fEnd S ub 5、已知x,y,z 3个变量中存放了 3个不同得数，

4、比较它们得大小并进行调整，使得x y T he n t = x : x = y: y = t If x z The n t = x: x = z: z = tIf y z Then t = y: y = z: z = tPr int 排序后” x； ”; y； ”; zEn d S u b6、 求s=a +aa + aaa+、a a aaa( n个a),其中a与n得值随机产生，a得范围就是1,9得整数 如 a=3, n=6,则 s= 3 +33+33 3 + 3 3 33+3 3333+3 33333。编程确定 n 与 a 得值，并计算 s。P r i vat e S u b For mC 1

5、 ick()Dim s!, t!, i!, a%, n %a = I n t (Rnd * 9 + 1)n = I nt(Rnd6 + 5)t = 0: s = 0P r int a=; a, n=; nFor i = 1 To nt = t * 10 + as = s + tP r in t t ;Next iPrintPr in t s= ; sEnd Su b7、计算1 003 0 0之间所有能被3与7整除得数之与。Privat e Sub Form_C 1 i c k()For i = 100 T o 300If i M od 2 1 = 0 T hens = s + iPrin t

6、i ；End IfNex t iPrintPr int ” s= ; sEn d S ub8、 编程求200 40 0范围内5得倍数或7得倍数之与.(一个数如果同时就是7与5得倍数,则P ri va te Sub mand1_Cli c k()Dim s1%,s2% , s3% ,i%S 1 =0S2=0For i = 200 t o 400If i mod 5 =0 o r i m od 7 = 0 the ns 1= s 1+iEn d ifNext iF o r i= 2 00 t o 4 0 0If i mod 5 = 0 or i mod 7= 0 th e ns2=s2+iEnd

7、ifNex t iS3=s1s2Pr i n t s3End s ub9、找出被3、5、7除,余数为1得最小得5个正整数。Pri v ate Su b m a nd1_Click ()D i m Co u ntN %, n%Cou ntN = 0n = 1Don = n + 1If n Mod 3 = 1 And n Mod 5 = 1 And n Mod 7 = 1 Th e nP rin t nC ount N = CountN + 1End IfLoop U n t il Cou ntN = 5End Su b10、某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者得打分数,按

8、照去掉一个最高分与一个最低分得计算办法，求出该参赛者得平均得分。P rivate Sub m a nd1_C 1 ick()Di m ma r k! , m ax!, min!, a ver!, i %aver = 0For i = 1 T o 7ma r k = I n p u tBox(输入第”& i & ”位评委得打分”)I f i =1 Thenm a x = mark: min = m a rkE l s eIf ma rk m in Th e n m i n = ma r kI f mark m a x T h en max = m arkE nd Ifav e r = aver

9、+ m a rkNext ia ve r =(ave r - min - max) /5Print ave rEn d Sub11、编程显示10 05 00之间所有得水仙花数之与.(水仙花数就是3位数,其各位数之与等于该数Pr i v at e Sub F o rm Click ()Dim i %, s%, s 1% , s2 % , s3% , a!a = 0For i = 0 To 4 0 0s = 99 + is1 = (s Mod 10 0 ) 10s2 = s Mo d 1 0s3 = s10 0I f s1 A 3 + s 2 A 3 + s 3 A 3 = s The nEn d

10、 IfNe x t iP r i nt aE n d Su b12、随机产生一个三位正整数，然后逆序输出，产生得数与逆序数同时显示. 例如,产生24 6 ,输出就是6 42。D im a %, m%, b %, c% , d%Private Sub Fo rm_Cl i ck()a = Int(Rnd * 900 + 1 0 0)Pr i nt ad = (a Mod 10) *10 0b =(a Mo d 100) - (a Mod 10)c = a 1 00m = c + b + dPrint mEn d Sub13、 从键盘输入三角形得三条边a,b, c得值，根据其数值，判断能否构成三角

11、形P rivate Su b Form_Clic k ()Dim a% , b %, c%a = Val( In putBox( i n pu t a )b = Va 1 (Inp u t B ox( ” inpt b”)c = V a l( I n p utBox( i n put c)I f a + b c A nd a + c b And b + c a ThenM sgB ox (能构成三角形)ElseMs g Box (不能构成三角形”)En d IfEnd S ub14、已知数组a(),编程删除a中第5个元素。数组 a 中得元素分别为12 , 6, 4,8 9,75, 63,1 0

12、0, 2 0, 31。P r iva te S ub F orm_ Cl i c k ()Dim a (), i%, n %a = Ar r a y (12, 6,4, 8 9 , 75, 6 3,100 , 2 0 , 3 1 )n = U Bou n d (a )For i = 0 T o nPri n t a (i);Next iPrintFor i = 5 To na ( i 1) = a(i )Ne x t in = n -1R eD im Prese r ve a(n )For i = 0 To nPri n t a(i);Next iPrintEnd Sub15、随机生成一个整型

13、得二维数组，范围在10,20之间，以上三角形式输出该数组.(下三角、全部元D im a% (4, 4) |Pri v ate Su b ma nd 1 _C li ck()Picture1、CisFor i = 0 T o 4For j = i To 4P icture 1、P ri nt Ta b( j * 6); a (i, j);N e xt jP ic t ure1、P rintN ext iEnd S u bP rivate Sub F ormLoad ()Fo r i = 0 To 4Forj = 0 To 4a(i , j) = I nt (Rnd * 1 1 + 1 0)N e

14、 xt jNext iEnd Su b1 6、利用随机函数生成一个4 M得矩阵(即二维矩阵)，范围就是2 0,5 0 内得整数，输出每彳P r ivat e Sub Form_Clic k ()Dim a%(3, 3) , s 0%, s1 %, s2%,s3%, b0 % , b1% , b2 %,b3%M ax = 40F o r i = 0 T o 3Fo r j = 0 To 3a (i, j) = Int(Rnd * 31 + 20)Print Ta b( j * 5 ); a(i, j );If a( 0, j) = Max T hen s0 = a( 0 , j) : b0 =

15、jI f a(1 , j) = Max T h en si = a (1 , j): bl = jIf a(2 , j) = Ma xTheni s2 :=a (2,j) : b 2 = jI f a (3, j) = Ma:x The ns3 = a(3, j )： b3 = jN e xt jNext iPr intPrint ” 第一行”so；(” 0；b0;)”P ri nt” 第二行”；si； ”(；”1； bi;)Print ” 第三行 ” s2;(”2;b2; ”)Prin t 第四行”；s3； ”3 ； b 3; ”,)”End Sub17、利用随机函数生成一个4X4得矩阵（即

16、二维矩阵），范围就是40, 80内得整数，求它得最大Pr i vate S u b Form_C 1 ic k()D i m a % (3, 3)Min = 80Fo r i = 0 T o 3For j = 0 To 3a(i, j ) = Int ( Rn d * 41 + 4 0 )Pr i n t Ta b ( j * 5) ; a (i, j);I fa (i, j)二 Min The nMi n = a (i, j): b = i: c = jEnd I fNex t jN e xt iPrintPrint ”最小值为;M i nPrin t 其下标为” (;b, c; ”En d

17、 S ub18、输入一系列字符串，编程求出长度最大得字符串并输出其所对应得次序P r iva t e Su b For m _Cl i ck ()Dim a(5) as stri n g, b (4) a s i n t e g er,t%,max % ,ima x%For i =1 t o 5a (i)=in put b ox (”a)Next iFor i =0 to 4b (i)= 1 en(t r im( a( i)Ne x t iMax=1F o r i = 0 t o 4If m ax4得矩阵(即二维矩阵)，范围就是20,50内得整数,求它得两条对角P ri v a t e Sub

18、 F orm_C 1 ick ()Dim a%( 3, 3)For i = 0 To 3F or j = 0 To 3a(i, j) = I n t(Rnd 衣 3 1 + 20 )Pri n t T ab( j 衣 5 ); a( i, j);N ext jNext is = a(1, 1) + a (2, 2 ) + a(3, 3 ) + a (0,0) + a(0, 3) + a (1,2) + a(2, 1)+ a (3 , 0 )P r intPr i nt 两对角线上元素之与为：” End S u b2 7、利用随机函数生成一个4M得矩阵(即二维矩阵)，范围就是40, 8 0 内得

19、整数，求它得最小值P ri v at e S u b Form_CI i ck ()Dim a% (3 , 3)Min = 80For i = 0 To 3Fo r j = 0 To 3a(i , j) = I n t( Rnd * 4 1 + 4 0)Print T a b (j * 5 ) ; a( i, j);If a (i, j ) v = Mi n ThenMi n = a (i, j ) : b = i: c = jE n d IfNex t jNext iPr in tP r i nt最小值为;M inPri n t ”其下标为”；” ；b , c; ”)End Su b28、随

20、机生成一个整型得二维数组，范围在10,2 0之间,以上三角形式输出该数组。（下三角、全D i m a%( 4,4)Privat e Su b m and 1 _CI i ck ()P ic tu r el、CIsF o r i = 0 To 4F or j = i To 4Pi c tur e 1、Print Tab(j * 6) ; a (i, j );N ext jPi c t u re1、P rintNe x t iEn d SubPriv a te Sub Form_ L o a d()For i = 0 T o 4F o r j = 0 To 4a(i, j) = In t (Rnd

21、 衣 11 +10 )Next jNext iEn d Sub29、有10个评委对歌手进行打分(分数存在 A数组中)要求编程计算出歌手平均得分93, 9(按去掉一个最高分与一个最低分得计算方法计算。)a = Array(9 8 , 97, 95, 9 1, 90, 99,Pri v at e Sub F o rm_CI ic k()D im a() , ma x %, min % , imax%, imin% , s !a = Arr a y ( 9 8, 9 7,95 ,9 1,9 0 , 99 , 9 3 , 94, 93 , 96)n = UB o u n d(a)F or i =0 T

22、o nP r int a (i);Ne xtiPr i ntm i n =a( 0 ): i m in = 0F o r i =0 To nI f a(i) Tex tR e D i m a (1 To n ,1 To n)For i = 1 To nF or j = 1 To na(i, 1) = 1If i = j Th e n a (i, j) = 1N ext jNext iFor i = 2 To nFor j = 2 To na(i, j ) = a(i 1, j 1) + a (i 1, j)Next jNex t iFo r i = 1 To nFor j = 1 T o iP

23、icture1、Pr in t a( i, j);”；Ne x t jPicture1、PrintNe x t iEnd Sub1,20之间,31、声明一个整型得二维数组 a(1 to 4, 1 to 4),用随机函数产生各元素，范围介于 编程将第1行与第3行对应元素交换。D i m a% (1 To 4, 1 To 4), t%Pr iv a t e Sub m and 1 _Click ()Pi ct u r e 1、ClsFo r i = 1 T o 4For j = 1 To 4Pict u r e 1、Pr i nt T a b (j * 4 ); a(i , j);Next jP

24、icture1、P ri ntNext iEn d S ubPrivate Su b m an d2_Cli ck()F or i =1 To 4F or j = 1 T o 4t = a (1, j):a(1 , j) = a (3, j): a (3, j) = tP ict u re2、Print T ab( j * 4)； a(i, j);Next jPicture2、Pri n tN ex t iEnd SubPrivat e Sub F orm_Lo ad ()F o r i = 1 To 4F or j = 1 To 4a (i, j) = Int(Rnd * 20+ 1)Nex

25、t jN ext 1End Sub32、 随机产生15个小写字母，放在字符数组中。提示：c=chr(int(rnd衣26+ 9 7)Pr iva t e Su b mand 1 _ C lie k()D im c$ (14), i%Pi ctu r e1、C IsFo r i = 0 T o 14c(i) = Ch r (I n t (Rn d * 26 + 97 )N e xt iFor i = 0 T o 14Pict u re1、Print c(i);Ne x t iEn d Sub33、 编写一个过程计算并输出区间100,1 0 00内所有素数得与(要求判断素数使用过程(函数或子过 示

26、：只能被1与自身整除得自然数称为素数。Funet ion sushu %(B y Val x%)Dim m%, Ta g As B o ole a n, i%m = Val( x )Tag = T r ueFo r i = 2 T o m - 1I f (m M odi) = OT he n Tag = F al s eNe xt iIf Tag T h en su s hu = xEnd Funct i o nPr i va te Su b ma n d1_CI i ck()Di m i %, k%For i = 100 To 1 000I f su s hu (i) Then Lis t

27、1、AddIte m iN e xt iS um = 0For k = O To L is t1、L istCou nt 1Sum = Sum + Va l ( List1、L is t (k)N e x t kLabel1 = 100, 1000内所有素数与为：”& Su mEn d Sub3 4、随机产生1 0个1100得正整数放入数组，显示产生得数，求最大值、最小值、平均值。P r i v ate Su b Form_Cli c k()Dim a(1 T o 1 0) As I n tege r , i%, ma x a%, m in a%, s u ma%Fo r i = 1 To 1

28、 Oa(i)= In t( Rnd * 71 + 30 )Next im i na = a( 1)m a xa = a( 1 )suma = a (1)For i = 2 T o 1 OIf a(i) ma x a T hen ma x a = a( i)I f a( i ) min a T he n m in a = a(i )su m a = suma + a( i)N ext iFor i = 1 To 1 0Pr i n t a( i);N e x t iP r in tPrin t max =” maxa, m in 二”；mi na; aver= ” suma / 1 0En d

29、S u b35、已知一维数组a ()中得元素已排序，分别为 1 2 ,15,21,25, 27, 3 5,36, 39, 48, 52 编程将30插入数组a ,并使a依然有序。Priv a te Sub mand 1 _CI i ck ()Dim a() , i %, k%, x%, n %a = Ar ra y( 1 2, 15 , 21,25 , 2 7, 35, 3 6, 39, 4 8 , 52)n = UBo u nd (a )x = V a 1 (Text1)For k =0 To nIf xv a(k) The n Ex i t F o rNext kReD imP r e se

30、 rv e a( n + 1)For i =n T o k Ste p -1a (i + 1) = a(i )N e xt ia( k) = xFo r i = 0 To n + 1Pr int a (i );N e xt iEnd Su b37、声明一个整型得二维数组 a (1 to 4, 1 to 4 ),用随机函数产生各元素，范围介于1,20之间编程将第2行与第4行对应元素交换。Pr i vat e Sub F o rm_Clic k ()Dim a(0 T o 3, 0 To 3) , i%, j %, tFo r i = 0 To 3F o r j = 0 To 3a (i, j)

31、= In t (R n d * 21 + 1)Pri nt Tab (j * 5); a(i, j )Ne x t jN e xt iP r intPr i ntFor j = 0 T o 3t = a(1 , j ): a(1, j) = a (3 , j) : a (3, j) = tNe x t jF o r i = 0 To 3Forj = 0 To 3Pr in t Tab(j * 5); a (i, j)N e xt jN e xt iE n d Sub3 8、随机产生10个3 0 ,1 0 0内得整数，求最小值及所对应得下标。Private Sub Form_Click()D i

32、 m a(1 T o 1 0 ) A s I n t ege r, i%, mina %, m%F o r i = 1 To 10a(i) = I nt( R nd * 70) + 30Next im in a = a (1)For i = 2 T o 10I f a(i) a( 1 ) The nm ina = a( i): m = iE Is e I f a (i) = a(1 ) Thenmin a = a (i): m = iEn d IfN e x t iFor i = 1 To 10P ri n t a (i);Ne x t iPri n t ” mi na= ” & mina ;

33、下标为 ”& mEn d S u b39、编一个判断宿舍得通用过程(函数或子过程).调用该过程, 计算并输出区间(1 0 00, , 1 1 00)内所有素数得与。Func t ion s s(n) As Intege rDim i % , t a g As B oo lea nt a g = Tr u eFor i = 3 To n / 2If ( n Mod i ) = 0 T he n tag = FalseN ex t iIf tag The n s s = nE n d F u nc t io nPr iv at e Sub Pict u r e 1_Clic k()Dim i %,

34、 averaa v era = 0Fo r i = 1000 To 11 0 0If s s( i ) 0 Then Print ss( i )avera = aver a + ss (i)Ne xt iP i cture1、Pr int av e r aEnd S ub4 0、编一子过程ProcM i n，求一维数组a中得最小值，子过程得形参自己确定Private S u b Form C li ck()Dim a(1 To 10 ) , am in , i %F o r i = 1 To 10a (i)= Int( R nd * 101)Print a(i )；Ne xt iC all Pro cMi n( a (), amin )