你是说你的窗体上有多少个按钮和多少歌标签吗?如果是可以这样做Private Sub Command1_Click()Dim MyCom As ControlDim sumC As Integer, sumL As IntegerFor Each MyCom In Me.Controls
If TypeName(MyCom) = "CommandButton" Then
sumC = sumC + 1
End If
If TypeName(MyCom) = "Label" Then
sumL = sumL + 1
End IfNextPrint "按钮...