最新VB编程程序代码Word文档格式.docx

1、nLen（a）I1Int（n2）cMid（a,I,1）1）+1,cIa3、计算0200之间所有能被11或5整除的数之和n%,i%20011Or5ThenIfn4、输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）y%yInputBox（请输入年数4And100400MsgBox（y&年是闰年Else年是平年5、已知x,y,z3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得xyz。x!,y!z!xinputxinputyzinputzztx:y:tz:排序后;x;y;z6、求s=a+aa+aaa+.aaaaa（n个

2、a），其中a和n的值随机产生，a的范围是1,9的整数，n的范围是5,10。如a=3,n=6,则s=3+33+333+3333+33333+333333。编程确定n和a的值，并计算s。s!t!i!a%,Int（Rnd*965）0:sa=a,n=10t;Prints=s7、计算100300之间所有能被3和7整除的数之和。30021i;8、编程求200-400范围内5的倍数或7的倍数之和。（一个数如果同时是7和5的倍数，则只能加一次。s1%,s2%,s3%,i%S1=0S2=0i=200to400mod=0or7=0thens1=s1+iifs2=s2+iS3=s1-s2s3sub9、找出被3、5、

3、7除，余数为1的最小的5个正整数。CountN%,CountNDo37LoopUntil510、某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。mark!max!min!aver!aver7mark输入第位评委的打分maxmark:minmark（avermax）/aver11、编程显示100500之间所有的水仙花数之和。（水仙花数是3位数，其各位数之和等于该数本身）s%,s1%,s2%,s3%,a!99s1（s100）10s2s312、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，

4、产生246，输出是642。m%,b%,c%,d%900100）d（a10）b10）mdm13、从键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。c%Val（InputBox（inputa）bc（能构成三角形不能构成三角形14、已知数组a（），编程删除a中第5个元素。数组a中的元素分别为12，6，4，89，75，63，100，20，31。a（）,Array（12,6,4,89,75,63,100,20,31）UBound（a）a（i）;a（ia（i）ReDimPreservea（n）15、随机生成一个整型的二维数组，范围在10,20之间，以上三角形式输出该数组。（下三角、全

5、部元素）a%（4,4）Picture1.Cls4Picture1.PrintTab（j6）;a（i,j）;Picture1.PrintForm_Load（）j）16、利用随机函数生成一个44的矩阵（即二维矩阵）,范围是20,50内的整数,输出每行中的最大值和下标。a%（3,3）,s0%,b0%,b1%,b2%,b3%Max4033120）5）;a（0,s0j）:b0a（1,b1a（2,b2a（3,b3第一行s0;0;b0;）第二行s1;1;b1;第三行s2;2;b2;第四行s3;3;b3;17、利用随机函数生成一个44的矩阵（即二维矩阵）,范围是40,80内的整数，求它的最大值及所对应的下标。

6、3）Min80 a（i,4140） Mini:最小值为Min其下标为b,c;18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。a（5）asstring,b（4）integer,t%,max%,imax%=1a（i）=inputbox（b（i）=len（trim（a（i）Max=1maxb（i）max=b（i）:imax=imax=cixu=,imax+119、利用随机函数生成一个44的矩阵（即二维矩阵）,范围是20,50内的整数,输出该矩阵所有数据之和。0）2）3）s;20、输入一系列字符串，将字符串按递减次序排列。请编程实现。a（）AsString,Text1a（1n）S

7、tringLBound（a）a（i）请输入字符串Spc（1）;Command2_Click（）a（j）a（ja（j）:1）:Picture2.PrintText121、随机产生10个30,100内的整数，求最大值、最小值和平均值。Integer,amin,amax,avera!7130）amina（1）amaxaveramin=avera=22、定义三个44的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是120，数组B的范围是100200，数组C是A和B相乘得到的。请编程生成并输出A,B,C。（相加）b%（3,c%（3,Picture2.Clsb（i,Picture2.Print

8、Command3_Click（）Picture3.ClsPicture3.Print7）;c（i,Picture3.Print23、随机产生15个小写字母，放在字符数组中。提示：c=chr（int（rnd*26+97）c$（14）,14c（i）Chr（Int（Rnd2697）c（i）;24、随机产生10个30,100内的整数，求最大值及所对应的下标maxa%,m%70）30maxaa（1）a（i）:maxa=maxa;下标为25、定义三个44的二维数组A,B,C，A和B中的元素均随机生成，数组A范围是120，数组B的范围是100200，数组C是A和B相加得到的。b（3,c（3,t%,20101j）26、利用随机函数生成一个44的矩阵（即二维矩阵）,范围是20,50内的整数，求它的两条对角线上元素之和。0）两对角线上元素之和为:27、利用随机函数生成一个44的矩阵（即二维矩阵）,范围是40,80内的整数，求它的最小值及所对应的下标。28、随机生成一个整型的二维数组，范围在10,20之间，以上三角形式输出该数组。29、有10个评委对歌手进行打分（分数存在A数组中）要求编程计算出歌手平均得分（按去掉一个最高分和一个最低分的计算方法计算。）aArray（98,97,95,91,90,99,93,94,96）max%,min%,imax%,imin%,