编程题(文科)含答案.docVIP

1.已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得xyz。 2.计算0~200之间所有能被11或5整除的数之和 3.输入三角形三条边a,b,c的值，根据其数值，判断能否构成三角形。 4.随机产生10个[30,100]内的整数，求最小值及所对应的下标。 5.随机产生10个[30,100]内的整数，求最大值、最小值和平均值。 6.随机产生10个[30,100]内的整数，求最大值及所对应的下标 7.某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。 8.求s=a+aa+aaa+...aaaaa（n个a），其中a和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。 如a=3,n=6,则s=3+33+333+3333+33333+333333。编程确定n和a的值，并计算s。 9.求100以内的素数。 10.计算100~300之间所有能被3和7整除的数之和。 11.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除） 12.编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。) 13.利用InputBox函数输入两个整数，求它们的最大公约数。 14.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 15.从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的ABCDEFG变换成GFEDCBA。 16.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和 17.编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。 18.编一个选择排序法子过程，对已知的若干整数按递减次序排列。提示：子过程的形式为sub sort1(a%())。 19.编一个选择排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为sub sort1(a%())。 20.已知有序数组a()，编程插入x（x的值为14）。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。 21.已知有序数组a()，编程插入x（x的值为14）。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。 22.声明一个整型的二维数组a(1 to 4,1 to 4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第2行和第4行对应元素交换。 23.定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相加得到的。请编程生成并输出A,B,C。 24.随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。 25.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值和下标。 26.声明一个整型的二维数组a(1 to 4,1 to 4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第1行和第3行对应元素交换。 27.编写一个过程计算并输出区间[100，1000]内所有素数的和(要求判断素数使用过程（函数或子过程）来实现。调用该过程。(提示：只能被1和自身整除的自然数称为素数。) 28.随机生成一个整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。 29.随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。 30.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最大值及所对应的下标。 31.已知一维数组a()中的元素已排序，分别为{12，15，21，25，27，35，36，39，48，52}，编程将30插入数组a，并使a依然有序。 32.已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。 33.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最小值及所对应的下标。 VB答案 1、求100以内的素数。 Private Sub Command1_Click() Dim i, a, k For i = 1 To 100 k = 1 For a = 2 To Sqr(i) If i Mod a = o Then k = 0 Next a If k = 1 Then Print i; Next i End Sub 2.从键盘输入任意长度的字符串，要求