页面打开中,请稍候...
www.Gzu521.com
| GZU521.COM学习网 |
|
（30）下面程序的输出结果是 private sub command1_click() ch$=”abcdef” proc ch print ch end sub private sub proc(ch as string) s=”” for k=len(ch) to 1 step-1 s=s&mid(ch,k,1) next k ch=s end sub a）abcdef b）fedcba c）a d）f （31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： function maxvalue(a() as integer) as integer dim max% max=1jg\ �)|Cdp{h*&e%"O(本 文来 源于 我 的学 习网IT认证全国计算机等级考试 htTP://WWw.GZu521.COm]jg\ �)|Cdp{h*&e%"O for k = 2 to 10 if a(k)>a(max) then max = k end if next k maxvalue = max end function 程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是 a）语句max = 1应改为max = a(1) b）语句for k = 2 to 10应改为for k = 1 to 10 c）if语句中的条件a(k)>a(max)应改为a(k)>max d）语句maxvalue = max 应改为maxvalue = a(max) （32）在窗体上画一个名称为command1的命令按钮，并编写以下程序： private sub command1_click() dim n%,b,t t = 1:b = 1:n = 2 do b = b*n t = t + b n = n +1 loop until n>9 print t end sub 此程序计算并输出一个表达式的值，该表达式是 a）9！ b）10！ c）1！+2！+…+9！ d）1！+2！+…+10！ （33）有一个名称为form1的窗体，上面没有控件，设有以下程序（其中方法pset(x,y)的功能是在坐标x，y处画一个点）： dim cmdmave as boolean private sub form_mousedown(button as integer,shift as integer, x as single,y as single) cmdmave = true end sub private sub form_mousemove(button as integer,shift as integer, x as single, y as single) if cmdmave then form1.pset(x,y) end if end sub private sub form_mouseup(button as integer, shift as integer, x as single,y as single) cmdmave = false end sub 此程序的功能是 a）每按下鼠标键一次，在鼠标所指位置画一个点 b）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 c）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线 d）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线 （34）某人设计了下面的函数fun，功能是返回参数a中数值的位数 function fun(a as integer) as integer dim n% n = 1 while a \ 10 >= 0 n = n + 1 a = a \ 10W),z�S#1b6 r,X[q,[此 资 料 转 贴 于 学 习 网 IT认证全国计算机等级考试HtTp://WwW.GzU521.CoM]W),z�S#1b6 r,X[q, wend fun = n end function 在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是 a）把语句n = 1改为n = 0 b）把循环条件a \ 10 >= 0改为a \ 10 > 0 c）把语句 a = a \ 10改为a = a mod 10 d）把语句fun = n改为 fun = a |
责任编辑：gzu521
您现在的位置:
