Private Sub Command1_Click（）

Dim a As String

a = Text1.Text

a = Chr（Asc（a） - 32）

Label1.Caption = a

End Sub

Private Sub Label1_Click()

  Dim a As Double, b As Single, c As Single

  a = Val(Text1．Text)

  b = Val(Text2．Text)

  c = ( a – b ) / Log(a)

  Label1．Caption = Str(c)

End Sub

能运行该段程序的事件过程名是（   ）

图a

图b

小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本概Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如图b所示。

得2枚金币，再接下来的3天（第4、5、6 天）每天获得3枚金币……，依次类推，即当连续n天每天获得n枚金币后，会在之后的连续n+1天里，每天获得n+1枚金币。

小王用VB编写了工资计算程序，当输入连续工作的最后一天的日期后，单击“计算”按钮 Command1，程序自动计算工资总额，其运行界面如图所示。

实现上述功能的VB 程序如下，请回答下列问题：