求VB6.0打印及打印设置代码
答案:1 悬赏:80 手机版
解决时间 2021-05-03 15:08
- 提问者网友：相思似海深
- 2021-05-02 21:42
求VB6.0打印及打印设置代码，要设置一定区域的。感谢感谢。
最佳答案
- 五星知识达人网友：猎心人
- 2021-05-02 23:11
Option ExplicitConst N = 1000 '1000个数Private Sub Form_Activate() Dim i As Long, sum As Long For i = 1 To N If Fc(i) Then Print i sum = sum + i End If Next Print "和为：" & sumEnd SubFunction Fc(m) As Boolean Dim sum As Long, i As Long For i = 1 To Int(m / 2) If m Mod i = 0 Then sum = sum + i Next If sum = m Then Fc = TrueEnd Function
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯