VB期末题有哪些信誉好的足球投注网站.docVIP

--第一套题 ----------------------------------------------- 【程序设计】 ------------------------------------------------- 题目：(事件)单击窗体。 (响应)编写过程，任意输出n项Fibonacci数列，一行输出4项。 已知前两项的值分别为1,1。 从第三项开始后一项是前两项这和。 例如，n值为20，输出结果如图所示。 ------------------------------------------------- Private Sub fac(a() As Double, n As Integer) Dim i As Integer **********Begin************** ***********End*************** End Sub Private Sub Form_Click() Dim a() As Double, n As Integer, i As Integer n = Val(InputBox(输入需要显示的Fibonacci数列的项数：)) ReDim a(n) a(1) = 1 a(2) = 1 Cls Call fac(a, n) n = 32: ReDim a(n): a(1) = 1: a(2) = 1 Call fac(a, n) For i = 1 To n OutResult a(i) Next i End Sub ------------------------------------------------- 【程序设计】 ------------------------------------------------- 题目：(事件)单击窗体。 (响应)求100~200之间能够同时被3和5整除的数。 ------------------------------------------------- Private Function fac(n As Integer) As Integer ******* Begin ************ ******* End ************ End Function Private Sub Form_Click() Dim i As Integer, t As Integer Dim n As Integer n = 0 For i = 100 To 200 If fac(i) Then Print i; Next i For i = 351 To 401 If fac(i) Then OutResult (i) Next i End Sub Private Sub OutResult(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path \15.out For Append As #OUT Print #OUT, i Close #OUT End Sub 题目：(事件)单击窗体。 (响应)给定程序的功能是：读入一批整数（以0为结束标志），求其中正数之和。（输入数据用InputBox函数） 如输入：45，-67，-65，-34，24，12，0时，和值为81。 ------------------------------------------------- Private Sub Form_Click() Dim n%, s% s = 0 n = Val(InputBox(请输入第1个数：)) **********Fill********** Do While _________ **********Fill********** If __________ Then s = s + n End If n = Val(InputBox(请输入下一个数：)) **********Fill********** ___________ Print 和值为：; s End Sub ------------------------------------------------ 【程序填空】