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

Select语法格式：
Select Case 表达式
Case 表达式列表1
语句序列1
Case 表达式列表2
语句序列2
……
Case 表达式列表n-1
语句序列n-1

End Select

值的形式
1、常数
2、连续范围 1 to 100
3、满足条件 a>0
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 is>90
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

作业：
1、 输入一个字符，判断它是否数字(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
2、 输入一个成绩（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
3、 功能：制作一个简单的趣味心理测试小程序，心理测试的题目为下列红色字，把这个内容做成程序（也可以自己设计一个心理测试题目）
请你选择答案
你的新房子正在装潢，你会在哪一部分花最多的钱？
1、客厅的沙发、摆设。
2、卧室的床。
3、浴室、厨房。
选择1： 你天生有致富的命，可惜不太会把握，回想一下自己花钱的态度，别太注意‘表面功夫’，要考虑收支平衡！其实你是财运不差的人，别一直偷懒，放弃可以进财的机会。
选择2：你是个高品味的人，天生上流社会的人物，或许目前你的财务状况还谈不上大富大贵，但是你总是口袋快见底时又刚好有适时的补充。你是穷不了的，只是还称不上是大富翁。
选择3：你看起来实在不象是会成为大富翁的人，但是人不可貌相，你偏偏是最有机会成为大富翁的人。你的财运很好，做什么工作都赚钱！连你自己都不清楚是怎么变成大富翁的。

提示：
（1）可以textbox在显示结果，将它的multilines属性设为true可以显示多行文本
（2）可以定义3个string变量，存放3种选择的结果分析并根据用户的选择显示在textbox中
Private Sub Command1_Click()
Dim a As Integer, b As String, c As String, d As String
a = Text1.Text
Select Case a
Case a
If a = 1 Then
b = " 你天生有致富的命，可惜不太会把握，回想一下自己花钱的态度，别太注意'表面功夫'，要考虑收支平衡！其实你是财运不差的人，别一直偷懒，放弃可以进财的机会。"
Text2.Text = b
ElseIf a = 2 Then
c = "你是个高品味的人，天生上流社会的人物，或许目前你的财务状况还谈不上大富大贵，但是你总是口袋快见底时又刚好有适时的补充。你是穷不了的，只是还称不上是大富翁。"
Text2.Text = c
ElseIf a = 3 Then
d = "你看起来实在不象是会成为大富翁的人，但是人不可貌相，你偏偏是最有机会成为大富翁的人。你的财运很好，做什么工作都赚钱！连你自己都不清楚是怎么变成大富翁的。"
Text2.Text = d
End If
End Select
End Sub
4、 功能：每次点击“出题”按钮，随机出1道加法题目，参加运算操作数在1-100之间，用户在textbox输入答案。点击“确定”按钮，利用msgbox给出输入的答案是正确或错误。

需要用到的知识点：if……then……else结构,Msgbox，Randomize，rnd，Val，定义的加数变量a,b要设为全局变量。
Dim a As Integer, b As Integer
Private Sub Command1_Click()
Randomize
a = Int(100 * Rnd) + 1
b = Int(100 * Rnd) + 1
Text1.Text = a
Text2.Text = b

End Sub

Private Sub Command2_Click()
Dim c As Integer
c = Text3.Text
If c = a + b Then
MsgBox "答案正确"
Else
MsgBox "答案错误"
End If
End Sub
5、 从文本框TEXT1内任意输入一串字符，点击“选取字符”按钮，如果是TEXT1为空，则用MSGBOX 提示“重新输入”，否则随机选一个不大于字符串总长度的数字作为选取的位置。如果选中的位置字符是字母，并显示在text2内，如果选取的是数字，则输出到TEXT3，在TEXT4中显示哪个位置的字符被抽取。

If TEXT1=”” Then
MsgBox "重新输入"
Else
随机产生一个不大于字符串总长度（len(text1)）的数（1-长度）
用MID取字符C
If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then
Text2 = c
Text3 = ""
Else
Text3 = c
Text2 = ""
End If
End If
Text4=随机数
Private Sub Command1_Click()
Dim a As Integer, lenth As Integer
Dim str As String, letter As String
If Text1 = "" Then
MsgBox "重新输入"
Else
str = Text1.Text
lenth = Len(str)
a = Int(lenth * Rnd) + 1
letter = Mid(str, a, 1)
Print letter
If (letter >= "a" And c <= "z") Or (letter >= "A" And c <= "Z") Then
Text2 = letter
Text3 = ""
Else
Text3 = letter
Text2 = ""
End If
End If
Text4 = a

End Sub