高中信息技术：10函数与递归.docx

PAGE 2 （一）自定义过程 n = Val(Text1.Text) Call prsj(n) （二）数论问题与自定义函数 2.逆序数。在一个排列中，如果一对数的前后位置与大小顺序相反，即前面的数大于后面的数，那么它们就称为一个逆序。一个排列中逆序的总数就称为这个排列的逆序数。逆序数为偶数的排列称为偶排列;逆序数为奇数的排列称为奇排列。如序列2431，逆序依次为(2,1),(4,3),(4,1),(3,1)，因此该序列的逆序数为4，为偶排列。编写VB程序，功能如下：程序运行时，在文本框Text1中输入序列，单击“计算”按钮Command1，在文本框Text2中输出逆序数，并在Label3中输出判断结果（偶排列或奇排列）。程序运行界面如图所示。 (1)如果序列为“5872469”，则逆序数为 。 (2)实现上述功能的VB程序如下，完善填空。 Function NiXuShu(s As String) As Integer ‘逆序数计算 Dim i As Integer, j As Integer, c As Integer, n(1 To 100) As String （类别名称请填 （类别名称请填英文） Private Sub Command1_click() Dim n As Integer, d As String, b As String For i = 1 To 999 n = i d = CStr(n) ‘CStr函数的功能是数值转换为字符串 标签Label1输出运行结果。程序运行界面如图所示 （三）进制问题与自定义函数 Private Sub Command1_Click() Dim s As String, k As Integer k = Val(Text2.Text) (2)请在划线处填入合适的代码。 Private Sub Command1_Click() Dim c As String, s As String Private Sub Command1_Click() Dim s As String, c As String, i As Integer, result As Integer Dim s1 As String ‘变量s1存放不同进制的加数 7.RGB色彩模式是工业界的一种颜色标准，是通过对红(R)、绿(G)、蓝(B)三个颜色通道的变化以及它们相互之间的叠加来得到各式各样的颜色。RGB颜色分量的值通常采用十进制数表示，而Flash软件中颜色值采用十六进制数表示。如RGB(100,255,10)等价于十六进制颜色码#64FF0A，每个RGB颜色分量对应两位十六进制数。 小杜编写一个RGB颜色值转十六进制颜色码的转换程序，程序功能如下：程序运行时在文本框Text1输入RGB颜色值，输入格式为“RGB(x,y,z)”，x、y、z的范围都是[0,255]。单击“转换”按钮Command1，在标签Label1上输出对应的十六进制颜色码。程序运行界面如下图所示。实现上述功能的VB程序如下，请回答下列问题： 程序运行时，在文本框Text1输入RGB(25,0,101)，则标签Label1上显示 请在划线处填入合适的代码。 （四）字符处理与自定义函数 4）若是非运算符，继续往左查找。 ①则表达式c*a+(a+b)，最后一次计算的运算符号位置是 。 ②实现上述功能的VB程序如下，根据算法将下列程序补充完整 （五）递归应用 If n = 1 Then f = 1 Else f = f(n-1)*n End Function 若运行该段程序后，标签Text1中显示的值是（ ） “0 “0” If n = m Then prime = “是素数。” ElseIf n 2 Or n Mod m = 0 Then prime = “不是素数。” Else prime = prime(n , m+1) End If End Function