1、Int（n2）cMid（a,I,1）Mid（a，I，1）+1，1,cIa3、计算0200之间所有能被11或5整除的数之和n，i%20011Or5ThenIfn4、输入一年份，判断它是否为闰年，并显示有关信息.（判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除）yyInputBox（请输入年数”）4And100400MsgBox（y&”年是闰年Else年是平年”）5、已知x，y,z3个变量中存放了3个不同的数,比较它们的大小并进行调整，使得xy（aver-max）/aver11、编程显示100500之间所有的水仙花数之和.（水仙花数是3位数，其各位数之和等于该数本身）s%，
2、s1，s2%,s3%,a！99s1（s100）10s2s312、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如,产生246，输出是642.a，m,b%,c%，d900100）d（a10）b10）mdm13、从键盘输入三角形的三条边a，b,c的值，根据其数值，判断能否构成三角形。b,cVal（InputBox（”inputa”）b”）Val（InputBox（inputc）（”能构成三角形（”不能构成三角形”）14、已知数组a（）,编程删除a中第5个元素。数组a中的元素分别为12,6，4,89,75，63，100，20，31.a（），i，Array（12,6，4,89,75
3、，63,100,20，31）UBound（a）a（i）；a（ia（i）ReDimPreservea（n）a（i）;15、随机生成一个整型的二维数组，范围在10,20之间，以上三角形式输出该数组。（下三角、全部元素）a（4，4）Picture1。Cls4Picture1.PrintTab（j6）;a（i，j）；Picture1.PrintForm_Load（）j）16、利用随机函数生成一个44的矩阵（即二维矩阵）,范围是20,50内的整数,输出每行中的最大值和下标。a（3，3）,s0%，s1,s2%，s3%，b0%，b1%，b2,b3%Max403a（i,3120）5）;j）;a（0,=s0j）
4、:b0a（1，b1a（2，b2a（3,a（3，b3第一行s0;（0；b0;）”第二行s1;1；b1;”）第三行s2；2;b2;）第四行”；s3；3；b3；17、利用随机函数生成一个44的矩阵（即二维矩阵）,范围是40，80内的整数，求它的最大值及所对应的下标。a%（3,3）Min80 a（i，4140）5）；= Mini:”最小值为Min”其下标为”;b,c;18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序.a（5）asstring，b（4）integer，t,max%,imax=1a（i）=inputbox（ab（i）=len（trim（a（i）Max=1maxb（i）m
5、ax=b（i）:imax=imax=”;cixu=”,imax+119、利用随机函数生成一个44的矩阵（即二维矩阵）,范围是20,50内的整数,输出该矩阵所有数据之和。a%（3，0）2）3）a（1,a（0，s；20、输入一系列字符串，将字符串按递减次序排列。请编程实现。a（）AsString，n%,i%,jText1a（1n）StringLBound（a）a（i）InputBox（”请输入字符串”）Spc（1）；Command2_Click（）a（j）a（ja（j）：1）：Picture2。Text1”21、随机产生10个30,100内的整数，求最大值、最小值和平均值.Integer，amin
6、,amax,i%，avera!7130）amina（1）amaxavera”max=”min=”;amin，avera=”；22、定义三个44的二维数组A,B,C,A和B中的元素均随机生成，数组A的范围是120，数组B的范围是100200，数组C是A和B相乘得到的。请编程生成并输出A，B,C。（相加）b%（3，c%（3，6）；Picture2.Clsb（i，Command3_Click（）Picture3.ClsPicture3.Print7）;c（i,Picture3.Print23、随机产生15个小写字母，放在字符数组中。提示:c=chr（int（rnd*26+97）c$（14），i14c
7、（i）Chr（Int（Rnd2697）c（i）;24、随机产生10个30，100内的整数，求最大值及所对应的下标Integer,maxa，m70）30maxaa（1）a（i）:maxa=”maxa；”下标为”25、定义三个44的二维数组A，B,C，A和B中的元素均随机生成，数组A范围是120,数组B的范围是100200，数组C是A和B相加得到的.请编程生成并输出A，B，C。3），b（3,c（3，t,20b（i,101c（i，j）26、利用随机函数生成一个44的矩阵（即二维矩阵）,范围是20，50内的整数，求它的两条对角线上元素之和。a（3,a（2,0）”两对角线上元素之和为：27、利用随机函数生成一个44的矩阵（即二维矩阵）,范围是40,80内的整数，求它的最小值及所对应的下标.j）：最小值为”（”;28、随机生成一个整型的二维数组，范围在10，20之间，以上三角形式输出该数组.（下三角、全部元素）a（4,Picture1.Cls29、有10个评委对歌手进行打分（分数存在A数组中）要求编程计算出歌手平均得分（按去掉一个最高分和一个最低分的计算方法计算。）aArray（98,97,95,91,90，99，93,94,96）max,min，imax%,imin%，Array（98，91，90,93，
