填空题 在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码：
Private Sub Command1_Click( )
Dim b,k
For k=1 to 6
B=23+k
Next k
MsgBox b+k
End Sub