% Val(Text1.Text) Print x End sub Function fib(n%) Case 2 fib= 1 ase Else fib= End Select End Function (6)已知函数um(k,n)=1k+2k+…+nk 。下面是实现计算该函数的程序,请填空。 Private Sub Commandl Click Dim k As Integer, i As Integer, s As Long I To n Sum Print Sum End Sub Function As Integer, b As Integer )As Lor Dimi as integer. t as Fori=1 To End Function 3编程题 (1)编写输入一个0~6数字,显示汉英对照输出星期的函数过程。 (2)编写判断奇偶数的 Function过程。输入一个数,判断其奇偶性 (3)编写求两数中的较大数的函数过程,求多个数的较大数 (4)编写计算契比雪夫多项式的 Function过程,其定义如下 n=0 nX n= I(n-1,x)+t(n-2 n≥2 习题5 1.选择题 (1)菜单编辑器中,哪一个选项输入希望在菜单栏上显示的文本() A.标题 B.名称 C.索引 D.访问键 (2)下面哪个属性可以控制菜单项可见或不可见() A. Hide B. Checked C. Visible D. Enabled (3)下面说法不正确的() A.下拉菜单和弹出式菜单都是由菜单编辑器创建的 B.每一个创建的主菜单最多可以有5级子菜单 下拉菜单中的菜单项不可以作为弹出式菜单显a% = Val(Text1.Text) x = fib(a) Print x End Sub Function fib(n%) Select Case n% Case 1 fib = 1 Case 2 fib = 1 Case Else fib = End Select End Function （6） 已知函数 k k k sum(k,n) =1 + 2 +....+ n 。下面是实现计算该函数的程序，请填空。 Private Sub Command1_Click() Dim k As Integer, i As Integer, s As Long n = 5 k = 1 For i = 1 To n s = s + pow( ) Next i Sum = s Print Sum End Sub Function pow(a As Integer, b As Integer) As Long Dim i As Integer, t As Long t = 1 For i = 1 To a Next i pow = t End Function 3 编程题 （1） 编写输入一个 0～6 数字，显示汉英对照输出星期的函数过程。 （2） 编写判断奇偶数的 Function 过程。输入一个数，判断其奇偶性。 （3） 编写求两数中的较大数的函数过程，求多个数的较大数。 （4） 编写计算契比雪夫多项式的 Function 过程，其定义如下：      − + −  = = = 2xT(n 1, x) t(n 2, x) n 2 x n 1 1 n 0 T(n, x) 习 题 5 1． 选择题 （1）菜单编辑器中，哪一个选项输入希望在菜单栏上显示的文本（ ） A. 标题 B. 名称 C. 索引 D. 访问键 （2）下面哪个属性可以控制菜单项可见或不可见（ ） A. Hide B. Checked C. Visible D. Enabled （3）下面说法不正确的（ ） A. 下拉菜单和弹出式菜单都是由菜单编辑器创建的 B. 每一个创建的主菜单最多可以有 5 级子菜单 C. 下拉菜单中的菜单项不可以作为弹出式菜单显示