程序设计课后选择题判断运行结果

《程序设计课后选择题判断运行结果》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第一章VisualBasic可视化编程基础一、选择题1-5CDADB6-10BABDA11-15DBADBA16-20CCCDA21-25BCACB26C第二章代码基础一、选择题1-5ABABD6-10CBCCD11-15BABDCA16-20CCABC21D二、判断1-5FFFTF6-10FFTTF第三章基本控制结构一、选择题1-5CACBA6-10ACCC第10小题有问题，加上一条输出语句Printx,y答案选择B11-15CCACA16-20CBBAD21-25CDBDA二、判断1-5TTTTT6-7FT三、运行结果1.*

2、*$$$****$$$$$2.203.124.10245.*********6.-337.BBABBA8.119.710.ABCCDEDEFG第四章数组与用户自定义数据类型一、选择题：BDDBBCCDBBBC第四章数组的补充编程题：第1题设有如下两组数据：(1)1,3,5,2,4,18,50,25(2)5,27,30,35,60,41,87,33编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即1+5，3+27，……，25+33，并把相应的结果放入第三个数组中，最后输出第三个数组的值。'方法1

3、Dima(),b(),c()'定义a,b数组用于存放两组数据，C数组存放a,b相加的结果a=Array(1,3,5,2,4,18,50,25)'a数组赋值b=Array(5,27,30,35,60,41,87,33)'b数组赋值n=UBound(a)'计算数组最大下标Fori=0Ton'输出数组aPrinta(i);NextiPrintFori=0Ton'输出数组bPrintb(i);NextiPrintReDimc(0Ton)'定义（确定）数组c实际大小Fori=0Tonc(i)=a(i)+b(i)NextiFori=0Ton

4、'输出数组cPrintc(i);NextiPrint'方法2Dima(0To7),b(0To7),c()'定义a,b数组存放两组数据，C数组存放a,b相加的结果n=UBound(a)'计算数组最大下标Fori=0Ton'数组a赋值、输出a(i)=Val(InputBox("输入数据"))Printa(i);NextiPrintFori=0Ton'输出数组bb(i)=Val(InputBox("输入数据"))Printb(i);NextiPrintReDimc(0Ton)'定义（确定）数组c实际大小Fori=0Tonc(i)=a(

5、i)+b(i)NextiFori=0Ton'输出数组cPrintc(i);NextiPrint第2题有一个n×m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。'方法1Dima()'定义a,b数组用于存放两组数据，C数组存放a,b相加的结果x=Val(InputBox("输入行数"))y=Val(InputBox("输入列数"))ReDima(1Tox,1Toy)Fori=1Tox'数组a赋值Forj=1Toya(i,j)=Int(Rnd()*100)NextjNextiFori=1Tox'输出a数

6、组Forj=1ToyPrinta(i,j);NextjPrintNextiPrintMax=a(1,1)'设最大数为a(1,1)row=1'则最大数行下标为1col=1'则最大数列下标为1Fori=1Tox'求最大数max及其所在的行row、列colForj=1ToyIfMax

7、InputBox("输入行数"))y=Val(InputBox("输入列数"))ReDima(1Tox,1Toy)Fori=1ToxForj=1Toya(i,j)=Int(Rnd()*100)'数组a赋值Printa(i,j);'数组a输出NextjPrintNextiMax=a(1,1)'设最大数为a(1,1)row=1'则最大数行下标为1col=1'则最大数列下标为1Fori=1Tox'求最大数max及其所在的行row、列colForj=1ToyIfMax

8、fNextjNextiPrint"最大数为:";Max;"行为:";row;"列为:";col第3题某数组中有10个元素，元素的值由键盘输入，要求将前5个元素与后5个元素对换。即第1个元素与第10个元素互换，第2个元素与第9个元素互换……。请输出数组中原来各元素