为Form1、标题为“文本框练习”的窗体上添加1个名称为Text1的文本框

基础题(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，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。

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

(1)在名称为Form1的窗体上画一个名称为C1、标题为"改变颜色"的命令按钮，窗体标题为"改变窗体背景色"。

编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。

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

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

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

图1(2)在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。

画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。

将窗体的标题设为"图形控件"。

单击列表框中的某一项，则将所选的值作为形状控件的填充参数。

例如，选择3，则形状控件中被竖线填充。

如图2所示。

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

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

图2二、简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp。

程序的功能是通过键盘向文本框中输入正整数。

在"除数"框架中选择一个单选按钮，然后单击"处理数据"按钮，将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中，如图3所示。

在窗体文件中已经给出了全部控件，但程序不完整。

要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。

最后把修改后的文件按原文件名存盘。

图3(2)在考生文件夹下有一个工程文件sjt4.vbp。

程序运行后，单击"开始"按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0.5秒移动一次。

基本题(1) 【解题思路】MaxLength属性设置文本框中输入的字符串长度是否有限制。

默认值为0，表示该单行文本框中字符串的长度只受操作系统内存的限制；若设置为大于0的数，则表示能够输入的最大字符数目。

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

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

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

基本题(2) 【解题思路】按照题目要求设置标签和命令按钮的属性，在命令按钮的Click事件过程中，通过设置标签的FontSize属性值实现标签内容字体的放大和还原。

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

程序中用到的控件及属性见表3.163和表3.164。

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

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

简单题(1) 【解题思路】在Cmd Click 事件过程中，通过Select Case语句判断选择命令按钮数组的Index属性值，Case 0表示单击"开始"按钮，计时器Timer1和"暂停"按钮的Enabled属性为True，状态变为可用，且如果Cmd(0)的Caption属性是"开始"按钮，那么Cmd(0)的Caption属性变为"继续"，且Cmd(0)为不可用，单击"继续"按钮，则Timer1接着开始工作，"继续"按钮变为不可用，"暂停"按钮变为可用。

同理Case 1表示单击"暂停"按钮，则Timer1停止工作，"暂停"按钮变为不可用，"继续"按钮变为可用；Case 2表示单击"结果"按钮，则结束程序运行。

一、基本操作题（1）在名为Form1的窗体上绘制一个名为Fra1的框架，标题为"框架示例"，高度为2000，宽度为3500；在框架中绘制一个文本框。

名为Txt1，高度为600，宽度为2000，其位置距框架的左边框和上边框均为800，文本框中的初始内容设置为"文本框示例"，如图1-1所示。

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

（2）在名为Form1的窗体上，绘制一个名为Txt1的文本框。

设置文本框属性，在文本框中显示"请单击命令按钮"；再建立一个名为Cmd1，标题为"清除"的命令按钮，如图1-2所示。

编写适当的事件过程，使程序运行后，若单击"清除"命令按钮，则清除文本框中所显示的信息。

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

图1-1 图1-2二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。

在名为Form1的窗体上有一个单选按钮数组，含3个单选按钮，均没有标题。

程序功能：在运行时，如果选中一个单选按钮后，单击"显示"按钮，则根据单选按钮的选中情况，在窗体上显示"你所在的城市是北京"、"你所在的城市是上海"或"你所在的城市是天津"。

要求：①请利用属性窗口，为单选按钮依次添加标题："北京"、"上海"和"天津"，设初始选取中的是"北京"，再添加一个标题为"显示"的命令按钮，如图1-3所示。

②删除程序中语句前面的注释符"'"，把程序中的问号"？"改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。

【解题思路】文本框控件的MultiLine属性用于设置文本框是否能以多行显示文本，值为True表示允许，值为False表示不允许；Font属性用于设置控件标题中文本的字体、字号和字型等。

Text属性用于设置文本框中显示的文本。

窗体标题通过其Caption属性设置。

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

程序中用到的控件及属性见表3.110和表3.111。

表3.110控件窗体属性Name Caption设置值Form1设置文本框属性步骤2：调试并运行程序，关闭程序后按题目要求存盘。

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

单击命令按钮触发Click事件。

利用按钮的Height和Width属性来改变按钮的大小；利用按钮的Left和Top属性来改变按钮的位置。

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

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

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

参考答案Option ExplicitPrivate Sub Cmd1_Click()Cmd1.Left = 0Cmd1.Top = 0End Sub【解题思路】Rnd()函数用于产生一个小于1但大于或等于0的随机数。

本题程序用变量Max记录最大数，最初把数组的第一个元素的值赋给Max，然后通过For循环语句将其后的元素依次与之比较，如果其值大于Max则将其赋值给Max，依次类推，最终Max的值就是数组各元素中的最大值。

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

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

程序提供代码Option Base 1Private Sub Command1_Click()Dim arrN(30) As IntegerDim Max As IntegerRandomizeFor i = 1 To 30 'arrN(i) = Int(Rnd * ？)Next i'? = arrN(1)For i = 2 To 30 'If ? Then Max = arrN(i)End IfNext iPrint MaxEnd Sub程序结束参考答案第1个？处填入：1000第2个？处填入：Max第3个？处填入：arrN(i) > Max或Max < arrN(i)简单题(2)【解题思路】本题要求的是1000以内能被5或7整除的数的个数。

基础题(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：新建一个窗体，在窗体上创建一个文本框控件。

步骤2：在属性窗口中，设置其Text属性为空。

步骤3：在文本框下方绘制一个命令按钮Command1。

步骤4：在属性窗口中，将Caption设置为"上一条记录"。

步骤5：复制命令按钮"上一条记录"，在窗体的空白位置处粘贴对话框，单击"是"按钮，创建一个控件数组。

步骤6：再创建3个命令按钮.步骤7：按照题目要求将复制的3个命令按钮的Caption分别设置为"下一条记录"、"第一条记录"和"最后一条记录"，并将窗体的Caption设置为"显示记录"。

步骤8：选择"上一条记录"命令按钮，通过属性窗口设置Enable为False，选择"下一条记录"命令按钮，通过属性窗口设置Default为True.。

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

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

步骤2：在窗体中添加一个标签控件Lable1，在属性窗口中设置标签的Caption属性为"等级考试"，然后设置其AutoSize属性为True，设置其BorderStyle属性为1。

步骤3：然后在窗体中添加一个计时器Timer1，设置其Interval属性为0，Enabled属性为True。

步骤4：打开代码窗口，编写代码如下。

Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Label1.Visible = Not Label1.VisibleEnd Sub步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

基础题(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) 【解题思路】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：调试并运行程序，关闭程序后按题目要求存盘。

VB程序设计基础练习题一、窗体设计题1.标签显示隐藏窗体标题--------------------------------------------------------------------- 【窗体设计】--------------------------------------------------------------------- 在名称为Form1的窗休上添加一个名称为Label1的标签，字号大小为四号，标题为“等级考试”，如图1所示。

通过设置属性使标签初始为不显示。

请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图2所示。

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

-----------------------------------------------------------------2.显示日期和时间--------------------------------------------------------------------- 【窗体设计】--------------------------------------------------------------------- 在名称为Form1的窗体上添加1个名称为Label1的标签，使其初始内容为空，且能根据其标题内容自动调整标签的大小；再添加2个命令按钮，标题分别为“日期”和“时间”，名称分别为Command1、Command2。

请编写2个命令按钮的Click事件过程，使得单击“日期”按钮时，标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。

如图所示。

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

---------------------------------------------------------------------3.InputBox函数参数设置------------------------------------------------------------------- 【窗体设计】---------------------------------------------------------------------新建一个名称为Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。

基础题(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·在名称为FORM1的窗体上画一个标签，名称为L1,标签上显示“请输入密码”，在标签右面画一个文本框，名称为TEXT1,其宽、高分别为2000和500，设置适当的属性，使得在输入密码时，文本框中显示“＊”字符，此外再把窗体的标题设置为“密码窗口”(如示例所示) 答案：将passwordchar属性输入*字符注意：1) 以上设置都只能在属性窗口中进行设置。

2) 存盘时必须存放在考生文件夹下，工程文件名为SJT1.VBP,窗体文件名为SJT1.FRM。

2·在名称为FORM1 的窗体上放置一个名为TEXT1 的文本框控件和一个名为TIMER1的计时器控件，请设置计时器的适当属性并且编写适当的事件过程，使得程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。

（如示例所示）*****注意：程序中不得使用任何变量，只能写一条语句；保存时必须存放在考生文件夹下，窗体文件名为SJT2.FRM，工程文件名为SJT2.VBP。

答案：将计时器控件中的interval属性内输入1000 在timer1中输入的语句Private Sub Timer1_Timer()Text1 = TimeEnd Sub3. 在窗体上新建一名为“TXTCOLOR”的文本框，文本框中的初始内容为“颜色测试”，再新建一个命令按钮，名称为“COLOR”，标题为“测试”，最后加入一个名称为“CDG1”通用对话框控件。

要求程序运行后，点击命令按钮后，弹出颜色对话框，选择一种颜色后，点击确定后，文本框中的字体颜色即变为当前选中的颜色。

注意：在考生文件夹中已有工程文件SJT3.VBP及其窗体文件SJT3.FRM，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（’）但不能修改其他部分，存盘时不得改变文件名和文件夹。

程序运行时的窗体界面如“示例”所示。

答案：在测试命令按钮中输入的语句Private Sub COLOR_Click()CDG1.ShowColorTXTCOLOR.ForeColor = CDG1.COLOREnd Sub加入通用对话框的方法打开工程~打开部件选控件中的microsoft common dialog control 6.0 (sp6)即可选择颜色对话框用showcolor4. 在名为FORM1的窗体上已有一LABEL1的标签，新建一名称为“START”,标题为“开始”的命令按钮，和一名称为“STOP”，标题为“结束”的命令按钮，再新建一名称为L1的标签，内空，BORDERSTYLE属性为1。

1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。

程序刚运行时，会生成一个有10个元素的整型数组。

若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。

请去掉程序中的注释符，把程序中的？改为正确的容。

注意：考生不得修改窗体文件中已经存在的程序。

最后把修改后的文件按原文件名存盘。

Private Sub Command1_Click()x = a(1)y = a(1)For i = 2 To 10If Option1.Value = True ThenIf a(i)> x Thenx = a(i)End IfElseIf a(i) < y Theny = a(i)End IfNextIf Option1.Value = True ThenLabel2.Caption = xElseLabel2.Caption = yEnd IfEnd Sub2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。

画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。

将窗体的标题设为"图形控件"。

单击列表框中的某一项，则将所选的值作为形状控件的填充参数。

例如，选择3，则形状控件中被竖线填充。

如图所示。

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

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

在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：实线。

List控件的Click事件过程为：Private Sub List1_Click()Shape1.FillStyle = List1.TextEnd Sub3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画二个命令按钮，名称分别为C1、C2，标题分别为"隐藏"、"显示"（如图所示）。

属性。

【解题思路】命令按钮的名称和标题分别由其Name、Caption属性设置；文本框的名称、初始内容和字体分别由其Name、Text、Font属性设置。

在命令按钮的Click事件中，将Text1.Font值设为"宋体"。

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

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

步骤2：编写程序代码。

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

基础题（2）【考点分析】本题考点有：图片框的Name、Height、Width、Picture属性和窗体的DblClick 事件。

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

双击窗体为DblClick事件，图片的消失用LoadPicture()方法来实现。

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

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

步骤2：编写程序代码。

参考答案Private Sub Form_DblClick()P1.Picture = LoadPicture()End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简答题（1）【考点分析】本题考点有：标签的Name、Caption、BorderStyle属性，计时器的Interval 属性和Timer事件。

【解题思路】标签的BorderStyle属性可以取两个值，当取0值时表示标签无边框，这是默认情况；当取1值时标签有边框。

在计时器的Timer事件，将标签的Caption属性值加1，实现程序运行后每隔一秒钟标签中的数字加1。

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

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

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

1在名称为Form1的窗体上添加一个名称为Label1、标题为"添加项目："的标签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Command1、Command2，其标题分别为"添加"、"统计"。

在程序运行时，向Text1中输入字符，单击"添加"按钮后，则将Text1中的内容作为一个列表项被添加到组合框的列表中；单击"统计"按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。

请编写两个命令按钮的Click事件过程。

注意：程序中不得使用变量，也不能使用循环结构。

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

List添加项目Private Sub Command1_Click()Combo1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()Print Combo1.ListCountEnd Sub2在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为Filel的文件列表框，名称为Label1、标题为"文件名"的标签和名称为Labe12、BorderStyle为1的标签。

将窗体的标题设置为"文件系统控件"，如图所示。

请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。

单击文件列表框时，将在Label2中显示选中的文件名。

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

Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Label2.Caption = File1.FileNameEnd Sub3在名称为Form1的窗体上画一个图片框，其名称为Picture1、一个水平滚动条，名称为HScroll1，和一个命令按钮，名称为Command1，标题为"设置属性"，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意。

基础题(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)【解题思路】根据题意，须在命令按钮的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：调试并运行程序，关闭程序后按题目要求存盘。