为了使计时器控件Timer1每隔0.5s触发一次Timer事件，应将Timer1控件的Interva1属性设置为【 】。

下列程序实现的功能是：当在窗体上单击时，将随机产生100个3位数，并把它们写到D盘根目录下的文件myfile1．Dat中。 Private Sub Form_Click() Dim k As Integer Open【 】 Randomize For i=1 To 10 k=100+Int(899*Rnd) 【 】 Next i 【 】 End Sub

请帮忙给出正确答案和分析，谢谢！

下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。 Private Sub Form_Click() Dim s As Long,i As Integer s=0 For i=1 To 10 s=s+【 】 Next i Print s End Sub Private Function fact(ByVal n As Integer)As Long Dim i As Integer,f As Long f=1 For i=2 To n f=f*i Next i 【 】 End Function

请帮忙给出正确答案和分析，谢谢！

在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”，如图20-3所示；如果存在，则在Labe12中给出提示“输入项已在组合框中”。请在【 】、【 】和【 】处将程序补充完整。

Private Sub Combo1【 】(KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1；ListCount-1 If Combo1．Text=【 】Then LabeCaption="输入项已在组合框中" Exit Sub End If Next i LabeCaption="已成功添加输入项" Combo1．【 】Combo1．Text End If End Sub

请帮忙给出正确答案和分析，谢谢！

窗体上有两个控件：一个是驱动器列表框Drive1，另一个是目录列表框Dir1，现在要使目录列表框跟随驱动器列表框的变化而变化，则需在Drive1_Change事件过程中填入语句【 】。

请帮忙给出正确答案和分析，谢谢！