Question

c 窗体 操作

在窗体中增加一个按钮组件Button和Label组件，Name分别为button1，label1。标签组件label1的属性Text="0"。每单击一次Button1按钮组件，标签组件label1组件显示的数字加1，实现的具体步骤是;

急要答案

还有就有。。
加Label控件到窗体，属性Name=label1，属性Text为"我的程序"。加控件Button到窗体,属性Name=button1,单击按钮,label1控件字体变为50号字, 再单击按钮，label1控件字体变为20号字，请写出单击按钮事件函数中的语句。

Answer 1

Private Sub Command1_Click()
Dim x As Integer
x = x + 1
Label1.Caption = Val(Label1.Caption) + x
End Sub

我加了一个辅助 text1
Private Sub Command1_Click()
Dim x
Text1.Visible = False '让text显示看不见
x = x + 1
Text1.Text = Val(Text1.Text) + x
If Text1.Text > 2 Then
Label1.FontSize = 20
Text1.Text = 1
Else
Label1.FontSize = 50
End If
End Sub
能力有限，望采纳~~