名称为Op在Form1上画一个p1的图片框,然后建立一个主菜单,标题为“操作”,名称为OP,

基础题(1) 【解题思路】ControlBox属性：确定程序运行时是否在窗体上显示控件菜单栏，MaxButton属性：确定标题栏是否显示最大化按钮，MinButton属性：确定标题栏是否显示最小化按钮。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.153和表3.154。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2) 【解题思路】根据题意，在单击命令按钮事件过程中，通过设置FontBold和FontItalic属性，使文本框的内容显示为粗体格式或斜体格式。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.155和表3.156。

表3.155表3.156步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Text1.FontBold = TrueEnd SubPrivate Sub Command2_Click()Text1.FontItalic = TrueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】根据题意，在计时器的Timer事件中控制文本框中数字的显示。

并在Select Case语句中，依据所选单选按钮索引号的不同，为计时器设置不同的Interval 属性值。

在"开始"和"停止"命令按钮的单击事件过程中分别启动和停止计时器。

为使计时器在初始状态下不计时，还需在设计时将其Enabled属性值设置为False。

【操作步骤】步骤1：打开本题工程文件，计时器的Enabled属性设置为False。

步骤2：分析并编写程序代码。

程序提供代码Private Sub Op1_Click(Index As Integer)'Select Case ?Case 0Timer1.Interval = 1000Case 1Timer1.Interval = 3000End SelectEnd SubPrivate Sub Timer1_Timer()'Text1.Text =？.Text + 1End Sub程序结束参考答案第1个？处填入：Index第2个？处填入：Text1Private Sub C1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub C2_Click()Timer1.Enabled = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"）（如图所示）。

要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件result.txt中。

（在prog.bas 中的putdata过程可以把结果存入result.txt文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。

注意：文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp，计算结果存入result.txt，否则没有成绩。

新建一工程，在上面放置一文本框设置其MultiLine属性为True，ScrollBars属性为True，再建立两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"），整个工程的代码如下：Dim i(1 To 100) As IntegerPrivate Sub Cmd1_Click()Dim j As Integerj = 0Open App.Path & "\in.txt" For Input As #1For j = 1 To 100Input #1, i(j)NextClose #1For j = 1 To 100Text1.Text = Text1.Text & i(j) & Space(5)NextEnd SubPrivate Sub Cmd2_Click()Dim temp As LongDim j As IntegerFor j = 1 To 100If i(j) >= 400 And i(j) < 800 Thentemp = temp + i(j)End IfNextText1.Text = tempputdata tempEnd Sub（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。

基础题(1)【解题思路】列表框的MultiSelect属性用来设置一次可以选择的表项数。

该属性有3种取值：0－None每次只能选择一项，如果选择另一项则会取消对前一项的选择；1－Simple可以同时选择多个项，后续的选择不会取消前面的选择，可以用鼠标或空格键选择；2－Extended可以选择指定范围内的表项。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.136。

表3.136步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)【解题思路】命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。

Cmd1 Click 事件过程中运用LoadPicture函数装入图片，用LoadPicture("")，清除用图像框中的图片。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.137。

表3.137步骤2：编写程序代码。

参考答案Private Sub Cmd1_Click()Image1.Picture = LoadPicture(App.Path & "\图片.jpg")End SubPrivate Sub Cmd2_Click()Image1.Picture = LoadPicture("")End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题1)【解题思路】根据题意，并将数值赋值为数组a(k)，这道题的程序要实现寻找完全平方数，并求出完全平方数的个数和最大值。

is square函数用来判断一个数是否为完全平方数，首先我们要了解什么是完全平方数，一个整数若是另一个整数的平方，那么它就是完全平方数。

如：36＝62，所以36就是一个完全平方数。

通过判断is square(a(k))函数的返回值确定完全平方数，并进行完全平方数个数的累加，以及通过比较找出最大值。

简单题(1)【解题思路】通过图片框的Name 、Picture属性设置图片框的名称和加载图片，在Form_Click 事件过程中，通过图片框Print方法，在图片框中显示"VB等级考试"。

【操作步骤】步骤1：建立界面，在窗体中添加一个图片框并设置图片框的属性，属性见表3.71。

表3.71步骤2：编写程序代码。

参考答案Private Sub Form_Click()Pic.Print "VB等级考试"End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第39套第一大题的第二小题来进行同类知识点的练习。

简单题(2)【解题思路】添加一个名称为Command1的命令按钮，标题为"命令按钮"。

通过菜单编辑器(标题、名称、内缩符号)建立一个菜单，标题为"控件"，名称为menu，包含两个子菜单顶，一个是"显示命令按钮"，名称为subMenu1；另一个是"隐藏命令按钮"，名称为subMenu2。

通过Command1的Visible属性的设置，使选择"显示命令按钮"菜单命令，则显示命令按钮控件；而如果选择"隐藏命令按钮"菜单命令，则将命令按钮控件隐藏。

【操作步骤】步骤1：建立界面，添加一个名称为Command1的命令按钮，标题设置为"命令按钮"。

菜单编辑的相关属性见表3.72。

表3.72步骤2：编写程序代码。

参考答案Private Sub submenu1_Click()Command1.Visible = TrueEnd SubPrivate Sub submenu2_Click()Command1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第7套第一大题的第二小题来进行同类知识点的练习。

国开VisualBasic程序设计第1章自测试题及答案一、单项选择题（14题，每题5分，共70分）试题 1Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是正确答案是：事件驱动试题 2下列选项中，属于VisualBasic程序设计方法的是（）。

正确答案是：面向对象、事件驱动试题 3在 Visual Basic的集成开发环境中创建Visual Basic应用程序时，除了工具箱窗口、窗体设计窗口、属性窗口外，必不可少的窗口是（）。

正确答案是：代码编辑窗口试题 4启动Visual Basic后，系统为用户新建的工程名是（）。

正确答案是：工程1试题 5后缀为.frm的文件表示VB 的（）。

正确答案是：窗体文件试题 6窗体文件的扩展名是（）。

正确答案是：.frm试题 7将一个VB程序保存在磁盘上，至少会产生的文件是（）。

正确答案是：.vbp和.frm试题 8缺省情况下，保存新建的工程时，默认的路径是（）。

正确答案是：VB98试题 9在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（）。

正确答案是：工程资源管理器窗口试题 10VB6.0集成开发环境可以（）。

正确答案是：编辑、调试、运行程序，也能生成可执行文件试题 11Visual Basic应用程序处于执行模式时，这时（）。

正确答案是：既不能设计界面，也不能编写代码试题 12后缀为.vbp的文件表示VB 的（）。

正确答案是：工程文件试题 13一个VB应用程序可以包含的vbp文件的个数是（）。

正确答案是：1个试题 14下面关于工程的概念中错误的是（）。

正确答案是：一个大的Visual Basic应用程序才能构成一个工程二、判断题（10题，每题3分，共30分）试题 15VB6.0用于开发任何环境下的应用程序。

正确答案是“错”。

试题 16在VB中，许多属性可以在属性窗口中修改，并立即在屏幕上看到效果。

正确答案是“对”。

试题 17在事件驱动的应用程序中，代码是按照预定的路径执行的。

基础题(1)【解题思路】根据题意，须在命令按钮的Click事件过程中，将标签和文本框的Visible属性值设置为False，并用Print方法将文本框的内容输出到窗体上。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.99。

表3.99步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Form1.Print Text1.TextLabel1.Visible = FalseText1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)【解题思路】FontSize属性可用来设置文本框中字体的大小。

Value属性用于设置滚动条滑块的当前位置值，当滚动框的位置改变时，触发Change事件。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.100。

表3.100步骤2：编写程序代码。

参考答案Private Sub HScroll1_Change()Text1.FontSize = HScroll1.ValueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】通过InpatBox函数接收用户输入信息，在"添加项目"单击事件过程中，运用AddItem方法添加列表框内容，在"删除项目"单击事件中运用RemaneItem方法移除列表框内容。

【操作步骤】步骤1：打开本题工程文件，添加一个名称为List1列表框和一个名称为Text1文本框，然后建立一个菜单，其属性见表3.101。

表3.101步骤2程序提供代码Private Sub Add_Click()Text1.Text = InputBox("请输入要添加的项目")'List1.AddItem ?End SubPrivate Sub Delete_Click()Text1.Text = InputBox("请输入要删除的项目")'For i = 0 To ?'If List1.List(i) = ? Then'List1.RemoveItem ?End IfNext iEnd Sub程序结束参考答案第1个？处填入：Text1.Text第2个？处填入：List1.ListCount - 1第3个？处填入：Text1.Text第4个？处填入：i步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题(1) 【解题思路】首先通过窗体的Caption属性设置窗体的标题，其次通过框架的Name和Caption属性设置框架的名称和标题，最后通过单选按钮的Name和Caption属性设置命令按钮的名称和标题。

【操作步骤】步骤1：按照题目要求建立窗体和控件，并设置控件的属性。

程序中用到的控件及属性见表3.120。

表3.120步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2) 【解题思路】FillStyle属性用于返回/设置一个形状控件的填充样式。

Shape属性用来设置形状控件的形状，0：矩形(默认设置),1：正方形，2：椭圆，3：圆，4：圆角矩形，5：圆角正方形。

【操作步骤】步骤1：按照题目要求建立窗体和控件，并设置控件的属性。

程序中用到的控件及属性见表3.121和表3.122。

表3.121步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Shape1.FillStyle = 3End SubPrivate Sub Command2_Click()Shape1.FillStyle = 2End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】String(个数，字符)函数用于返回含指定个数字符的字符串，其中的字符可以是字符码或字符；ASC(字符串)函数用于返回字符串首字符的ASCII码值。

本题关键是计算同一字母大小写ASCII码值的差值，由于小写字母的ASCII码值大于大写字母的ASCII码值，差值表达式应为：n% ＝ASC("a") －ASC("A")。

对于小写字母的ASCII码应减去这个差值以获得其大写字母；对于大写字母的ASCII码则应加上这个差值以获得其小写字母。

【操作步骤】步骤1：打开本题工程文件，并设置控件的属性。

程序中用到的控件及属性见表3.123。

表3.123步骤2程序提供代码Private Sub C1_Click()Dim a$, b$, k%, n%a$ = ""'n% = Asc("a") - Asc( ? )For k% = 1 To Len(Text1.Text)b$ = Mid(Text1.Text, k%, 1)If b$ >= "a" And b$ <= "z" Thenb$ = String(1, Asc(b$) - n%)ElseIf b$ >="A" And b$ <="Z" Then'b$ =String(1, Asc(b$) ? )End IfEnd Ifa$ =a$ +b$Next k%' Text1.Text =?End Sub程序结束参考答案第1个？处填入："A"第2个？处填入：+n%第3个？处填入：a步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题(1)【操作步骤】步骤1：新建一个Form1窗体，在窗体的空白处右击，在弹出的快捷菜单中选择"菜单编辑器"命令，弹出菜单编辑器。

步骤2：在菜单编辑器中设置菜单的标题、名称、层次和属性，如表3.269所示。

步骤3：单击"确定"按钮，菜单设置完成。

步骤4：将文件保存至考生文件夹下，且窗体文件命名为sjt1.frm，工程文件命名为sjt1.vbp。

基础题(2)【操作步骤】步骤1：新建一个Form1窗体，将该窗体的Caption设置为"椭圆练习"。

步骤2：在窗体中添加一个Shape控件，并在属性面板中设置Shape为2，Height为800，Width为1200；设置BorderColor为蓝色（&H00C00000&），BorderStyle为1，BorderWidth为5；设置FillColor为黄色(&H0000FFFF&)，FillStyle为0。

步骤3：在窗体中添加两个命令按钮控件Command1和Command2，并将这两个按钮控件的Caption分别设置为"横向"和"纵向"，如下图所示。

步骤4，然后打开代码编辑器窗口，在代码编辑器窗口中编写代码如下。

Private Sub Command1_Click()Shape1.Width = Shape1.Width + 100'或Shape1.Width = 100 + Shape1.WidthEnd SubPrivate Sub Command2_Click()Shape1.Height = Shape1.Height + 100'或Shape1.Height = 100 + Shape1.HeightEnd Sub步骤5：代码编写完成后，按照题目要求调试并运行程序，并将文件保存至考生文件夹下，且设置窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

基础题(1) 【解题思路】文本框的内容由Text属性设置，命令按钮标题则由Caption属性设置，单击命令按钮触发Click事件。

并且在程序中用到了InputBox()函数。

【操作步骤】步骤1：建立界面并设置控件属性。

程序中用到的控件及其属性见表3.81和表3.82。

表3.81步骤2参考答案Private Sub Command1_Click()Text1.Text = InputBox("请输入身高","输入对话框",,100,100)Text2.Text = InputBox("请输入体重","输入对话框",,100,100)End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2) 【解题思路】在窗体上建立好控件后，先设置控件属性，再编写程序代码。

调节图片的大小就是调节图片框的Width属性和Height属性的值。

要使滚动条的Value值改变影响图片框的大小，需要通过编写代码将其和图片框的高和宽联系起来。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.83。

表3.83步骤2：编写程序代码。

参考答案Private Sub Command1_Click()VScroll1.Max = 2400VScroll1.Min = 100rgeChange = 200VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Change()Picture1.Height = VScroll1.ValueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】使用AddItem方法向列表框中添加列表项目，其格式为：列表．AddItem 项目字符串[，索引值]AddItem方法把"列表字符串"的文本内容放入列表框中。

一、选择题1、在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 10a=a + 1b=0For j=1 To 10a=a+1b=b+2Next jNext iLabel1.Caption=Str(a)Label2.Caption=Str(b)End Sub程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______。

A.110和20B. 10和20C. 20和110D. 200和1102、在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Form_Load()ShowText1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)End Sub程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是A.BeijingC B. China C. Beijing D. BeijingChina3、若设置了文本框的属性PasswordChar="$"，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是___A. 8个"*"B. 1个"$"C. 8个"$"D. 无任何内容4、下列程序段的执行结果为______。

A = 0:B = 0For I = -1 To -2 Step -1For J = 1 To 2B = B + 1Next JA = A + 1Next IPrint A; BA.-2 2 ;B. 2 3;C. 2 4;D. 4 2;5、如果要改变窗体的标题，需要设置窗体对象的______属性A. BorderStyleB. CaptionC. BackColorD. Name6、以下叙述中错误的是______。

基础题(1)【操作步骤】步骤1：打开VB开发环境，新建一个窗体。

步骤2：在窗体中添加一个命令按钮，在属性窗口中设置其名称为C1，设置其Caption属性为"等级考试"。

步骤3：再在窗体中添加一个文本框，在属性窗口中设置其名称为T1。

步骤4：打开代码窗口，编写代码如下：Private Sub T1_Change()C1.Visible = FalseT1.Text = C1.CaptionEnd Sub步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

基础题(2)【操作步骤】步骤1：打开VB开发环境，新建一个窗体，并在属性窗口中将窗体的Caption属性设置为"菜单演示"。

步骤2：在窗体中添加一个标签Lable1，设置其Caption属性为空，设置其BorderStyle属性为1。

步骤3：在窗体中右击鼠标，打开"菜单编辑器"建立一个菜单，菜单项的属性设置如表2.370所示。

表3.270步骤4：打开代码窗口，编写代码如下：Private Sub Clock_Click()Label1.Caption = Time()End SubPrivate Sub Title_Click()Label1.Caption = Form1.CaptionEnd Sub步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

简答题(1)【操作步骤】步骤1：打开本题工程文件。

步骤2：将窗体Form1的Caption属性设置为"二分法查找"。

步骤3：打开代码编辑窗口，去掉程序中的注释,将问号改为正确的内容。

参考答案Dom = (low + high) \ 2Select Case a(m)Case Is = xflag = 1Exit DoCase Is > xhigh = mCase Elselow = mEnd SelectLoop Until low = highIf flag = 1 ThenText2.Text = "查找成功，该数的位置为" + Str(m) + "！"ElseText2.Text = "查找失败，该数不存在！"End If步骤4：调试并运行程序，关闭程序后按题目要求存盘。

2013年3月全国计算机等级考试二级VB上机题库—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。

窗体的标题为"按钮窗口"。

运行后的窗体如图1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。

程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。

注意：程序中不能使用变量，每个事件过程中只能写一条语句。

保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

图2二、简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有两个文本框，名称分别为Text1、Text2；一个命令按钮，名称为C1，标题为"确定"；请画两个单选按钮，名称分别为Op1、Op2，标题分别为"男生"、"女生"；再画两个复选框，名称分别为Ch1、Ch2，标题分别为"体育"、"音乐"。

基础题(1)【解题思路】通过文本框的Name、Text、Width和Height属性设置文本框的名称、文本、宽和高，通过设置ScrollBars属性使文本框有水平滚动条，MultiLine属性设置为TRUE ，可以多行显示，设置FontItalic属性使字体样式为斜体，最后通过窗体的Caption属性设置窗体的标题。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.115。

表3.115步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2) 【解题思路】通过列表框的Name和List属性设置列表框的名称，并输入4个列表项："数学"、"物理"、"化学"、"语文"，Form Load事件过程中将List1.List(3)设置为"英语"，把最后一个列表项自动改为"英语"；Form Click事件过程中，将List1，List(3)内容清空，点击窗体后则清空最后一个列表项，在这里要注意列表框的列表项数组Tndex属性值是从0开始的，所以第四个也就是最后一个的Index属性值为3。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.116。

表3.116步骤2参考答案Private Sub Form_Click()List1.List(3) = ""End SubPrivate Sub Form_Load()List1.List(3) = "英语"End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】通过框架的Name、Caption属性设置框架，通过单选按钮的Name、Caption属性设置单选按钮的名称和标题，文本框的Alignment属性用于设置文本框中文本的对齐方式，0为左对齐，1为右对齐，2为居中。

基础题(1)【解题思路】根据题意，须在命令按钮的Click事件过程中，将标签和文本框的Visible属性值设置为False，并用Print方法将文本框的内容输出到窗体上。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.99。

表3.99步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Form1.Print Text1.TextLabel1.Visible = FalseText1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)【解题思路】FontSize属性可用来设置文本框中字体的大小。

Value属性用于设置滚动条滑块的当前位置值，当滚动框的位置改变时，触发Change事件。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.100。

表3.100步骤2：编写程序代码。

参考答案Private Sub HScroll1_Change()Text1.FontSize = HScroll1.ValueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】通过InpatBox函数接收用户输入信息，在"添加项目"单击事件过程中，运用AddItem方法添加列表框内容，在"删除项目"单击事件中运用RemaneItem方法移除列表框内容。

【操作步骤】步骤1：打开本题工程文件，添加一个名称为List1列表框和一个名称为Text1文本框，然后建立一个菜单，其属性见表3.101。

表3.101标题控件项目添加项目删除项目名称Item Add Delete内缩符号011步骤2：分析并编写程序代码。

程序提供代码Private Sub Add_Click() Text1.Text = InputBox("请输入要添加的项目") 'List1.AddItem ?End SubPrivate Sub Delete_Click()Text1.Text = InputBox("请输入要删除的项目")'For i = 0 To ? 'If List1.List(i) = ? Then 'List1.RemoveItem ? End IfNext iEnd Sub程序结束参考答案第1个？处填入：Text1.Text第2个？处填入：List1.ListCount - 1第3个？处填入：Text1.Text第4个？处填入：i步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题（1）【考点分析】本题考点有：文本框的Name、Text属性，命令按钮的Name、Caption、TabIndex、Cancel属性。

【解题思路】通过属性出口将文本框的Name属性设为Text1，并通过属性窗口将命令按钮的Name设为C1，Caption设为"显示"。

当按下Esc键时，可以调用命令按钮的Click事件过程，应将TabIndex属性设为0，同时将Cancel 属性（用来指示命令按钮是否为取消按钮）设为True。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.207。

步骤2：编写程序代码。

参考答案Private Sub C1_Click()Text1.Text = "等级考试"End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题（2）【考点分析】本题考点有：文本框的的Name、Text、Visible属性和菜单编辑器的使用（名称、标题和内缩符号）。

【解题思路】通过属性出口将文本框的Name属性设为Text1，并通过菜单编辑器建立起菜单。

单击"显示"子菜单项的时候，将"等级考试"赋给文本框；单击"隐藏"紫菜按时，将文本框的Visible属性设为False。

【操作步骤】步骤1：建立界面，添加一个名称为Text1的文本框，并用菜单编辑器建立如下表3.209所示的菜单。

步骤2：编写程序代码。

参考答案Private Sub Dis_Click()Text1.Text = "等级考试"End SubPrivate Sub Hid_Click()Text1.visible= FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题（1）【考点分析】本题考点有：标签的Name、Text属性，命令按钮的Name、Caption属性，框架的Name、Caption属性，单选按钮的Name、Caption、Value属性及If判断语句。

基础题（1）【考点分析】本题考点有：图片框的Name、Height、Width、Picture属性。

【解题思路】通过图片框的Name、Height、Width、Picture属性分别设置其名称、高、宽和添加图片。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.190。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题（2）【考点分析】本题考点有：命令按钮的Name、Caption属性，文本框的Name、Multiline、ScrollBars、Text属性。

【解题思路】ScrollBars属性是用来确定文本框中有没有滚动条，可以取以下四个值：0：文本框中没有滚动条；1：只有水平滚动条；2：只有垂直滚动条；3：同上级具有水平和垂直滚动条。

要注意的是，只有当Multiline属性被设置为True时，才能用ScrollBars属性在文本框中设置滚动条。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.191。

步骤2：编写程序代码。

参考答案Private Sub C1_Click()Text2.Text =Text1.TextEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，文本框的Name、Text 属性，列表框的Name属性，If判断语句和For循环语句。

【解题思路】。

【操作步骤】步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码Private Sub Command1_Click()Dim S1 As String, S2 As StringDim I1 As IntegerS1 = Text1.TextI1 = 1DoDo While Mid(S1, I1, 1) <> " " And I1 <= Len(S1)S2 = S2 & Mid(S1, I1, 1)I1 = I1 + 1LoopList1.AddItem S2S2 = ""I1 = I1 + 1Loop While I1 <= Len(S1)End Sub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。

VB1以下叙述中正确的是______。

选B在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()a=12345Print Format$(a,"000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是______。

VB中窗体文件的扩展名是______。

A.FRMB.VBPC.VBWD.PDM图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是__B____。

在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。

以下可以实现上述操作的事件过程是______。

选A执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是______。

选D设x=4，y=6，则以下不能在窗体上显示出"A=10"的语句是______。

选D在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(KeyAscii As Integer)......End Sub假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是______。

用下面语句定义的数组的元素个数是______。

选Bdim A(-3 to 5) as integerA.8B.9C.7D.6某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。

希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。

Private Sub Timer1_Timer()Label1.Caption=Time$End Sub在程序执行时发现未能实现上述目的，那么，他应做的修改是______。

基础题（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，通用对话框的Name、Filter、FilterIndex属性和ShowOpen方法。

【解题思路】当通用对话框显示为"打开"或"另存为"类型时，其FileName属性用于返回或设置所选的文件的路径和文件名。

Filter（过滤器）属性用于指定在对话框的文件列表中显示文件的类型。

语法为"对象名.Filter ="描述|文件扩展名""。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.232。

步骤2：编写程序代码。

参考答案Private Sub Command1_Click()CD1.ShowOpenEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题（2）【考点分析】本题考点有：命令按钮的的Name、Caption属性，文本框的Name、Text属性，计时器的Name、、Interval属性。

【解题思路】根据题意添加控件并通过属性窗口设置相应的属性，将计时器的Interval属性设为1000，并将初始的Enabled属性设为False。

单击"开始计数"按钮时，将计时器的Enabled属性设为True，计时器开始工作，文本框中的数每秒自动增加1。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.233。

步骤2：编写程序代码。

参考答案Private Sub C1_Click()T1.Enabled = TrueEnd SubPrivate Sub T1_Timer()Text1.Text = Text1.Text + 1End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简答题（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，窗体的Visible 方法。

基础题(1)【操作步骤】步骤1：新建一个Form1窗体，将该窗体的Caption设置为"菜单练习"。

步骤2：在窗体的空白处右击，在弹出的快捷菜单中选择"菜单编辑器"命令，弹出菜单编辑器。

步骤3：在菜单编辑器中的"标题"文本框中输入"操作"，在"名称"文本框中输入"operation"，选中"有效"和"可见"复选框，然后单击"下一个"按钮。

步骤4：在"标题"文本框中输入"输入"，在"名称"文本框中输入"input"，选中"有效"和"可见"复选框，然后单击按钮，设置为下一级菜单。

再单击"下一个"按钮。

步骤5：在"标题"文本框中输入"输出"，在"名称"文本框中输入"output"，选中"可见"复选框，再单击"下一个"按钮。

步骤6：在"标题"文本框中输入"查询"，在"名称"文本框中输入"query"，选中"有效"和"可见"复选框，再单击"下一个"按钮。

步骤7：在"标题"文本框中输入"统计"，在"名称"文本框中输入"count"，选中"有效"和"可见"复选框，然后单击按钮，再单击"下一个"按钮。

步骤8：在"标题"文本框中输入"按月"，在"名称"文本框中输入"bymonth"，选中"复选"、"有效"和"可见"复选框，然后单击按钮，再单击"下一个"按钮。