为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：调试并运行程序，关闭程序后按题目要求存盘。