VB程序代码学习记录20160709

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