《vb试卷》2008(文)

《《vb试卷》2008(文)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、浙江工业大学2007/2008学年第二学期试卷（请将答案写在答题纸上，写在试卷上无效）班级_________________________姓名___________________________课程《VB程序设计基础》任课教师一、判断题（每题1分，共10分）□1、控件的属性值不可以在程序运行时动态地修改。□2、事件是由VB预先定义的对象能够识别的动作。□3、在块IF结构中，“EndIf”语句可以缺省。□4、在For/Next循环结构中，“Step1”可以缺省。□5、在声明形参时，如果缺省传递方式，则该形参为按值传递。□6、命令按钮可以响应双击事件。□7、文本框的MaxL

2、ength属性设置为“0”时，表示该文本框不能输入字符。□8、列表框的表项个数存放在“ListCount”属性中。□9、我们可以设置一个数据类型为“Long”的变量来保存某个点的颜色值。□10、通用对话框的“ShowOpen”方法可以打开一个“打开文件”的对话框。二、选择题（每题1分，共20分）1、VB工程文件的扩展名为（）。A：.frxB：.basC：.vbpD：.frm。2、在窗体上按下鼠标左键时产生的事件是（）。A：KeyDownB：MouseUpC：MouseMoveD：MouseDown3、数据类型Integer占用（）个字节。A：1B：2C：4D：84、输入对话

3、框InputBox的返回值的数据类型是（）。A：字符串B：整数C：浮点数D：长整数5、若A≤B且C≤D则E=2，写作VB语句应为（）。A：IfA<=BXorC<=DThenE=2B：IfA<=BAndC<=DThenE=2C：IfA<=BX&&C<=DThenE=2D：IfA<=BOrC<=DThenE=26、语句Print"5*5"的执行结果是（）。A：25B："5*5"C：出现错误提示D：5*5第1页浙江工业大学考试命题纸7、由“ForI=1To16Step3”决定的循环结构被执行（）次。A：4B：5C：6D：78、标签框控件标题、文本框控件显示文本的对齐方式由（）属性

4、来决定。A：WordWrapB：AutoSizeC：AlignmentD：Style9、将焦点主动设置到指定的控件或窗体上，应采用（）方法。A：SetDateB：SetFocusC：SetTextD：GetGata10、下列哪个属性用来表示控件的位置（）。A：TextB：CaptionC：LeftD：Name11、选中单选按钮时，其Value属性的值为（）。A：TrueB：FalseC：0D：112、在列表框中被选中的表项的文本，存放在（）属性中。A：SelectedB：ListC：TextD：Caption13、List1.Clear中的Clear是（）。A：方法B：对象

5、C：属性D：事件14、滚动条的（）属性用于指定用户单击滚动条的箭头时，Value属性值的增、减量。A：LargeChangeB：SmallChangeC：ValueD：Change15、设计动画时通常用时钟控件的（）属性来控制动画速度。A：IntervalB：TimerC：MoveD：Enabled16、对画出的图形设置填充色，应使用（）属性。A：BackStyleB：FillColorC：FillStyleD：BorderStyle17、（）可以改变坐标的刻度单位。A：DrawStyle属性B：Cls方法C：ScaleMode方法D：DrawWidth属性18、VB用以下

6、哪一条指令来绘制直线（）。A：Line方法B：Pset方法C：Point属性D：Circle方法19、RGB函数中的3个数字分别表示（）。A：红、绿、白B：红、绿、蓝C：色调、饱和度、亮度D：当前色、背景色、前景色20、在VB中，以下控件中不能作为其它控件的容器的是（）。A：框架B：图片框C：影像框D：窗体三、填空题（每题2分，共20分）1、由DimSAsString*10语句定义的字符串S占用个字节存储空间。2、由DimX(1to14)AsInteger语句定义的X数组占用个字节的存储空间。3、将数学式(x+5)•log10y写作VB算术表达式为。第2页浙江工业大学考试命

7、题纸4、表达式817mod2^2的值是。5、a1和a2之中至少有一个与a3的值相等，相应的VisualBasic逻辑表达式是。6、使用文本框来输入密码，可以设置属性来屏蔽输入的字符。7、使控件不可用（如使命令按钮变成灰色），可以修改其属性。8、方法用来向列表框中加入表项。9、定时器控件只能接收事件。10、用于设置容器控件坐标系统的方法是。四、程序阅读题（每题5分，共20分）1、程序1PrivateSubCommand1_Click()DimxAsInteger,sAsIntegerx=InputBox("请输入一