VB语言第4章课堂讨论答辩
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
End Sub Private Sub Command2_Click()
End End Sub
主页
编程补充题1：输入三个数，将它们从大到小排序 (1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码
功能要求：用户从上面三个文本框(Text1、Text2、Text3) 中输入数据，单击“排序”按钮(Command1)，则在第4个文 本框(Text4)中显示结果
Case Else Text2.Text = "奇数"
End Select End Sub
1. 编制一个程序，输入一个整数， 判断该数的奇偶性。如输入89，则 输出“奇数”。利用文本框来实现 数据的输入和输出。
为什么结果总是奇数？无论你输入偶数还是奇数。
主页
错例
Private Sub Command1_Click() x = Val(Text1.Text) Select Case x
主页
二、多选题
1．下列语句中，有语法错误的是_______。 A. y=(a-1)(b-1) 错误! 缺一个乘号*； 应为(a-1)*(b-1)
B. x=2m 错误! 缺一个乘号*； 2*m； 2m不能是变量名
C. Val(y)=m 错误！ 左边只能是变量名或对象属性名
D. Form1.Show 正确！
编制程序利用三个复选框来代表红绿蓝三原色的颜色值当选中复选框时表示颜色值255不选中复选框时表示颜色值0把通过rgb函数调配的颜色作为一个标签的背景色backcolor
第4章 习题讨论
单选题 多选题 填空题 编程题
退出 主页
一、单选题（补充）
1．“x 是小于100 的非负数”，用 VB 表达式表示的是 B
主页
三、填空题
补充填空题1： 写出下列程序段的运行结果。 填空补充题1
x = Val(InputBox("Enter x"))
Select Case Sgn(x) + 2
Case 1
x=x+1
Case 2
x=x+2
Case 3
x=x+3
End Select
Print x + 1
-1
当x的输入值为-3时，输出结果是_____；运行后x的值为____。
年级
学生类型
编程第3题
xxxxxxxxx
主页
Private Sub Command1_Click()
'“判断”事件过程
Dim t As String, p As String
t = Mid(Text1.Text, 5, 1)
Select Case t
Case "2"
p = "博士生"
Case "3"
'本条件语句实现a>=c
t = a: a = c: c = t
End If
If b < c Then
'本条件语句实现b>=c
t = b: b = c: c = t
End If
Text4.Text = a & "," & b & "," & c
End Sub
主页
End Sub
主页
编程及上机调试 第3题： 显示学生的年级及学生类型
已知学号由9个数字码组成，如012343001，其中从左算起 前2位表示年级，第5个字符表示学生类型，学生类型规定如下：
2——博士生， 3——硕士生 4——本科生， 5——专科生 设计程序，从文本框中输入一个学号，经过判断后，在另 外两个文本框中显示该生的年级及学生类型。
编程补充题1
主页
程序代码
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then
'本条件语句实现a>=b
t = a: a = b: b = t
End If
If a < c Then
y
J. If a>1 Not (Or b>3) Then y=1 错误！逻辑表达式不对；Or是双目运
算 主页
2．假设t、s、w分别为整型、字符型、逻辑型变量，且 s="ABC"，在下列表达式中错误的有______。 BE
A. t=5 And w
B. s>90
C. 4*t–1
D. s + "s"
E. t + s
A. 0<=x<100
B. 0<=x And x<100
C. 0<x And x<100
D. 0<x or x<100
2. 下列程序段的运行结果为 B
a=3:b=a-4
If Not a + b > 0 Then x = a Else x = b
Print x - a
A. 0
B. -4
C. -3
D. -1
变量x要与下列各 表变达量式Sc不or匹e要配与 下列各表达式匹 配
Case Int(x / 2) = x / 2 Text2.Text = "偶数"
Case Else Text2.Text = "奇数"
End Select
End Sub
变变量量SSccoorree与要下与列 下各列表各达表式达匹式配
End Sub
主页
编程及上机调试 第1题 (出错在什么地方?)
第4章的第1道编程题，有的学生用select case 语句编写如下 程序:
Private Sub Command1_Click()
x = Val(Text1.Text) Select Case x
Case Int(x / 2) = x / 2 Text2.Text = "偶数"
正例(例4.4) ……
匹配
Select Case score
Case 0 To 59
Label2.Caption = temp + "不及格"
Case 60 To 69
……
End Select
主页
另一解法
Private Sub Command1_Click() x = Val(Text1.Text) If Int(x / 2) = x / 2 Then Text2.Text = "偶数" Else Text2.Text = "奇数" End If
3. 假设a=-3，b=3，下列逻辑表达式中其值为真的有
A. a>=0 And Not b<2
CE
B. a*b<-6 And 5*b Mod 3 <> 0
C. "ab"> "b" Or a+b>=0 Or Not (a-b>=0)
D. 2*a=-b Or a>0 And b>0
E. a>=0 And a-b>=0 Or b>=a
-2
主页
补充填空题2：当在文本框Text1中输入内容并按回车键后， 立即跳到Text3文本框以供输入，事件过程是：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
________ End If
Text3.SetFocus
E. B$=InputBox(Hello$) 正确！ $是字符串类型符，B$表示B是字符串变量
F. Text1.Text + "VB" = Text2.Text 错误！左边不能是一个表达式
G. 88Label.Caption = "Label" 错误！对象名不能以数字开头
H. x=Left("Visual BASIC") 错误！Left函数格式不对；应为Left(s,n) I. If a>b-2*3 Then y=a=b 正确！将表达式“a=b”的值赋给
p = "硕士生"
Case "4"
p = "本科生"
Case "5"
p = "专科生"
Case Else
p = "无效学号"
End Select
Text2.Text = Left(Text1.Text, 2) + "级"
Text3.Text = p
End Sub
主页
编程及上机调试 第4题
4. 编制程序，利用三个复选框来代表红、绿、蓝三原色的颜 色值，当选中复选框时表示颜色值255，不选中复选框时表示颜 色值0，把通过RGB函数调配的颜色作为一个标签的背景色 （BackColor）。
标签Label1
Hale Waihona Puke 编程第4题主页Private Sub Command1_Click() r = 0: g = 0: b = 0 If Check1.Value = 1 Then r = 255 End If If Check2.Value = 1 Then g = 255 End If If Check3.Value = 1 Then b = 255 End If Label1.BackColor = RGB(r, g, b)
End End Sub
主页
编程补充题1：输入三个数，将它们从大到小排序 (1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码
功能要求：用户从上面三个文本框(Text1、Text2、Text3) 中输入数据，单击“排序”按钮(Command1)，则在第4个文 本框(Text4)中显示结果
Case Else Text2.Text = "奇数"
End Select End Sub
1. 编制一个程序，输入一个整数， 判断该数的奇偶性。如输入89，则 输出“奇数”。利用文本框来实现 数据的输入和输出。
为什么结果总是奇数？无论你输入偶数还是奇数。
主页
错例
Private Sub Command1_Click() x = Val(Text1.Text) Select Case x
主页
二、多选题
1．下列语句中，有语法错误的是_______。 A. y=(a-1)(b-1) 错误! 缺一个乘号*； 应为(a-1)*(b-1)
B. x=2m 错误! 缺一个乘号*； 2*m； 2m不能是变量名
C. Val(y)=m 错误！ 左边只能是变量名或对象属性名
D. Form1.Show 正确！
编制程序利用三个复选框来代表红绿蓝三原色的颜色值当选中复选框时表示颜色值255不选中复选框时表示颜色值0把通过rgb函数调配的颜色作为一个标签的背景色backcolor
第4章 习题讨论
单选题 多选题 填空题 编程题
退出 主页
一、单选题（补充）
1．“x 是小于100 的非负数”，用 VB 表达式表示的是 B
主页
三、填空题
补充填空题1： 写出下列程序段的运行结果。 填空补充题1
x = Val(InputBox("Enter x"))
Select Case Sgn(x) + 2
Case 1
x=x+1
Case 2
x=x+2
Case 3
x=x+3
End Select
Print x + 1
-1
当x的输入值为-3时，输出结果是_____；运行后x的值为____。
年级
学生类型
编程第3题
xxxxxxxxx
主页
Private Sub Command1_Click()
'“判断”事件过程
Dim t As String, p As String
t = Mid(Text1.Text, 5, 1)
Select Case t
Case "2"
p = "博士生"
Case "3"
'本条件语句实现a>=c
t = a: a = c: c = t
End If
If b < c Then
'本条件语句实现b>=c
t = b: b = c: c = t
End If
Text4.Text = a & "," & b & "," & c
End Sub
主页
End Sub
主页
编程及上机调试 第3题： 显示学生的年级及学生类型
已知学号由9个数字码组成，如012343001，其中从左算起 前2位表示年级，第5个字符表示学生类型，学生类型规定如下：
2——博士生， 3——硕士生 4——本科生， 5——专科生 设计程序，从文本框中输入一个学号，经过判断后，在另 外两个文本框中显示该生的年级及学生类型。
编程补充题1
主页
程序代码
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then
'本条件语句实现a>=b
t = a: a = b: b = t
End If
If a < c Then
y
J. If a>1 Not (Or b>3) Then y=1 错误！逻辑表达式不对；Or是双目运
算 主页
2．假设t、s、w分别为整型、字符型、逻辑型变量，且 s="ABC"，在下列表达式中错误的有______。 BE
A. t=5 And w
B. s>90
C. 4*t–1
D. s + "s"
E. t + s
A. 0<=x<100
B. 0<=x And x<100
C. 0<x And x<100
D. 0<x or x<100
2. 下列程序段的运行结果为 B
a=3:b=a-4
If Not a + b > 0 Then x = a Else x = b
Print x - a
A. 0
B. -4
C. -3
D. -1
变量x要与下列各 表变达量式Sc不or匹e要配与 下列各表达式匹 配
Case Int(x / 2) = x / 2 Text2.Text = "偶数"
Case Else Text2.Text = "奇数"
End Select
End Sub
变变量量SSccoorree与要下与列 下各列表各达表式达匹式配
End Sub
主页
编程及上机调试 第1题 (出错在什么地方?)
第4章的第1道编程题，有的学生用select case 语句编写如下 程序:
Private Sub Command1_Click()
x = Val(Text1.Text) Select Case x
Case Int(x / 2) = x / 2 Text2.Text = "偶数"
正例(例4.4) ……
匹配
Select Case score
Case 0 To 59
Label2.Caption = temp + "不及格"
Case 60 To 69
……
End Select
主页
另一解法
Private Sub Command1_Click() x = Val(Text1.Text) If Int(x / 2) = x / 2 Then Text2.Text = "偶数" Else Text2.Text = "奇数" End If
3. 假设a=-3，b=3，下列逻辑表达式中其值为真的有
A. a>=0 And Not b<2
CE
B. a*b<-6 And 5*b Mod 3 <> 0
C. "ab"> "b" Or a+b>=0 Or Not (a-b>=0)
D. 2*a=-b Or a>0 And b>0
E. a>=0 And a-b>=0 Or b>=a
-2
主页
补充填空题2：当在文本框Text1中输入内容并按回车键后， 立即跳到Text3文本框以供输入，事件过程是：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
________ End If
Text3.SetFocus
E. B$=InputBox(Hello$) 正确！ $是字符串类型符，B$表示B是字符串变量
F. Text1.Text + "VB" = Text2.Text 错误！左边不能是一个表达式
G. 88Label.Caption = "Label" 错误！对象名不能以数字开头
H. x=Left("Visual BASIC") 错误！Left函数格式不对；应为Left(s,n) I. If a>b-2*3 Then y=a=b 正确！将表达式“a=b”的值赋给
p = "硕士生"
Case "4"
p = "本科生"
Case "5"
p = "专科生"
Case Else
p = "无效学号"
End Select
Text2.Text = Left(Text1.Text, 2) + "级"
Text3.Text = p
End Sub
主页
编程及上机调试 第4题
4. 编制程序，利用三个复选框来代表红、绿、蓝三原色的颜 色值，当选中复选框时表示颜色值255，不选中复选框时表示颜 色值0，把通过RGB函数调配的颜色作为一个标签的背景色 （BackColor）。
标签Label1
Hale Waihona Puke 编程第4题主页Private Sub Command1_Click() r = 0: g = 0: b = 0 If Check1.Value = 1 Then r = 255 End If If Check2.Value = 1 Then g = 255 End If If Check3.Value = 1 Then b = 255 End If Label1.BackColor = RGB(r, g, b)