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

第5章 习题讨论;一、单选题（补充）; 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; 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 ; 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; 4. 指定一个初始值，从该数值开始，找出100个不能被7整除的自然数。要求通过文本框来接收这个初始值，找出的自然数显示在列表框中。 (1) 用户界面 ; (2) 几点考虑 ① 自然数n 初始值 n=Val(Text1.Text) n, n+1, n+2, …… 若n满足条件(不能被7整除)，则存入列表框 ② 计数器 k表示个数，取100个 k = k+1 用于控制循环的次数 ③ 程序基本结构 n = Val(Text1.Text) : k = 0 Do While k ××× If ××× Then List1.AddItem n k = k + 1 End If n = n + 1 Loop;Private Sub Comd1_Click() Dim n As Integer n = Val(Text1.Text) 初始值 k = 0 计数 Do While k = 99 控制计数100个 If Not (n Mod 7 = 0) Then 不被7整除 List1.AddItem n ‘不被7整除时,把n放入列表框 k = k + 1