VB语言第4章课堂讨论答辩课件

1、 第4章 习题讨论 退出单选题多选题填空题编程题第1页，共15页。一、单选题（补充） 1“x 是小于100 的非负数”，用 VB 表达式表示的是 A. 0=x100 B. 0=x And x100 C. 0 x And x100 D. 0 x or x 0 Then x = a Else x = b Print x - a A. 0 B. -4 C. -3 D. -1 BB第2页，共15页。二、多选题 1下列语句中，有语法错误的是_。 A. y=(a-1)(b-1) B. x=2m C. Val(y)=m D. Form1.Show E. B$=InputBox(Hello$) F. Text

2、1.Text + VB = Text2.Text G. 88Label.Caption = Label H. x=Left(Visual BASIC) I. If ab-2*3 Then y=a=b J. If a1 Not (Or b3) Then y=1错误! 缺一个乘号*； 应为(a-1)*(b-1)错误! 缺一个乘号*； 2*m； 2m不能是变量名错误！ 左边只能是变量名或对象属性名正确！正确！ $是字符串类型符，B$表示B是字符串变量错误！左边不能是一个表达式错误！对象名不能以数字开头错误！Left函数格式不对；应为Left(s,n)正确！将表达式“a=b”的值赋给y错误！逻辑表达式

3、不对；Or是双目运算第3页，共15页。 2假设t、s、w分别为整型、字符型、逻辑型变量，且s=ABC，在下列表达式中错误的有_。 A. t=5 And w B. s90 C. 4*t1 D. s + s E. t + s 3. 假设a=-3，b=3，下列逻辑表达式中其值为真的有 A. a=0 And Not b2 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 a0 And b0 E. a=0 And a-b=0 Or b=aCEBE第4页，共15页。补充填空题1： 写出下列程序段的运行结果。 x =

4、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 当x的输入值为-3时，输出结果是_；运行后x的值为_。 三、填空题-1-2填空补充题1第5页，共15页。 补充填空题2：当在文本框Text1中输入内容并按回车键后，立即跳到Text3文本框以供输入，事件过程是： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then _ End

5、 If End SubText3.SetFocus第6页，共15页。编程及上机调试 第1题 (出错在什么地方?) 第4章的第1道编程题，有的学生用select case 语句编写如下程序: Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case Int(x / 2) = x / 2 Text2.Text = 偶数 Case Else Text2.Text = 奇数 End Select End Sub 为什么结果总是奇数？无论你输入偶数还是奇数。 1. 编制一个程序，输入一个整数，判断该数的奇偶性。如输入89，则输

6、出“奇数”。利用文本框来实现数据的输入和输出。第7页，共15页。 错例 Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case Int(x / 2) = x / 2 Text2.Text = 偶数 Case Else Text2.Text = 奇数 End SelectEnd Sub 正例(例4.4) Select Case score Case 0 To 59 Label2.Caption = temp + 不及格 Case 60 To 69 End Select变量Score要与下列各表达式匹配变量Score与

7、下列各表达式匹配变量Score要与下列各表达式匹配变量x要与下列各表达式不匹配第8页，共15页。 另一解法 Private Sub Command1_Click() x = Val(Text1.Text) If Int(x / 2) = x / 2 Then Text2.Text = 偶数 Else Text2.Text = 奇数 End If End Sub第9页，共15页。编程及上机调试 第3题： 显示学生的年级及学生类型 已知学号由9个数字码组成，如012343001，其中从左算起前2位表示年级，第5个字符表示学生类型，学生类型规定如下： 2博士生， 3硕士生 4本科生， 5专科生 设计

8、程序，从文本框中输入一个学号，经过判断后，在另外两个文本框中显示该生的年级及学生类型。x x x x x x x x x年级学生类型编程第3题第10页，共15页。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 p = 硕士生 Case 4 p = 本科生 Case 5 p = 专科生 Case Else p = 无效学号 End Select Text2.Text = Left(Text

9、1.Text, 2) + 级 Text3.Text = pEnd Sub第11页，共15页。编程及上机调试 第4题 4. 编制程序，利用三个复选框来代表红、绿、蓝三原色的颜色值，当选中复选框时表示颜色值255，不选中复选框时表示颜色值0，把通过RGB函数调配的颜色作为一个标签的背景色（BackColor）。编程第4题标签Label1第12页，共15页。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 E

10、nd If If Check3.Value = 1 Then b = 255 End If Label1.BackColor = RGB(r, g, b)End SubPrivate Sub Command2_Click() EndEnd Sub第13页，共15页。 (1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码 功能要求：用户从上面三个文本框(Text1、Text2、Text3)中输入数据，单击“排序”按钮(Command1)，则在第4个文本框(Text4)中显示结果 编程补充题1：输入三个数，将它们从大到小排序编程补充题1第14页，共15页。 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Tex