自学考试历年试
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
_2012年1月高等教育自学考试VisualBasic程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
试题
中考模拟试题doc幼小衔接 数学试题 下载云南高中历年会考数学试题下载N4真题下载党史题库下载
_复习参考资料2012年1月高等教育自学考试 VisualBasic程序设计试题 课程代码:07759 一、判断题(本大题共10小题,每小题1分,共10分) 判断下列各题,正确的在题后括号内打"√",错的打"×"。 1.一个VB的
工程
路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理
可以有多个窗体。() 2.VB用2个字节存放Integer类型数据,因此其最大值为2的16次方,即65536。() 3.在一个容器(窗体、图片框或框架)内,只能有一个单选按钮的Value属性为True。 () 4.用来显示文本框内容的属性是Caption属性。() 5.过程中的静态变量是局部变量,当再次执行过程时其值是上一次过程调用后的值。 () 6.单击滚动条内的空白区域时,其Value值增或减的变化为SmallChange。() 7.通用对话框的FileName属性返回的是一个输入或选取的文件全名。() 8.若某一菜单项的Visible属性为False,则它的各级子菜单也不可见。() 9.执行语句"Callshell("e:\aaa.exe")",可以执行e盘根目录下的文件aaa.exe。 () 10.若要新建一个磁盘上的顺序文件,也可用APPEND方式打开文件。() 二、单项选择题(本大题共10小题,每小题1分,共10分) 在每小题列出的四个备选项中只有一个是符合题目要求的,请将其代码填写在题后的括号内。错选、多选或未选均无分。 1.使窗体最大化的窗体属性名是() 2.文本框中选定的内容,由______属性来反映。() 3.若i的初值为8,则下列循环语句的循环次数为() DoWhilei<=17 i=i+2 Loop A.3B.4 C.5D.6 4.如果下一行语句是该行的继行,该行的最后两个可显示字符应该是() A.下划线、空格B.空格、下划线 C.空格D.下划线 5.按Tab键时,焦点在各个控件之间移动的顺序是由各控件的______属性来决定的。() 6.若要使"XXX"成为List1清单中的第三项,则可执行语句() 7.下列数值作为窗体的ScaleMode属性值,使每一坐标单位长度最小的是() A.6B.4 C.2D.1 8.______属性可以用来设置所绘线条宽度。() 9.描述以(100,100)为圆心、以40为半径画1/4圆弧的语句,以下正确的是() A.Circle(100,100),40,0,3.1415926/2B.Circle(100,100),,400,0,3.1415926/2 C.Circle(100,100),40,,0,3.1415926/2D.Circle(100,100),40,,0,90 10.一个菜单项的界面显示是不是一个分割条,是由其______属性决定的。() A.Name(名称)B.Caption 三、填空题(本大题共8小题,每小题2分,共16分) 请在每小题的空格中填上正确答案。错填、不填均无分。 1.将十进制数整数29写作VB的十六进制常量为__________。 2.将
数学
数学高考答题卡模板高考数学答题卡模板三年级数学混合运算测试卷数学作业设计案例新人教版八年级上数学教学计划
式(x+1)·e2x写作VB算术表达式为__________。 3.判断X是否满足条件"1≤X≤2"的VB逻辑表达式为__________。 4.取字符串s中从第3个字符开始的连续5个字符,写作__________。 5.若Form1中的变量x在Form2中可以被引用,声明处必须前置__________。 6.定时器控件的InterVal属性值为__________时,定时器的Timer事件每秒钟执行1次。 7.图片框控件的__________属性决定在其中所绘图形缺省的填充色。 8.数据控件的__________属性返回或设置控件的记录源。 四、程序填空题(本大题共3小题,共22分) 阅读下列各程序,根据程序说明在每小题提供的若干可选答案中挑选一个正确答案,用字母A、B、C或D填写在程序中划线处。 1.【程序说明】单击窗体后输入m,求最大的、满足条件n!<P> 【程序】 PrivateSubForm_Click() DimnAsInteger,mAsInteger,yAsInteger m=InputBox("m=") (1) Do n=n+1:y=y*n Loop(2) Print(3) EndSub 【供选择的答案】 (1)A.y=1∶n=2B.y=1∶n=1 C.y=2D.y=2∶n=0 (2)A.Untily=m C.Whiley>=mD.Whiley>m C.n-1D.m 2.【程序说明】自定义Sub过程s2的功能是将n个元素的一维数组按相反顺序重新排放。 【程序】 PrivateSub(1) DimtAsSingle,iAsInteger Fori=1To(2) t=(3) a(i)=a(n+1-i) (4)=t Nexti EndSub 【供选择的答案】 (1)A.s2(a()asSingle,nAsInteger)B.s2(a(n)asSingle)AsSingle C.s2(aasSingle,nAsInteger)D.s2(a()AsSingle)nAsInteger C.n-1D.n+1 (3)A.a(i)B.a(n-i) C.a(1)D.a(n) (4)A.a(i)B.a(n+1-i) C.a(n-i)D.a(1) 3.【程序说明】下列程序在退出VB时,将列表框控件List1中各表项逐行、顺序写入到文件e:\student.txt中。 【程序】 PrivateSubForm_Unload(CancelAsInteger) Open"e:\student.txt"For(1)As#1 fori=(2)To(3) Print#1,(4) Nexti Close#1 EndSub 【供选择的答案】 (2)A.0B.1 C.-1D.NotEof(1) 五、程序阅读题(本大题共3小题,共22分) 阅读下列各程序并回答问题,在提供的若干可选答案中挑选一个正确答案,用字母A、B、C或D填写在题后的括号内。 1.【程序】 PrivateFunctionsum(nAsInteger)AsInteger DoWhilen>0 sum=sum+n:n=n-1 Loop EndFunction PrivateSubCommand1_Click() DimxAsInteger x=InputBox("x=") Label1.Caption=sum(x)&","&x EndSub (1)单击Command1后输入3,标签控件Label1的界面显示为() A.6,3B.6&0 C.6,0D.6&3 (2)单击Command1后输入5,标签控件Label1的界面显示为() A.15,5B.15&0 C.15,0D.15&5 (3)若将首句中"nAsInteger"改为"ByValnAsInteger",单击Command1后输入3,标签控件Label1的界面显示为() A.6,3B.6&0 C.6,0D.6&3 (4)若将首句中"nAsInteger"改为"ByValnAsInteger",单击Command1后输入5,标签控件Label1的界面显示为() A.15,5B.15&0 C.15,0D.15&5 2.【程序】 PrivateSubCommand1_Click() DimnAsInteger,aaAsString aa=Text1.Text:n=Len(aa) Fori=1Ton/2 aa=Right(aa,1)+Mid(aa,1,n-1) Nexti Printaa EndSub (1)Text1中的文本为"AB"时,单击Command1后窗体显示() (2)Text1中的文本为"abc"时,单击Command1后窗体显示() (3)Text1中的文本为"1234"时,单击Command1后窗体显示() (4)Text1中的文本为"abcd"时,单击Command1后窗体显示() 3.【程序】 Dimx1AsSingle,y1AsSingle PrivateSubP1_MouseDown(ButtonAsInteger,_ ShiftAsInteger,XAsSingle,YAsSingle) x1=X:y1=Y EndSub PrivateSubP1_MouseUp(ButtonAsInteger,ShiftAsInteger,_ XAsSingle,YAsSingle) P1.Line(x1,y1)-(X,Y),VbBlue,B EndSub (1)要在图片框控件P1上画一个矩形,鼠标在该控件上的动作是() A.单击两次B.左键按下、拖动后抬起 C.右键单击两次D.右键单击一次 (2)若在P1上绘制了矩形,其轮廓线的颜色是() A.绿色B.黄色 C.蓝色D.红色 (3)若要绘制红色填充的实心矩形,事件过程P1_MouseUp中相应语句应修改为() 六、程序设计题(本大题共2小题,每小题10分,共20分) 1.编制事件过程Command1_Click,输入x后,按下列公式计算并显示y值。 2.编制事件过程Command1_Click,输入n和n个数后,显示这n个数中最大值、最值。