VB教程第4章 节 课堂讨论.ppt

第4章 习题讨论;一、单选题（补充）;二、多选题; 2．假设t、s、w分别为整型、字符型、逻辑型变量，且s=ABC，在下列表达式中错误的有______。 A. t=5 And w B. s90 C. 4*t–1 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=a;补充填空题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 当x的输入值为-3时，输出结果是_____；运行后x的值为____。 ; 错例 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; 另一解法 Private Sub Command1_Click() x = Val(Text1.Text) If Int(x / 2) = x / 2 Then Text2.Text = 偶数 Else Text2.Text = 奇数 End If End Sub;编程及上机调试 第3题： 显示学生的年级及学生类型;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(Text1.Text, 2) + 级 Text3.Text = p End Sub;编程及上机调试 第4题;Private Sub Command1_Click()