Question

忙烦给我看看为什么显示不出来？ option explicit private sub command1-click() dim i as integer s = 3

for i = 1 to 9
s = s * i
next i
Print s
label 1 . caption = s
end sub

Answer 1

（点击命令按钮）
excel vba：

Private Sub CommandButton1_Click()
Dim i,a As Integer
For i = 1 To 9
a = i * i
Cells(i, 10) = a
Next i
End Sub

vb：

Private Sub CommandButton1_Click()
Dim i,a As Integer
For i = 1 To 9
a = i * i
print a
Next i
End Sub

Answer 2

print 打印到哪里去了。应该在窗体左上角