第8周上机练习VB及答案.docVIP

Select语法格式： Select Case 表达式 Case 表达式列表1 语句序列1 Case 表达式列表2 语句序列2 …… Case 表达式列表n-1 语句序列n-1 End Select 值的形式 1、常数 2、连续范围 1 to 100 3、满足条件 a0 4、组合形式，逗号分隔 -10，1 to 100 例1： x=inputbox(输入一个整数) Select Case x Case 1，3，5，7，9 Print x; 这是奇数 Case 2，4，6，8，10 Print x; 这是偶数 End Select 例2： Select Case stringc Case a To z，A To Z Print stringc + is a letter Case 0 To 9 Print stringc + is a number Case Else Print stringc + “is only a char End Select 例3： score=inputbox(输入一个学生成绩) Select Case score Case is90 Print score; 成绩等次为：A Case is=80 Print score; 成绩等次为：B Case is=70 Print score; 成绩等次为：C Case Else Print score; 成绩等次为：D End Select 嵌套 select case a case if 条件 then 语句 elseif 条件 then 语句 endif case ... if 条件 then 语句 elseif 条件 then 语句 Endif Case Else if 条件 then 语句 elseif 条件 then 语句 Endif end select 作业： 输入一个字符，判断它是否数字(0-9)，字母(a-z,A-Z)或者其他字符。（用select语句） Private Sub Command1_Click() Dim Stringc As String Stringc = Text1 Select Case Stringc Case a To z, A To Z Print Stringc + is a letter Case 0 To 9 Print Stringc + is a number Case Else Print Stringc + is only a char End Select End Sub 输入一个成绩（0-100），判断级别。85-100优秀，75-84良好，60-74中等，60以下（不含60）不及格。（用select语句） Private Sub Command1_Click() Dim score As Integer score = InputBox(输入一个学生成绩) Select Case score Case Is = 85 Print score; 成绩等次为：优秀 Case Is = 75 Print score; 成绩等次为：良好 Case Is = 60 Print score; 成绩等次为：中等 Case Else Print score; 成绩等次为：不及格 End Select End Sub 功能：制作一个简单的趣味心理测试小程序，心理测试的题目为下列红色字，把这个内容做成程序（也可以自己设计一个心理测试题目） 请你选择答案 你的新房子正在装潢，你会在哪一部分花最多的钱？ 1、客厅的沙发、摆设。 2、卧室的床。 3、浴室、厨房。 选择1： 你天生有致富的命，可惜不太会把握，回想一下自己花钱的态度，别太注意‘表面功夫’，要考虑收支平衡！其实你是财运不差的人，别一直偷懒，放弃可以进财的机会。 选择2：你是个高品味的人，天生上流社会的人物，或许目前你的财务状况还谈不上大富大贵，但是你总是口袋快见底时又刚好