在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮。程序运行后,在两个文本框中输入数据,当单个按钮时,标签Label1中显示运算的结果。程序的功能是计算,n!+(n+1)!+(n+2)!+…

admin2009-02-13  46

问题 在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮。程序运行后,在两个文本框中输入数据,当单个按钮时,标签Label1中显示运算的结果。程序的功能是计算,n!+(n+1)!+(n+2)!+…+(n+m)!。
     请在【  】处填入适当的内容,将程序补充完整。
     Private Sub Command1_Click(   )
        Dim a,b,c,d As Double
        Dim i,n,m  As Integer
        n=Val(Text1.Text):m=Val(【  】)
        a=0:  b=1:  c=0:  d=1
        For i=1 TO m
           b=b*i
           a=a+b
        Next i
        For i=1 To n
           d=d*i
           C=c+d
        Next i
        Label1.Caption=a-c
      End Sub

选项

答案 Text2.text或Text2

解析 Text1.text接收n值,用Text2.Text接收m值,故填:Text2.text。Text属性是 Text文本框的属性值,故可以省略。
转载请注明原文地址:https://jikaoti.com/ti/Bvq0FFFM
0

最新回复(0)