填空题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　Private Sub Command1_Click() 　　　n = 5 　　　f = 1 　　　s = 0 　　　For i = 1 To n 　　　　f = f【 】 　　　　s = s + f 　　　Next 　　　Print s 　　End Sub 　　该事件过程的功能是计算 　　s=1+1/2!+1/3!+…+1/n! 　　的值。请填空。

【参考答案】

/i
<上一题 目录 下一题>
热门 试题

填空题
下面程序运行后，单击命令按钮，输出的结果是【 】。Private Sub Commandl_Click( )Dim a％(1 To 4) ，b％(2 To 6) ，i％，strl#，str2#For i=1 To 4a(i) =iNext iFor i=2 To 6b(i) =iNext istr1 =YAG(a)str2 =YAG(b)Print strl ；str1; str2= ；str2End SubFunction YAG (a()As Integer)Dim T#，i％t=1For i=LBound(a) To UBound(a)t=t * a(i)Next iYAG =tEnd Function
填空题
如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查 找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查 找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显 示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。Private Sub Command1_Click()Dim k As Integer, n As Integer, found As Boolean found = Falsen = Len( _________)k = 0While k < List1.ListCount And Not foundIf Text1 = Left$(List1.List(k), n) ThenText2 = _________found = True End If k = k + 1Wend If Not found ThenText2 = 查无此人 End If End Su
相关试题