文档介绍：第4章习题讨论
退出
单选题
多选题
填空题
编程题
一、单选题(补充)
1.“x 是小于100 的非负数”,用 VB 表达式表示的是
A. 0<=x<100 B. 0<=x And x<100
C. 0<x And x<100 D. 0<x or x<100
2. 下列程序段的运行结果为
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
B
B
二、多选题
,有语法错误的是_______。
A. y=(a-1)(b-1) B. x=2m
C. Val(y)=m D.
E. B$=InputBox(Hello$) F. + "VB" =
G. = "Label" H. x=Left("Visual BASIC")
I. If a>b-2*3 Then y=a=b
J. If a>1 Not (Or b>3) Then y=1
、s、w分别为整型、字符型、逻辑型变量,且s="ABC",在下列表达式中错误的有______。
A. t=5 And w B. s>90 C. 4*t–1
D. s + "s" E. t + s
ABCFGHJ
BE
3. 假设a=-3,b=3,下列逻辑表达式中其值为真的有
A. a>=0 And Not b<2
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
CE
补充填空题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的值为____。
三、填空题
-1
-2
填空补充题1
补充填空题2:当在文本框Text1中输入内容并按回车键后,立即跳到Text3文本框以供输入,事件过程是:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
________
End If
End Sub
编程及上机调试第1题(学生的电子邮件)
林老师:您好!我是您vb的一个学生。第四章的第一道编程题,我用select case 语句编写如下:
Private mand1_Click()
x = Val()
Select Case x
Case Int(x / 2) = x / 2
= "偶数“
Case Else
= "奇数“
End Select
End Sub
为什么结果总是奇数?无论你输入偶数还是奇数。
1. 编制一个程序,输入一个整数,判断该数的奇偶性。如输入89,则输出“奇数”。利用文本框来实现数据的输入和输出。
Private mand1_Click()
= True
x = Val()
If x = 0 Then = "非奇非偶!"
If x Mod 2 = 0 Then = "偶数"
If x Mod 2 = 1 Then = "奇数"
End Sub
Private mand2_Click()
End
End Sub
Private Sub Form_Load()
= False
End Sub
错例
Private mand1_Click() x = Val() Select Case x Case Int(x / 2) = x / 2 = "偶数" Case Else = "奇数" End Select End Sub
正例() ……
Select Case score
C