VB程序代码学习记录20160709
2016-07-09 10:18
423 查看
Private Sub Form_Click() Print Font.Size = 14 Font.Name = "华文行楷" Print Tab(45); Year(Date) & "年" & Month(Date) & "月份图书销售排行" CurrentY = 700 Font.Size = 9 Font.Name = "宋体" Print Tab(15); "书名"; Tab(55); "出版社"; Tab(90); "销售数量" Print Tab(14); String(85, "-") Print Tab(15); "Visual Basci 经验技巧宝典"; Tab(55); "人民邮电出版社"; Tab(90); 10 Print Tab(15); "Visual Basic 数据库系统开发案例精选"; Tab(55); "人民邮电出版社"; Tab(90); 8 Print Tab(15); "Deiphi数据库系统开发案例精选"; Tab(55); "人民邮电出版社"; Tab(90); 6 End Sub
Private Sub Command1_Click() Dim mysum As Single mysum = Val(Text1.Text) * Val(Text2.Text) Label3.Caption = "金额为:" & mysum End Sub
相关文章推荐
- 使用vbs识别验证码方案
- 基于vbs通过语音向电脑发送命令
- vbs定时关机任务脚本
- 汉字转拼音vbs版
- 中文姓名笔画计算(VBS脚本版)
- vbs打乱字符串字符排列的顺序
- 使用vbs列出文件夹下所有的文件及文件名
- vbs格式化日期(多种方式)
- vbs版的语音报时程序
- vb.net dll创建
- 在Excel里用vba给合并的单元格添加注释
- win7 host 中 vbox 虚拟机无法 attach USB device的问题
- openstack neutron(tap、qvb、qvo详解)
- openstack neutron(tap、qvb、qvo详解)
- (OK)(OK) seem-tools-CLI-semi-auto_4_vbox.sh
- VBA/VB/EXCEL 除法和整除
- VBS向已经存在的Excel里面输入数据
- VBS传递函数
- VBA获取系统环境变量及特殊文件夹的各种代码与方法
- vba ado transation