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

for i = 1 to 9s = s * inext iPrint s label 1 . caption = send sub
2024-12-12 08:43:05
推荐回答(2个)
回答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

回答2:

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