module1.vb

来自「学习vb过程中老师讲过的所有案例！还有课程设计」· VB 代码 · 共 25 行

Imports System.Windows.Forms
Module Module1
    Public Function Multiple(ByVal a As Integer, ByVal b As Integer) As String
        If a <> 0 Then
            If (b Mod a = 0) Then
                Return True
            Else
                Return False
            End If
        Else
            Return False
        End If
    End Function

    Sub Main()
        Dim x, y As Integer
        Dim output As String
        x = InputBox("请输入第一个数", "输入对话框")
        y = InputBox("请输入第二个数", "输入对话框")
        output = Multiple(x, y)
        MessageBox.Show(output)
    End Sub

End Module