计算机二级模拟试题(visual basic 语言)七.doc

计算机二级模拟试题（visual basic 语言）七试题一、基础知识填空题（共30分，每空2分）1、 说明变量类型有二种方法，其中一种是在变量名后加隐含类型说明符，如变量sum$类型为 。2、 VB的窗体和控件是具有自己的 、 方法的对象。3、 VB的坐标系统是可以自定义的，使用对象的刻度属性和 方法，就可设置对象的坐标系统。4、 表达Int(9.5)=Fix(9,5) and Int(-7.2)=Fix(-8.2)的值是 。5、 启动窗体时，为了初始化该窗体中的各控件，可选用窗体的 事件。6、 在VB中，控件的命名是由用户决定的，为了说明控件类型，在命名一个文本框控件时常在其名字前加 英文缩写。7、 窗体对象具有CLS方法，另外 对象也有具有该方法。8、 菜单设计中每一个菜单项是一个控件，这些控件都只有一个 事件。9、 由下列循环语句控制的循环次数是 。For k=25 to 0 step-2Next k10、 已知a=3,b=4,c=5,下面表达式的值是 。（值用True 或False表示）ab And Not ca or cb and cc 12、 下述语句执行后，Y的值是 。Y=10-sgn(35 mod 17-6)+val(m.10 m.)试题二、程序填空题（共10分，每空2分）：1、 以下程序是利用通用对话框功能对窗体中的图片框添加图片。要求将c:windows设置为初始目录，打开文件的默认文件扩展名为.bmp ,界面和程序如下：private sub command1_click()commondialog1.initdir= （1） commondialog1.filter=”所有文件（*.*）|*.*|bmp文件（*.bmp）|*.bmp|gif文件（*.gif）|*.gif ”commondialog1.filterindex=2 （2） 打开通用对话框 Picture1.picture= （3） (Commondialog1.filename)End sub2、 以下程序是验证100至200之间的所有偶数都能分解为两个素数之和。Private sub form_click()Dim n as integer,m as integerDim I as integer,j as integerFor n=100 to 200 step 2For m=2 to (n/2)For I=2 to int(sqr(m)If m mod I=0 then exit forNext IIf （4） thenFor j=2 to （5） If(n-m) mod j=0 then exit for Next j If jint (sqr(n-m) then print n,m,n-m End ifNext mNext nEnd sub试题三、程序阅读（20分，每题5分）仔细阅读下列各小题程序，在试卷的相应位置上写出下列程序运行后单击窗体，在窗体上的输出结果。（注意打印格式）1、 程序1private sub form_click()dim x() as string 定义为可变数组a$=”How ary you!”n=len(a$)redim x(1 to n) 重新定义数组for I=n to 1 step-1x(i)=mid(a$,I,1)next Iprint a$for I=1 to nprint x(i);” “;next Iprintend sub答案：（1）2、程序2private sub form_click()dim x as double,y as doublex=width/4y=height/4line(x,y)-step(1000,1000),Bline-(x,y)end sub答案：（2）3、 程序3：private sub form_click()dim I as integer,y as integerI=0Do while I=4Y=factor(I+1)Print “y=”;yI=I+1LoopEnd subFunction factor(x as integer) as integerDim term as integer,I as integerTerm=1For I=1 to xTerm=term*INext IFactor=termEnd function答案：（3）4、 程序4：private sub form_load()imgeh.top=scaleheight/2-imgeh.height/2imgeh.left=scalewidth/2-imgeh.width/2imgmn.picture=loadpicture(“c:moon.ico”)imgeh.picture=loadpicture(“c:earth.ico”)end subprivate static sub timer1_timer()a=1600x=sin(i)*a+scaleheight/2y=cos(i)*a+scalewidth/2imgmn.move x,yI=I+0.2End sub注：上述二事件属同一程序，imgeh和imgmn为影象框控件名，定时器的interval为100，moon.ico和earth.ico是月亮和地球的图标，答题时可示意表示。答案可用图形加文字表示。试题四、程序改错（10分，每错2分，其中错误部分已划线标出）1、 下面程序计算圆面积（其中圆半径需从文本框text1中输入）：private sub form_click()dim PI=3.14159 答案：（1）dim s as singler=val(text1.caption) 答案：（2）s=PI*r*rPrint r,sEnd sub2、 下面程序随机产生10个两位整数，统计其中偶数的个数，并用消息框输出；option base 1private sub form_click()dim a(10) as integerdim count as integerdim I as integer,n as integerrandomizefor I=0 to 9 答案：（3）n=Int(Rnd*90)答案：（4）a(i)=nprint a(i)if a(i) mod 2=0 thencount=count+1end ifnext Imsgbox(“偶数个数：”,count)答案：（5）试题五、程序设计题1（8分）编写一程序，当我们单击窗体时，用输入框输入一自然数，判断是否“正数”、“负数”或“零”，并根据输入的数用消息框显示“正数”、“负数”或“零”。2（12分）在c:student.txt文件中，顺序存放着若干学生的姓名（字符型）和成绩（数值型），例如莫慧兰 .22,94桑兰 .22,85刘德化88现要求将文件中的姓名和成绩在窗体上显示，同时计算并显示所有学生的平均成绩。3（10分）设计一窗体，窗体上有一文本框（text1）、一命令按钮（command1）,运行时文本框中显示“控件初始化及自动调整”，命令按钮标题为“结束”，文本框及命令框按钮窗体大小的调整而自动调整大小及位置，其中调整文本框使其：LEFT=0,TOP=0 ,宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写：（1） 用代码初始化各控件（提示，可写在form_load事件中）；（2） 文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在form_resize事件中）；（3） 结束程序运行的