vb期末考试题

试卷编号：8065 所属语言：Visual Basic 试卷 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 ：09-6月vb期末考试试卷 试卷总分：100分 共有题型：8种 ━━━━━━━━━━━━━━━ 一、填空 共10题 （共计10分） ━━━━━━━━━━━━━━━ #######第1题 （1.0分） 题号:239 设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为【1】. 答案： =======(答案1)======= False 第2题 （1.0分） 题号:48 由Dim a (10) As single定义的数组占用【1】字节的内存空间. 答案： =======(答案1)======= 44 第3题 （1.0分） 题号:53 在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是【1】. 答案： =======(答案1)======= VAL =========或========= Cint 第4题 （1.0分） 题号:259 VB提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动的在列表框边上加一个【1】.答案： =======(答案1)======= 垂直滚动条 =========或========= 滚动条 第5题 （1.0分） 题号:47 一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式【1】. 答案： =======(答案1)======= a<>0 and b^2-4*a*c>=0 第6题 （1.0分） 题号:59 在利用Visual Basic设计应用程序时,一般会遇到三类错误:语法错误、执行错误和【1】. 答案： =======(答案1)======= 逻辑错误 第7题 （1.0分） 题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案： =======(答案1)======= (x mod 10) * 10 + int(x/10) 第8题 （1.0分） 题号:269 滚动条控件主要支持两个事件,它们是scroll和【1】事件. 答案： =======(答案1)======= change 第9题 （1.0分） 题号:41 要使一个按钮无效,则可把它的Enable属性设为【1】. 答案： =======(答案1)======= False 第10题 （1.0分） 题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案： =======(答案1)======= False ━━━━━━━━━━━━━━ 二、判断 共10题 （共计10分） ━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:234 如果某子程序add用public static sub add()定义,则该子程 序的变量都是局部变量. 答案：N 第2题 （1.0分） 题号:340 在VB中,计时器(Timer)定期激活Timer事件,使Timer中的 代码执行一次. 答案：Y 第3题 （1.0分） 题号:272 当需要在同一窗体中建立几组相互独立的单选钮时,就要用框 架将每一组单选钮框起来. 答案：Y 第4题 （1.0分） 题号:331 欲在PictureBox控件上设置其它控件,可以通过把窗体上原已 设计好的控件拖动到PictureBox控件上来实现. 答案：N 第5题 （1.0分） 题号:327 由Visual Basic语言编写的应用程序有解释和编译两种执行方式. 答案：Y 第6题 （1.0分） 题号:265 菜单每一菜单项都是控件,可以通过点击菜单项或通过光标选 择并按回车键,以触发Click事件. 答案：Y 第7题 （1.0分） 题号:362 属性是用来描述和反映对象特征的参数,不同的对象具有各自 不同的属性,对象的所有属性都可以在属性窗口中设置. 答案：N 第8题 （1.0分） 题号:262 VB允许用户使用Type语句在窗体模块的通用声明中自己定义数 据类型. 答案：Y 第9题 （1.0分） 题号:369 如果在过程调用时使用按值传递参数,则在被调过程中可以改 变实参的值. 答案：N 第10题 （1.0分） 题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会 将两个数值加起来. 答案：Y ━━━━━━━━━━━━━━━━━ 三、单项选择 共10题 （共计10分） ━━━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:361 下列不能打开属性窗口的操作是(). A:执行"视图"菜单中的"属性窗口"命令 B:按F4键 C:按Ctrl+T D:单击工具栏上的"属性窗口"按钮 答案：C 第2题 （1.0分） 题号:238 变量未赋值时,数值型变量的值为(). A:0 B:空 C:1 D:无任何值 答案：A 第3题 （1.0分） 题号:293 改变控件在窗体中的上下位置应修改控件的()属性. A:Top B:Left C:Wide D:Height 答案：A 第4题 （1.0分） 题号:265 求以10 为底X 的常用对数的表达式为(). A:LOG(X)/LOG(10) B:LN(X) C:LOG(X)/LOG(E) D:LOG(X) 答案：A 第5题 （1.0分） 题号:352 为了在运行时能显示窗体左上角的控制框(系统菜单),必须(). A:把窗体的Contro1Box属性设置为Fale,其他属性任意 B:把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5 C:把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值 D:把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值 答案：B 第6题 （1.0分） 题号:339 设置列表框选中的文本用()属性. A:selected B:caption C:text D:list 答案：D 第7题 （1.0分） 题号:854 在中断状态下可以运行代码,也可以在运行状态中作为输出结果的 窗口称为(). A:本地窗口 B:立即窗口 C:观察窗口 D:栈窗口 答案：B 第8题 （1.0分） 题号:306 将命令按钮Command1设置为不可见,应修改该命令按钮的()属性. A:Visible B:Value C:Caption D:Enabled 答案：A 第9题 （1.0分） 题号:825 以下不属于VisualBasic系统的文件类型是(). A:.frm B:.bat C:.vbg D:.vbp 答案：B 第10题 （1.0分） 题号:382 下列叙述正确的是(). A:对象是包含数据又包含对象数据进行操作的方法的物理实体 B:对象的属性只能在属性窗口中设置 C:不同的对象能识别不同的事件 D:事件过程都要由用户点击对象来触发 答案：C ━━━━━━━━━━━━━━━━ 四、多项选择 共5题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （2.0分） 题号:280 请把下面说法中正确的选出来（）。 A:在函数调用过程中函数的默认返回值为0 B:在调用Sub过程中使用Call语句时，参数必须在括号内 C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参” D:DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部元素都初始化为空字符串 答案：BCD 第2题 （2.0分） 题号:283 要选择列表框List1的第6项，可以使用语句（）。 A:List1.Selected(6)=True B:List1.Selected(5)=True C:List1.ListIndex=5 D:List1.Selected=5 答案：BC 第3题 （2.0分） 题号:276 下列语句哪些是错误的语句（）？ A:Const Imax As Integer=&o155 B:Const _Ga As String="abc" C:Dim aa,bb As Integer,cc As String D:yy=8,uu=9 答案：BD 第4题 （2.0分） 题号:278 下列哪些标识符不符合变量的命名 规则 编码规则下载淘宝规则下载天猫规则下载麻将竞赛规则pdf麻将竞赛规则pdf （）？ A:hyu B:$abc C:4w D:y.u E:ty% F:_n8 答案：BCDEF 第5题 （2.0分） 题号:281 窗体也是一个对象，它具有（）的特征。 A:属性 B:过程 C:事件 D:方法 答案：ACD ━━━━━━━━━━━━━━━━ 五、程序填空 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:523 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能：下面的程序用于求三个数中最大数 '------------------------------------------------------- Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox("请输入第一个数： ")) b = Val(InputBox(" 请输入第二个数： ")) c = Val(InputBox("请输入第三个数： ")) '**********SPACE********** 【?】 = a min = a '**********SPACE********** If b > max Then 【?】 If b < min Then min = b '**********SPACE********** If 【?】 Then max = c If c < min Then min = c Print "最大数为："; max Print "最小数为："; min End Sub 答案： =======(答案1)======= max =======(答案2)======= max = b =======(答案3)======= c > max =========或========= max < c ━━━━━━━━━━━━━━━━ 六、程序改错 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:120 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：以下程序段用于打印如图1所示的九九乘法表： '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(30); "9*9 table" Print: Print Print " * "; For i = 1 To 9 '**********FOUND********** Print Tab(i * 6); i Next i Print For j = 1 To 9 Print j; " "; '**********FOUND********** For k = 1 To 9 '**********FOUND********** Print Tab(j * 6); j * k; " "; Next k Print Next j End Sub 答案： =======(答案1)======= Print Tab( i * 6 ); I; =======(答案2)======= For k = 1 To j =======(答案3)======= Print Tab( k* 6 ); j * k ; " "; ━━━━━━━━━━━━━━━━ 七、程序设计 共2题 （共计20分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:133 '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)一球从100米高度自由落下，每次落地返回 ' 原高度的一半，求第10次落地时，共经过多 ' 少米？并将结果在窗体上输出。 '------------------------------------------------- 答案：---------------------- Dim j, i As Integer s = 0 j = 100 For i = 2 To 10 j = j / 2 s = s + 2 * j Next s = 100 + s Print (CStr(s)) ---------------------- 第2题 （10.0分） 题号:483 '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：编写函数fun，函数的功能是：求1到m ' 之间的偶数之积。 '------------------------------------------------- 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m If i Mod 2 = 0 Then y = y * i End If Next fun = y ---------------------- ━━━━━━━━━━━━━━━━━━ 八、VB窗体设计 共2题 （共计20分） ━━━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:32 ------------------------------------------------ 【窗体设计】 ------------------------------------------------ 题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。 ------------------------------------------------ 1、窗体设置 1）名称设置为“ColorPicker”。 2）标题 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 为“调色板”。 3）隐藏控件菜单栏。 4）边框样式设置为1。 5）窗体启动位置设置为2。 2、在窗体的左侧添加图片框（PictureBox） 1）名称设置为“picYanSe”。 2）背景色设置为“&H000000FF&”。 3、在图片框的右侧添加如下3个标签（Label）， 3个标签都为自动调整大小 。 1）名称设置为“lblHong”； 标题内容为“红(R)”； 窗体快捷键设置为“ALT + R”。 2）名称设置为“lblLv”； 标题内容为“绿(G)”； 窗体快捷键设置为“ALT + G”。 3）名称设置为“lblLan”； 标题内容为“蓝(B)”； 窗体快捷键设置为“ALT + B”。 4、在标签的右侧添加如下3个横向滚动条（HScrollBar）, 3个滚动条的最大值都为255 。 1）名称设置为“scrHong”； 值设置为255。 2）名称设置为“scrLv”。 3）名称设置为“scrLan”。 5、在滚动条的右侧添加如下3个文本框（TextBox）， 3个文本框的文本对齐方式都为2 。 1）名称设置为“txtHong”； 文本内容为“255”。 2）名称设置为“txtLv”； 文本内容为“0”。 3）名称设置为“txtLan”； 文本内容为“0”。 6、在窗体的最下面添加如下2个命令按钮（CommandButton）， 1）名称设置为“cmdTianJia”； 标题内容为“添加颜色(A)”； 窗体快捷键设置为“ALT + A”。 2）名称设置为“cmdGuanBi”； 标题内容为“关闭”。 第2题 （10.0分） 题号:54 --------------------------------------------------------------------- 【窗体设计】 --------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。（本题有6个项目要完成） 建立如图009所示界面： 注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 --------------------------------------------------------------------- 1、窗体设置 1）名称为“ 模板 个人简介word模板免费下载关于员工迟到处罚通告模板康奈尔office模板下载康奈尔 笔记本 模板 下载软件方案模板免费下载 ” 2）标题为“南京工程学院” 2、在窗体上方添加一个标签控件 1）对齐方式为右对齐 2）设置背景透明，边框风格为1 3）内容为“透明右对齐” 3、在前一个标签下方添加另一个标签控件 1）能自动调整大小 2）背景色为白色，值为H00FFFFFF 3）标题为“0” 4）字体大小为36 4、在窗体上添加一个时钟控件 1）时间间隔为1秒 2）在Timer事件过程中添加代码，使第二个标签的标题的值加一。 5、在窗体下方添加一个列表框控件 1）名称为“列表” 2）设置为不可用 3）排序属性设为真 4）Top为3360，Left为2280 6、在窗体右下角添加一个命令按钮 1）名称为“计时切换” 2）标题为“计时” 3）在单击事件过程中添加代码，使时钟控件的Enabled属性值取反。 ----------此为题目要求的最后一行，以下空白--------------------------------------- 试卷编号：8063 所属语言：Visual Basic 试卷方案：09-6月vb期末考试试卷 试卷总分：100分 共有题型：8种 ━━━━━━━━━━━━━━━ 一、填空 共10题 （共计10分） ━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:277 如果在模块的声明段中有Option Base 1语句,则在该模块中使用Dim a(3 To 5,6)声明的数组有【1】个元素. 答案： =======(答案1)======= 18 第2题 （1.0分） 题号:259 VB提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动的在列表框边上加一个【1】. 答案： =======(答案1)======= 垂直滚动条 =========或========= 滚动条 第3题 （1.0分） 题号:226 表达式 32\7 MOD 3^2 的值是【1】. 答案： =======(答案1)======= 4 第4题 （1.0分） 题号:268 滚动条控件有水平滚动条和【1】滚动条. 答案： =======(答案1)======= 垂直 第5题 （1.0分） 题号:295 想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加一些特殊的设置,也就是在字母之前加上【1】. 答案： =======(答案1)======= & 第6题 （1.0分） 题号:246 声明单精度常量P1代表3.14159的语句为【1】. 答案： =======(答案1)======= Const PI=3.14159 =========或========= Const pi As Single = 3.14159 第7题 （1.0分） 题号:245 声明单精度常量g(重力加速度)代表9.8可写成【1】. 答案： =======(答案1)======= const g=9.8 =========或========= const single g=9.8 第8题 （1.0分） 题号:65 Val("123.55ab456")的值是多少【1】. 答案： =======(答案1)======= 123.55 第9题 （1.0分） 题号:66 VB 6.0的基本表达式包括算术表达式、关系表达式和【1】表达式. 答案： =======(答案1)======= 逻辑 第10题 （1.0分） 题号:283 使用Move方法把图形框Picture1的左上角移动到距窗体顶部100Twip,距窗体左边框200Twip,同时图形框缩小50%,具体形式为【1】. 答案： =======(答案1)======= Picture1.move 200,100,picture1.width/sqr(2),picture1.height/sqr(2) ━━━━━━━━━━━━━━━ 二、判断 共10题 （共计10分） ━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:367 如果没有使用Public、Private或者Friend,Sub过程在缺省情况 下是公用的、 答案：N 第2题 （1.0分） 题号:257 Variant是一种数据类型,因此只能存放象其它数据类型一样, 无特殊值. 答案：N 第3题 （1.0分） 题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而 程序代码若设置了它的窗体字体大小为20号,那么当程序运行 后实际的窗体字体大小为20号. 答案：Y 第4题 （1.0分） 题号:243 在框架控件内的几个单选按钮中,可有一个或多个单选按钮 的Value属性为True. 答案：N 第5题 （1.0分） 题号:327 由Visual Basic语言编写的应用程序有解释和编译两种执行方式. 答案：Y 第6题 （1.0分） 题号:256 TextBox与Label有许多共同特点,它们都能显示和输入文本. 答案：N 第7题 （1.0分） 题号:299 如果一个菜单项的Visible属性为False,则它的子菜单也不会显示. 答案：Y 第8题 （1.0分） 题号:334 在VB 6.0中,如果要使窗体上的多个控件具有相同的尺寸,在 选择了这些控件之后,应执行VB"格式"菜单中的命令. 答案：Y 第9题 （1.0分） 题号:298 清除list1列表框对象的内容的语句是list1.cls. 答案：N 第10题 （1.0分） 题号:291 列表框包含了组合框的功能. 答案：N ━━━━━━━━━━━━━━━━━ 三、单项选择 共10题 （共计10分） ━━━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:319 能够改变窗体边框线类型的属性是(). A:FontStyle B:BorderStyle C:BackStyle D:Border 答案：B 第2题 （1.0分） 题号:809 要使文本框中的文本显示掩码(密码)符,在属性设置时,首先必 须设置()属性为False. A:Text B:Enabled C:Visible D:Multiline 答案：D 第3题 （1.0分） 题号:792 下面哪些控件不会影响到界面设计效果(). A:定时器 B:文本框 C:标签 D:Line控件 答案：A 第4题 （1.0分） 题号:250 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(). A:4^5 B:3*4 C:x+1 D:SIN 答案：C 第5题 （1.0分） 题号:826 以下关于焦点的叙述中,错误的是(). A:如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据 B:当文本框失去焦点时,触发LostFocus事件 C:当文本框的Enabled属性为False时,其Tab顺序不起作用 D:可以用TabIndex属性改变Tab顺序 答案：A 第6题 （1.0分） 题号:224 ()对象具有Clear方法. A:图片框 B:窗体 C:复选框 D:列表框 答案：D 第7题 （1.0分） 题号:253 表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是(). A:0.48 B:0.048 C:.5 D:.05 答案：C 第8题 （1.0分） 题号:233 VB认为下面()组变量是同一个变量. A:A1和a1 B:SUM和SUMMARY C:AVER和AVERAGE D:A1和A_1 答案：A 第9题 （1.0分） 题号:291 定时器的Interval属性以()为单位指定Timer事件之间的时间间隔. A:分 B:秒 C:毫秒 D:微秒 答案：C 第10题 （1.0分） 题号:371 下列关于设置控件属性的叙述正确的是(). A:用户必须设置属性值 B:所有的属性值都可以由用户随意设定 C:属性值不必一一重新设置 D:不同控件的属性项都完全一样 答案：C ━━━━━━━━━━━━━━━━ 四、多项选择 共5题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （2.0分） 题号:280 请把下面说法中正确的选出来（）。 A:在函数调用过程中函数的默认返回值为0 B:在调用Sub过程中使用Call语句时，参数必须在括号内 C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参” D:DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部元素都初始化为空字符串 答案：BCD 第2题 （2.0分） 题号:275 下列说法中哪些是正确的（）？ A:逻辑型数据占1个字节 B:长整型数据占4个字节 C:单精度型数据占4个字节 D:一个汉字在Visual Basic中占10个字节 答案：BC 第3题 （2.0分） 题号:276 下列语句哪些是错误的语句（）？ A:Const Imax As Integer=&o155 B:Const _Ga As String="abc" C:Dim aa,bb As Integer,cc As String D:yy=8,uu=9 答案：BD 第4题 （2.0分） 题号:278 下列哪些标识符不符合变量的命名规则（）？ A:hyu B:$abc C:4w D:y.u E:ty% F:_n8 答案：BCDEF 第5题 （2.0分） 题号:283 要选择列表框List1的第6项，可以使用语句（）。 A:List1.Selected(6)=True B:List1.Selected(5)=True C:List1.ListIndex=5 D:List1.Selected=5 答案：BC ━━━━━━━━━━━━━━━━ 五、程序填空 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:497 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能：程序运行结果如图1所示，请将程序补充完整。 '------------------------------------------------------- Private Sub Form_Click() Dim I As Integer, j As Integer Dim star As String star = "★" For I = 1 To 6 Form1.Print Tab(14 - I * 2); '**********SPACE********** For j = 1 To 【?】 Form1.Print star; Next j Form1.Print Next I For I = 1 To 5 '**********SPACE********** Form1.Print Tab(【?】); '**********SPACE********** For j = 1 To (6 - I) * 2 【?】 Form1.Print star; Next j Form1.Print Next I End Sub 答案： =======(答案1)======= I * 2 - 1 =========或========= 2 * I - 1 =======(答案2)======= 2 + I * 2 =========或========= I * 2 +2 =========或========= 2 + 2 * I =========或========= 2 * I +2 =======(答案3)======= - 1 ━━━━━━━━━━━━━━━━ 六、程序改错 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:493 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:给定年号与月份，判断该年是否闰年,并根据给出的 ' 月份来判断是什么季节和该月有多少天？ ' （闰年的条件是：年号能被4整除但不能被100整除， ' 或者能被400整除。） '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim Year As Integer, Month As Integer, flag As Integer Year = InputBox("输入年号：") Month = InputBox("输入月份：") '**********FOUND********** If Year Mod 4 = 0 And Year Mod 100 <> 0 And Year Mod 400 <> 0 Then '**********FOUND********** flag = 0 MsgBox "闰年" Else flag = 0 MsgBox "非闰年" End If '**********FOUND********** Select Case flag Case 1 MsgBox "该月有31天，春季" Case 2 If flag = 1 Then MsgBox "该月有29天，春季" Else MsgBox "该月有28天，春季" Case 3 MsgBox "该月有31天，春季" Case 4 MsgBox "该月有30天，夏季" Case 5 MsgBox "该月有31天，夏季" Case 6 MsgBox "该月有30天，夏季" Case 7 MsgBox "该月有31天，秋季" Case 8 MsgBox "该月有31天，秋季" Case 9 MsgBox "该月有30天，秋季" Case 10 MsgBox "该月有31天，冬季" Case 11 MsgBox "该月有30天，冬季" Case 12 MsgBox "该月有31天，冬季" End Select End Sub 答案： =======(答案1)======= If Year Mod 4 = 0 And Year Mod 100 <> 0 Or Year Mod 400 = 0 Then =========或========= If Year Mod 400 = 0 Or Year Mod 4 = 0 And Year Mod 100 <> 0 Then =======(答案2)======= Flag = 1 =======(答案3)======= Select Case Month ━━━━━━━━━━━━━━━━ 七、程序设计 共2题 （共计20分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:146 '----------------------------------------------------------- -------- '【程序设计】 '------------------------------- '题目：(事件)单击窗体。 ' (响应)求50以内所有偶数的和，并在窗体上输出出来。 ' 将结果存入变量S中。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 2 To 50 If (i Mod 2) = 0 Then s = s + i End If Next Print (CStr(s)) ---------------------- 第2题 （10.0分） 题号:19 '------------------------------------------------------- '【程序设计】 '------------------------------------------------------- '题目：(事件)单击窗体 ' (响应)用输入框输入一自然数，判断是"正数"、"负数" 或"零"，并根据输入的数用消息框显示"正数"、"负数" 或"零"。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：------------------------------------- n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 或者 ------------------------------------- ━━━━━━━━━━━━━━━━━━ 八、VB窗体设计 共2题 （共计20分） ━━━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:53 --------------------------------------------------------------------- 【窗体设计】 --------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。（本题有6个项目要完成） 建立如图008所示界面： 注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 --------------------------------------------------------------------- 1、窗体设置 1）标题为“单选演示” 2、在窗体上方添加一个标签控件 1）名称为“显示文本” 2）能自动调整大小 3）标题为“计算机基础教学研究室” 3、在窗体中间依次添加左右两个框架控件 1）左边的框架名称为“框架一”，标题为“字体” 2）右边的框架名称为“框架二”，标题为“字号” 4、在框架一中添加上下两个单选按钮 1）上方单选按钮标题为“黑体” 2）在上方单选按钮的单击事件过程中添加代码，使显示文本的字体为“黑体” 3）下方单选按钮标题为“宋体” 4）在下方单选按钮的单击事件过程中添加代码，使显示文本的字体为“宋体” 5、在框架二中添加上下两个单选按钮 1）上方单选按钮标题为“20” 2）在上方单选按钮的单击事件过程中添加代码，使显示文本的字体大小为“20” 3）下方单选按钮标题为“28” 4）在下方单选按钮的单击事件过程中添加代码，使显示文本的字体大小为“28” 6、在窗体右下角添加一个命令按钮 1）名称为“按钮” 2）标题为“改变” 3）Left设置为4680 4）在单击事件过程中添加代码，使显示文本的内容改为“计算机工程学院” ----------此为题目要求的最后一行，以下空白--------------------------------------- 第2题 （10.0分） 题号:16 ------------------------------------------------ 【窗体设计】 ------------------------------------------------ 题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。 ------------------------------------------------ 1、在窗体内添加2个按钮(Command1，Command2)， 4个标签(Label1，Label2，Label3，Label4)， 1个文本框(Text1)。 2、窗体设置： 设置窗体名称(Name)为“Form16”。 设置窗体标题(Caption)为“定时”。 3、标签设置： 设置第1个标签(Label1)的标题(Caption)为“系统时间”。 设置第2个标签(Label2)的标题(Caption)为“10:13、13”，边框类型如图。 设置第3个标签(Label3)的标题(Caption)为“定时时间(秒)”。 设置第4个标签(Label4)的标题(Caption)为“时间到”，字体字号任意。 4、文本框设置： 适当设置文本框的大小和位置。 5、按钮设置： 设置第1个按钮(Command1)的标题(Caption)为“开始”。 设置第1个按钮(Command2)的标题(Caption)为“退出”。 试卷编号：8062 所属语言：Visual Basic 试卷方案：09-6月vb期末考试试卷 试卷总分：100分 共有题型：8种 ━━━━━━━━━━━━━━━ 一、填空 共10题 （共计10分） ━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:280 设置计时器控件只能触发【1】事件. 答案： =======(答案1)======= timer 第2题 （1.0分） 题号:225 变量min@表示【1】类型的变量. 答案： =======(答案1)======= 货币数据变量 =========或========= 货币 第3题 （1.0分） 题号:269 滚动条控件主要支持两个事件,它们是scroll和【1】事件. 答案： =======(答案1)======= change 第4题 （1.0分） 题号:281 设置控件背景颜色的属性名称是【1】. 答案： =======(答案1)======= backcolor 第5题 （1.0分） 题号:273 如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】. 答案： =======(答案1)======= 退出(&X) 第6题 （1.0分） 题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案： =======(答案1)======= 1 第7题 （1.0分） 题号:65 Val("123.55ab456")的值是多少【1】. 答案： =======(答案1)======= 123.55 第8题 （1.0分） 题号:249 在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer, 则strVar、intVar与sngVar的数据类型分别是Variant、Variant和【1】. 答案： =======(答案1)======= Integer 第9题 （1.0分） 题号:268 滚动条控件有水平滚动条和【1】滚动条. 答案： =======(答案1)======= 垂直 第10题 （1.0分） 题号:274 如果要在单击钮时执行一段代码,则应将这段代码写在【1】事件过程中. 答案： =======(答案1)======= click ━━━━━━━━━━━━━━━ 二、判断 共10题 （共计10分） ━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:361 只要用拖拽的方法,将工具箱中所需的控件拖到窗体上即可完成. 答案：N 第2题 （1.0分） 题号:276 对象的可见性用enabled属性设置,可用性用visible属性设置. 答案：N 第3题 （1.0分） 题号:264 标签没有Change事件和SetFocus方法. 答案：N 第4题 （1.0分） 题号:347 在 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块的声明部分中用Publice声明的变量的有效范围是 其所在的工程. 答案：Y 第5题 （1.0分） 题号:352 在过程中用Dim和Static定义的变量都是局部变量. 答案：Y 第6题 （1.0分） 题号:293 每个对象都有一系列预先定义好的对象事件,但要使对象能响 应具体的事件,则编写该对象相应的事件过程. 答案：Y 第7题 （1.0分） 题号:311 通过改变属性窗口中的Name属性,可以改变窗体上显示的标题. 答案：N 第8题 （1.0分） 题号:222 VB通过窗体管理构成应用程序的各类文件的集合. 答案：N 第9题 （1.0分） 题号:245 "菜单编辑器"中至少要填"名称"和"标题"这两个框,才 能真确完成菜单栏的设计. 答案：Y 第10题 （1.0分） 题号:365 过程中的静态变量是局部变量,当过程再次被执行时,静态变量 的初值是上一次过程调用后的值. 答案：Y ━━━━━━━━━━━━━━━━━ 三、单项选择 共10题 （共计10分） ━━━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:360 下列表达式中,其值为0的是(). A:7/9 B:7 mod 15 C:7\9 D:15 mod 9 答案：C 第2题 （1.0分） 题号:338 设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda, 则另一个命令按钮的名称不能是(). A:cmdc B:cmdb C:cmdA D:Command1 答案：C 第3题 （1.0分） 题号:341 声明符号常量应该用关键字(). A:Static B:Const C:Private D:V26/ariant 答案：B 第4题 （1.0分） 题号:332 如果在图片框上使用绘图方法绘制一个实心圆,则图片框的()属 性决定了该圆的颜色. A:B