vb上机练习题(word版)

《vb上机练习题(word版)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、〖第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

2、);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(

3、6)AsIntegerDimk%OpenApp.Path&"al.dat"ForOutputAs#1ForI=1To6'**********SPACE**********j=【?】Print#1,jNextIClose#1OpenApp.Path&"a1.dat"ForInputAs#2k=0DoWhileNotEOF(2)'**********SPACE**********k=【?】Input#2,xx(k)LoopClose#2'**********SPACE**********ForI=kTok/2Step【?】Form1.Printxx(I)NextIEndSub答案：1).I

4、*I2).k+1或1+k3).-1〖第3题〗『程序填空』(1分)(题号:501)'【程序填空】''题目：本程序执行后，最终在窗体上打印数字7。请在【】处填入正确的内容PrivateSubCommand1_Click()DimaAsString'**********SPACE**********OpenApp.Path&"abc.bat"For【?】As#1n=8ForI=1TonPrint#1,I+1NextIClose#1'**********SPACE**********OpenApp.Path&"abc.bat"For【?】As#1ForI=1TonInput#1,aIfIMod

5、5=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="输入数据"sc

6、ore=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答

7、案：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个由小到大排