通过属性窗口设置在Form1(设置标签属性)的窗体上添加一个标签,其名称为Label1,通过属性窗口
为Form1,标题为“标签”的窗体上,添加一个名称为Label1,内容为“计算机等级考试”
基础题(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的窗体上建立一个文本框
在名称为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，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。
在Form1上添加Label1、标题为“列表框的使用”的标签doc
基础题(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))函数的返回值确定完全平方数，并进行完全平方数个数的累加，以及通过比较找出最大值。
在Form1上添加一个图片框,名称为Pic,通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到图片框
简单题(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套第一大题的第二小题来进行同类知识点的练习。
在名称为Form1的窗体上添加一个标题为“滚动条控件”的标签
基础题（1）基础题（2）参考答案Private Sub Form_Load()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Shape1.Top = Shape1.Top + 100 End Sub程序提供代码Private Sub Text2_Change()'If ? = 1 Then'Text3.PasswordChar = ?Else'Text3.PasswordChar = ?End If'Text3.Text = ?End Sub程序结束参考答案第1个？处填入：Check1.V alue第2个？处填入：""第3个？处填入："#"第4个？处填入：Text2程序提供代码Private Sub Command1_Click()Dim x As Integer, k As Integerx = Val(Text1(1)．Text)'For k = 2 To ?'x = FindMin(Val(Text1(k)．Text), ？) Next'lblResult.Caption =？End SubPublic Function FindMin(x As Integer, y As Integer) 'If x ? y ThenFindMin = yElseFindMin = xEnd IfEnd Function程序结束参考答案第1个？处填入：5第2个？处填入：x第3个？处填入：x第4个？处填入：>综合题程序提供代码Dim a(7, 7) As IntegerPrivate Sub Form_Load()readEnd SubPublic Sub read()Open App.Path & "\Data5.txt" For Input As #1Do While Not EOF(1)For i = 1 To 7For j = 1 To 7Input #1, a(i, j)Next jNext iLoopClose #1End SubPrivate Sub Command1_Click()Dim Sum As Long'＝＝＝＝考生编写程序开始＝＝＝＝＝＝＝＝＝＝'＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝SaveEnd SubPublic Sub Save()Open App.Path & "\out5.txt" For Output As #1Print #1, lblFirst.Caption, lblSecond.CaptionClose #1End Sub程序结束参考答案Dim i As Integer, n As IntegerFor i = 1 To 7If a(i, 1) Mod 7 = 0 Thenn = n + 1ElseIf a(1, i) Mod 7 = 0 Thenn = n + 1ElseIf a(7, i) Mod 7 = 0 Thenn = n + 1ElseIf a(i, 7) Mod 7 = 0 Thenn = n + 1End IfNext ilblFirst = nFor i = 1 To 7sum = sum + a(1, i) + a(i, 1) + a(7, i) + a(i, 7) Nextsum = sum - a(1, 7) - a(1, 7) - a(7, 1) - a(7, 7) lblSecond = sum。
2013年3月全国计算机等级考试二级VB无纸化上机题题库及答案解析(4)
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秒移动一次。
全国计算机等级考试二级VISUALBASIC题库12015年9月_真题-无答案
全国计算机等级考试二级VISUAL BASIC题库1 2015年9月(总分100,考试时间120分钟)一、选择题1. 窗体上有多个控件，在Form_Activate()事件过程中添加__________语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。
A. Text1．Text=""B. Text1．SetFocusC. Form1．SetFocusD. Text1．Visible=True2. 语句Print "5*20"输出的结果是__________。
A. "5*20"B. 出现错误信息C. 5*20D. 1003. 不能打开代码窗口的操作是__________。
A. 双击窗体设计器的任何地方B. 按下F4键C. 单击工程窗口中的“查看代码”按钮D. 选择“视图”下拉菜单中的“代码窗口”4. 在VB中可以作为容器的是__________。
A. Form、TextBox、PictureBoxB. Form、PictureBox、FrameC. Form、TextBox、LabelD. PictureBox、TextBox、ListBox5. 能被对象所识别的动作与对象可执行的活动分别称为对象的__________。
A. 方法、事件B. 过程、方法C. 事件、属性D. 事件、方法6. 计算下面的表达式，其值是__________。
CInt(4.5) * Fix(-3.81) + Int(4.1) * (5 Mod 3) 4 -3 4 2A. -7B. -4C. -8D. 67. 以下有关对象属性的说法中正确的是__________。
A. 对象所有的属性都罗列在属性窗口列表中B. 不同对象不可能有同名属性C. 不同对象的同名属性取值一定相同D. 对象的某些属性既可在属性窗口中设置，也可通过程序代码设置或改变8. 要使定时器控件可以使用，需设置的属性是__________。
在Form1的窗体上画两个命令按钮,其名称为C1(命令按钮1)和C2(命令按钮2)
基础题（1）【考点分析】本题考点有：命令按钮的Name、Caption、Visible属性。
【解题思路】单击命令按钮1时，将命令按钮1的Visible 属性值设为False ，命令按钮2的属性值设为True；单击命令按钮2时，将命令按钮1的Visible 属性值设为True，命令按钮2的属性值设为False；。
【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.165。
表3.165控件命令按钮1 命令按钮2属性Name Caption Name Caption Visible设置值C1 命令按钮1 C2 命令按钮2 False参考答案Private Sub C1_Click()C2.Visible = TrueC1.Visible = FalseEnd SubPrivate Sub C2_Click()C1.Visible = TrueC2.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
基础题（2）【考点分析】本题考点有：水平滚动条的Name、SmallChange、LargeChange、Min和Max属性，列表框的Name属性、AddItem方法、Str( )函数以及窗体的Click事件。
【解题思路】通过属性窗口Name、Min和Max属性设置水平滚动条的名称、最小值和最大值。
SmallChange 是单击滚动条两端的箭头时，Value属性增加或减少的增量值。
LargeChange是单击滚动条中滚动看前面或后面的部位时，Value属性增加或减少的增量值。
【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.166。
步骤2：编写程序代码。
简单题（1）【考点分析】数组的定义和Array( )初始化函数，UBound( )函数，Str( )函数，Function( )函数以及For循环。
Form1添加一个文本框Text1,通过属性窗口设置窗体和文本框的属性,实现如下功能-推荐下载
【解题思路】文本框控件的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整除的数的个数。
为Form1上加一个标签(Label1,标签为空白,BorderStyle属性为1,Visible属性为False)
基本题(1)【解题思路】文本框的Text属性用于设置文本框中显示的文本。
标签的Caption属性可设置其标题。
Visible属性用于设置控件或菜单项在程序运行时是否可见。
【操作步骤】步骤1：建立界面，并设置控件的属性。
程序中涉及的控件及属性见表3.104和表3.105。
表3.104步骤2参考答案Private Sub Command1_Click()Label1.Visible = TrueLabel1.Caption = Text1.TextText1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
基本题(2) 【解题思路】通过调整滚动条滑块的位置即可改变其V alue属性的值，滚动条的Max和Min属性为滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。
当改变滚动条滑块位置后将触发其Change事件。
文本框的高度和宽度分别由其Height属性值和Width属性值设定。
【操作步骤】步骤1：建立界面，并设置控件的属性。
程序中用到的控件及属性见表3.106。
步骤2：编写程序代码。
参考答案Private Sub HScroll1_Change()Text1.Height = HScroll1.ValueText1.Width = 1.2 * Text1.HeightEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
简单题(1)【解题思路】向列表框添加项目使用AddItem方法，删除列表项使用RemoveItem方法。
在"删除项目"单击事件中，For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。
【操作步骤】步骤1：打开本题工程文件，并设置控件的属性。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
基础题（1）
基础题（2）
Private Sub Command1_Click() HScroll1.Max = Form1.Width
HScroll1.Min = 0
rgeChange = 50
HScroll1.SmallChange = 10 End Sub
Private Sub HScroll1_Change() Print HScroll1.Value
End Sub
简单题（1）
程序提供代码
Option Base 1
Private Sub Command1_Click() Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer, i Randomize
For i = 1 To 20
' arrN(i) = Int(Rnd * ？)
Next i
' Sum =?
For i = 1 To 20
' Sum = ?
Next i
' Aver = ?
Print Aver
End Sub
程序结束
参考答案
第1个？处填入：1000
第2个？处填入：0
第3个？处填入：Sum + arrN(i)
第4个？处填入：Sum / 20
简单题(2)
程序提供代码
Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1 Print #1, Text1.Text
Close #1
End Sub
Function Fun()
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
程序结束
参考答案
Function Fun()
Dim s As Integer, i As Integer
For i = 0 To 200
If i Mod 3 = 0 Then
s = s + i
End If
Next i
Fun = s
End Function
综合题
程序提供代码
Option Base 1
Dim a(12, 10) As Long, s(12) As Long
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
For i = 1 To 12
For j = 1 To 10
Input #1, a(i, j)
Next j
Next i
Close #1
End Sub
Private Sub Command2_Click()
'考生编写
End Sub
Private Sub Command3_Click()
'以下程序段在Text1文本框内显示每组数的组号及平均值
Text1.Text = ""
For i = 1 To 12
If i < 10 Then
Text1.Text = Text1.Text + " " ＋str(i) + " " + str(s(i)) + Chr$(13) + Chr$(10)
Else
Text1.Text = Text1.Text + str(i) + " " +str(s(i)) + Chr$(13) + Chr$(10)
End If
Next i
End Sub
Private Sub Command4_Click()
Open App.Path & "\out5.dat" For Output As #1
For i = 1 To 12
Print #1, s(i)
Next i
Close #1
End Sub
程序结束
参考答案
Private Sub Command2_Click()
'考生编写
Dim q As Long
For m = 1 To 12
q = 0
For n = 1 To 10
q = q + a(m, n)
Next n
s(m) = Int(q / 10) Next m
End Sub。