编写如下程序：Private Sub Command1_Click() Dim k As Integer x = 1 For k = 1 To 3 x = x * fun(k) Next k Print xEnd SubFunction fun(x As Integer) As Integer Static a a = a + 1 fun = a * xEnd Function程序运行后，单击命令按钮Command1，输出结果为

单项选择题设有以下程序代码：Private Sub Command1_Click() Dim x As String, y As Integer x = 考试 y = 1 proc x, y Print 第 ; y; 次 ; xEnd SubSub proc(ByVal a As String, b As Integer) a = 参加 + a b = b + 1End Sub运行程序，单击命令按钮后显示的是

单项选择题在窗体上有4个文本框，名称分别为Text1、Text2、Text3、Text4，和1个名称为Command1的命令按钮，然后编写如下程序代码：Private Sub Command1_Click()Dim year%, month%, days%year = Val(Text1)month = Val(Text3)For k = 1 To month - 1Select Case kCase 1, 3, 5, 7, 8, 10:days = days + 1Case 4, 6, 9, 11:days = days + 30Case 2:days = days +______________End SelectNext kText4 = daysEnd SubFunction LeapYear(x As Integer) As IntegerIf x Mod 400 = 0 Or x Mod 4 = 0 And x Mod 100