怎样用VB编写打印九九乘法表

怎样用VB编写打印九九乘法表,第1张

用VB编写打印九九乘法表可以参考下面的代码

按钮单击代码

Private Sub Command1_Click()

For i = 1 To 9

For j = 1 To i

Print i & "" & j & "=" & i j & " ";

Next j

Print

Next i

End Sub

扩展资料:

vb常用函数:

And 运算符:执行两个表达式的逻辑连接。

Array 函数:返回含一数组的变体 。

Asc 函数:返回字符串首字母的 ANSI 字符代码。

赋值运算符 (=):给变量或属性赋值。

Atn 函数:返回数的反正切值。

调用语句将控制移交 Sub 或 Function 过程。

CBool 函数:返回已被转换为 Boolean 子类型的变体的表达式。

参考资料来源:百度百科-Visual Basic

数据库中的数据打印出来吗?
给你一个思路,首先,你要做的是读取数据库记录,并把它们保存起来。当然,可以是保存在控件上,也可以保存在变量里。呵呵,当然也可以读一条记录,打印一次。不过这可能有点那样……。
读取出来以后,你还需要进行数据的排版,比如你需要打印成什么样式,纸张类型等。
做好了这些,你就可以通过几种方式来打印数据了。
当然,用控件打印是很简单的,因为很多控件都支持print方法。比如窗体的print方法。
思考是学习的唯一途径。

不用设置的,只要把打印内容输出到Printer对象即可:
PrinterPrint
"你好,这行文字会出现在打印机中"
Printer
PaintPicture
LoadPicture
("123jpg"),
0,
0
'这个会打印123jpg这个
PrinterLine
(0,
0)-(0,
3000),
vbBlack
'这是在打印机上画直线
PrinterCircle
(1500,
1500),
900,
vbBlack
'这是画圆
PrinterEndDoc
'运行这条命令后,上述内容就会在打印机真正打印出来。

VB下数据报表打印输出方法有多种,一是通过自己的设计和编程完成报表打印输出。二是通过MS OFFICE实现报表打印输出。三是应用数据报表设计器的报表打印输出。本人经常使用第一种方法,它具有根据需要灵活应用的特点,但需编写程序。下附代码,第一段代码定义基本变量,第二段代码定义打印函数,第三段代码是具体打印代码,含数据转换。第四段代码是窗体加载代码,具体连接数据库和打印代码根据你所涉及的数据要求进行修改。
Option Explicit
Private n As Integer
Private m As Integer
Private zh_dm(10) As Double
Private dy_dm(3000, 10) As Variant
Private zsl As Integer
Private y As Integer
Private x As Integer
Private i As Integer
Private k As Integer
Private p As Integer
Private pa As Integer
Private j As Integer
Private txt As String
Private fnt As Integer
Private dd As Variant
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant)
PrinterCurrentX = x
PrinterCurrentY = y
PrinterFontSize = fnt
PrinterPrint txt0
End Function
Private Sub cmdPrint_Click()
Adodc1RecordsetMoveFirst
For i = 0 To zsl - 1
For j = 0 To 7
dy_dm(i, j) = Adodc1Recordset(j)
Next j
Adodc1RecordsetMoveNext
Next i
'确定页数
k = Int(zsl / 80)'80为每页行数
If k - zsl / 80 < 0 Then
k = k + 1
End If
fnt = 8
For p = 0 To k - 1
pa = p + 1
y = 300
x = 4500
txt = "机物料库存"
dd = prnt(x, y, fnt, txt)
x = 8500
txt = "第" & p + 1 & "页"
dd = prnt(x, y, fnt, txt)
y = 500
x = 600
txt = "备件代码"
dd = prnt(x, y, fnt, txt)
x = 1500
txt = "备件名称"
dd = prnt(x, y, fnt, txt)
x = 3500
txt = "备件规格"
dd = prnt(x, y, fnt, txt)
x = 5500
txt = "进口计算机号"
dd = prnt(x, y, fnt, txt)
x = 7500
txt = "最低储备量"
dd = prnt(x, y, fnt, txt)
x = 9000
txt = "库存量"
dd = prnt(x, y, fnt, txt)
For i = 0 + p 80 To 79 + p 80
y = 700 + 180 (i - p 80)
x = 600
txt = dy_dm(i, 1)
dd = prnt(x, y, fnt, txt)
x = 1500
txt = dy_dm(i, 2)
dd = prnt(x, y, fnt, txt)
x = 3500
txt = dy_dm(i, 3)
dd = prnt(x, y, fnt, txt)
x = 5500
txt = dy_dm(i, 4)
dd = prnt(x, y, fnt, txt)
x = 7500
txt = dy_dm(i, 5)
dd = prnt(x, y, fnt, txt)
x = 9000
txt = dy_dm(i, 6)
dd = prnt(x, y, fnt, txt)
If Int(i / 10) - i / 10 = 0 Then
PrinterLine (500, 695 + (i - p 80) 180)-(10000, 695 + (i - p 80) 180)
End If
Next i
If zsl - p 80 > 80 Then
PrinterLine (500, 695 + 180 80)-(10000, 695 + 180 80)
PrinterNewPage
End If
Next p
PrinterEndDoc ' 打印完成。
Cls
End Sub
Private Sub Form_Load()
Adodc1ConnectionString = "Provider=MSDASQL1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc1RecordSource = "select csjs_dm,cs备件代码,cs备件名称,cs备件规格,cs进口计算机号,cs最低库存量,sl结存数量,sl结存金额,sl结存单价,sl类别代码 from JWCK_BM as cs,jwl_jiec as sl" & _
" where cs备件代码 = sl备件代码" & " and cs备件代码>" & "''" & " order by sl类别代码,sl备件代码"
Adodc1Refresh
DataGrid1Refresh
zsl = Adodc1RecordsetRecordCount
Adodc3ConnectionString = "Provider=MSDASQL1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc3RecordSource = "select sum(结存金额) as hj from jwl_jiec"
Adodc3Refresh
End Sub
以上供参考。其它请参考西安交通大学出版社出版的“VISUAL BASIC 60 高级编程技巧-ADO数据访问篇“


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/13321243.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-07-14
下一篇 2023-07-14

发表评论

登录后才能评论

评论列表(0条)

保存