将力F分解成F₁、F<sub>2</su

第1题

有如下程序：Private Sub Form_C1ick()E=1:F=1For j=1 To 3E=E+F:F=F+ENextPrint E;FEnd Sub该程序的输出结果是A．6 6B． 5 8C． 13 21D．34 55

点击查看答案

第2题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVal x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(i)If i＞4 Then i=i*2End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。

点击查看答案

第3题

下面子过程说明合法的是( )。A、Sub f1(ByVal n%())B、 Sub f1(%)As integerC、 Function f1%(f1%)D、 Function f1(ByVal n%)

点击查看答案

第4题

设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。A.32B.33C.34D.35

点击查看答案

第5题

设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print"#"；I&“=”&Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是A．#2=2 #3=3B．#2=2 #3=5C．#；2=2 #；3=3D．#；2=2 #3；=5

点击查看答案

第6题

已知数列的递推公式如下：f(n)＝1 当n＝0，1时f(n)＝f(n-1)+f(n-2) 当n＞1时则按照递推公式可以得到数列：1，1，2，3，5，8，13，21，34，55，……。现要求从键盘输入n值，输出对应项的值。例如当输入n为8时，应该输出34。程序如下，请补充完整。Private Sub runll_Click()f0=1f1=1num=Val(InputBox("请输入一个大于2的整数："))For n=2 To 【 】f2＝【 】f0=f1f1=f2Next nMsgBox f2End Sub

点击查看答案

第7题

现有如下程序： Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x＞=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是( )。A．38B．49C．61D．70

点击查看答案