第8周上机练习vb及答案

《第8周上机练习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;"这是偶数"EndSelect例2：SelectCasestringcCase"a"To"z"，"A"To"Z"Printstringc+"isa

2、letter"Case"0"To"9"Printstringc+"isanumber"CaseElsePrintstringc+“isonlyachar"EndSelect例3：score=inputbox("输入一个学生成绩")SelectCasescoreCaseis>90Printscore;"成绩等次为：A"Caseis>=80Printscore;"成绩等次为：B"Caseis>=70Printscore;"成绩等次为：C"CaseElsePrintscore;"成绩等次为：D"EndSelect嵌套selectcaseacaseif条件then语句elsei

3、f条件then语句endifcase...if条件then语句elseif条件then语句EndifCaseElseif条件then语句elseif条件then语句Endifendselect作业：1、输入一个字符，判断它是否数字(0-9)，字母(a-z,A-Z)或者其他字符。（用select语句）PrivateSubCommand1_Click()DimStringcAsStringStringc=Text1SelectCaseStringcCase"a"To"z","A"To"Z"PrintStringc+"isaletter"Case"0"To"9"PrintSt

4、ringc+"isanumber"CaseElsePrintStringc+"isonlyachar"EndSelectEndSub1、输入一个成绩（0-100），判断级别。85-100优秀，75-84良好，60-74中等，60以下（不含60）不及格。（用select语句）PrivateSubCommand1_Click()DimscoreAsIntegerscore=InputBox("输入一个学生成绩")SelectCasescoreCaseIs>=85Printscore;"成绩等次为：优秀"CaseIs>=75Printscore;"成绩等次为：良好"CaseI

5、s>=60Printscore;"成绩等次为：中等"CaseElsePrintscore;"成绩等次为：不及格"EndSelectEndSub1、功能：制作一个简单的趣味心理测试小程序，心理测试的题目为下列红色字，把这个内容做成程序（也可以自己设计一个心理测试题目）请你选择答案你的新房子正在装潢，你会在哪一部分花最多的钱？1、客厅的沙发、摆设。2、卧室的床。3、浴室、厨房。选择1：你天生有致富的命，可惜不太会把握，回想一下自己花钱的态度，别太注意‘表面功夫’，要考虑收支平衡！其实你是财运不差的人，别一直偷懒，放弃可以进财的机会。选择2：你是个高品味的人，天生上流社会的人

6、物，或许目前你的财务状况还谈不上大富大贵，但是你总是口袋快见底时又刚好有适时的补充。你是穷不了的，只是还称不上是大富翁。选择3：你看起来实在不象是会成为大富翁的人，但是人不可貌相，你偏偏是最有机会成为大富翁的人。你的财运很好，做什么工作都赚钱！连你自己都不清楚是怎么变成大富翁的。提示：（1）可以textbox在显示结果，将它的multilines属性设为true可以显示多行文本（2）可以定义3个string变量，存放3种选择的结果分析并根据用户的选择显示在textbox中PrivateSubCommand1_Click()DimaAsInteger,bAsString,

7、cAsString,dAsStringa=Text1.TextSelectCaseaCaseaIfa=1Thenb="你天生有致富的命，可惜不太会把握，回想一下自己花钱的态度，别太注意'表面功夫'，要考虑收支平衡！其实你是财运不差的人，别一直偷懒，放弃可以进财的机会。"Text2.Text=bElseIfa=2Thenc="你是个高品味的人，天生上流社会的人物，或许目前你的财务状况还谈不上大富大贵，但是你总是口袋快见底时又刚好有适时的补充。你是穷不了的，只是还称不上是大富翁。"Text2.Text=cElseIfa=3Thend="你看起