1、 VB 程序设计 期 中 试卷答案一选择题 （2 分10）1-5 C B C D B6-10 B A C B B二 填空题 （1 分20）1. timer1.enable=false 或 timer1.interval=02. 驱动器列表框 目录列表框 文件列表框3. borderstyle borderwidth 14. circle(x,y),r,color5. 多文档界面 MDI 父窗体 子窗体 普通窗体6. backcolor forecolor fillcolor7. 圆 椭圆 圆弧和扇形8. 直线 矩形三 程序设计(10 分6)1. 答：还缺计时器 timer1控件，设置它的 in
2、terval=100timer1_timer()static I as integerlabel1.visible=not label1.visibleI=I+1If I=50 thenForm1.hideForm2.showEndif2. dir1.path=drive1.drivefile1.path=dir1.path3. if button =1 thenfor I=1 to 10circle(form1.width*rnd,form1.height*rnd),500*rnd_,rgb(255*rnd,255*rnd,255*rnd)next Ielseform1.clsendif4.
3、 form1.paintpicture picture1.picture,0,0,form1.width,_form1.height,0,0,picture1.width,picture1.height5. x=2000y=2000r=500circle(x,y),rcircle(x,y),r,2circle(x,y),r,0.5circle(x+2000,y),500,0,3.1415926circle(x+3000,y),500,3.1415926,0说明：圆心位置和半径以及图形的偏移位置可以自己设定。6. （1） Public i As IntegerPublic file(10) As New Form1i=1(2) if I10 thenmsgbox “内存不够！”elsefile(i).Caption = “文档“ & ifile(i).Showi = i + 1endif(3) r=msgbox(“确定要退出吗？”,1+32,”提示”)if r=1 thenendendif
