可视化程序设计vbnet第4章.pptVIP

* * * * * * * * * * * * * * * * Dim i, n, j As Integer If Asc(e.KeyChar) = 13 Then n = Val(TextBox1.Text) For i = 1 To n TextBox2.Text = Space(n - i) For j = 1 To 2 * i - 1 TextBox2.Text = * Next TextBox2.Text = vbCrLf Next End If * * Dim i, n, j As Integer If Asc(e.KeyChar) = 13 Then n = Val(TextBox1.Text) For i = 1 To n TextBox2.Text = Space(n - i) For j = 1 To 2 * i - 1 TextBox2.Text = Chr(Asc(A) + i - 1) Next TextBox2.Text = vbCrLf Next End If 64+i * 行数 字母 数 空格数 1 n-1 2 i 64+i 2*i-1 n-i 行数 字母 数 空格数 n-1 n-(n-1) 2 1 i 64+n+n-i 2*i-1 n-i 上三角行数为n * * 4.4.3滚动条、进度条和定时器 1. 滚动条(ScrollBar) 用于数据输入工具，也可显示数据。 滚动条有水平（H）和垂直（V）两种。 本章目录 主要属性 Value (缺省为0) Minimum (缺省为0) Maximum (缺省为100) SmallChange改变值(缺省为1) LargeChange改变值(缺省为10) 最大值设置：理想值+LargeChange-1 背景色变化 Maximum (缺省为100) * * 主要事件 Scroll 当拖动滑块时触发 ValueChanged 改变Value属性时触发 例4.24 设计一个调色板应用程序。 设计思想： 三个滚动条代表三种基本颜色的输入工具 本章目录 注意：任意一个颜色改变均为影响合成的颜色，因此用共享事件来简化编程。 * Handles HScrollBar1.ValueChanged, HScrollBar2.ValueChanged, HScrollBar3.ValueChanged * * 用来指示事务处理的进度. 显示的填充数Value值是Maximum和Minimum间的比值。 主要属性： Maximum、Minimum、 Value 编程使用方法： 确定Maximum 值。 变化的Value值，使得进度条变化。 例4.25 设计带有进度条的倒计时程序 2. 进度条(ProgressBar) * * * * 3. 定时器(Timer) 定时器以一定的时间间隔产生Tick事件 属性 Enabled 为False时定时器不产生Tick事件 Interval 触发Tick事件的时间间隔，单位ms 事件 定时器控件只有一个Tick事件 产生Tick事件条件 Enabled=True; Interval0 例4.26用一个定时器控制蝴蝶在窗体内的飞舞 本章目录 思考：如何控制飞的速度、如何控制飞的每次距离？ 如果飞的过程有三个状态又如何编程？ * * * 4.5 综合应用 这种方法一般求近似解。 关键：找出通项、精度（结束循环条件） 近似公式 本章目录 代码说明 简化：已知(i-1)!，要求i!，只要（i-1）!*i就可，这样就简化成只要通过一重循环求累加（ ）就可。 1.计算部分级数和 例4.27求自然对数e的近似值，其误差小于0.00001。 分析：本例涉及到程序设计中两个重要运算： 累加 、连乘 。 * 5.控件应用 例4.31模拟车子在交通灯的控制下行使过程 分析： 本章