程序设计

VB中备有各种计算算术函数的子程序，在程序中要使用某 (1) 三角函数的自变量单位是弧度 如 Sin47176。 应写成 Sin(47*)。 (2) 函数 Int是求小于或等于 x的最大整数。 例如 Int(2)=2, Int()=3 当 x≥0时就直接舍去小数，若 x＜ 0则舍去小数位后再减 1 利用 Int函数可以对数据进行四舍五入。 例如，对一个正数 x舍去小数位时进行四舍五入

39。 时针长度 len_H = Sqr(( ) ^ 2 + ( ) ^ 2) Call Timer1_Timer End Sub Private Sub Timer1_Timer() 39。 定时器的定时事件过程 Dim s As Single, m As Single, h As Single = Time s = Second(Time) m = Minute(Time) h =

Show Sum = 0 Do While True 39。 条件为真，循环无终止进行下去 x = Val(InputBox(请输入要加入的数 (1表示结束 ), 输入数据 )) If x = 1 Then Exit Do End If Sum = Sum + x = Sum Loop MsgBox (累加运算结束 ) End Sub 以 1作为“终止循环标志” 例 设计一个 “ 加法器 ”

39。 读出 Close 1 Print c, d$ End Sub 123 ABCD 例 一个存取数据的示例 已知文件“ ”中存放一批能被 7整除的数 (见例 及例 )，现要求把这些数显示出来。 每行显示 4个数。 Private Sub Form_Load() Show k = 0 Open For Input As 1 Do While Not EOF(1) 39。 文件未结束时，循环

(2)有一个明确的结束递归的条件 (终止条件 )，否则过程将永远“递归”下去 过程的递归调用 可用下列的递归公式 1 n=1 n (n1)! n1 本递归中，终止条件是 n=1 n! = 例 采用递归方法求 n! (n0) Private Sub Form_Load() Dim n As Integer, m As Double Show n = Val(InputBox(输入 1～

改变数组的大小，提高存储区的使用效率 建立动态数组 建立动态数组的步骤： 第一步：声明一个没有下标 (或称空维数 )的数组为动态数组 第二步：在过程中用 ReDim语句重新定义带下标的动态数组 ReDim语句 格式 ： ReDim [Preserve] 数组名 ([下界 1 T0] 上界 1[， [下界２ T0] 上界 2…]) [As 数据类型 ] 功能： 重新定义动态数组

性赋值等 7. 监视窗口 对用户定义的表达式进行监视 例 运行以下的窗体装载事件过程 ： Private Sub Form_Load() Dim a% a% = 5: a = c = 1 / (a a%) End Sub 运行时出错，消息框提示发生“ 除数为零 ”的错误。 单击消息框中的“调试”按钮，即可进入中断模式， VB在代码窗口中用箭头指示发生错误的语句“ C=1/(aa%)”。

t(b, +,.) Print Format(TimeVar, h:m:s) 输出结果是： 4, $4, +3, 8:30:5 格式符号 和 0都能显示数字，但符号 会剔除不必要的 0，符号 0会按规定补足 0 3. Format 下载 窗体 (Form)是设计 VB应用程序的基本平台 窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的。 一个程序可以有多个窗体

长 ， 计算并输出正方形的面积 分析：要创建的应用程序用户界面 (图 ) 文本框 Text1 文本框 Text2 命令按钮Command1 命令按钮 Command2 标签 Label1 标签 Label2 窗体 Form1 下载 窗体上含有两个标签 、 两个文本框和两个命令按钮 两个标签分别用于显示文字 “ 边长 ” 和 “ 面积 ” 两个文本框用于输入数据和显示计算结果 程序功能要求：

主目录 退出 目录 下一页 上一页 记录的删除 Delete [范围 ][for 条件 ][while 条件 ] Recall [范围 ][for 条件 ][while 条件 ] Pack Zap 被逻辑删除的记录是否参与其后的操作与 Set delete on|off 状态有关 Zap命令的删除提示信息与 set safety on|off 有关 主目录 退出 目录 下一页 上一页 数据表复制