(完整版)青岛科技大学信息工程VB期末考试题库及答案,推荐文档

1、试卷方案：201105 visual basic 期末考试方案一、单项选择_共 50 题（选：20 题*1=20 分）第 1 题以下有关对象属性的说法中，错误的是.a. 工具箱中的控件并不是 vb 中所有的控件b. 若将 frame 的 enabled 属性设置为 false，则不能使用放置在 frame 里面的控件c. 对象的 name 属性在运行时不能改变d. 对象的所有属性都可以在属性窗口中设置第 2 题21数学表达式 sin 27o +x + e3 的 vb 算术表达式为.| x + y |a. sin(27)+sqr(x+exp3)/(x+y)b. sin(27*3.14159/18

2、0)+sqr(x+exp(3)/abs(x+y)c. sin(27*3.14159/180)+sqr(x+e3)/abs(x+y)d. sin(27*pi/180)+sqr(x+exp(3)/abs(x+y)第 3 题下列有关对象的叙述中,正确的是a. 对象由属性，事件和方法构成b. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置c. 对象的事件一定就是由 vb 预先设置好的人工干预的动作d. 对象的方法是对象响应某个事件后执行的一段程序代码第 4 题表达式 cint(4.5)+cint(-4.51)+int(4.9)+int(-4.1)+fix(-1.9)+0 mod

3、2 的运算结果是 .a. 1b. -1c. 2d. 3第 5 题下列关于菜单的说法中,错误的是.a. 每一个菜单项就是一个对象，并且可设置自己的属性和事件b. 菜单项不可以响应 dblclick 事件c. vb6.0 允许创建超过四级的子菜单d. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的 enabled 属性为 false第 6 题以下关于数组的说法中,错误的是.a. 使用了 preserve 子句的 redim 语句，只允许改变数组最后一维的上界b. 对于动态数组, redim 语句可以改变其维界但不可以改变其数据类型c. erase 语句的功能只是对固定大小的数组

4、进行初始化d. lbound 函数返回值是指定数组某一维的下界第 7 题设 a=3,b=2,c=1,运行 print abc 的结果是.a. trueb. falsec. 1d. 出错第 8 题以下说法不正确的是.a. 使用不带关键字 preserve 的 redim 语句可以重新定义数组的维数b. 使用不带关键字 preserve 的 redim 语句可以改变数组各维的上、下界c. 使用不带关键字 preserve 的 redim 语句可以改变数组的数据类型d. 使用不带关键字 preserve 的 redim 语句可以对数组中的所有元素进行初始化第 9 题在列表框 list1 中有若干列表

5、项,可以删除选定列表项的语句是.a. list1.text=b. list1.list(list1.listindex)=c. list1.cleard. list1.removeitem list1.listindex第 10 题 | sin x - cos x 2 |数学表达式 e2px-5 ln x + sin 3 (2x)对应的 vb 表达式是.a. (e(2*x-5)*log(x)+(sin(2x)3)/sqr(sin(x)-cos(x2)b. (exp(2*3.14159*x-5)*log(x)+(sin(2*x)3)/sqr(sin(x)-cos(x2)c. (exp(2*x-5

6、)*ln(x)+(sin(2*x)3)/sqr(sin(x)-cos(x2)d. e(2*3.14159*x-5)*ln(x)+(sin(2*x)3)/sqr(sin(x)-cos(x2)第 11 题以下有关数组参数的说明中，正确的是 a. 在过程中也可用 dim 语句对形参数组进行说明b. 动态数组作为实参时，可用 redim 语句在过程中改变对应形参数组的维界c. 调用过程时，数组名不能作为实参d. 数组可以按地址传递也可以按植传递第 12 题下列有关过程的说法中,错误的是.a. 在 sub 或 function 过程内部不能再定义其它 sub 或 function 过程b. 对于使用 b

7、yref 说明的形参,在过程调用时形参和实参只能按传址方式结合c. 递归过程既可以是递归 function 过程,也可以是递归 sub 过程d. 可以像调用 sub 过程一样使用 call 语句调用 function 过程第 13 题要将焦点设置在某个控件上,以下四个选项中正确的是.a. 只能使用鼠标直接点击控件b. 只能使用 tab 键将焦点移到该控件c. 只能在程序中调用该控件的 setfocus 方法d. a、b、c 三选项中涉及的方法均可使用第 14 题以下 case 语句中,能正确描述 y 的绝对值大于 6 的是.a. case abs(y)6b. case -6 to 6c. ca

8、se not(-6 to 6)d. case is6第 15 题以下关于变量作用域的叙述中,正确的是.a. 窗体中凡用 private 声明的变量只能在某个指定的过程中使用b. 模块级变量只能用 dim 语句声明c. 凡是在窗体模块或标准模块的通用声明段用 public 语句声明的变量都是全局变量d. 当不同作用域的同名变量发生冲突时，优先访问局限性小的变量第 16 题以下关于数值常量的说法中,错误的是 a. 八进制数的表示方法是在数字前面加&ob. 十六进制数的表示方法是在数字前面加&hc. 在浮点运算中使用 d 来分隔尾数和指数时，系统将把该数值作为单精度型数处理d. 32768 是合法的

9、数值常量第 17 题e x + sin 3 30o x + y数学表达式对应的 vb 表达式是.a. abs(ex+sin(30)3)sqr(x+y)b. abs(exp(x)+sin(30)3)(sqr(x+y)c. abs(ex+sin(30*3.14159180)3)(sqr(x+y)d. abs(exp(x)+sin(30*3.14159180)3)sqr(x+y)第 18 题下面的 4 个表达式中,有关个能够对 single 类型变量 x(正数)的第 3 位小数正确地进行四舍五入计算.format(x,#.00)int(100*(x+0.005)/100cint(100*(x+0.0

10、05)/100fix(100*(x+0.005)/100a. 1 个b. 2 个c. 3 个d. 4 个第 19 题执行以下语句时,会出现错误提示的是.a. print2b3 +12.5b. print12.5+ 12c.print12.5 & 12.5d.print2e3+12第 20 题以下 case 语句含有错误的是.a. case 0 to 10b. case is10c. case is10 and is10第 21 题下列语句中,正确的是 a. textl.setfocusb. forml.clearc. labell.setfocusd. listl.cls第 22 题下列选项中

11、,所包含的所有表达式能够将两位整数 x 的个位数与十位数对调(如将 78 转换为 87)的是 .val(right(x,1)&left(x,1)val(right(str(x),1)&left(str(x),1)val(right(cstr(x),1)&left(cstr(x),1) val(mid(x,2,1)+mid(x,1,1)a. b. c. d. 第 23 题以下关于子过程或函数的定义中,正确的是 a. sub f1(n as string*1 )b. sub f1(n as integer)as integerc. function f1(f1 as integer)as inte

12、gerd. function f1(byval n as integer)第 24 题下列有关控件数组的说法中,错误的是.a. 控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组b. 控件数组中的所有控件不得具有各自不同的属性设置值c. 控件数组中的所有控件共享同一个事件过程d. 控件数组中每个元素的下标由控件的 index 属性指定第 25 题以下对数组参数的说明中,错误的是.a. 在过程中可以用 dim 语句对形参数组进行声明b. 形参数组只能按地址传递c. 实参为动态数组时，可用 redim 语句改变对应形参数组的维界d. 只需把要传递的数组名作为实参，即可调

13、用过程第 26 题要向文件 datal.txt 添加数据,正确的文件打开命令是.a. opendatal.txtfor output as #1b. opendatal.txtfor input as #1c. opendatal.txtfor append as #5d. opendatal.txt for write as #5第 27 题下面有关数组处理的叙述中，正确的是.a. 在过程中使用 redim 语句可以改变动态数组数据的类型b. 在过程中，可以使用 dim 、private 和 static 语句来定义数组c. 用 redim 语句重新定义动态数组时，可以改变数组的大小，但不能

14、改变数组的维数d. 不可以用 public 语句在窗体模块的通用处说明一个全局数组第 28 题下面的表达式中,运算结果为 true 的是.a. abcrd =abcrdb. int(134.69) 21d. mid(visual,1,4)=right(lausiv,4)第 29 题设计界面时,要使一个文本框具有水平和垂直滚动条,应先将其属性置为 true,再将 scrollbar 属性设置为 3.a. multilineb. autosizec. alignmentd. righttoleft第 30 题下面有关数组的说法中,正确的是 a. 数组的维下界不可以是负数b. 模块通用声明处有 op

15、tion base 1，则模块中数组定义语句 dim a(0 to 5)会与之冲突c. 模块通用声明处有 option base 1，模块中有 dim a(0 to 5),则 a 数组第一维维下界为 0d. 模块通用声明处有 option base 1，模块中有 dima(0 to 5),则 a 数组第一维维下界为 1第 31 题下面有关数组的叙述中,不正确的是. 在过程中用 redim 语句定义的动态数组,其下标的上下界可以是变量 数组作为形式参数时,传递的是每个数组元素的值 在窗体模块的通用声明处可以用 public 说明一个全局数组 数组定义语句中可以用负数或小数来指定某一维的维下界或维

16、上界的值a. b. c. d. 第 32 题下列关于对象 setfocus 与 gotfocus 的描述中,正确的是 a. setfocus 是事件,gotfocus 是方法b. setfocus 和 gotfocus 都是事件c. setfocus 和 gotfocus 都是方法d. setfocus 是方法,gotfocus 是事件第 33 题创建一个名为文件的菜单项,欲使其可用 alt+f 方式访问,则在菜单编辑器的标题文本框中应输入.a. 文件($f)b. 文件(&f)c. 文件(#f)d. 文件(%f)第 34 题在下列属性中,属于 commandbutton 控件、listbox

17、控件共有的是.a. caption、textb. visible、fontc. caption、visibled. list、visible第 35 题下列能够正确表示条件xyz的 vb 逻辑表达式是 a. xyzb. x=y and yzc. xy or yzd. x=yz第 36 题以下关于 function 过程的说法中,错误的是.a. function 过程名可以有一个或多个返回值b. 在 function 过程内部不得再定义 function 过程c. function 过程中可以包含多个 exit function 语句d. 可以像调用 sub 过程一样调用 function 过程

18、第 37 题下面的关系表达式中,运算结果为 true 的是.a. cint(1.5)=int(1.5)b. fix(1.5)=int(1.5)c. fix(-1.5)=cint(-1.5)d. fix(-1.5)=int(-1.5)第 38 题已知 xb,则下列表达式中,结果为 true 的是 a. sgn(x-y)+sgn(a-b)=-1b. sgn(x-y)+sgn(a-b)=-2c. sgn(y-x)+sgn(a-b)=2d. sgn(y-x)+sgn(a-b)=0第 39 题执行语句时,会出现出错提示信息.a. print 5+7=14b. print 16384*2c. print

19、32768*2d. print 14+32第 40 题sin 30o +log x + y数学表达式对应的 visual basic 表达式是.2p+ e x+ ya. sin(30*3.14159/180)+sqr(log(x)+y)/2*3.14159+exp(x+y)b. (sin(30*/180)+sqr(ln(x)+y)/(2*+exp(x+y)c. sin(30*180/3.14159)+sqr(log(x)+y)/(2*3.14159+e(x+y)d. (sin(30*3.14159/180)+sqr(log(x)+y)/(2*3.14159+exp(x+y)第 41 题在一个多

20、窗体程序中,可以仅将窗体 form2 从内存中卸载的语句是.a. form2.unloadb. unload form2c. form2.endd. form2.hide第 42 题print 方法可在上输出数据.窗体文本框图片框标签列表框立即窗口a. b. c. d. 第 43 题若要使逻辑表达式 xy xor y 0if x mod 4=0 then y=y+xelsey=y-xend if x=x-3 print x,yloop end sub 第 3 题执行下面的程序，单击 command1,窗体上显示的第一行是【1】 ，第二行是【2】 ,第四行是【3】。option explicit

21、private sub command1_click()dim a as integer, b as integer a=1 : b=1call sub1(a, b) print a, bend subprivate sub sub1(a as integer, b as integer) a=a+b : b=b+aprint a, b if a10 thena=a+b b=b+aelsecall sub1(a, b) end ifend sub第 4 题运行下面的程序，单击 command1,在窗体上显示的变量 a 的值为【1】，变量 b 的值为【2】,变量 c 的值为【3】。option

22、explicitprivate sub command1_click()dim a as integer, b as integer, c as integer a=5: b=10: c=15print fun(a,b,c)+fun(a,b,c) print a,b,cend subprivate function fun(x as integer, y as integer, z as integer) as integer z=xx=x+y y=y+z fun=x+yend function第 5 题执行下面的程序，连续三次单击命令按钮 command1 之后，a 数组共有【1】个元素；数

23、组元素 a(2)的值【2】，a(4)的值是 【3】 。option explicit option base 1private sub command1_click()static a( ) as integer,n as integer dim i as integer,k as integerk=n n=n + 2redim preserve a(n) for i=k+1 to na(i)=i*n+1 next ifor i=1 to n print a(i);next i printend sub第 6 题运行下面程序，单击 command1，在窗体上显示的变量 a 的值为【1】,变量

24、b 的值为【2】 。option explicit dim a as integerprivate sub command1_click()dim b as integer b = 3a = 4b = fun(fun(a, b + 2), a) + b print a, bend subprivate function fun(n as integer, k as integer) n = n + ak = n - kfun = n + k + a end function第 7 题执行下面的程序，单击 commandl，则窗体上第一行显示的是 【1】 ，第二行显示的是【2】。option e

25、xplicit dim x as integerprivate sub command1_click() dim y as integer x=10:y=2call process(y) print x,ycall process(y) print x,yend subprivate sub process(n as integer) dim y as integerif n0 then x=x-ny=x elsex=x+n y=x+2end if n=-nend sub第 8 题执行下面程序，单击 command1，窗体上显示的第一行是 【1】，第二行是【2】，第四行是【3】 ，最后一行是【

26、4】. option explicitprivate sub command1_click()dim n as integer n = 5call test(n) print nend subprivate sub test(byval n as integer) dim i as integer, s as integerif n 0 thenfor i = 1 to ns = s & cstr(i) next iprint scall test(n - 2) elseprint over end ifend sub第 9 题运行下列程序，单击 command1，在窗体上显示的第一行内容是

27、【1】 ,第二行的内容是 【2】 ,第三行的内容是 【3】 。（a的 ascii 码是 65，z是 90）option explicitprivate sub command1_click()dim i as integer, st as string, n as integer, p as string * 1 p = bfor i = 3 to 1 step -1 n = asc(p) - iif n 65 then n = n + 26 st = chr(n)st = st & f(i) print stnext i end subprivate function f(n as inte

28、ger) dim i as integerstatic s as integer for i = 1 to ns = s + i next if = send function第 10 题执行下面的程序，单击 command1，输出的变量 i 的值是 【1】 ，变量 j 的值是 【2】 ，变量 k 的值是 【3】 。option explicitprivate sub command1_click() dim i as integer,j as integer dim k as integeri=10j=4 k=funk(i,j) print i,j,k end subpriate funct

29、ion funk(byval a as integer,b as integer) as integer a=a+bb=b-2if b=0 or b=1 then funk=1elsefunk=a+funk(a,b) end ifend function第 11 题运行下面程序，如果连续三次单击命令按钮之后，数组共有【1】个元素；数组元素 a(2)的值是 【2】 ,a(5)的值是 【3】.option explicit option base 1private sub command1_click()static a() as integer, n as integer dim i as in

30、teger, k as integerk = nn = n + 2redim preserve a(n) for i = k + 1 to n a(i) = i * n + 1 next ifor i = 1 to n print a(i);next i printend sub第 12 题执行下面的程序，单击 command1,在窗体界面上显示的第一行是 【1】 ，第二行是 【2】 ，第三行是 【3】 ，第四行是 【4】 。option explicitprivate sub command1_click()dim a as integer,b as integer,i as integer

31、 i=1218a=i100b=i mod 100if b0 then print a print bprint lcd(a),(b);a;bprint lcd(a,b);a;b end ifend subprivate function lcd(x as integer,y as integer) as integer dim d as integerif x9 k=k+1if i+13 and j+1=3 then i=1:j=j+1elseif i+13 then i=i+1:j=1elself i+13 and j+13 then i=i-1elseif i+1=3 and j+1=3

32、and a(i+1,j+1)0 then i=i-1elsei=i+1:j=j+1loopend if a(i,j)=kfor i=1 to 3 for j=1 to 3picture1.print a(i,j); next jpicture1.print next iend sub第 14 题执行下列程序，单击 command1，在窗体上显示的第一行内容是【1】，第二行的内容是【2】， 第三行的内容是【3】。option explicitprivate sub command1_clickdim n as integer ,i as integer n=2for i=7 to 1 step

33、-1 call sub2(i,n) print i,nnext i end subprivate sub sub2(x as integer,y as integer) static n as integerdim i as integerfor i =2 to 1 step -1 n =n+xx =x-1 next i y=y+nend sub第 15 题执行下列的程序，单击 command1，在窗体上显示的变量 b 的值为【1】，变量 c 的值为【2】， 变量 z 的值为【3】。private sub command1_click()dim b as integer,c as intege

34、r,z as integer b=2c=1z=fun(b,fun(b+1,c)+b-c+1 print b,c,zend subprivate function fun(x as integer,byval y as integer) as integer x=x-yy=x+y+2 fun=y-xend function第 16 题执行下面程序，单击 command1,窗体上显示的第一行是【1】,第二行是【2】,第四行是 【3】. option explicitprivate sub command1_click()dim a as integer, b as integer, i as in

35、teger a=2:b=5for i=a to a*b step a call sub1(i,a,b) print a,bnext i print a,b,iend subprivate sub sub1(i as integer, a as integer, b as integer) i=i+1a=a+1 b=b+1end sub第 17 题执行下面程序，单击 command1，窗体上显示的第一行是【1】，第二行是【2】，第三行是【3】。option explicit option base 1private sub command1_click()dim sa (3,3) as stri

36、ng*1,i as integer,j as integer,k as integer k=1for i=1 to 3 for j=1 to 3sa(i,j)=chr(asc(a)+(k+i+j) mod 26) print sa(i,j); ;k=k+3 next j printnext i end sub 第 18 题执行下面程序，单击 command1,则数组元素 a(1,2)的数值是【1】,a(3,3)的数值是【2】,图片框中最后一行显示的是【3】.option explicitprivate sub command1_click()dim a(4,4) as integer, i a

37、s integer, j as integer dim k as integer, num as integernum=0for k=1 to 4for i=1 to k-1 num=num+1 a(i,k)=numnext ifor j=k to 1 step -1 num=num+1a(k,j)=numnext j next kfor i=1 to 4for j=1 to 4picture1.print right( & a(i,j),3); next jpicture1.print next iend sub第 19 题执行下面程序，单击 command1，则图片框中显示的第一行是【1】

38、，显示的第二行是【2】，最后一行显示的是【3】.private sub command1_click() dim a(3, 3) as integerdim i as integer, j as integer for i = 1 to 3for j = 3 to 1 step -1 if i = j thena(i, j) = i - j elsea(i, j) = j - i end ifnext j next ifor i = 1 to 3for j = 3 to 1 step -1 picture1.print a(i, j);next j picture1.printnext i e

39、nd sub 第 20 题执行下面程序，单击 command1，则窗体上显示的第一行是 【1】 ，第二行是 【2】 ，第三行是 【3】。option explicitprivate sub command1_click() dim a as string,i as integer dim x as string,z as string a=iamstudent i=instr(5,a,d)dox=mid(a,i,3) z=right(x,1) z=ucase(x & z) i=i-2print zloop until i=1 end sub三、程序填空_共 16 题（选：10 空*2=20 分

40、）完形填空：把题目中空的程序代码行补齐第 1 题本程序的功能是把由个.分隔的十进制数表示的 ip 地址转换为由 32 位二进制数组成的 ip 地址。 例如十进制表示的 ip 地址为 202.119.191.1,其中每个十进制数对应一个 8 位 的二进制数，合起来构成一个 32 位二进制的 ip 地址 11001010011101111011111100000001。过程tiqu 用于提取十进制 ip 地址中每个用.分隔的十进制数；过程 convert 用于将十进制数转换为相应的 8 位二进制数。程序界面参见下图。option explicitprivate sub command1_click

41、()dim str1 as string, str2 as string dim a(4) as integer, i as integer str1 = text1.textcall tiqu(str1, a) for i = 1 to 4if a(i) 255 then msgbox(ip 地址错误！)exit subelse *space*【?】end if next itext2.text = str2 end subprivate sub tiqu(st as string, a() as integer)dim n as integer, k as integer, s as st

42、ring, d as string * 1, i as integer n = len(st): k = 0: s = for i = 1 to n *space*【?】if d = . then k = k + 1 a(k) = val(s)*space*【?】elses = s & d end ifnext i a(4) = send subprivate function convert(byval n as integer) as string dim b as integer, i as integer, s as stringdo while n 0b = n mod 2 n =

43、n 2*space*【?】loopfor i = 1 to 8 - len(s) s = 0 & snext i *space*【?】end function第 2 题下面程序的功能是：统计存放在数组 a 中的 n 个数有多少个是不同的。具体做法是：变量 left 指向要被处理的数（从第 2 个元素开始），right 指向数组最后一个元素。若 a(left)与排在它前面的某个数组元素值相同， 就用数组元素 a(right)的值来替换 a(left)的值，同时将变量 right 的值减 1；否则将变量 left 的值加 1，处理数组下一个元素，重复以上过程，直到 leftright 为止。rig

44、ht 的值即为不同的数的个数。程序界面参见下图所示。option explicit option base 1private sub command1_click()dim a() as integer, n as integer, i as integer dim op as integern = inputbox(请输入数据个数, , 10)redim a(n) randomizefor i = 1 to na(i) = int(rnd * 10) + 1text1 = text1 & a(i) & next icall statistic(a, op)text2 = 有 & op & 个

45、不同的数: for i = 1 to optext2 = text2 & a(i) & next iend subprivate sub statistic(a() as integer, right as integer)dim left as integer, k as integer, i as integer *space*right=【?】left = 2do while left = right *space*k= 【?】for i = k to 1 step -1if a(left) = a(i) then exit for next i*space* if 【?】 thenle

46、ft = left + 1elsea(left) = a(right) *space*【?】end if loopend sub第 3 题下面程序的功能是随机生成小于 100 的诸素数组成的数据。程序界面如下图所示。option explicitprivate sub command1_click()dim p() as integer,i as integer,n as integer dim st as string,k as integerrandomizek =inputbox(元素个数；,20)redim p(k) don =int(rnd*90)+10 *space*if 【?】

47、then i =i+1 p(i) =nend if *space*loop until【?】for i =1 to ubound(p) st =st & str(p(i)if i mod 10 =0 then st =st & vbcrlf next itext1 =st end subprivate function prime(n as integer) as boolean dim i as integerprime =truefor i =2 to sqr(n)if n mod i =0 then *space*【?】exit for end ifnext iend function第

48、 4 题用以下公式求 f(x) 的值。当通项的绝对值小于 10-7 时停止计算，x 的值由键盘输入。程序界面和公式参考图片所示： option explicitprivate sub command1_click() dim x as single, fx as singledim a as single, a1 as single, a2 as singledim t as single a1 = 1: a2 = 2x = text1 *space*if 【?】thenmsgbox (x 必须在-11 之间)exit sub end iffx = a1 * x - a2 * x * x t

49、= (-1) * x * xdoa = 1 / (a1 + a2) t = (-1) * t * x*space* fx = 【?】a1 = a2 *space*【?】loop until abs(a * t) 0.0000001 text2 = fxend sub第 5 题19下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据， 单击插入按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。程序界面参见下图。option explicitdim a( ) as integerprivate sub form_activate()生成有序数组dim i as i

50、nteger redim a(10)for i=1 to 10 a(i)=(i-1)*10+1text1=text1 & str(a(i)next i text2.setfocusend subprivate sub command1_click() dim n as integer,i as integer n=text2for i=1 to ubound(a) *space*if 【?】then exit for确定插入的位置next i *space*【?】for i=1 to ubound(a) text3=text3 & str(a(i)next i end subprivate s

51、ub inst(p() as integer,n as integer,k as integer) 数组元素移位并实现插入dim i as integer *space*【?】for i=ubound(p)-1 to k step -1 *space*【?】next i p(k)=nend sub第 6 题下面程序的功能是：将输入的 2 位 16 进制数的每一位转换为一个 4 位的二进制数，再组合成为一个 8 位的二进制数。程序界面参见下图。option explicitprivate sub command1_click()dim h as string, h1 as string * 1,

52、h2 as string * 1 h=text1h1=left(h,1): h2=right(h,1) text2=h2b(h1) & h2b(h2)end subprivate function h2b(p as string) as string dim st as string, i as integer st=0123456789abcdeffor i=1 to len(st) *space*if 【?】 then exit for next ii=i-1 do*space*h2b=【?】22i=i2loop until i=0 *space*h2b=【?】end function第 7 题用以下公式(公式如下图所示)求 sin(x)的值.当级数通项的绝对值小与 eps=10-7 时停止x 3 + x 5