二级Visual+Basic语言程序设计模拟143

1、 模拟 二级 Visual Basic 语言程序设计模拟 143单项选择题第 1 题： 下列合法的变量名是A. sum-aB. num_9C. print$D. 5avg参考答案： BVB中变量的命名规则为：必须以字母或汉字开头由字母、 汉字、数字或下划 线组成不能使用VB的保留字。变量名sum-a中有减号，不合法；print是 VB保留字，不能作变量名，不合法；5avg不能以数字开头，不合法。故选 B。 第 2 题：以下关丁 VB的叙述中，错误的是（）。A. VB 采用事件驱动方式运行B. VB 既能以解释方式运行，也能以编译方式运行C. VB程序代码中，过程的书写顺序与执行顺序无关D. V

2、B中一个对象对应一个事件参考答案： DVB 中一个对象可以对应一个或多个事件，事件可由用户或系统触发，触发后执 行相应的事件过程。 不过， 不一定一个对象的所有事件过程都执行， 响应哪个事 件过程就执行哪个。故D选项错误。第 3 题：下列关于数据库设计的叙述中，正确的是 A. 在需求分析阶段建立数据字典B. 在概念设计阶段建立数据字典C. 在逻辑设计阶段建立数据字典D. 在物理设计阶段建立数据字典参考答案： A数据字典是在需求分析阶段建立， 在数据库设计过程中不断修改、 充实和完善的 第 4 题：为了使模块尽可能独立，要求（ ）。A. 模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B.

3、模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C. 模块的内聚程度要尽量低，且各模块间的偶合程度要尽量弱D. 模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强 参考答案： B系统设计的质量主要反映在模块的独立性上。 评价模块独立性的主要标准有两个： 一是模块之间的耦合， 它表明两个模块之间互相独立的程度； 二是模块内部之间 的关系是否紧密，称为内聚。一般来说，要求模块之间的耦合尽可能地弱，即模 块尽可能独立，而要求模块的内聚程度尽量地高。综上所述，选项B)的答案正确。第 5 题：设有窗体的Form MouseMove事件过程如下：Private Sub Form MouseMove(

4、Button As Integer ， Shift AsInteger ， X As Single ， Y As Single)If(Button And 3)=3 ThenPrint “检查按键”End IfEnd Sub 关于上述过程，以下叙述中正确的是 ()。A. 按下鼠标左键时，在窗体上显示“检查按键”B. 按 F 鼠标右键时，在窗体上显示“检查按键”C. 同时按下鼠标左、右键时，在窗体上显示“检查按键”D. 不论做何种操作，窗体上都不会显示参考答案： C第 6 题： 下列数据结构中，属于非线性结构的是 。A. 循环队列B. 带链队列C. 二叉树D. 带链栈 参考答案： C树是简单的非

5、线性结构，所以二叉树作为树的一种也是一种非线性结构。 第 7 题：算法一般都可以用哪几种控制结构组合而成 。A. 选择、分支、递归B. 顺序、循环、选择C. 循环、递归、选择D. 顺序、选择、嵌套 参考答案： B算法的控制结构给出了算法的基本框架， 它不仅决定了算法中各操作的执行顺序， 而且也直接反映了算法的设计是否符合结构化原则。 一个算法一般都可以用顺序、 循环、选择三种基本控制结构组合而成。 本题答案为 B。 知识点 选项个数 4 试题编号 分数 题目类型 难度 第 8 题：窗体上有一个 Text1 文本框，并编写了下面事件过程：Private Sub Text1_KeyPress(Ke

6、yAscii As Integer)KeyAscii = KeyAscii + 3End Sub程序运行时，在文本框中输入字符“ A”，则在文本框中实际显示的是（）。A. AB. BC. CD. D参考答案： DKeyPress 事件执行时，其中的 KeyAscii 参数是所按键的 ASCII 码，按下“ A” 键，KeyAscii的值为65,在过程中65+3 = 68，即A字符后面的第3个字符的 ASCII码值，即字符“ D”，因此在文本框中实际显示的是“ D'。第 9 题： 下列叙述中，正确的是 （） 。A. 软件交付使用后还需要进行维护B. 软件一旦交付使用就不需要再进行维护C.

7、 软件交付使用后其生命周期就结束D. 软件维护是指修复程序中被破坏的指令参考答案： A软件的运行和维护是指将已交付的软件投入运行，并在运行使用中不断地维护， 根据新提出的需求进行必要而且可能的扩充和删改。 而软件生命周期是指软件产 品从提出、实现、使用维护到停止使用退役的过程。第 10 题： 下列叙述中正确的是 A. 有一个以上根结点的数据结构不一定是非线性结构B. 只有一个根结点的数据结构不一定是线性结构C. 循环链表是非线性结构D. 双向链表是非线性结构参考答案： B线性结构应满足： 有且只有一个根结点与每个结点最多有一个前件， 也最多有一 个后件，所以B正确。所以有一个以上根结点的数据结

8、构一定是非线性结构， 所 以A错误。循环链表和双向链表都是线性结构的数据结构。第 11 题：程序流程图（PFD）中的“”代表的是 。A. 加工步骤B. 数据流C. 控制流D. 组成关系参考答案： A“f”或“J”表示控制流，“”表示加工步骤，“”表示逻辑条件。知识点 选项个数 4 试题编号 分数 题目类型 难度第 12 题：假定通用对话框的名称为CDI，命令按钮的名称为Command1则单击命令按钮 后，能使打开对话框的标题为”通用对话框”的事件过程是 () 。A. Private Sub Command1_cIick( ) CDIDiaIogTitIe= “通用对话框” CD1 ShowPr

9、inter End SubB. Private Sub Command1_CIick( ) CDIDiaIogTitIe= “通用对话框” CDIShowFont End SubC. Private Sub Command1_CIick( ) CD 1DiaIogTitIe= “通用对话框” CDIShowOpen End SubD. PrivateSub Command1_CIickO CD 1 DiaIogTitIe= “通用对话框”CDIShowCoIor End Sub 参考答案： C考查通用对话框的常见属性。通用对话框的标题属性为 DiaIogTitIe ，如果要打 开”打开”对话框

10、可以设置 CDI的Action属性为1或者使用ShowOpen方法。 第 13 题：在设计窗体时双击窗体的任何地方，可以打开的窗口是 ()。A. 代码窗口B. 属性窗口C. 工程资源管理器窗口D. 工具箱窗口 参考答案： A设计窗体时双击窗体的任何地方，默认打开的是代码窗口。故选A。第 14 题：在窗体上画一个名称为 Comma nd的命令按钮，并编写如下程序：Function Fun(X)y = 0If X 10 ThenY = xEIseY=丫十 10End IfFun=vEnd FunctionPrivate Sub Comma ndl Click()n=InputBox( “请输入一个

11、数” )n=Val(n)P=Fun(n)Print PEnd Sub运行程序，单击命令按钮，将显示输入对话框，如果在对话框中输入 100，并单击“确定”按钮，则输出结果为 ()。A. 10B. 100C. 110D. 出错信息参考答案： A程序中输入 100，则调用过程为 Fun(100) ，过程 Fun 中判断参数是否小于 10， 小于10则将此值赋给y，如果不小于10,则变量y值加10,由于100不小于 10,所以y值加10,等于10,并将此值做为函数值返回。因此输出结果为10。第 15 题：要计算x的平方根并放入变量y,正确的语句是()。A. y=Exp(x)B. y=Sgn(x)C.

12、y=Int(x)D. y=Sqr(x) 参考答案： D第 16 题：设 a=“ Visual Basic ”，下面语句中可使 b=“Basie ”的是()。A. b=Left(a,8)B. b=Mid(a,8,5)C. b=Right(a,8)D. b=Left(a,8,5)参考答案： B考查字符串处理函数。字符串函数 Left 以及 Right 表示从主串的左边或者右边 开始取连续个字符构成子串， 函数有两个参数， 第一个参数为字符串， 第二个参 数为整数。而 Mid 函数表示从主串中的某个字符开始连续取若干个字符构成子 串。第 17 题：窗体上命令按钮Comma nd的事件过程如下：0pt

13、ion Base 1Private Sub Command 1_Click()Dim a(4 ，4)As VariantFor i=1 To 4For j=1 To 4a(i ，j)=(i-1)*3+jNext jNext iFor i=3 To 4For i=3 To 4Print a(i，j)Next jNext iEnd Sub 该程序执行后，输出结果是 ()。A.B.C.D. 参考答案： A本题考查二维数组元素的赋值。二维数组中 a 中第 i 行 j 列元素为 （i-1）*3+j ， i 、j 分别从 3 变化到 4，因此，输出 a（3 ，3） 、a（3 ，4） 、a（4 ，3） 、a

14、（4 ，4）的元 素为：9 10 12 13 。第 18 题：在窗体上有两个名称分别为 Textl、Text2的文本框，一个名称为 Comma nd的 命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明：Private Type Personname As String*8major As String*20End TypeDim p As Pemon设文本框中的数据已正确地赋值给 Person类型的变量p,当单击“保存” 按钮时，能够正确地把变量中的数据写入随机文件 Test2.dat 中的程序段是A. Open"c:Test2.dat"For Output A

15、s#1 Close#1B. Open"c:Test2.dat"For Random As#1 Close#1C. Open"c:Test2.dat"For Random As#1 Len=Len(P) Close#1D. Open"c:Test2.dat"For Random As#1 Len=Len(P) Close#1 参考答案： CPut#1 ， 1 ， PGet#1 ， 1.PPut#1 ， 1， pGet#1 ， 1， P在 VB 中可以访问的文件有：顺序文件、随机文件和二进制文件。不同的文件存 取方式不同，但处理的步骤大致

16、一样。用Open语句打开文件，并为文件制定一个文件号。根据文件的存取方式使用不同的模式打开文件。本题是随机文件，读写的是一条一条的记录，所以用For Ran dom模式打开，记录的长度为 Person 类型变量 p 的长度。从文件中读出数据进行处理或处理数据后，把数据写入文件。本题是把变量的数据写入随机文件，所以用 Put语句写入。文件操作结束，关闭文件。各种文件关闭统一用“Close#文件号”语句关闭。综合一下，故选C选项。第 19 题： 下列关于栈的叙述中正确的是 () 。A. 在栈中只能插入数据，不能删除数据B. 在栈中只能删除数据，不能插入数据C. 栈是先进后出(FILO)的线性表D.

17、 栈是先进先出(FIFO)的线性表参考答案： C栈是限定在一端进行插入与删除的线性表。 栈是按照“先进后出” 的或后进先出 的原则组织数据的，因此，栈也被称为“先进后出”表或“后进先出”表。本题 答案是 C。第 20 题：如果将布尔常量值 True 赋值给一个整型变量，则整型变量的值为A. 0B. -1C. TrueD. False 参考答案： B 知识点 选项个数 4 试题编号 分数 题目类型 难度 第 21 题：结构化程序设计的 3 种结构是 () 。A. 顺序结构，分支结构，跳转结构B. 顺序结构，选择结构，循环结构C. 分支结构，选择结构，循环结构D. 分支结构，跳转结构，循环结构参考

18、答案： B程序设计语言仅仅使用顺序、 选择和重复 (循环)三种基本控制结构就足以表达出 各种其他形式结构的程序设计方法。 遵循程序结构化的设计原则， 按结构化程序 设计方法设计出的程序易于理解、 使用和维护； 可以提高编程工作的效率， 降低 软件的开发成本。第 22 题： 工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是： Public x As IntegerPrivate y As Integer 窗体文件的程序代码是： Dim a As IntegerPrivate Sub Form_Load()Dim b As Integera = 2: b= 3: x = 10: y=

19、 20End SubPrivate Sub Command1_Click()a = a+ 5: b= b+ 5: x = x + 5: y = y + 5Print a ； b ； x ； yEnd Sub 运行程序，单击窗体上的命令按钮，则在窗体上显示的是 。A. 5 5 15 5B. 7 5 15 25C. 7 8 15 5D. 7 5 15 5参考答案: D程序在模块文件中定义 x 为整型全局变量， 在整个工程中都起作用， 而 y 定义为 整型私有变量，只能在本模块文件中起作用。在窗体文件中变量a在本窗体文本 中起作用，窗体加载事件中定义的变量 b和没有声明的变量y,只在本事件过程 起作

20、用。程序窗体加载时，对后边有影响的变量值为 a为2, x为10，没有指定 初值的变量值默认为0,因此单击命令按钮后，a = a+ 5= 7, b= b+ 5 = 5, x = x+ 5= 15, y = y + 5 = 5,结果输出 7 5 15 5 。第 23 题：在过程定义中, Private 表示() 。A. 此过程可以被其他过程调用B. 此过程不可以被任何其他过程调用C. 此过程只可以被本工程中的其他过程调用D. 此过程只可以被本窗体模块中的其他过程调用参考答案： D本题考查。 Private 的含义。 Private 表示了过程或者变量的访问权限,仅局限 于定义的窗体和模块,也就是此

21、过程只可以被本窗体模块中的其他过程调用。第 24 题：下列不属于 Visual Basic 系统的文件类型是 。A. .frmB. .batC. .vbgD. .vbp参考答案： B第 25 题： 关系表中的每一横行称为一个( )A. 元组B. 字段C. 属性D. 码参考答案： A关系表中,每一行称为一个元组,对应表中的一条记录；每一列称为一个属性, 对应表中的一个字段； 在二维表中凡能唯一标识元组的最小属性集称为该表的键 或码。第 26 题： 下列叙述中正确的是 ()。A. 线性表的链式存储结构与顺序存储结构所需要的存储空问是相同的B. 线性表的链式存储结构所需要的存储空间一般要多于顺序存储

22、结构C. 线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D. 线性表的链式仔储结构与顺序存储结构在存储空间的需求上没有可比性 参考答案： B线性链式存储结构中每个结点都由数据域与指针域两部分组成, 增加了存储空间, 所以一般要多于顺序存储结构。第 27 题：设a=6,则执行x=llf（a > s，一 1, 0）后，x的值为<A. 5B. 6C. 0D. 一 1参考答案： D本题考查 llf 函数。 llf 函数可用于执行简单的条件判断操作，其中“ result ” 是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时， llf 函数返 回” True部分”的值：当

23、“条件”为假时返回“False部分”的值。“True部分” 或“False部分”可以是表达式、变量或其他函数。题目中 a大于5成立，因此 表达式值为 -1 。第 28 题：设在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String * 10TelNum As String * 20End Type在窗体上画一个名为Comma nd的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成 该操作的事件过程是（ ）。A. Private Sub Command1_Click（） Dim B

24、 As Books Open "c:Person.txt"For Output As #1 B.Name = lnputBox（" 输入姓名 "） B.TelNum = lnputBox（" 输入电话号码 "） Write #1,B.Name,B.TelNum Close #1 End SubB. Private Sub Command1_Click（） Dim B As Books Open "c:Person.txt"For lnput As #1 B.Name = lnputBox（" 输入姓名 &

25、quot;） B.TelNum = lnputBox（" 输 入电话号码 "） Print #1,B.Name,B.TelNum Close #1 End SubC. Private Sub Command1_Click（） Dim B As Books Open "c:Person.txt"For Output As #1 B.Name = lnputBox（" 输入姓名 "） B.TelNum = lnputBox（" 输入电话号码 "） Write #1,B Close #1 End SubD. Privat

26、e Sub Command1_Click（） Open "c:Person.txt" For lnput As#1 Name = lnputBox（" 输入姓名 "） TelNum = lnputBox（" 输入电话号码 "） Print #1,Name,TelNum Close #1 End Sub参考答案： A数据文件的写操作分为 3 步，即打开文件、写入文件和关闭文件。 首先，在顺 序文件中打开文件的方式为：Open文件名For Output As # 文件号。因此排除 B）、C）选项，只看A）、D）选项。其次，写入顺序文件Pr

27、int #语句的格式 为：Print #文件号,变量名,变量名，Write语句的格式与Print语句的格式 一样： Write # 文件号, 变量名 , 变量名。而记录类型变量不能整体引用，需要指 明记录变量中的成员名，格式为：记录变量名.成员名，Books类型变量B成员 Nameffi TelNum赋值和引用应该是 B.Name B.TelNum,因此A）选项正确。第 29 题： 下列标签属性中属于逻辑型的是 。A. CaptionB. BorderStyleC. VisibleD. Name参考答案： C第 30 题： 运行下面的程序，单击命令按钮，输出结果为 () Function F(

28、a As Integer)b=0Static cb=b+1c=c+1F=a+b+CEnd FunctionPrivate Sub Command1_Click()Dim a As Integera=2For i=1 To 3Print F(a)NextiEnd SubA.B.C.D.参考答案： B考查变量。局部变量如果使用Dim声明，随过程的调用而分配存储单元，每次调 用都对变量初始化，过程体结束，变量的内容自动消失，并释放存贮单元；如果 使用Static声明，则每次调用过程，变量保持原来的值。在F函数被调用3次的过程中，变量c每次都保留前一次的值，而b则每次调用都初始化为0。 第 31 题：

29、为了使文本框只具有垂直滚动条，应先把 MuhiLine属性设嚣为True，然后再 把 ScrollBars 属性设置为 () 。A. 0B. 1C. 2D. 3参考答案： C文本框的 ScrollBars 属性值：0表示无滚动条， 1表示只有水平滚动条， 2表示 只有垂直滚动条， 3 表示水平和垂直滚动条都有。 本题文本框只其有垂直滚动条， 则ScrollBar属性值就设置为2,故C选项正确。第 32题：设有如下事件过程：Private Sub Command1_Click()For i=1 To 5j=iDoPrint"*"j=j-1Loop Until j=0Next

30、iEnd Sub运行程序，输出 "*" 的个数是 。A. 5B. 15C. 20D. 25参考答案： Bi=1 时，输出 1个*， i=2 时，输出 2 个*， i=3 时，输出 3 个*， i=4 时输出 4个 *， i=5 时输出 5个* ，因此总共输出 *的个数是 1+2+3+4+5=15。 知识点 选项 个数4 试题编号 分数 题目类型 难度第 33 题：在窗体上画一个文本框(其 NameB性为Text1 )，然后编写如下事件过程：Private Sub Form_Load( )Text1.Text=" "Text1.SetFocusFor i=

31、1 To 9 Sum=Sum+iNext iText1.Text=SumEnd Sub 上述程序的运行结果是( )。A. 在文本框 Text1 中输出 45B. 在文本框 Text1 中输出 0C. 出错D .在文本框 Text1 中输出不定值 参考答案： C由于 Form_load 事件是在窗体加载时发生，所以此时窗体还没有显示，不能用 “Text1.SetFocus ”语句获得焦点，故出错。如要改正，需要在此语句前加入“Me.ShoW，显示窗体，则可以看到文本框已获得焦点，并执行循环语句，输 出“ 45”。第 34 题： 某人编写了下面的程序，希望能把 Text1 文本框中的 内容写到 T

32、emp txt 文件中Private Sub Command 1_Click()Open”Temptxt ”For Output As#2Print ”Text1 ”Close#2End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是 () 。A. 把所有#2改为#1B. 把 Print ”Text1 ”改为 Print#2 ， Text1C. 把 Print ”Text1 ”改为 Write ”Text1 ”D. 把 Print ”Text1 ”改为 Print Text1 参考答案： B是一个文件输出的问题。若要对以 Output 形式打开的某文件使用 Print 方法进 行

33、输出，标准格式为 Print 文件号，字符串。第 35 题：下面列表框属性中，是数组的是( )。A. ListCountB. SelectedC. ListIndexD. MultiSelect参考答案： B在列表框控件中， Selected 属性是一个数组，各个元素的值为 True 或 False ， 每个元素与列表框中的一项相对应，当元素值为 True 时表明选择了该项，为 False 时表示未选择。 ListCount 属性值是一个数组，它列出列表框中表项的数 量； ListIndex 属性值表示已选中的表项的位置，表项位置由索引值指定，第一 项索引值为 0，第二项为 1，以此类推； M

34、ultiSelect 属性用来设置一次可以选 择的表项是一项、多项或是指定范围。因此本题选 B)。第 36 题： 在面向对象方法中，不属于 " 对象" 基本特点的是 。A. 一致性B. 分类性C. 多态性D. 标识唯一性参考答案： A对象有如下一些基本特点：标识唯一性、分类性、多态性、封装性、模块独立性 好。所以选择 A。第 37 题：有两个关系R, S如下，由关系R和S通过运算得到关系T,则所使用的操作为A. 并B. 自然连接C. 笛卡尔积D. 差参考答案： D常用的扩充运算有交、除、连接及自然连接等。并：RS是将S中的记录追加到R后面。差：R-S结果是属于R但不属于S的

35、记录组成的集合。交：RS结果是既属 于R又属于S的记录组成的集合。差运算R -S :关系R中两条记录其中(b 1 n1)不属于S,所以R-S=T0 D选项正确。第 38 题：命令按钮Comma nd的事件过程如下：Private Sub Command1_Click()Dim arr(5,5)As IntegerDim i As Integer, j As IntegerFor i=1 To 4For j=2 To 4 arr(i,j)=i+jNext jNext iPrint arr(1,3)+arr(3,4)End Sub 执行上述过程，输出结果是A. 6B. 7C. 11D. 12参考答

36、案： C当用 Dim 语句定义数组时，该语句把数组中的全部元素都初始化为0，而把字符串数组中的全部元素都初始化为空字符串。 程序中利用 For 循环为数组 arr 的部 分元素赋值这些元素的第一维范围是14,第二维的范围是24,值为两维下标的和。程序要输出 arr(1,3)+arr(3,4) 的值， arr(1,3) 值为 1+3=4， arr(3,4) 值为 3+4=7。4+7=11,因此程序输出结果为 11。第 39 题：设 x 为一整型变量,且情况语句的开始为： SelectCase x ,则不符合语法规则 的 case 子句是 () 。A. Case ls 20B. Case 1 To

37、 10C. Case 0 Is And IS 20D. Casc2, 3, 4参考答案： C select case 语句中表达式的形式呵以是： 常量或变量；若干符合条件的值用“,” 隔开；表达式1 to表达式2; Is关系表达式。本题中选项 A B和D都符合语法 规则。选项C中Is火系表达式语法错误，它可以是Is > 0或Is 20 ,但不能 是组合的0 Is And Is 20。故C选项错误。第 40 题： 软件需求分析阶段的工作,可以分为四个方面：需求获取、编写需求规格说明 书、需求评审和 () 。A. 阶段性报告B. 需求分析C. 需求总结D. 都不正确参考答案： B软件需求分析

38、阶段的工作,可以概括为四个方面：需求获取、需求分析、编写需 求规格说明书和需求评审。需求获取的目的是确定对目标系统的各方面 需求。涉及到的主要任务是建立获取用户需求的方法框架， 并支持和监控需求获 取的过程。 需求分析是对获取的需求进行分析和综合，最终给出系统的 解决方案和目标系统的逻辑模型。 编写需求规格说明书作为需求分析 的阶段成果，可以为用户、 分析人员和设计人员之间的交流提供方便， 可以直接 支持目标软件系统的确认，又可以作为控制软件开发进程的依据。 需求评审是对需求分析阶段的工作进行复审，验证需求文档的一致性、可行性、 完整性和有效性。基本操作题第 41 题：（ 1）在名称为 For

39、m1 的窗体上用名称为 Shape1 的形状控件画一个长、宽均为 1200 的正方形。请设置适当的属性以满足下列要求。 窗体的标题为“正方 形”，窗体的最小化按钮不可用。 正方形的边框为虚线（线型不限）。程序运行后的窗体如下图所示。 注意：存 盘时必须存放在考生文件夹下， 工程文件名保存为 sjt1.vbp ，窗体文 件名保存为sjtl.frm 。（2）在名称为Forml、标题为“标签”的窗体上，添加一个可自动调整大小的标签，名称为 Label1 ，其标题为“计算机等级考试”，字体大小为三号字，再添加两个命令按钮，标题分别是“宋体”和“黑体”，名称分别为 Comma ndlComma nd2如

40、 下图所示。要求：编写两个命令按钮的 Click事件过程。程序运行后，如果单击“宋体”命令按钮，则标签标题显示为宋体字体； 如果单击“黑体”按钮，则标签标题显示为黑体字体。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必 须存放在考生文件夹下， 工程文件名保存为 sjt2.vbp ，窗体文件名保存为 sjt2.frm 。参考答案：(1) 步骤 1 ： 新建一个窗体， 将窗体的名称设置为“ Form1”，Caption 属性设置为“ 正方形”， MinButton 属性设置为“ False ”。向窗体中添加一个 形状控件，将其名称设置为“ Shape1”，BorderStyle 属性

41、设置为“ 3 - Dot”， Width 属性设置为 1200，Height 属性设置为 1200，Shape 属性设置为“ 1 - Square”。 步骤 2 ：调试并运行程序，关闭程序后按题目要求存盘。(2) 步骤 1 ： 建立界面， 将 Form1 窗体的 Caption 属性设置为“标签”。向窗体中 添加 1 个标签控件，将其名称设置为 “ Label1 ”，Caption 属性设置为“计算机 等级考试” ,FontSize属性设置为“三号字” ,AutoSize属性设置为“ True”。 再向窗体中添加两个命令按钮， 将其名称分别设置为 “ Command”1、“Command”2，

42、 Caption 属性分别设置为“宋体”、“黑体”。 步骤 2 ：打开代码编辑窗口， 在指定位置编写如下代码。 Private Sub Command1_Click( ) Label1.Font = " 宋体 " End Sub Private Sub Command2_Click( )Label1.Font = "黑体 " End Sub 步骤 3 ：调试并运行程序，关闭程序后按题目要求存盘。 第 42 题：在名称为Forml的窗体上添加一个图片框，名称为 Pic，通过属性窗口将考生 文件夹下的文件 Tu1-1.jpg 添加到图片框，然后编写适当的事件

43、过程。运行程 序时，单击窗体，在图片框中显示“ VB等级考试”，如图所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名保存为 sjt1.vbp ，窗体文件名保存为 sjt1.frm 。参考答案：步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件 及属性见表。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。Private SubForm_Click() Pic.Print "VB 等级考试 " End Sub 步骤 3：调试并运 行程序，关闭程序后按题目要求存盘。通过图片框的 Name和Picture

44、 属性设置图片框的名称和加载图片。在 Form_Click事件过程中，通过图片框的 Print方法，在图片框中显示“ VB等级 考试”。知识点图片框的Name和Picture属性以及图片框Print方法。选 项个数 0 试题编号 分数 题目类型 难度 简单应用题 第 43 题：在考生文件夹下有一个工程文件 sjt3.vbp，在Forml的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时，单击“开始计数”按 钮，就开始计数 (如图所示) ，每隔 1秒，文本框中的数加 1；单击“停止计 数”按钮，则停止计数。要求：修改适当的控件的属性，并去掉程序中的注释 符，把程序中的 ?改为正

45、确的内容，使其实现上述功能，但不能修改程序中的其 他部分。最后将修改后的文件以原来的文件名存盘。参考答案：步骤 1：打开本题工程文件， 设置计时器 Interval 属性为 1000，Enabled 属 性设置为False。 步骤2：打开代码编辑窗口，去掉程序中的注释符，将 问号改为正确的内容。 Private Sub C1_Click(Index As Integer) SelectCase Index '通过控件下标确定单击哪一个按钮 Case 1 Timerl.Enabled=FalseCase 0 '控制 下标从 0开始，此处应为 0Timer1.Enabled=Tru

46、e End Select End Sub Private Sub Timer1_Timer() Text1.Text=Text1.Text'Textl中的内容加1显示 End Sub 步骤3:调试并运行程序，关闭程序后按题目要求存盘。首先打开本题工程文件， 设置计时器 Interval 属性为： 1000， Enabled 属性 设置为 False ，实现开始计数的时间间隔为 1 秒，计时器不可用。运用 Select Case语句，通过命令按钮数组的Index属性值确定是“开始计数”或是“停止计 数”按钮，通过设置 Timer1 的 Enabled 属性，实现对开始计数和停止计数的操

47、作。 Timer1_Timer 事件过程用于使文本框中的数值加 1。 知识点计时器的： Interval 和Enabled属性、命令按钮数组的Index属性、Select Case语句以及 文本框的 Text 属性。 选项个数 0 试题编号 分数 题目类型 难度 第 44 题： 在考生文件夹下有一个工程文件 sjt4.vbp ，运行情况如图所示。程序的功能是 计算下列表达式的值：Z=(X+2)A2+(X+3)A3+(X+4)A4+ +(X+N)AN其中N和x的值通过键盘分别输入到文本框 Textl、Text2中。之后如果单 击标题为“计算”、名称为 Comma nd的命令按钮，则计算表达式的值 乙并将 计算结果显示在名称为 Label1 的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的问号改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用A运算符，而应使用函数 xn 进行幂运算。程序至少运行一次，按照下图输入数据，使 X=10, N=5,单击“计算”按钮，计算 Z的值，并将结果显示在标签Labell 中，否则本题没有成绩。最后，将修改后的程序按原文件名存盘。参考答案： 解题思路 通过 For 循环语句实现 xn() 的幂运算； Click 事件过程中通过