浙师大2008年夏二级VB期末考试试卷及答案.docVIP

. .. 浙江师范大学《Visual Basic程序设计基础》考试卷 （2007----2008学年第 2 学期） 考试形式　笔试（闭卷） 　 　　 使用学生 全校07级理科（非行知）专业　 考试时间　120　分钟　　　　　　　　出卷时间 2008 年　5　月　31　日 说明： 考生应将全部答案都写在答题纸上，否则作无效处理。 试题1至试题6为程序选择填空题，为每个空挑选出一个正确答案写在答题纸上。试题7至试题9为程序设计题，程序中用到的所有变量都要用DIM语句声明。 试题1（每空2分，共10分） 【程序说明】下列程序段先通过inputbox函数输入两个正整数m和n。然后，求出m和n的最大公约数，并显示在窗体中。 private sub form_click() dim m as integer, n as integer,nstart as integer, i as integer m = val(inputbox(请输入m的值)) n = val(inputbox(请输入n的值)) --1-- if --2-- then nstart = n end if for i = --3-- if m mod i = 0 and n mod i = 0 then --4-- end if next i print --5-- 的最大公约数是; i end sub (1) [A] nstart =0 [B] nstart = m [C] nstart =nstar-1 [D] nstart =1 (2) [A] nm [B] nnstar [C] n nStart [D] mnstar (3) [A] 1 to nstart [B] nstart to n step -1 [C] nstart to m step -1 [D] nstart To 1 step -1 (4) [A] exit for [B] m=m-1 [C] n=n-1 [D] exit sub (5) 此题选出下列表达式中写法错误的一项 [A] Str(m) 和 Str(n) [B] m + 和 + n + [C] m 和 n [D] m ; 和 ; n ; 试题2（每空2分，共10分） 【程序说明】下列程序段将十六进制转换为十进制数，单击窗体，引出inputbox函数。先输入一个十六进制数；单击确定后，在label1显示十进制的结果。 private sub form_click() dim shex as string, ndec as long, n as integer, ai as integer, i as integer shex = inputbox(请输入一个十六进制数) n = --6-- ndec = 0 for i = 0 to --7-- select case –8-- case A, a ai = 10 case B, b ai = 11 case C, c ai = 12 case D, d ai = 13 case E, e ai = 14 case F, f ai = 15 case --9-- ai = val(mid(shex, n - i, 1)) case else label1.caption = 你输入的不是十六进制数 exit sub end select ndec = --10-- next i label1.caption = ndec end sub (6) [A] trim(shex) [B] 0 [C] len(shex) [D] 1 (7) [A] len(shex) [B] n [C] len(trim(shex)