网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
补全程序，在答题时，务必在答题框中写好题号和答案，如下： 1： _________ 2： _________ 利用数组输出Fibonacci数列的前10项。该数列的第1项和第2项为1，其余各项均为其前两项之和。 Private Sub Command1_Click（) （1 ） f（1) = 1 f（2) = 1 List1.AddItem f（1) List1.AddItem f（2) For i = 3 To 10 f（i) = （2 ） List1.AddItem f（i) Next End Sub
参考答案和解析
补交任务的同学请在答题中插入附件（附件内容为你作的任务文档）
更多 “补全程序，在答题时，务必在答题框中写好题号和答案，如下： 1： _________ 2： _________ 利用数组输出Fibonacci数列的前10项。该数列的第1项和第2项为1，其余各项均为其前两项之和。 Private Sub Command1_Click（) （1 ） f（1) = 1 f（2) = 1 List1.AddItem f（1) List1.AddItem f（2) For i = 3 To 10 f（i) = （2 ） List1.AddItem f（i) Next End Sub” 相关考题
考题
（ 12 ）已知数列的递推公式如下：f(n)=1 当 n=0,1 时f(n)=f(n-1)+f(n-2) ? 当 n1 时则按照递推公式可以得到数列： 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, …… 。现要求从键盘输入 n值，输出对应项的值。例如当输入 n 为 8 时，应该输出 34 。程序如下，请补充完整。Private Sub runl1_Click( )f0=1f1=1num=Val(InputBox(" 请输入一个大于 2 的整数 : "))For n=2 To____ 【 12 】 _______f2= ___ 【 13 】 ________f0=f1f1=f2Next nMsgBox f2End Sub
考题
在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click（）Dim a（10）As IntegerDim x As IntegerFor i=1 To 10a（i）=8+iNextx=2Print a（f（x）+x）End SubFunction f（x As Integer）x=x+3f=xEnd Function程序运行后，单击命令按钮，输出结果为（ ）。A．12B．15C．17D．18
考题
在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVa1 x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(1)If i＞4 Then i=i*2MsgBox iEnd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为______。
考题
在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)＋x) End Sub Function f(x As Integer) x=x＋3 f=x End Function 程序运行后，单击命令按钮，输出结果为______。A．12B．15C．17D．18
考题
在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_ Load () Liet1.AddItem“357” List1.AddItem“246” List1.AddItem“123” List1.AddItem“456” Text1.Text=“” End Sub Private Sub List1_DblClick() a=List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为______ 。A．1245B．456789C．789456D．0
考题
在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
考题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=iNext ix=1MsgBoxa(f(x)+x)End SubFunction f(y As Integer)y=y+2f=yEnd Function程序运行后，单击命令按钮，消息框的输出结果为______。
考题
在窗体中添加一个名称为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窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
考题
设有如下程序： 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
考题
有如下程序： Function F(a As Integer) b = 0 Static C b = b + 1 c = c + 2 F = a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 2 For i=1 To 3 Print F(a)； Next i End Sub 运行上面的程序，单击两次命令按钮，在窗体上输出结果为A．4 4 4B．4 5 6C．5 7 9D．11 13 15
考题
设有如下程序： 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
考题
已知数列的递推公式如下：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
考题
现有如下程序： 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
考题
在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End FunctionC．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End FunctionD．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
考题
窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果是( )。 Priate Sub Form_Click() For i=0 To List1．ListCount-1 If i Mod 2=0 Then Print List1．List(i)； End If Next i End Sub Private Sub Form_Load() List1．AddItem"中国" List1．AddItem"日本" List1．AddItem"韩国" List1．AddItem"新加坡" List1．AddItem"香港" End SubA．中国韩国B．日本新加坡C．中国韩国香港D．中国日本韩国新加坡香港
考题
窗体上有一个列表框和一个文本框，编写如下两个事件过程： Private Sub Form_Load() List1.AddItem"北京" List1.AddItem"天津" List1.AddItem"上海" Text1.Text=" " End Sub Private Sub List1_Click() Print Text1.Text+List1.Text End Sub 程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果为( )。A．中国北京B．中国天津C．中国上海D．北京中国
考题
阅读程序： Function F(a As Integer) b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print F(A)Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ______。A．4 4 4B．4 5 6C．4 6 8D．4 7 9
考题
下列程序的功能是求算式：1-1／24-1／3-1／4+…前80项之和。 PrivateSub Commandl Click（ ） Dim i asinteger，S assingle．f as integer s=0：f=1 For i=1To 30 s=s+f／i f=__________ Next i Debug．Print”1-1／2+1／3—1／4+…=”：s End Sub 横线处应填写的内容是（ ）。A.1*fB.-l*fC.1*iD.-1*i
考题
有如下程序： Private Sub Form_Click() E=1：F=1 For i=1 To 3 E=E+F:F=F+E Next Print E；F End Sub 该程序的输出结果是A．6 6B．5 8C．13 21D．34 55
考题
有程序如下: Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub运行上面程序，单击命令按钮，输出结果为______ 。A． 2 4 6 8B．5 2 2 2C．10 12 14 16D．出错
考题
在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程： Private Sub Form_Load() List1.AddItem "357" List1.AddItem "246" List1.AddItem "123" List1.AddItem "456" Text1.Text="" End Sub Private Sub List1_Db1Click() m=List1.Text Print m+Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，输出结果为( )。A．1245B．456123C．123456D．0
考题
阅读下列函数说明和C函数，将应填入(n)处的字句写在对应栏内。[函数2.1说明]Fibonacci数列中头两个数均为1，从第三个数开始，每个数等于前两个数之和。下述程序计算Fibonacci数列中前15个数，并以每行5个数的格式输出。[函数2.1]include ＜stdio.h＞main(){ int i,f,f1=1,f2=1;printf("%5d%5d",f1,f2);for(i=3;i＜=15;i++){f=(1);printf("%5d",f);if((2)= =0) printf("\n");f1=12;(3);}}[函数2.2说明]函数fun(char *str1,char *str2)的功能是将字符串str2拼接到str1之后。[函数2.2]fun(char *str1,char *str2){ int i,j;for(i=0;str1[i]!='\0';i++);for(j=0;str2[j]!='\0';j++) (4);(5);}
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是A． 11B．10C．9D．8
考题
窗体上有一个按钮和一个列表框，执行下列程序后，输出的结果为 Private Sub Command1_Click() List1.AddItem "Visual" List1.AddItem "Basic" List1.AddItem "Programming", 1 Print list1.List(2) End SubA．VisualB．BasicC．ProgrammingD．2
考题
阅读程序： Function F(a As Integer) b=0 Static c b=b+1 c=c+1 f=a+ b+ c End Function Private Sub Command1_Click() Dim S As Integer a=2 For i=1 To 3 Print P(A) Next i End Sub运行上面的程序，单击命令拄钮，输出结果为______ 。A．4 4 4B．4 5 6C．4 6 8D．4 7 9
考题
在窗体上建立一个名称为List1的列表框、一个名称为Text1文本框和一个名称为 Command1的命令按钮，如图20-12如示。程序代码如下，如果在程序运行过程中单击命令按钮，则在文本框中显示的内容是( )。 Private Sub Command1_Click() Dim i As Integer Text1．Text=" " For i=0 To List1．ListCount If i Mod 2=1 Then Text1．Text=Text1．Text+List1．List(i) End If Next i End Sub Private Sub Form_Load() List1．AddItem"英语" List1．AddItem"政治" List1．AddItem"物理" List1．AddItem"化学" List1．AddItem"语文" List1．AddItem"生物" End SubA．政治化学生物B．无显示C．英语物理语文D．生物
考题
阅读程序： Function F(a As-Integer) b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Prim F(A)Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ______。A．4 4 4B．4 5 6C．4 6 8D．4 7 9
考题
下列程序运行后的输出结果是______。Private Sub f(k，s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i，s)Sum=Sum+sNextPrint SumEnd Sub
热门标签
最新试卷