使用vb语言编写一个程序其功能是从键盘上输入一个整数,然后判断他是否是水仙

水仙花数是指一个三位数，其各个位上的数字的立方和等于其本身的数。

首先，我们可以使用VB语言编写一个程序来实现从键盘上输入一个整数的功能：

Dim num As Integer
num = InputBox("请输入一个整数：")

然后，我们可以编写一个函数来判断这个数是否为水仙花数：

Function IsNarcissistic(num As Integer) As Boolean
    Dim units As Integer
    Dim tens As Integer
    Dim hundreds As Integer
    
    units = num Mod 10  ' 获取个位数
    tens = (num \ 10) Mod 10  ' 获取十位数
    hundreds = num \ 100  ' 获取百位数
    
    If (units ^ 3 + tens ^ 3 + hundreds ^ 3) = num Then
        IsNarcissistic = True
    Else
        IsNarcissistic = False
    End If
End Function

最后，我们可以在程序中调用这个判断函数，并根据返回值输出结果：

If IsNarcissistic(num) Then
    MsgBox("是水仙花数！")
Else
    MsgBox("不是水仙花数！")
End If

整合以上代码，我们就可以实现一个判断输入整数是否为水仙花数的程序。