Private Sub Form_Click()
Dim a
a = InputBox("请输入数据", "数据输入", 5)
If IsNumeric(a) Then
If a Mod 3 = 0 Or a Mod 5 = 0 Then
Form1.Print a
End If
Else
MsgBox "您输入的不是数字,请重新输入", vbOKOnly + vbInformation, "数据格式不正确"
Exit Sub
End If
End Sub 以上是对这个问题的回答，希望对您有帮助。
Dim a As Long
a = InputBox("")
Print IIf(a Mod 3, "不", "") & "能被 3 整除"
Print IIf(a Mod 5, "不", "") & "能被 5 整除"
Private Sub Form_Click() Dim a As Integer a = Val(Text1.Text) If a Mod 15 = 0 Then Form1.Print a End Sub 这个题目很简单，以后不要这样谎称为“难题”，这样会让有些大虾很反感。
大哥，这叫难题？
打印？我不知道你所谓的“打印”是显示在窗体中还是在打印机中打印，从这个程序的功能来看，估计以为是显示在窗体中吧。 我编了一个程序，你在下面，你自己看看吧！
答：顺道说一下 别忘了把atuoredraw设成true免得inputbox变成了刷子. 1. Private Sub Command1_Click() a = I...详情>>
答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...
答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
