VB语言第5章课堂讨论(1).ppt

文档介绍：第5章习题讨论
退出
单选题
多选题
填空题
编程题
一、单选题(补充)
。
s = 2
For k = 8 To 18 Step 4
s = s + 2
Next k
Print s
A. 6 B. 8 C. 10 D. 36
B
2. 下列程序段的运行结果(即 s 的值)是
s = 0
For k = 5 To 25 Step 7
s = s + k
Next k
Print s
A. 26 B. 36 C. 37 D. 61
B
3. 执行下列程序段时,内循环的总循环次数为___(1)___;执行该程序段后,变量s的值是___(2)___,变量t的值是___(3)___
s = 0
For m = 2 To 1 Step -1
t = m
For n = 1 To m
s = s + n
Next n
Next m
(1) A. 1 B. 2 C. 3 D. 4
(2) A. 2 B. 3 C. 4 D. 5
(3) A. 1 B. 2 C. 3 D. 4
答案:(1)C (2)C (3)A
4. 以下程序用于计算
S = 1 + (1 + 3) + (1 + 3 + 5) + ……+ (1 + 3 + 5 + ……+ 49)
将下列程序代码补充完整。
t = 0: n = 1: s = 0
Do While ____(1)____
t = ____(2)____
s = ____(3)____
n = n + 2
Loop
Print "s="; s
(1) A. n = 49 B. n < 49 C. n <= 49 D. n <= 50
(2) A. t + s B. s + n C. n + t D. n
(3) A. s + n B. n + t C. n D. s + t
C
C
D
设c和t均为整型变量,分别具有初值1和10。在下列循环语句中,循环体执行次数为3次的是
While c<=t B. Do Until c*t>40
c = c+3 c = c*2
Loop Loop
C. Do D. For k=c To t Step 4
C = 3*c + 1 c = c+3
Loop Until c>t Next k
E. Do
C = t\c : c = c + 2
Loop While c<t
BD
二、多选题
9. 从字符串中查找子字符串“123”,将该子字符串从字符串中删除掉,但“1234”子字符串则保留,如“AB123C1234DE123F”处理成“ABC1234DEF”。
x = InputBox("输入字符串")
p = InStr(x, "123")
Do While p > 0
If Mid(x, p + 3, 1) <> "4" Then
x = Left(x, p - 1) + ____(1)____
Else
p =____(2)_____
End If
p =____(3)_____
Loop
MsgBox("处理结果: " + x)
Mid(x, p+3)
(2)p=p+4
(3)p=InStr(p,x,"123")
X——处理结果
P——处理位置
逐次调整x和p
填空第9题
填空题
3. 指定一个初始值,从该数值开始,找出100个不能被7整除的自然数。要求通过文本框来接收这个初始值,找出的自然数显示在列表框中。
(1) 用户界面
Text1
List1
Comd1
编程第3题
编程及上机调试
(2) 几点考虑
①自然数n 初始值 n=Val()
n, n+1, n+2, ……
若n满足条件(不能被7整除),则存入列表框
②计数器 k表示个数,取100个
k = k+1
用于控制循环的次数
③程序基本结构
n = Val() : k = 0
Do While k ×××
If ××× Then
n
k = k + 1
End If
n = n + 1
Loop
A. k<99
B. k<100
C. k<=99
D. k<=100
A. n Mod 7 = 0
B. Not (n Mod 7 = 0)
C. n Mod 7 <> 0
D. k<=99
BC
BC
多选
多选
Private d1_Click()
Dim n As Integer
n = Val()
k = 0
Do While k <= 99
If