全国计算机等级考试二级VB上机试题及答案(三)
- 格式:doc
- 大小:100.00 KB
- 文档页数:6
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行,目前处于紧张的备考阶段,以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案,供参考练习,预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后,VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中,VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中,要将一个窗体装载到内存进行变量初始化等预处理,但没有显示该窗体,应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段:a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后,单击命令按钮,在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
计算机二级VB语言程序设计考试题及答案计算机二级VB语言程序设计考试题及答案1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)A.7236B.10836C.726D.2732.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c="1234"Fori=1To4c1=Trim(Str())Printc1NextiEndSub程序运行后,单击命令按钮,要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2Tosqr(i)IfiModj=0ThenExitForNextjIfj>Sqr(i)ThenPrintiNextiEndSub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的'偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1To5s=s+f(i)NextPrintsEndSub程序运行后,单击命令按钮,在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)A.15B.14C.13D.126.VisualBasic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
国家二级VB机试(上机操作)模拟试卷391(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“列表框练习”的窗体上画一个名称为List1的列表框,表项内容依次输入xxx、ddd、mmm和aaa,且以宋体14号字显示表项内容,如图3—102(a)所示。
最后设置相应属性,使运行后列表框中的表项按字母升序方式排列,如图3—102(b)所示。
注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。
(2)在名称为Form1的窗体上,画一个名称为Labe11的标签,其标题为“计算机等级考试”,字体为宋体,字号为12号,且能根据标题内容自动调整标签的大小。
再画两个名称分别为Command1、Command2,标题分别为“缩小”和“还原”的命令按钮(如图3—103所示)。
要求:编写适当的事件过程,使得单击“缩小”按钮,Labe11中所显示的标题内容自动减小两个字号;单击”还原”按钮,Labe11所显示的标题内容的大小自动恢复到12号。
注意:存盘时,将文件保存至考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。
要求程序中不得使用变量,每个事件过程中只能写一条语句。
正确答案:(1)【操作步骤】步骤1:新建一个“标准EXE”工程,如表4—62在窗体中画出控件并设置其相关属性。
步骤2:按要求将文件保存至考生文件夹中。
(2)【操作步骤】步骤1:新建一个“标准EXE”工程,如表4—63在窗体中画出控件并设置其相关属性。
步骤2:打开代码编辑窗口,编写两个命令按钮的Click事件过程。
参考代码:Private Sub Command1_Click( )Labe11.Fontsize=Labe11.FontSize-2End SubPrivate Sub Command2_C1ick( )Labe11.FontSize=12End Sub 步骤3:按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷600(题后含答案及解析)题型有:1.jpg /> 步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考答案PriVate Sub Commandl_Click( ) Text2=Textl.SelLength End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
【易错提示】SelLength属性与SelStart和SelText属性容易混淆,SelStart属性是返回/设置选定文本的起始点,SelText属性是返回/设置当前选定文本的字符串。
解析:selLength属性用于返回/设置选定的字符数,通过文本框的Name 和Caption属性设置文本框的名称和标题,通过命令按钮的Name和Cap.tion 属性设置命令按钮的名称和标题。
简单应用题3.在考生文件夹下有一个工程文件sjt3.vbp。
程序运行后,单击“读入数据”按钮,可将考生文件夹下in3.1xt文件中的所有英文单词读入,并在Textl 文本框中显示;单击“插入列表框”按钮,则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在in3.txt文件中,每个单词之间用一个空格字符隔开,最后一个单词的后面没有空格。
已经给出了所有控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。
最后用原来的文件名保存工程文件和窗体文件。
正确答案:【操作步骤】步骤l:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容) Private Sub Commandl_C1ick( ) Dim st$.ch$ Open App.Path&"\in3.txt"For In—put As#’打开文件Do While Not EOF(1)′文件指针是否到达文件末尾Input#1,ch′达到文件末尾返回true.否则返回false st=st&ch′将读出的数据加到原有数据末尾Loop Close#1′关闭文件Textl=st′将内容显示在文本框中End Sub Private Sub Command2_Click( ) Dim st$,word$,C$ St=Textl n=Len(St) For k=1 TO n c=Mid(st,k,1)′从st 中依次取出1个字符进行比较If c<>""Then word=word&C E1Se Listl.AddItem word word=""将word清空,为下一次作准备End If Next LiStl.AddItem word End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
国家二级VB机试(上机操作)模拟试卷460(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画1个名称为Cbol的组合框,组合框的列表项分别是:北京、天津、上海。
请设置组合框的参数,使其外观如图3-6所示。
窗体的标题是“用组合框”。
注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。
(2)在名称为Form1的窗体上画1个名称为Pl的图片框,窗体的标题为“程序设计”,如图3-7(a)所示。
编写适当的事件过程,使得程序运行后,单击窗体,则在图片框中显示窗体的标题,并把窗体的标题变为Basic,如图3-7(b)所示。
注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。
正确答案:第1小题【操作步骤】步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个组合框。
按表4-3设置其相关属性。
步骤2:按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个图片框。
按表4-4设置其相关属性。
步骤2:在打开的代码编辑窗口中,编写窗体的Click 事件代码。
参考代码:Private Sub Form Click( ) P1.Print Form1.Caption Form1.Caption=”Basic”End Sub 步骤3:按要求将文件保存至考生文件夹中。
简单应用题2.(1)在考生文件夹中有一个工程文件sjt3.vbp,窗体上有2个命令按钮、1.个水平滚动条和1个计时器,其名称分别为Command1、Command2、HScroll1和’Timed,如图3-8(a)所示。
程序运行后,按钮Command1、Command2的标题分别立即显示“开始”“停止”,同时把计时器的Intaval属性设置为100,Enabled 属性设置为False。
国家二级VB机试(上机操作)模拟试卷123(题后含答案及解析) 题型有:1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题1.在名称为Form1的窗体上添加一个名称为Command1的命令按钮,标题为“打开文件”,再添加一个名称为CD1的通用对话框。
程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码:①设置适当属性,使对话框的标题为“打开文件”;②设置适当属性,使对话框的“文件类型”下拉式组合框中有两项可供选择:“文本文件”、“所有文件”(如图所示),默认的类型是“所有文件”;③编写命令按钮的事件过程,使得单击按钮可以弹出“打开文件”对话框。
要求:程序中不得使用变量,事件过程中只能写入一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。
正确答案:[操作步骤]步骤1:新建一个窗体,按照要求建立控件并设置其属性,如图3.21所示。
程序中用到的控件及属性见表3.13。
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考代码Private Sub Command1_Slick( )CD1.ShowOpen’显示打开文件对话框End Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。
2.在名称为Form1的窗体上添加一个名称为Command1的命令按钮,其标题为“移动本按钮”,如图所示。
要求编写适当的事件过程,使得程序运行时,每单击按钮一次,按钮向左移动100。
要求:程序中不得使用变量,事件过程中只能写入一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
正确答案:[操作步骤]步骤1:新建一个窗体,按照要求建立控件并设置相应属性如表3.14所示。
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考代码Private sub Command1_Click( )Command1.Left=Command1.Left—100End Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。
国家二级VB机试(上机操作)模拟试卷353(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.(1)在名称为Form1的窗体上画两个名称分别为Framel、Frame2的框架,标题分别为“字号”、“修饰”;在Framel中画两个单选按钮,名称分别为Optionl、Option2,标题分别为“10号字”、“20号字”,且标题显示在单选按钮的左边;在Frame2中画一个名称为Checkl的复选框,标题为“下划线”。
运行后的窗体如图3.174所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Form1的窗体上从上到下画两个文本框,名称分别为Text1、Text2;再画一个命令按钮,名称为Command1,标题为“选中字符数是”。
程序运行时,在Text1中输入若干字符,选中部分内容后,单击“选中字符数是”按钮,则在Text2中显示选中的字符个数(如图3.175所示)。
请编写按钮的Click事件过程。
要求:不得使用变量,事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
正确答案:(1)步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。
步骤2:按要求将文件保存至考生文件夹中。
(2)步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性,步骤2:打开代码编辑窗口,编写以下事件过程。
参考代码:Private Sub Command1 Click( )Text2.Text=Form1.Text1.SelLengthEnd Sub 步骤3:按要求将文件保存至考生文件夹中。
解析:(1)本题只需按题目在窗体中画出控件,并设置相关属性即可。
(2)要在Text2中显示Text1中选中的字符个数,需编写语句将Text1的SelLength属性返回值赋值给Text2。
第03套1. 基本操作(2小题,每小题15分,共计30分)注意:下面出现的“考生文件夹”均为%USER%**********************************************************************请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Frame1,标题为“目的地”的框架,在框架中添加三个复选框,名称分别为Check1、Check2、Check3,其标题分别是“上海”、“广州”、“巴黎”,其中“上海”为选中状态,“广州”为未选状态,“巴黎”为灰色状态,如图所示。
请画控件并设置相应属性。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
解题思路:启动Visual Basic系统,创建一个Form1窗体。
在该窗体上画一个框架控件,通过其属性窗口将名称设为Frame1,标题(Caption属性)设为“目的地”。
在F1框架中画三个复选框控件,通过其属性窗口将名称分别设为Check1、Check2、Check3,标题(Caption 属性)分别设为“上海”、“广州”、“巴黎”,“上海”的Value属性设为1,“巴黎”的Value属性设为2。
参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:\wexam\26990001中,然后打开sjt1.vbp文件并运行。
**********************************************************************(2)在名称为Form1的窗体上画一个名称为Picture1的图片框,其宽和高分别为1700、1900。
请编写适当事件过程,使得在运行时,单击图片框,则装入考生目录下的图形文件pic1.bmp,如图所示。
计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,下面店铺为为大家带来计算机二级VB上机操作练习题及答案,希望大家喜欢!一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空,表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上,画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求:编写适当的事件过程,使得单击“椭圆”按钮时,Shapel 的形状变换为椭圆;单击“圆”按钮时,Shapel的形状变换为圆。
程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjr2.vbp,窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框,且列表框中已有若干列表项。
程序的功能是,程序运行时,当用户在列表框中单击并选中某个列表项时,该项的内容将显示到文本框中,用户可以在文本框中对相关内容进行编辑,按回车键后,能够用编辑好的内容替换被选中的列表项,并自动清空文本框;当双击某个列表项时,则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后,则把该文本添加为列表框的一个新列表项,添加完成后,将文本框清空。
运行窗体如图所示。
要求:程序已经给出,但不完整,请将其中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
1.在窗体上建立一个二级菜单,该菜单含有“文件”和“帮助”两个主菜单项(名称分别为vbFile和vbHelp),其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项(名称分别为vbOpen、vbClose和vbExit)。
只建立菜单,不必定义其事件过程。
注意:保存时必须存放在考生文件夹下,窗体文件名为kt1.frm,工程文件名为kt1.vbp。
2.在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。
编写适当的事件过程,要求程序运行后,如果单击“喜欢”命令按钮,则在窗体上显示“数理化”;如果单击“不喜欢”命令按钮,则在窗体上显示“政史地”。
程序中不能使用任何变量,直接显示字符串。
注意:保存时必须存放在考生文件夹下,窗体文件名为kt2.frm,工程文件名为kt2.vbp。
一、基本操作题答案1.【解题步骤】(1)打开“菜单编辑器”。
(2)菜单设计见表4-1。
表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0(3)按要求设计含有“文件”和“帮助”的菜单栏。
(4)为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。
(5)设计完成之后,按规定方式存盘。
2.【解题步骤】(1)建立界面和控件并设置控件属性。
程序中用到的控件及其属性见表4-2。
表4-2控件属性设置值按钮Name Cmd1Caption喜欢按钮Name Cmd2Caption不喜欢(2)编写程序代码。
参考代码:Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub(3)调试并运行程序。
全国计算机等级考试二级VB上机试题及答案(三)基本操作(2小题,每题15分,共30分)****************************************************************请根据以下各小题的要求设计VB应用程序(包括界面和代码)。
请根据以下各个小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画两个文本框,名称分别为T1、T2,初始情况下都没有内容。
请编写适当的事件过程,使得在运行时,在T1中输入的任何字符,立即显示在T2中(如图所示)。
程序中不得使用任何变量。
*注意:存盘时必须存放在考生文件下,工程文件名为sjt1.vbp,窗体文件名为stj1.frm。
(2)在名称为Form1的窗体上画一个文本框,名称为Text1,内容为"VB程序设计";再画两个命令按钮,其名称分别为Command1和Command2,标题分别为"扩大"和"缩小",如图所示,编写适当的事件过程。
程序运行后,每单击Command1命令按钮一次,文本框中的文本的字体扩大1.2倍;每单击Command2按钮一次,文本框中文本的字体缩小1.2倍。
程序运行的界面如图所示。
****************************************************************参考答案与分析(1)【解析】本题主要考查的是文本框的Change事件的用法。
当用户向文本框中输入新信息,或程序把Text属性设置为新值从而改变文本框的Text属性时,将触发Change 事件。
程序运行后,在文本框中每键入一个字符,就会引发一次Change事件。
在本题中要求当在一个文本框中输入字符时在另一个文本框中立即显示该字符,就可以通过在文本框1即T1的Change事件中将T1的Text属性赋值给T2的Text 属性,就可以实现两个文本框中的内容的同步变化。
【答案】步骤1:启动VB,新建工程文件。
步骤2:设计窗体。
根据题意,该用户界面包括三个对象,即窗体和两个文本框。
单击工具箱中的文本框图标,在窗体的适当位置画一个文本框。
画完后,文本框内自动标有Text1。
重复以上步骤,再添加一个文本框为Text2。
步骤3:设置属性。
根据题意,窗体的名称(Name)和标题(Caption)属性都为默认的Form1,因此无需再为其重新设置属性。
单击Text1,将其激活,在属性窗口中将其Name属性改为T1。
然后单击Text2,使其变为活动控件,在属性窗口中将其Name属性改为T2。
根据题意,在初始情况下,两个文本框中都没有内容,这可以通过在属性窗口中将其Caption属性设置为空值或在代码窗口中的"Form1_Load"事件中通过代码来实现。
本题采用编写代码来实现。
设置完属性之后就可以通过双击窗口进入代码编辑窗口编写代码如下:1 Private Sub Form_Load()2 T1.Text = ""3 T2.Text = ""4 End Sub5 Private Sub T1_Change()6 T2.Text = T1.Text7 End Sub步骤4:保存。
程序设计完成经调试无误后进行存盘。
执行"文件"菜单中的"保存工程"命令,打开"文件另存为"对话框,窗体文件名为"Stj1.form",单击保存按钮。
然后在紧接着出现的"工程另存为"对话框中选择工程文件名为"Stj1.vbp",单击保存按钮。
(2)【解析】本题主要考查对象的Left属性的概念。
Left属性使用来设置对象的左边的坐标值,坐标值的默认单位为twip。
当用程序代码设计时其格式为:对象. Left[=x]。
这里的对象可以是窗体和绝大多数控件。
当"对象"为窗体时,Left指的是窗体得左边界于屏幕左边界的相对距离;而当"对象"为控件时,Left指控件的左边界与窗体的左边的相对距离。
和Left属性相同的还有top属性,它是用来设置对象的顶边的坐标值,其对象的概念和Left属性中相同。
本题要求单击按钮后文本框水平移动到窗体的最左端。
对象为文本框,它的Left值是相对于窗体的左边界来说的,因此当它移动到窗体最左端时其Left值为0。
【答案】步骤1:启动VB,新建一个工程文件。
步骤2:画一个文本框,Name属性设为Text1,Text属性设为空。
再画两个命令按钮,Name属性设为Command1和Command2,Caption 分设为"扩大"和"缩小"。
步骤3:编写程序源代码:1 Private Sub Command1_Click()2 Text1.FontSize = Text1.FontSize * 1.23 End Sub4 Private Sub Command2_Click()5 Text1.FontSize = Text1.FontSize / 1.26 End Sub步骤4:保存。
程序设计完成经调试无误后进行存盘。
以Stj2.vbp和sjt2.frm 进行保存。
简单操作(2小题,每题20分,共40分)****************************************************************请根据以下各小题的要求设计VB应用程序(包括界面和代码)。
(1)在窗体中建立一个图片框,名为Picture1。
再建立一个控制按钮,名称为Cmd1,标题为"画点"。
要求程序运行时,单击"画点"按钮,则在图片框的中心画出一个点。
程序运行时的界面如图所示。
(2)在名称为Form1的窗体上,画一个形状控件和一个命令按钮。
形状控件为直径为1000的圆形,名称为Shp1。
命令按钮为Cmd1,标题为"隐藏"。
编写适当的事件过程,使得程序运行时,单击命令按钮,圆形将隐藏起来。
程序运行时的界面如图所示。
****************************************************************参考答案与分析(1)【解析】关于图片框控件的加载,与以上的例题一样,本题中要求在Cmd1的Click事件过程中在图片框中画点,这就要求考生掌握Pset方法,Pset方法的格式为:对象名.Pset(x,y),其中x,y为点的坐标。
同时,题目要求是在图片框的中心画点,故我们令x=Me.Picture1.Width / 2,y=Me.Picture1.Height / 2,这里,我们可以看出,因为是在图片框中画点,所以坐标是相对于图片框的,需要引起注意。
【答案】第一步:启动VB,新建一个工程文件。
第二步:单击工具箱中的"图片框"控件,在窗体上画一个图片框,设置其Name 属性为Picture1,再画一个命令按钮,设置其Name属性为Cmd1,Caption属性为"画点"。
第三步:编辑源程序代码:1 Private Sub Command1_Click()2 Me.Picture1.PSet (Me.Picture1.Width / 2, Me.Picture1.Height / 2)3 End Sub第四步:调试并运行程序,运行正确后按要求保存。
(2)【解析】题目要求画一个圆,可采用图形控件Shape。
Shape属性有6个设置或返回值。
0-矩形(默认),1-正方形,2-椭圆形,3-圆形,4-四角圆化的矩形,5-四角圆化的正方形。
同时圆形的直径通过Height属性实现。
另外,要求在Command事件过程中使其不可见,那只要令其的Visible属性为False即可。
【答案】第一步:启动VB,新建一个工程文件。
第二步:单击工具箱中的Shape控件,在窗体上画一个形状控件,Name为Shp1,Shape属性设为3,Height为1000。
再画一个命令按钮,Name为Cmd1,Caption 为"隐藏"。
第三步:编写程序源代码:1 Private Sub Cmd1_Click()2 Shp1.Visible = False3 End Sub第四步:调试并运行程序,运行正确后按要求保存。
综合应用(1小题,共30分)****************************************************************请根据以下各小题的要求设计VB应用程序(包括界面和代码)。
在考生文件夹下有一个工程文件stj5.vbp,已经给出了所有的控件(如图所示)和部分程序。
程序运行时,请按以下顺序操作:(1)单击"读入文件"按钮,把考生目录下的inzhyy11.txt文件中的内容读入内存并显示在上面的文本框Text1中;(2)单击"加密"按钮,则可对Text1中的内容进行加密并显示在下面的文本框Text2中;(3)单击"存结果"按钮则把Text2中的内容存到outzhyy11.txt文件中,加密规则:对于第奇数个字符,若是字母,则把它变为它后面的字符(若为"Z"则变为"A"),不是字母则不变;对于第偶数个字符,若是字母,则把它变为它前面的字符(若为"A"则变为"Z"),不是字母则不变。
大小写字母都遵循此规则。
已经给出"存结果"按钮的Click事件过程和函数isletter,函数isletter(a As String)判断变量a中是否为一个字母,是则返回True,否则返回False,可以直接调用。
请编写"读入文件"按钮和"加密"按钮的Click事件过程,以实现上述功能。
注意:不得修改已经有的程序,最后必须用"存结果"按钮保存加密结果,否则无成绩,而且所有文件必须以原文件名保存。
****************************************************************参考答案与分析【解析】判断一个字符是否为字母的程序已经给出,我们只需调用即可,题目要求我们自己完成文件读取和文件加密的代码编写。
Command1事件过程是完成文件的读取,并显示在文本框中。