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); 6End Sub

Private Sub Command1_Click()Dim mysum As Singlemysum = Val(Text1.Text) * Val(Text2.Text)Label3.Caption = "金额为：" & mysumEnd Sub