【单选题】( 34 )在窗体中有一个命令按钮 command1, 编写事件代码如下: Private sub command1_click() Dim s as integer S=p(1)+p(2)+p(3)+p(4) Debug.print s End sub Public function p(N as integer) Dim sum as integer Sum=0 For i=1 to n Su...
【单选题】在窗体中有一个命令按钮command1,编写事件代码如下: Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 ...
【简答题】在窗体中有一个标签Label0,标题为“测试进行中”;有一个命令按钮Command1,事件代码如下: Private Sub Command1_Click( ) Label0.Caption= '标签' End Sub Private Sub Form_Load( ) Form.Caption = '举例' Command1.Caption= '移动' End Sub 打开窗体后单击命令按钮,屏幕...
【单选题】在窗体中有一个标签 Label0 ,标题为 “ 测试进行中 ” ;有一个命令按钮 Command1 ,事件代码如下: Private Sub Command1_Click() Label0.Caption=' 标签 ' End Sub Private Sub Form_Load() Form.Caption=' 举例 ' Command1.Caption=' 移动 ' End Sub 打开窗体后单...