1、VB机试模拟试卷 133及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Labell的标签，标签的宽和高分别为 2000、 300，有边框，并利用属性窗口设置适当的属性，使其居中显示 “等级考试 ”，并使标签的外观如图 1-226所示。运行后的窗体见图 1 226。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为 Forml的窗体上画一个名称 为 Imagel的图像框，有边框，并可以自动调整装入图片的
2、大小以适应图像框的尺寸；再画三个命令按钮，名称分别为 Commandl、 Command2、 Cornmand3，标题分别为 “红桃 ”、 “黑桃 ”、 “清除 ”。在考生目录下有两个图标文件，其名称分别为“Misc34 ico”和 “Misc37 ico”。程序运行时，单击 “红桃 ”按钮，则在图像框中显示红桃图案 (即 Misc34 ico文件，如图 1-227所示 )；单击 “黑桃 ”按钮，则在图像框中显示黑桃图案 (即 Misc37 ico文件 )；单击 “清除 ”按钮，则清除图像框中的图案。请编写相应控件的 Click事件过程，实现上述功能。注意：要求程序中不得使用变量，每个事件过程
3、中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题（ 40分） 2 (1)在名称为 Forml的窗体上画一个名称为 Textl的文本框；画两个标题分别为 “对齐方式 ”、 “字体 ”，名称分别为 Framel、 Frame2的框架；在 Framel框架中画三个单选按钮，标题分别为 “左对齐 ”、 “居中 ”、 “右对齐 ”，名称分别为 Optionl、Option2、 Option3在 Frame2框架中画两个单选按钮，标题分别为 “宋体 ”、 “黑体 ”，名称分别为 Option4、 Option5。要求：编写五个
4、单选按钮的 Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作 (如图1-51所示 )。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt3 vbp，窗体文件名为sjt3 frm。 (2)在考生文件夹下有一个工程文件 sit4 vbp。其窗体上有一个圆，相当于一个时钟，当程序运行时通过窗体的 Activate事件过程在圆上产生 1两个刻度点，并完成其他初始化工作；另有长、短 2条 (红色、蓝色 )直线，名称分别为 Linel和 Line2，表示两个指针。程序运行时，单击 “开始 ”按钮，则每隔 0
5、5秒 Linel(长指针 )顺时针转动一个刻度， Line2(短指针 )顺时针转动 1 1两个刻度 (即长指针转动一圈，短指针转动一个刻度 )，单击 “停止 ”按钮，两个指针停止转动，如图 1-52所示。在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。提示：程序中的符号常量 x0、 y0是圆心 到窗体左上角的距离， radius是圆的半径。注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单
6、击窗体任何位置时，实心圆则向单击位置直线移动：若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件 按原文件名存盘。 VB机试模拟试卷 133答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体 Forml中画三个单选按钮，并设置它的相关属性，其属性及值如表 2-133所示。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建
7、一个 “标准 EXE“工程，如表 2-134在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写三个命令按钮的单击事件过程。 参考代码： PriVate Sub Commandl_Click() Imagel Pi cture=LoadPi cture(App Path &“ Misc34 ico“) End Sub PriVate Sub Command2_Click() Imagel Picture=LoadPi cture(App Path &“ Misc37 iCO“) End Sub PriVate Sub Command3_Click() Imagel Picture
8、=LoadPi cture() End Sub 步骤3：按要求将文件保存至考生文件夹中。 【试 题解析】 第 1小题 Alignment属性用于确定文本框中文本的放置方式，其值可以设置为 0(靠左，默认 )、 1(靠右 )或 2(居中 )。 本题只需按要求画出控件并设置其相应属性即可。 第 2小题 为图像框控件指定图片有两种方法：一是在设计阶段通过 Picture属性设置；二是在程序运行时通过 LoadPicture()图片加载函数加载。其语法为：图片框 Picture=LoadPicture(“图像文件路径 “)， App Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法
9、。用不 带参数的 LoadPicture函数为对象的 Picture属性赋值将清除窗体、图片框及图像控件中的图形。 Stretch(自动伸缩 )属性用来设定图像框是否需要自动调整大小，以适应载入图像框中的图片的大小，值为 True时表示自动调整。 BorderStyle用于设置图像框的边框类型，值为 O表示无边框，值为 1表示有边框。 本题需分别在三个命令按钮的 Click事件过程中，用 LoadPicture()函数为图像框加载不同图片。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：新 建一个 “标准 EXE”工程，如表2-27在窗体中画出控件 并设置其
10、相关属性。 步骤 2：在代码编辑窗口，分别编写 5个按钮的单击事件过程。 参考代码： Private Sub Optionl_Click() Textl Alignment=0 End Sub Private Sub Option2_C1ick() Textl Alignment=2 End Sub Private Sub Option3_Click() Textl Alignment=1 End Sub Private Sub Option4_Click() Textl Font=“宋体 “ End Sub Private Sub Option5 Click() Textl Font=“黑体
11、 “ End Sub 步骤 3：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符们“”，将问号 “?”改为正确的内容。 参考代码： Timerl Enabled=False For k=0 To 359 Step 30 x=radius*Cos(k*3 14159 180) +x0 Linel Y2=y0-lenl*Sin(a*- 3 14159 180) b=b-30 12 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 框架控件 (Frame)是一个容器控件，常用于将
12、界面上的控件分组，框架内的控件将随框架一起移动或隐藏，框架的 Caption属性用于设置其显示的标题。 容器 (如窗体和框架 )中的单选按钮 (OptionButton)组常用于提供多个选项间的唯一选择，其 Value属性用于设置或返回每个单选按钮的选中状态；值为 False表示未选，值为 True表示选中。 Alignment属性用于确定文本 框中文本的放置方式，其值可以设置为 0(靠左，默认 )、 l(靠右 )或 2(居中 )。 FontName属性用于设置程序运行时在控件中显示文本的字体， FontSize属性、 FontBold属性、 FontItalic属性、 FontStriket
13、hru属性和 FontUnderline属性可分别用来设置字体的大小和样式。 本题需分别在五个单选按钮的 Click事件过程中，设置文本框 Textl的Alignment属性或 FontName属性为对应值。 第 2小题 Activate(活动 )、 Deactivate(非 活动 )事件：当一个窗体成为活动窗口时发生Activate事件：当一个对象不再是活动窗口时发生 Deactivate事件。 Circle语句的常用语法格式为：对象 Circle(x,y)， R,Color， Start， End， p。其功能是在对象指定位置上画圆或椭圆。其中， (x， y)是圆心坐标， R是圆半径； S
14、tart、End这两个参数表示圆弧的开始和结束 (可省略参数，但逗号不能省略，例Circle(1000,1000)， 500， 2)； p参数指定了椭圆水平长度和垂直长度比。另外， Circle方法还 可以画出圆弧 (圆的一部分 )和楔形饼块。 本题原程序要通过窗体的 Activate事件过程在圆上产生 1两个刻度点，其中 For循环的步长值应设置为： 360 12=30。由于 VB窗体的坐标原点位于窗体最左上角，因此每个刻度点距圆心的横向距离 (radius*Cos( k*3 14159 180)需加上圆心的 x坐标值 (x0)，才是该刻度点的 x坐标值。而该刻度点的 y坐标值则应是圆心的
15、y坐标值 (y0)减去刻度点距圆心的纵向距离 (radius*Sin(k*3 14159 1801)。 计时器 Timerl的 Timer事件每隔 0 5秒触发一次，在 Timer事件过程中，长指针 Linel的终点 (X2,Y2)顺时针每次转动一个刻度，其坐标值通过计算得出 (其中， Lenl为长指针的长度； a为长指针与圆心所在水平线形成的夹角度数，初值为 90，每次减少 30)，故该事件过程中第一个 ?处应改为： Y2。短指针 Line2的终点每次顺时针每次转动 1 1两个刻度，其坐标值通过计算得出 (其中， Len2为短指针的长度， b为短指针与圆心所在水平线形成的夹角度数，初值为 9
16、0，每次减少 30 12)，故该事件过程中第两个 ?处应改为： b。 “开始 ”按钮用于启动计时器，而 “停止 ”按钮则用于停止计时器，语句为：Timerl Enabled=False。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件下的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符们 “”，将问号 “?”改为正确的内容。 参考代码； stepx=0 stepy=a*stepx Timerl Enabled=True Timerl Enabled=False Shape Move Shapel Left+stepx， Shapel Top
17、+stepy 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 Sgn(N)符号函数用于返回一个表示 N的正、负或 O的值。N0，返回 l； N=0，返回 0； N0，返回 -1。 本题在窗体的鼠标按下事件过程中，若按下的是鼠标左键，则通过计算得出圆心的坐标。若圆心与当前鼠标按下点位于同一竖线上时 (即 x=x0)，则设定实心圆纵向移动增量为 stepy=Sgn(y-yO)*50，横向移动增量则为 O(即 stepx=0)；否则设定实心圆横向移动增量为 stepx=Sgnt(x-xo)*50，并根据斜率 a计算出纵向移动增量： stepy,=a*stepx，若计算出的纵向移动增量 step),绝对值大于横向移动增量绝对值 stepx，则重新设定实心圆纵向移动增量为 stepy=sgn(y-y0)*50，计算出横向移动增量 stepx=stepy a，以防止实心圆移动速度不均。启动计时器 Timerl(设置其Enabled属性值为 True)，利用其 Timer事件过程控制实心圆移动。 根据计算出的实心圆横向移动增量和纵向移 动增量，其移动的语句为：Shapel Move Shapel Left+stepx， Shapel Top+stepy
