1、 1 / 3 程序设计基础知识 (循环结构 Do) 班级：_ 姓名：_ 【知识要点知识要点】 循环语句 Do 语句：通过条件控制循环的计算过程 一、Do 语句 DoDo WhileWhile 条件表达式条件表达式 语句块语句块 LoopLoop 功能： 当当 VBVB 执行执行 Do WhileDo While- -LoopLoop 循环时，先判断指定的条件循环时，先判断指定的条件 是否为真，若条件为真，执行循环体，条件为假时退出是否为真，若条件为真，执行循环体，条件为假时退出 循环。循环。 【练习与巩固练习与巩固】 1有如下 VB 程序段： Private Sub Command1_Clic
2、k() Dim i As Integer Dim n as Integer Dim s As Integer n = Val(Text1.Text) s = 0 i = 1 Do While i =n s = s + i i = i + 3 Loop Text2.Text = Str(s) End Sub 该程序运行后，在文本框 Text1 中输入 15，单击按钮 Command1 后， 则在文本框 Text2 中显示的内容是( ) A.22 B.35 C.51 D.120 2有 Visual Basic 程序段如下： Private Sub Command1_Click() Dim k As
3、 Integer Dim s As String Dim b As String b = “A“ s = “A“ k = 1 Do While k temp j j 1 Loop Do While a(i) temp i i 1 Loop temp a(i)：a(i) a(j)：a(j) temp 数组元素 a(1)到 a(10)的值依次为“36 91 36 17 93 99 2 9 97 97” ，执行该程序段后，a(5)的值为( ) A93 B9 C36 D97 6有如下 Visual Basic 程序段： Dim i As Integer,s As Integer s 0 i 1:n 5
4、 Do While i 20 s s i n i i*5 Loop 该程序段运行后，变量 i 的值是 ，变量 s 的值 为 。 7编写 VB 程序，实现如下功能：在文本框 Textl 和 s0：t1：g2 Do While g6 tt*g ss1 gg1 Loop s0：t1 _ tt*g sst Next g 3 / 3 Text2 中分别输入一个整数，单击命令按钮 Command1， 在列表框 List1 中显示结果，运行效果如图 1 所示。 结 果包含两列数据，第 1 列为两数之间的摄氏温度值(间 隔 1 度、升序)，第 2 列为对应的华氏温度值。 (1)要使命令按钮 Command1
5、上显示的文本改为 “转换” ， 可在其属性窗口(图 2) 中将_属性的属性值修 改为“转换” 。 (2)为实现上述功能， 请在划线处填入合适代码或选项。 Private Sub Command1_Click() Dim t1 As Integer, t2 As Integer Dim i As Integer, t As Integer Dim f As Single f 存储华氏温度值 List1.Clear t1 Val(Text1.Text) t2 Val(Text2.Text) If _ Then (选填字母，从下列 A、B、C、D 四个选项中选取一项) t t1：t1 t2：t2 t End If i t1 Do While _ (选填字母，从下列 A、B、C、D 四个选项中选取一项) f i * 9 / 5 32 摄氏温度转换为华氏温度 List1.AddItem Str(i) ” ” Str(f) i_ (填程序代码) Loop End Sub 划线、处的选项： Ai t2 Bf t2 Di f
