欢迎来到天天文库
浏览记录
ID:34028427
大小:69.50 KB
页数:10页
时间:2019-03-03
《第周上机练习vb及答案》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、Select语法格式:SelectCase表达式Case表达式列表1语句序列1Case表达式列表2语句序列2……Case表达式列表n-1语句序列n-1EndSelect值的形式1、常数2、连续范围1to1003、满足条件a>04、组合形式,逗号分隔-10,1to100例1:x=inputbox("输入一个整数")SelectCasexCase1,3,5,7,9Printx;"这是奇数"Case2,4,6,8,10Printx;"这是偶数"EndSelect10/10例2:SelectCasestringcCase
2、"a"To"z","A"To"Z"Printstringc+"isaletter"Case"0"To"9"Printstringc+"isanumber"CaseElsePrintstringc+“isonlyachar"EndSelect例3:score=inputbox("输入一个学生成绩")SelectCasescoreCaseis>90Printscore;"成绩等次为:A"Caseis>=80Printscore;"成绩等次为:B"Caseis>=70Printscore;"成绩等次为:C"CaseEl
3、sePrintscore;"成绩等次为:D"EndSelect嵌套selectcaseacaseif条件then语句elseif条件then10/10语句endifcase...if条件then语句elseif条件then语句EndifCaseElseif条件then语句elseif条件then语句Endifendselect作业:1、输入一个字符,判断它是否数字(0-9),字母(a-z,A-Z)或者其他字符。(用select语句)PrivateSubCommand1_Click()DimStringcAsStr
4、ingStringc=Text1SelectCaseStringc10/10Case"a"To"z","A"To"Z"PrintStringc+"isaletter"Case"0"To"9"PrintStringc+"isanumber"CaseElsePrintStringc+"isonlyachar"EndSelectEndSub1、输入一个成绩(0-100),判断级别。85-100优秀,75-84良好,60-74中等,60以下(不含60)不及格。(用select语句)PrivateSubCommand1_C
5、lick()DimscoreAsIntegerscore=InputBox("输入一个学生成绩")SelectCasescoreCaseIs>=85Printscore;"成绩等次为:优秀"CaseIs>=7510/10Printscore;"成绩等次为:良好"CaseIs>=60Printscore;"成绩等次为:中等"CaseElsePrintscore;"成绩等次为:不及格"EndSelectEndSub1、功能:制作一个简单的趣味心理测试小程序,心理测试的题目为下列红色字,把这个内容做成程序(也可以自己设
6、计一个心理测试题目)请你选择答案你的新房子正在装潢,你会在哪一部分花最多的钱?1、客厅的沙发、摆设。2、卧室的床。3、浴室、厨房。选择1:你天生有致富的命,可惜不太会把握,回想一下自己花钱的态度,别太注意‘表面功夫’,要考虑收支平衡!其实你是财运不差的人,别一直偷懒,放弃可以进财的机会。选择2:你是个高品味的人,天生上流社会的人物,或许目前你的财务状况还谈不上大富大贵,但是你总是口袋快见底时又刚好有适时的补充。你是穷不了的,只是还称不上是大富翁。选择3:你看起来实在不象是会成为大富翁的人,但是人不可貌相,你偏偏是
7、最有机会成为大富翁的人。你的财运很好,做什么工作都赚钱!连你自己都不清楚是怎么变成大富翁的。10/10提示:(1)可以textbox在显示结果,将它的multilines属性设为true可以显示多行文本(2)可以定义3个string变量,存放3种选择的结果分析并根据用户的选择显示在textbox中PrivateSubCommand1_Click()DimaAsInteger,bAsString,cAsString,dAsStringa=Text1.TextSelectCaseaCaseaIfa=1Thenb="你
8、天生有致富的命,可惜不太会把握,回想一下自己花钱的态度,别太注意'表面功夫',要考虑收支平衡!其实你是财运不差的人,别一直偷懒,放弃可以进财的机会。"Text2.Text=bElseIfa=2Thenc="你是个高品味的人,天生上流社会的人物,或许目前你的财务状况还谈不上大富大贵,但是你总是口袋快见底时又刚好有适时的补充。你是穷不了的,只是还称不上是大富翁。"Text2.
此文档下载收益归作者所有