初2编程序（在线等）

Private Sub Form_Click()
Dim vNum$
vNum = InputBox("请输入一个数", "输入")
If vNum <> "" Then
If Val(vNum) Mod 3 = 0 Then
MsgBox vNum & "能被3整除"
Else
MsgBox vNum & "不能被3整除"
End If
End If
End Sub

估计初2应该是用VB6做教学的 如果是直接复制上面的代码就可以了

#include "stdio.h"
#include "conio.h"
#include "dos.h"
#include "alloc.h"

main()
{
int a=0;
scanf("%d",&a);
if((a%3)==0)
printf("可以被3整除\n");
else
printf("不可以被3整除\n");
}