用VB6编写程序要求输入整数a和b,若++62>100,则输出a+6百位以上的数字,否则+输？

以下是 VB6 编写程序的示例代码，可以满足要销裤滑求：

程序运行后，亏腊会先d出两个输入框，分别要求用户输入整数 a 和 b。接着，根据输入的 a 和 b 值，分别进行判断。

如果 a+b 大于 62，则需纯厅要输出 a+6 百位以上的数字。此时，我们可以先判断 a 的位数是否大于等于 3（即百位及以上），如果是，则需要截取 a+6 后面的数字（即百位及以上），如果不是，则直接输出 a+6。这里使用 Len 函数获取字符串长度，使用 Left 函数获取指定长度的字符串。最后，使用 MsgBox 函数输出结果。

如果 a+b 不大于 62，则直接输出 a+b 的值，同样使用 MsgBox 函数输出结果。

通过自己的设计和编程完成报表打印输出。

传送正文和图形给 Printer 对象，再用 NewPage 和 EndDoc 方法打印。

Option Explicit

Private y As Integer

Private x 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, txt As Variant)

Printer.CurrentX = x

Printer.CurrentY = y

Printer.FontSize = fnt

Printer.Print txt

End Function

Private Sub cmdPrint_Click()

fnt = 18

y = 300

x = 500

txt = "打印"

dd = prnt(x, y, fnt, txt)

Printer.EndDoc ' 打印完成。

End Sub

详细请参阅如下网址本人的答复：

http://zhidao.baidu.com/question/4280337.html

参阅http://iask.sina.com.cn/b/2350257.html网址本人的答复。

关于文本靠左,数字靠右的实现办法,文本按上述代码定位乱知宴打印即靠左.而数字要靠右,则需使用LEN函数先计算打印的数字其字符长,然后在其前补足长猛猜度,例:

Text1 = "123.5"

l = Len(Text1)

Text2 = Space(10 - l) &Text1 '此初10为假定打印数字长度

经过这哗银样处理后,凡数字处理成定长字符串按文本方式打印,它就实现靠右对齐.

---