1、编写一段VB函数，要求如下：

来源：百度知道 编辑：UC知道 时间：2024/06/05 04:26:43
（1）要求用sub定义，函数名为sswf
（2）定义两个整数型变量x,y
（2）通过Inputbox函数输入一个整数给变量x，判断其能否被2，3，和5整除，若能则输出该数到text1,并且计算出它的平方值给变量y
（3 ）使用print函数输出变量y

Sub sswf()
Dim x As Integer, y As Integer
x = CInt(InputBox("请输入一个整数"))
If x Mod 2 = 0 And x Mod 3 = 0 And x Mod 5 = 0 Then
Text1.Text = x
y = x * x
End If
Print y
End Sub

If x Mod 30 = 0 Then

private sub form_load()

sswf '调用上面的函数

end sub

If x Mod 30 = 0 Then
根据你题目的意思我也觉得这个合适，应该是你说得不清楚。