计算机二级VB操作题

所有操作题
1、请根据以下要求设计Visual Basic 应用程序（包括界面和代 码）。

在名为Forml 的窗体上画一个框架，名称为 Frm1,标题为" 框架”，高度为2500，宽度为4000;再在框架中画一个文本框， 名称为Textl ，高度为400,宽度为1200,其位置距框架的左边 框600,距框架的上边框1200，文本框中的初始内容设置为 "文 本框"。

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

评析：
1、 菜单编辑器窗口分3个部分，即数据区、编辑区和菜单项显 示区。

数据
区用来输入或修改菜单项、设置属性；编辑区用来 对输入的菜单项进行简单编辑，并可设置菜单的层次。

等级：1
难度：1
知识点：VB 知识点/对象属性的设置
2、
在考生文件夹中有工程文件 wy69.vbp 及其窗体文件 wy69.frm ，
该程序是不完整的，请在有？号的地方填入正确内
容，然后删除？及所有注释符（即 ’号）但不能修改其他部分。

存盘时不得改变文件名和文件夹。

本题描述如下：在窗体上有一个列表框，名称为 List1，一个文 本框，名称为Text1，和一个命令按钮，名称为 C1，标题为"复 制"。

要求程序运行后，在列表框中自动建立四个列表项，分别为
"Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的一
项，则单击"复制"按钮时，可以把该项复制到文本框中（如图 所示）。

M F rjrirl 评析：
1、该题考查考生对ListBox 控件的使用，该控件显示项目列表, 从其中可以选择一项或多项。

如果项目总数超过了可显示的项 目数，就自动在ListBox
控件上添加滚动条。

语法：
ListBox
MultiSelect 属性：返回或设置一个值，该值指示是否能够在 FileListBox 或ListBox 控件中进行复选以及如何进行复选。

在 运行时是只读的。

等级：2
难度：2
知识点：VB 知识点/控件的使用
3、 在名称为Form1的窗体上建立两个单选按钮，名称分别
为Opt1和Opt2,标题分别为"100-200之间素数"和"200-400之间 素数"，一个文本框，名称为Text1，和两个命令按钮，其名称 分别为Cmd 和Cmd2标题分别为"计算"、"存盘"（如图所示）。

程序运行后，如果选中一个单选按钮并单击 ”计算"按钮，则计
算岀该单选按钮标题所指明的所有素数之和。

并在文本框中显 示出来。

如果单击"存盘"按钮，则把计算结果存入"out.txt" 文 件中，该文件必须放在考生文件夹中。

（在考生文件夹中有标 准模块mode.bas ，其中的putdata 过程可以把结果存入指定的 文件，而isprime 函数可以判断整数x 是否为素数，如果是素数， 则函数返回True ，否则返回False ，考生可以将该模块文件添加 到自己的工程中。

） 注意：
1） 必须把200-400之间的素数之和存入考生文件夹下的
out.txt
文件中，否则没有成绩。

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

评析：
考查对数组、For 语句以及文件读写的使用。

语法
For counter = start To end [Step step] [statements] [Exit For] [statements] Next [counter]
语法
Write #filenumber, [outputlist] 将数据写入顺序文件
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] 用于打开文件。

等级：3
难度：3
知识点：VB 知识点/结构化程序设计
4、请根据以下要求设计Visual Basic 应用程序（包括界面和代 码）。

在名称为Forml 的窗体中建立一个名称为 Cmd1标题为"显 示"的命令
按钮（如图所示）。

要求程序运行后，
如果单击”显示”按钮，则执行语句
Forml.Print" 显示"；如果单击窗体，则执行语句 Forml.CIs 。

*注意：保存时必须存放在考生文件夹下， 窗体文件名为wy3.frm ， 工程文件名为wy3.vbp
Item2 Item3 It em4
评析：
1、新建一个工程，在窗体上添加一个名为"Cmd1 "的按钮，双击这个按钮在弹出的代码窗口中写入"Form1.Print" 显示""，在窗体空白部分双击，在弹出的窗口中写入"Form1.Cls"，然后以文件名wy3.vbp和wy3.frm 保存；
等级：1 难度：1
知识点：VB知识点/对象属性的设置
5、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars 属性为2）和两个命令按钮
（名称分别为Cmd1和Cmd2标题分别为"读入数据"和"计算保存"）（如图所示）。

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

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

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

ScrollBars属性为True，再建立两个命令按钮(名称分别为Cmd1 和Cmd2标题分别为"读入数据”和"计算保存")，整个工程的代码如下：
Dim i(1 To 100) As Integer Private Sub Cmd1_Click()
Dim j As Integer
j = 0
Open App.Path & "\in.txt" For Input As #1
For j = 1 To 100
Input #1, i(j)
Next
Close #1
For j = 1 To 100
Text1.Text = Text1.Text & i(j) & Space(5)
Next
End Sub
Private Sub Cmd2_Click()
Dim temp As Long
Dim j As Integer
For j = 1 To 100
If i(j) >= 400 And i(j) < 800 Then
temp = temp + i(j)
End If
Next
Text1.Text = temp putdata temp
End Sub
等级：3 难度：3
知识点：VB知识点/结构化程序设计
6、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。

在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1 Cmd2标题分别为”输出”、”清除”（如图所示）。

要求程序运行后，每单击一次”输岀”按钮，
不使用任何变量而直接在图片框中显示小写字母"red"；如果单击"清除”按钮，则清除图片框中的内容。

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

评析：
新建一工程，在上面放置一文本框设置其MultiLine属性为True，评析：
1、PictureBox控件可以显示来自位图、图标或者源文件，以及来自增强的源文件、JPEG或GIF文件的图形。

如果控件不足以显示整幅图像，则裁剪图像以适应控件的大小。

也可以用
PictureBox控件将OptionButton控件分组，并用该控件显示图形方法的输出和Print方法写入的文本。

Image控件用来显示图形，但是它只支持PictureBox控件的一部分属性、事件和方法。

等级：1 难度：1
知识点：VE知识点/对象属性的设置
7、在名称为Forml的窗体上建立一个文本框（名称为Textl，MultiLine 属性为True，ScrollBars 属性为2）和两个命令按钮
（名称分别为Cmd1和Cmd2标题分别为"读入数据"和"保存数据"）（如图所示）。

程序运行后，如果单击"读入数据”按钮，则
读入"in1.txt" 文件中的100个整数，放入一个数组中（数组下界为1），并在文本框Text1中显示出来；如果单击"保存数据" 按钮，则把数组中的前50个数据在文本框Text1中显示出来，并存入考生文件夹中的文件"result1.txt" 中，（考生文件夹中有标准模块prog1.bas，其中的putdata 过程可以把指定个数的数组元素存入result1.txt 文件，考生可以把该模块文件添加到自己的工程中）。

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

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

评析：
1、考查基本控件的使用和对Print方法的使用，新建一工程，建立一名为Text1的文本框和名为Cmd标题为"输出"的命令按钮，双击命令按钮加入如下代码：
Cls
Print Text1.Text
等级：1 难度：1
知识点：VB知识点/对象属性的设置
评析：
考查对数组、For语句以及文件读写的使用。

语法
For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next [counter]
语法
Write #filenumber, [outputlist] 将数据写入顺序文件Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] 用于打开文件。

等级：3 难度：3
知识点：VB知识点/结构化程序设计9、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars 属性为2 ）和两个命令按钮
（名称分别为Cmd和Cmd2标题分别为"读入数据"和"排序显示保存"）（如图所示）。

程序运行后，如果单击"读入数据”按钮，则读入"in2.txt"
文件中的100个整数，放入一个数组中（数组
下界为1）;如果单击"排序显示保存"按钮，则对这100个整数按从小到大进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件"result2.txt" 中（在考
生的目录下有标准模块prog2.bas过程可以把指定个数的数组元素存入result2.txt 文件，考生可以把该模块文件添加到自己的工程中）。

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

8请根据以下要求设计Visual Basic应用程序（包括界面和代码）。

在名称为Form1的窗体上建立一个名称为Text1的文本框，- 个名称为Cmd1,标题为"输出"的命令按钮（如图所示）。

要求程序运行后，在文本框输入几个字符，在单击”输岀”按钮，则
在窗体上显示文本框中的的文字。

*注意：
1）在程序中不能使用任何变量。

评析：
新建工程，双击控件面板中的TextBox控件，在窗体上自动添加
一个名称为Text1的文本框，在属性窗口中设置MultiLine属性为True，ScrollBars属性为2，建立两个命令按钮，名称分别为Cmd和Cmd2标题分别为"读入数据"和"排序显示保存"。

双击窗体进入代码窗口填入以下代码：
Option Explicit
Dim i（1 To 100） As Integer
Private Sub Cmd1_Click()
Dim j As Integer
Open "in.txt" For Input As #1 For j = 1 To 100
Input #1, i(j)
Text1.Text = Text1.Text & i(j) & Space(5) Next
Close #1
End Sub
Private Sub Cmd2_Click()
Dim j As Integer
Dim k As Integer
Dim temp As Integer
Dim flag As Boolean
For j = 1 To 100
flag = False
For k = 1 To 100 - j
If i(k) > i(k + 1) Then
temp = i(k)
i(k) = i(k + 1)
i(k + 1) = temp
flag = True
End If
Next
If Not flag Then
Exit For
End If
Next
Text1.Text =""
For j = 1 To 100
Text1.Text = Text1.Text & i(j) & Space(5)
Next
putdata i, 100
End Sub
评析：
本题考查对CheckBoxt空件属性Enabled的使用以及Label控件Font 属性的使用，使CheckBox控件属性Enable为False时，该控件就被禁用。

等级：1 难度：1
知识点：VB知识点/对象属性的设置
11、在考生文件夹中有工程文件wy16.vbp及其窗体文件
wy16.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即’号）但不能修改其他部分。

存盘时不得改变文件名和文件夹。

本题描述如下：
在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为"校验"的命令按钮。

其中文本框用来输入口令（如图所示），要求在文本框中输入的内容都必须以"*"显示（请考生自己通过属
性窗口设置）。

要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。

如果输入的内容是"ABC"或"abc"这3个字母，
则用MsgBoxf言息框输出"正确"，否则输出”错误”（如图所示）。

等级：3 难度：3
知识点：VB知识点/结构化程序设计
10、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。

按下述要求在属性窗口中设置属性：在名称为Form1的窗体中建立一个标签，名称为L1,在标签上显示"选课"，其字号大小为四号；再建立三个复选框，名称分别为Chk1、Chk2和Chk3, 标题分别为"操作系统”、”数据库原理”、”概率论”，字体大小均为14,其中"概率论"被禁用。

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

评析：
1、考查考生对文本框属性PasswordChar的使用，本例中设置PasswordChar属性为"*"，然后在C1的Click事件中填入如下代码：If Text1.Text = "ABC" Or Text1.Text = "abc" Then MsgBox "正确"Else MsgBox " 错误" 等级：2 难度：2
知识点：VB知识点/控件的使用
12、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars 属性为2 ）和两个命令按钮
（名称分别为Cmd和Cmd2标题分别为"读入数据"和"排序显示保存
"
）（如图所示）。

程序运行后，如果单击"读入数据"按钮，则读入"in3.txt"
文件中的100个整数，放入一个数组中（数组
下界为1）；如果单击"排序显示保存"按钮，则对这100个整数按从大到小进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹的"out3.txt" 中。

（考生的文件
夹下的标准模块mode1.bas其中的putdata过程可以把指定个数的数组元素存入out3.txt文件，考生可以把模块文件添加到自己的工程中）。

注意：
End Sub
等级：3 难度：3
知识点：VB 知识点/结构化程序设计
13、请根据以下要求设计Visual Basic 应用程序（包括界面和 代码）。

在名称为Form1的窗体上建立一个名称为 Cmd1标题为"显示 "的命令按钮，编
写适当的事件过程。

程序运行后，如果单击 ”
显示"命令按钮，则在窗体上显示”全国计算机等级考试”（如图 所示）（要求：不
要使用任何变量，直接显示字符串）。

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

■ Farml
评析：
新建工程，双击控件面板中的 TextBox 控件，在窗体上添加一个 名称为
Textl 的文本框，在属性窗口中设置 MultiLine 属性为 True ,ScrollBars 属性为2，建立两个命令按钮，名称分别为Cmd1 和Cmd2标题分别为"读入数据"和"排序显示保存"。

双击窗体 进入代码窗口填
入以下代码：
Option Explicit
Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer
Open App.Path & "\in.txt" For Input As #1 For j = 1 To 100 Input #1, i(j)
Text1.Text = Text1.Text & i(j) & Space(5) Next Close #1 End Sub
Private Sub Cmd2_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = 1 To 100 flag = False
For k = 1 To 100 - j If i(k) < i(k + 1) Then temp = i(k) i(k) = i(k + 1) i(k + 1) = temp flag = True End If Next
If Not flag Then Exit For End If Next
Text1.Text ="" For j = 1 To 100
Text1.Text = Text1.Text & i(j) & Space(5) Next
putdata i, 100
__________
全国计算机等级考试
评析：
1、新建一个工程，在窗体上添加一个名为 "Cmd1"的按钮，双击 这个按钮在弹出的代码窗口中写入 "Form1.Print " 全国计算机 等级考试""，然后以文件名wy1.vbp 和wy1.frm 保存； 等级：1 难度：1 知识点：VB 知识点/对象属性的设置
14、 在窗体上建立一个名称为Text1的文本框，然后建立两
个主菜单，其标题分别为"商品类别”、”帮助”，名称分别为 vbMenu 和
vbHelp ，其中"商品类别"菜单包括"百货"、"食品"、" 家电"三个子菜单， 名称分别为vbMenu1、vbMenu2、vbMenu3。

程序运行后，如果在"商品类别”的下拉菜单中选择”百货"，则 在文本框内显示："大类核算"；如果选择"食品"，则在文本框 内显示："中类核算"；如果选择"家电"，则在文本框内显示： "小类核算"（要求：不能使用任何变量，
直接显示字符串）。

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

评析：
1、菜单编辑器窗口分3个部分，即数据区、编辑区和菜单项显 示区。

数据
区用来输入或修改菜单项、设置属性；编辑区用来 对输入的菜单项进行简单编辑，并可设置菜单的层次；单击相 应的菜单在弹出的代码窗口中加入相应的代码。

等级：3
难度：3
知识点：VB 知识点/控件的使用
文件必须存放在考生文件夹下，窗体文件名为 wy18.frm ，工程 文件名wy18.vbp ，排序结果存入out3.txt,否则没有成绩。

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

要求程序运行后，如果单击"读入数据”按钮，则读入"in4.txt" 文件中的100个整数，放入一个数组中（数组
下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算其中前50个数之和，并把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件"out4.txt" 中。

（在考生的文件夹下有标准模块mode2.bas，其中的putdata过
程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。

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

评析：
1、新建一个工程，在窗体上添加一个名为"Cmd1"的按钮和一个
名为"Text1"的文本框，双击按钮在弹出的代码窗口中写入
"Text1.Text=""”，然后以文件名wy24.vbp 和wy24.frm 保存。

等级：1 难度：1
知识点：VB知识点/对象属性的设置
17、在窗体上建立一个名称为Text1的文本框，然后建立两
个主菜单，标题分别为"学分等级"和"帮助"，名称分别为vbMenu 和vbHelp，其中"学分等级"菜单包括"等级A"、"等级B"、"等级C"三个子菜单，名称分别为vbMenu1、vbMenu2 vbMenu^要求程序运行后，如果在"学分等级”的下拉菜单中选择”等级A"，则在文本框内显示："85分以上"；如果选择"等级B"，则在文本框内显示："75分至85分"；如果选择"等级C"，则在文本框内显示："60分至75分"（要求：不能使用任何变量，直接显示字符串）。

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

评析：
语法
Write #filenumber, [outputlist] 将数据写入顺序文件。

Open pathname For mode [Access access] [lock] As
[#]filenumber [Len=reclength] 用于打开文件
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop当条件为True时，或直到条件变为True时，重复执行一个语句块中的命令。

等级：3 难度：3
知识点：VE知识点/结构化程序设计
学分等级命助
评析：
1、菜单编辑器窗口分3个部分，即数据区、编辑区和菜单项显示区。

数据区用来输入或修改菜单项、设置属性；编辑区用来对输入的菜单项进行简单编辑，并可设置菜单的层次；单击相应的菜单在弹出的代码窗口中加入相应的代码。

等级：3 难度：3
知识点：VB知识点/控件的使用
16、请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示"AAAA"（如图所示）；再建立一个名称为Cmd1标题为"清除"的命令按钮，编写适当的事件过程。

要求程序运行后，如果单击”清除"命令按钮，则清除文本框中所显示的信息。

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

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

要求程序运行后，如果单击"读入数据"按钮，则读入"in5.txt" 文件中的100个整数，放入一个数组中（数组下界为1），同时
在文本框中显示岀来；如果单击”计算保存”按钮，则计算数组
中前30个数的平均值（结果四舍五入为整数），并把结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件"out5.txt" 中。

（在考生的文件夹下有标准模块mode3.bas，其中的putdata过程可以把结果存入指定的文件，考生可以把该
模块文件添加到自己的工程中，直接调用此过程）。

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

20、在窗体上建立一个名称为Text1的文本框；然后建立两
个主菜单，标题分别为"销售业态"和"帮助"，名称分别为vbMenu 和
vbHelp，其中"销售业态"菜单包括"大型百货"、"连锁超市"、
"前店后厂"三个子菜单，名称分别为vbMenu1、vbMenu2、vbMenu3o 要
求程序运行后，在"销售业态”的下拉菜单中选择”大型百货”，则在文本框内
显示："百货大楼"；如果选择"连锁超市"，则在文本框内显示"利客隆"；如
果选择"前店后厂"则在文本框内显示："稻香村"。

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

评析：
1、菜单编辑器窗口分3个部分，即数据区、编辑区和菜单项显示区。

数据
区用来输入或修改菜单项、设置属性；编辑区用来对输入的菜单项进行简单
编辑，并可设置菜单的层次；单击相应的菜单在弹出的代码窗口中加入相应
的代码。

等级：3 难度：3
知识点：VB知识点/控件的使用
19、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。

在名称为Form1的窗体上建立一个名称为Cmd1宽度为1500，高度为500，标题为"显示"的命令按钮（如图所示），编写适当的事件过程。

要求程序运行后，如果单击”显示"命令按钮，则
在窗体上显示”祝你考试成功”运行结果如图所示（要求：不要使用任何变量，直接显示字符串）。

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

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

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

（在考生文件夹下有标准模块mode4.bas，其中的putdata过程
可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）
注意：文件必须存放在考生文件夹下，窗体文件名为wy33.frm，工程文件名为wy33.vbp，计算结果存入out6.txt文件，否则没有成绩。

评析：
语法
Write #filenumber, [outputlist] 将数据写入顺序文件
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] 用于打开文件
语法
For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next [counter]
等级：3 难度：3
知识点：VE知识点/结构化程序设计
评析：
1、新建一个工程，在窗体上添加一个名为"Cmd1 "的按钮，单击这个按钮在属性窗口中选择Width填入1500，Height为500，Caption为"显示”，双击这个按钮在弹出的代码窗口中写入"Form1.Print " 祝你考试成功""，然后以文件名wy29.vbp和
wy29.frm 保存；
等级：1 难度：1
知识点：VB知识点/对象属性的设置
评析：
语法
[Public | Private | Friend] [Static] Function name
[(arglist)] [As type]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]
End Function声明Function 过程的名称，参数以及构成其主体的代码。

本题完整的代码如下：
Option Explicit
Dim a(100)
Dim i As Integer
Dim n As Integer
Dim f As Integer
Dim s As Long
Private Sub Cmd1_Click()
Open App.Path & "\in.txt" For Input As #1
For i = 1 To 100
Input #1, n
a(i) = n
Text1.Text = Text1.Text & a(i) & ""
Next i
Close #1
End Sub
Private Sub Cmd2_Click()
For i = 1 To 100
If a(i) <= 700 Then s = s + a(i)
Next i
Call putdata("out.txt", s)
Text1.Text = s
End Sub
等级：3 难度：3
知识点：VE知识点/结构化程序设计
体文件名为sjt3.frm 评析：
文本框的Visible属性：
Visible属性用来设置对象的可见性，可以取True和False两种值，取值为True时，对象可见；取值为False时，将隐藏对象。

设置Visible属性的语法是：
对象名.Visible = True(-1) 或False(0)
解题方法：
新建一个名为Form1的窗体，点击工具箱中的TextBox控件图标, 然后在窗体上拖拉岀一个文本框。

点击工具箱中的CommandButtor控件图标，然后在窗体上拖拉出两个命令按钮，通过属性窗口分别设置其Nam属性为"C1"和
"C2",Caption属性为"隐藏"和"显示"。

打开代码窗口，输入如下的代码：
Private Sub C1_Click()
Text1.Visible = False
End Sub
Private Sub C2_Click()
Text1.Visible = True
End Sub
按要求保存文件即完成本题。

等级：1 难度：1
知识点：VB知识点/对象属性的设置
23、请根据以下要求设计Visual Basic应用程序(包括界面和代码)。

在名称为Form1的窗体上画二个文本框，名称分别为T1、T2, 初始情况下都没有内容。

请编写适当的事件过程，使得在运行时，在T仲输入的任何字符，立即显示在T2中(如图所示)。

程序中不得使用任何变量。

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

设置或返回文本框编辑区中的文本，其语法为：
22、请根据以下要求设计Visual Basic应用程序(包括界面和代码)。

在名称为Form1的窗体上画一个文本框，名称为Text1 ;再画二个
命令按钮，名称分别为C1、C2,标题分别为”隐藏”、”显示”(如图所示)。

请编写适当的事件过程，使得在运行时，如果单击"隐藏"按钮，则文本框
消失，而如果单击"显示"按钮，
则文本框显示岀来。

程序中不得使用任何变量。

*注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp ，窗评析：
文本框的Text属性。