程序例子（Program example）.docVIP

程序例子（Program example） 1。声明自定义常量 公共常量的代码“010103”声明”工号”常量 公共常量年龄= 21声明”年龄”常量 公共常量名称=“郭轶凡”声明”姓名”常量 公共常量性=“男”声明”性别”常量 子声明自定义常量（） 细胞（3, 1）=代码“向单元格中填入工号 细胞（3, 2）=名字向单元格中填入姓名 细胞（3, 3）=性”向单元格中填入性别 细胞（3, 4）=年龄的向单元格中填入年龄 端子 2。求固定系数的一元二次方程的根 子求固定系数的一元二次方程的根（） a是整数，b为整数，整数的定义二次项系数C 昏暗的X1为双，X2为双“定义方程2根 昏暗的味精作为字符串，字符串的定义信息变量标题 = 1二次项系数 B = 4一次项系数” C = 3常数项的值 X1 =（B +（SQR（B ^ 2 - 4 * * C）））/（2×）的求第一个根 X2 =（B（SQR（B ^ 2 - 4 * * C）））/（2×）的求第二个根” 标题=“固定系数的一元二次方程求根示例”定义标题 味精=“二次项系数为” ”，一次项系数为”B _ ”，常数项为”C“的一元二次方程的根为：“ chr（10）和X1和X2 chr（10）的连接显示的信息” MsgBox味精，信息标题的显示计算结果” 端子 3。设置单元格文字属性 子设置单元格文字属性（） selection.font.name =“黑体”设置字体 selection.font.size = 22设置字号 selection.font.bold =真正的设置为黑体 selection.font.underline =真正的设置文字带有下划线 端子 4。使用InputBox函数 子使用InputBox函数（） 将MSG视为字符串，标题为字符串 昏暗的默认为字符串，字符串的声明变量myvalue 味精=“请输入产品编号”对话框的提示信息 标题=“产品编号输入系统”对话框标题栏文字 默认为“a0132008803”输入文本框的默认值 自我价值= InputBox（味精、标题、默认，100, 150）的显示输入对话框 调试。打印（自我价值）的显示输入值 端子 5。使用MsgBox函数 子使用MsgBox函数（） 变量x为字符串“声明变量 X =价值”获取单元格中的文字选择。 Y = MsgBox（“你选择的单元格中的文字是”“” _ X ”“”“”货币供应量，vbretrycancel +，“提示”）的显示提示信息 Y显示单击的按钮的值打印调试。 端子 6。使用暂停语句 子使用暂停语句（） 朦胧的我， 为整数的声明变量 S = 0 对于i = 1到10步骤5 S = S +我变量加我 打印的显示变量值调试。 停止暂停程序 下一个 端子 7。如果语句 子条件语句示例（） 定义一个整型的声明变量 = InputBox（“请输入产品价格：“）”输入价格 如果有1.2的比较输入值 本输入价格过低，此价格无法录入系统给出提示！” 最后如果 端子 8例语句。 子数字转换为月份（） 定义一个整型的声明变量 = Val（选择价值）的获得单元格数值 选择“根据数值转换为月份 案例1数值为1 选择。值=“一月”转换为”一月” 案例2数值为2 选择。值=“二月”转化为”二月” 案例3数值为3 选择。值=“三月”转换为”三月” 案例4数值为4 选择。值=“四月”转换为”四月” 案例5数值为5 选择。值=“五月”转换为”五月” 案例6数值为6 选择。值=“六月”转换为”六月” 案例7数值为7 选择。值=“七月”转换为”七月” 案例8数值为8 选择。值=“八月”转换为”八月” 案例9数值为9 选择。值=“九月”转换为”九月” 案例10数值为10 选择。值=“十月”转换为”十月” 案例11数值为11 选择。值=“十一月”转换为”十一月” 案例12数值为12 选择。值=“十二月”转换为”十二月” 其他案件的数值非1～12 本当前单元格中内容无法转换为月份”，_ 信息“提示”显示错误信息 最后选择 端子 9。当我们语句… 子应用而走语句（）… 昏暗的P型声明变量 模糊i为整数 我的计数变量初始化= 0 When I was less than 3, the cycle was less than 3 I count variables plus 1 + 1 = me. InputBox (P = enter your password: enter the password in the dialog box) If P = 1234, then verify password The password is entered correctly. The msgbox prompt password i