Question

VB中提示缺少子程序、函数或属性，是怎么回事？

Private Sub Command1_Click()
Dim a, b, c As Integer
b = 0: c = 0
For i = 1 To 10
a = Val(InputBox("请输入数字", "窗口"))
a mod2 = 0
b = b + 1
Else
c = c + 1
End If
Next
End Sub
这是要做一个能分计偶数的

Answer 1

你有许多错，自己对比一下：

Private Sub Command1_Click()
Dim i, a, b, c As Integer
For i = 1 To 10
a = Val(InputBox("请输入自然数", "窗口"))
If a Mod 2 Then
b = b + 1
Else
c = c + 1
End If
Next
Debug.Print "b ="; b, "c ="; c
End Sub

Answer 2

不知道你的是不是Visual Basic,如果是

则 k = Sqr(m) 是不是需要改为 k = Math.Sqrt(m)

以下语句
Print Tab((n Mod 8) * 8 + 1): m也需要补充