文教界应用.ppt

例：在窗体上画一个Command1按钮,编写如下事件过程： Private Sub Command1_Click() Dim a As String a=______ For i=1 to 5 Print Space(6-i);Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的 结果为： 5 456 34567 2345678 123456789 下面程序段，显示的结果是 。 dim x: x=int(Rnd)+5Select Case x Case 5 print ＂优秀＂ Case 4 print ＂良好＂ Case 3 print ＂通过＂ Case else print ＂不通过＂End selectA)优秀 B）良好 C） 通过 D）不通过 当在文本框输入“ABCD”四个字符时，窗体上显示的 是______。　　Private Sub Text1_Change()　　　Print Text1；　　End Sub （A）ABCD（B)A（C）AABABCABCD（D）A　　　　　　　B 　　　　　　　　　　　AB　　　　　　　C 　　　　　　　　　　　ABC 　　　　　　　D 　　　　　　　　　　　ABCD 求自然数的底e的近似值，要求其误差小于0.000001，求e近似值的公式为 连乘： t=t*i ，连乘积变量初值为1 累加：ee=ee+1/t ，累加和变量初值为0 误差控制循环结束与否 Dim i%,t, ee! ee = 0 ‘ e存放累加和 t = 1 ‘ t连乘积 i = 0 ‘ i计数器, 项数 Do While 1/t 0.000001 ee = ee+1 /t i = i + 1 t = t * i ‘求阶乘 i！ Loop Print 计算了 ; i-1; 项的和是 ; ee For语句和Do…Loop语句区别 For语句格式简单，使用方便 For语句只适用于循环次数已知的情况， 而Do循环适用于任何情况 三、循环的嵌套 在一个循环体内又包含了完整的循环结构 例： For i = 1 To 2 For j = 1 To 3 Print i, j Next j Next i 执行：外循环变量每取一个值，内循环变量取遍所有的值 i j 1 1 1 2 1 3 2 1 2 2 2 3 说明： (1)内循环控制变量与外循环控制变量不能同名 (2)外循环必须包含完整内循环,不能交叉 (3)选择结构和循环结构可以相互嵌套 例：打印九九乘法表 外循环变量 i 控制行的变化 内循环变量 j 控制列的变化 打印的位置：1 10 19 28… 每项占9列定位函数实现： tab((j-1)*9+1) 打印内容：i × j = i * j 紧凑格式 打印9列后换行：print Dim i%, j%,se as string For i = 1 To 9 For j = 1 To 9 se = i × j = i * j Print Tab((j - 1) * 9 + 1); se; Next j Print ‘换行 Next i Print语句共执行多少次？ For j = 1 To i For j = i To 9 For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x 请选择该程序的执行结果 A. 7 B.15 C.157 D.538 说明: 循环体中有完整IF语句,IF语句中有完整循环语句 循 环 应 用 一、输出图形 编程打印如图所示图形 For i=1 to 5 ‘输出5行 ‘输出一行 print