搜索
〖第1题〗『程序填空』(1分)(题号:532)【程序填空】''题目：输入n个数，n由用户输入。'程序的功能是将输入的n个数反向输出?请在【】处填入正确的PrivateSubForm_Load()DimnAsIntegerDimkAsIntegerDimmAsIntegerDimhAsIntegerDimtAsIntegerShowDima(100)AsSinglen=Val(InputBox(输入个数n))Print处理前数据:'**********SPACE**********Fork=1To【?】a(k)=Val(InputBox(请输入第&k&个数))Printa(k);NextkPrint'**********SPACE**********m=Int(【?】)Fork=1Tomh=n-k+1'**********SPACE**********t=a(h):【?】:a(k)=tNextkPrint处理的结果:Fork=1TonPrinta(k);NextkEndSub答案：1).n2).n/23).a(h)=a(k)〖第2题〗『程序填空』(1分)(题号:498)'【程序填空】''题目：本程序执行功能为，命令按钮单击一次后，窗体上输出结果为：'36'25'16'9请在【】处填入正确的内容PrivateSubCommand1_Click()Dimxx(6)AsIntegerDimk%OpenApp.Path&\al.datForOutputAs#1ForI=1To6'**********SPACE**********j=【?】Print#1,jNextIClose#1OpenApp.Path&\a1.datForInputAs#2k=0DoWhileNotEOF(2)'**********SPACE**********k=【?】Input#2,xx(k)LoopClose#2'**********SPACE**********ForI=kTok/2Step【?】Form1.Printxx(I)NextIEndSub答案：1).I*I2).k+1或1+k3).-1〖第3题〗『程序填空』(1分)(题号:501)'【程序填空】''题目：本程序执行后，最终在窗体上打印数字7。请在【】处填入正确的内容PrivateSubCommand1_Click()DimaAsString'**********SPACE**********OpenApp.Path&\abc.batFor【?】As#1n=8ForI=1TonPrint#1,I+1NextIClose#1'**********SPACE**********OpenApp.Path&\abc.batFor【?】As#1ForI=1TonInput#1,aIfIMod5=0Then'**********SPACE**********PrintCInt(a)+【?】EndIfNextIClose#1EndSub答案：1).Output2).Input3).1〖第4题〗『程序填空』(1分)(题号:46)'【程序填空】''题目：从键盘输入学生分数，统计学生总人数和各分数段人数，'即优秀（90-100）、良好（80-89）、中等（70-79）、'及格（60-69）、不及格（60以下）的人数。PrivateSubForm_Click()Dimscore%,n1%,n2%,n3%,n4%,n5%msg=请输入分数（-1结束）msgtitile=输入数据score=Val(InputBox(msg,msgtitle))'**********SPACE**********While【?】total=total+1'**********SPACE**********SelectCase【?】CaseIs=90n1=n1+1CaseIs=80n2=n2+1CaseIs=70n3=n3+1CaseIs=60n4=n4+1CaseElsen5=n5+1'**********SPACE**********【?】score=Val(InputBox(msg,msgtitle))WendPrintn1,n2,n3,n4,n5,totalEndSub答案：1).score=0★And★score=100或0=score★And★score=100或0=score★And★100=score或score=0★And★100=score2).score3).EndSelect〖第5题〗『程序填空』(1分)(题号:503)'【程序填空】''题目：用户界面如图所示，用实现左右两个组合框中数据的左移和右移功能。'程序开始运行时，在左边组合框中生成10个由小到大排列的随机三位'正整数(假设在设计阶段该组合框的Sorted属性值已设置为True),现要求完成:'（1）单击＞＞钮，左边组合框中的10个数全部移动到右边组合框，并由大到'小排列，同时使＜＜钮能响应，＞＞钮不能响应。'（2）单击＜＜钮，右边组合框中的10个数全部移到左边的组合框，并由小到'大排列，同时使＞＞钮能响应，＜＜钮不能响应；'（3）单击结束按钮，结束程序运行。请在【】处填入正确的内容PrivateSubcmdLeft_Click()DimiAsIntegerFori=0TocomboRight.ListCount-1comboLeft.AddItemcomboRight.List(i)NexticomboRight.Clear'**********SPACE**********【?】=False'**********SPACE**********【?】=TrueEndSubPrivateSubcmdRight_Click()DimiAsInteger'**********SPACE**********Fori=0To【?】-1comboRight.AddItemcomboLeft.List(i)Nexti'**********SPACE**********【?】.ClearcmdRight.Enabled=FalsecmdLeft.Enabled=TrueEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()DimiAsIntegerLabel1.Caption=组合框1Label2.Caption=组合框2cmdRight.Caption=cmdRight.Enabled=TruecmdLeft.Caption=cmdLeft.Enabled=FalsecmdExit.Caption=结束comboLeft.Text=Fori=1To10comboLeft.AddItemInt(Rnd*900)+100NexticomboRight.Text=EndSub答案：1).cmdLeft.Enabled2).cmdRight.Enabled3).comboLeft.ListCount4).comboLeft〖第6题〗『程序填空』(1分)(题号:511)'【程序填空】''题目：程序输出结果为：n=3x=42y=9请在【】处填入正确的内容PrivateSubCommand1_Click()Dimn,x,yAsInteger'**********SPACE**********n=0:x=【?】:y=0DoWhilex20'**********SPACE**********n=n【?】y=x+yx=x*(x+1)'**********SPACE**********【?】Form1.Printn=&Str(n)Form1.Printx=&Str(x)Form1.Printy=&Str(y)EndSub答案：1).12).+13).Loop〖第7题〗『程序填空』(1分)(题号:523)'【程序填空】'题目：下面的程序用于求三个数中最大数'请在【】处填入正确的内容PrivateSubCommand1_Click()Dima,b,c,max,minAsIntegera=Val(InputBox(请输入第一个数：))b=Val(InputBox(请输入第二个数：))c=Val(InputBox(请输入第三个数：))'**********SPACE**********【?】=amin=a'**********SPACE**********IfbmaxThen【?】IfbminThenmin=b'**********SPACE**********If【?】Thenmax=c'IfcminThenmin=cPrint最大数为：;maxPrint最小数为：;minEndSub答案：1).max2).max=b3).cmax或maxc〖第8题〗『程序填空』(1分)(题号:507)'【程序填空】'题目：本程序实现功能：将顺序文本文件“MYFILE.TXT”的'内容一个字符一个字符地读入文本框txtTest中请在【】处填入正确的内容PrivateSubForm_Click()DimInputDataAsString*1txtTest.Text='**********SPACE**********OpenApp.Path&\MYFILE.TXTFor【?】As#1'**********SPACE**********DoWhile【?】EOF(1)Input#1,InputData'**********SPACE**********txtTest.Text=txtTest.Text+【?】LoopClose#1EndSub答案：1).Input2).Not3).InputData〖第9题〗『程序填空』(1分)(题号:50)'【程序填空】''题目：从键盘上输入一串字符，以?结束，统计输入字符中的'大、小写字母和数字的个数。PrivateSubForm_Click()Dimch$,n1%,n2%,n3%n1=0n2=0n3=0ch=InputBox(请输入一个字符)'**********SPACE**********While【?】SelectCasechCaseaTozn1=n1+1'**********SPACE**********Case【?】n2=n2+1Case0To9n3=n3+1EndSelectch=InputBox(请输入一个字符)'**********SPACE**********【?】Printn1,n2,n3EndSub答案：1).ch★★?2).AToZ3).Wend〖第10题〗『程序填空』(1分)(题号:62)'【程序填空】''题目：输入任何一个英文字母x,若x的值为a,c,d-f,则'显示x的大写字母；若x的值为m,o,p-z,则显示x的'小写字母；若为其它的值,则显示xa（如输入的X的值是'g，则显示ga）。PrivateSubCommand1_Click()x=Text1.Text'**********SPACE**********【?】Casea,c,dTofLabel1.Caption=UCase(x)'**********SPACE**********Case【?】Label1.Caption=LCase(x)'**********SPACE**********【?】Label1.Caption=Trim(x)+aEndSelectEndSub答案：1).SelectCasex2).m,o,pToz3).CaseElse〖第11题〗『程序填空』(1分)(题号:65)'【程序填空】'题目：根据输入的学习成绩,分别显示优秀(90分以上),良好(75'分以上),及格(60分以上),不及格几个等级。PrivateSubCommand1_Click()x=Val(Text1.Text)Ifx=90ThenPrint优秀'**********SPACE**********【?】Print良好ElseIfx=60Then'**********SP