2016年10月浙江技术选考加考试试题16题17题复习专题.docVIP

2016年10月浙江技术选考加试题复习 共24个大题 加试题复习一套 16. 一个正整数，如果从左向右读（称之为正序数）和从右向左读（称之为倒序数）是一样的，这样的数就叫回文数，例如121是回文数，123不是回文数。下列VB程序的功能是：程序运行时，在文本框Textln中输入正整数s1。单击命令按钮Commandl后，如果输入的s1是回文数，则在Label2中显示“该数是回文数！”，否则显示“该数不是回文数！”,程序运行界面如下图所示。 请在划线上填入合适的代码。 Function Test(s As String) As Boolean Dim length As Integer, i As Integer, j As Integer Dim ch1 As String, ch2 As String length = Len(s) j = length Test = True For i = 1 To length \ 2 ch1 = Mid(s, i, 1) ch2 = （1） If ch1 ch2 Then Test = False Exit For End If Next i End Function Private Sub Command1_Click() Dim s1 As String s1 = （2） If Test(s1) Then Label2.Caption = 该数是回文数！ Else Label2.Caption = 该数不是回文数！ End If End Sub 17.利用数学分析中著名的Maclaurin级数展开式公式可以计算正弦函数的值，正弦函数sin(x)的Maclaurin级数展开是：（x是弧度），n的值取的越大计算出来的sin(x)值也就越精确。下列程序的功能是：程序运行时，在文本框Text1中输入x，在文本框Text2中输入n，单击按钮Command1计算sin(x)的值。程序的运行界面如图所示。 （1）程序加框处代码有错，请改正 Private Function fac(n As Integer) As Double ‘递归计算阶乘 If n = 1 Then fac = 1 Else fac = n * fac(n) End If End Function Private Sub Command1_Click() Dim x As Double, sum As Double, p As Double Dim i As Integer, n As Integer, t As Integer x = Val(Text1.Text) n = Val(Text2.Text) sum = 0 p = 0 sum = sum + p t = 1 For i = 2 To n t = t * (-1) p = x * x * x sum = sum + t * p / fac(2 * i - 1) Next i Text3.Text = Str(sum) End Sub 2016年10月浙江技术选考加试题复习二套 16. 欧几里得(Euclid)是古希腊著名数学家，被称为“几何之父”。 欧几里德算法就是以他名字命名的算法，欧几里德算法又称辗转相除法，用于计算两个整数a，b的最大公约数，如图所示的流程图就是欧几里德算法流程图。下列VB程序的功能是：程序运行时，在文本框Text1和Text2中输入正整数a和b。单击命令按钮Commandl后，在文本框Text3和Text4中输出a和b的最大公约数和最小公倍数，已知最小公倍数是两数的积除以最大公约数。 Private Sub Command1_Click() Dim a As Integer, b As Integer, r As Integer Dim g As Integer 开始输入a和b 开始 输入a和b b≠0 r ← a 被b取余 a ← b b ← r 输出a 结束 Y N a1 = Val(Text1.Text) b1 = Val(Text2.Text) a = a1 b = b1 Do While b 0 (1) a = b b = r Loop Text3.Text = Str(a) (2) Text4.Text = Str(g) End Sub 17. 每年学校运动会，都要通过初赛筛选出前几名的运动员参加最后的决赛，小明想自己编写一个运动会100米比赛成绩排名的程序，下面是他编写下列VB程序，该程序运行时，单击命令按钮Co