资源描述：
《计算机二级上机试题.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、〖第1题〗『程序填空』(1分)(题号:507)'【程序填空】'题目：本程序实现功能：将顺序文本文件“MYFILE.TXT”的'内容一个字符一个字符地读入文本框t俄xtTest中请在【】处填入正确的内容PrivateSubForm_Click()DimInputDataAsString*1txtTest.Text=""'**********SPACE**********OpenApp.Path&"MYFILE.TXT"For【input】As#1'**********SPACE**********DoWhile【not】EOF
2、(1)Input#1,InputData'**********SPACE**********txtTest.Text=txtTest.Text+【inputdata】LoopClose#1EndSub答案：1).Input2).Not3).InputData〖第2题〗『程序填空』(1分)(题号:50)'【程序填空】''题目：从键盘上输入一串字符，以"?"结束，统计输入字符中的'大、小写字母和数字的个数。PrivateSubForm_Click()Dimch$,n1%,n2%,n3%n1=0n2=0n3=0ch=InputBox
3、("请输入一个字符")'**********SPACE**********While【ch】SelectCasechCase"a"To"z"n1=n1+1'**********SPACE**********Case【AtoZ】n2=n2+1Case"0"To"9"n3=n3+1EndSelectch=InputBox("请输入一个字符")'**********SPACE**********【wend】Printn1,n2,n3EndSub答案：1).ch★<>★"?"2)."A"To"Z"3).Wend〖第3题〗『程序填空』(
4、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**********【selectcasex】Case"a","c","d"To"f"Label1.Caption=UCase(x)'**********SPACE*****
5、*****Case【”m”,”o”,”p”to“z”】Label1.Caption=LCase(x)'**********SPACE**********【caseelse】Label1.Caption=Trim(x)+"a"EndSelectEndSub答案：1).SelectCasex2)."m","o","p"To"z"3).CaseElse〖第4题〗『程序填空』(1分)(题号:65)'【程序填空】'题目：根据输入的学习成绩,分别显示优秀(90分以上),良好(75'分以上),及格(60分以上),不及格几个等级。Privat
6、eSubCommand1_Click()x=Val(Text1.Text)Ifx>=90ThenPrint"优秀"'**********SPACE**********【elselfx>=75then】Print"良好"ElseIfx>=60Then'**********SPACE**********【print“及格”】'**********SPACE**********【else】Print"不及格"EndIfEndSub答案：1).ElseIfx>=75Then或ElseIf75<=xThen2).print"及格"3).
7、Else〖第5题〗『程序填空』(1分)(题号:60)'【程序填空'题目：输入任何一个英文字母x,'若x的值为"a","c","d-f",则显示x的大写字母；'若x的值为"m","o","p-z",则显示x的小写字母；'若为其它的值,则显示xa（如输入的X的值是g，则显示ga）。PrivateSubCommand1_Click()x=Text1.Text'**********SPACE**********【selectcase】'**********SPACE**********Case【“a”，“c”，“d”to“f”】Lab
8、el1.Caption=UCase(x)Case"m","o","p"To"z"Label1.Caption=LCase(x)CaseElse'**********SPACE**********【label1.caption=trim（x）+“a”】EjdSelectEndS
