(15)在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click x=Input Box(" Input") Select case x Case 1. 3 Print”分支1 Case Is >4 Print"分支2″ Case else Print"Else分支 d select End sub 程序运行后,如果在输入对话框中输入2,则窗体上显示的是 A)分支1 B)分支2C)Else分支 D)程序出错 二.填空题(30分) 1.以下程序段的输出结果是 num num num+1 Print num 2.窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为 Label1、 Caption属性为“Sum”的标签,一个名称为 Command1、标题为“计算”的命令按钮。程序 运行后,将把1~100之间能够被7整除的数添加到列表框。如果单击“计算”按钮,则对 List1中的数进行累加求和,并在文本框中显示计算结果,如图所示。以下是实现上述功能 的程序,请填空 Private Sub Form Load For i=1 To 100 If i mod 7=0 Then Next End sub Private Sub Command1 Click For i=0 To Sum =Sumt Next Text. Text=Sum(15) 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox("Input") Select Case x Case 1,3 Print "分支 1" Case Is >4 Print "分支 2" Case Else Print "Else 分支 " End Select End Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是 A） 分支 1 B） 分支 2 C） Else 分支 D) 程序出错 二.填空题(30 分) 1.以下程序段的输出结果是_______。 num =0 While num<=2 num = num+1 Wend Print num 2.窗体上有一个名称为 List1 的列表框，一个名称为 Text1 的文本框，一个名称为 Label1、 Caption 属性为“Sum”的标签，一个名称为 Command1、标题为“计算”的命令按钮。程序 运行后，将把 1～100 之间能够被 7 整除的数添加到列表框。如果单击“计算”按钮，则对 List1 中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能 的程序，请填空。 Private Sub Form_Load() For i=1 To 100 If i Mod 7 =0 Then ___________ End If Next End Sub Private Sub Command1_Click() Sum =0 For i=0 To_____ Sum =Sum+__________ Next Text1.Text=Sum