vb操作题
所有操作题
1、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
在名为Form1的窗体上画一个框架，名称为Frm1，标题为"框架"，高度为2500，宽度为4000；再在框架中画一个文本框，名称为Text1，高度为400，宽度为1200，其位臵距框架的左边框600，距框架的上边框1200，文本框中的初始内容设臵为"文本框"。
*注意：保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp。
1、菜单编辑器窗口分3个部分，即数据区、编辑区和菜单项显示区。数据区用来输入或修改菜单项、设臵属性；编辑区用来对输入的菜单项进行简单编辑，并可设臵菜单的层次。
2、在考生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后
删除？及所有注释符（即'
号）但不能修改其他部分。
存盘时不得改变文件名和
文件夹。
本题描述如下：在窗体上
有一个列表框，名称为
List1，一个文本框，名称为
Text1，和一个命令按钮，
名称为C1，标题为"复制"。
要求程序运行后，在列表
框中自动建立四个列表
项，分别为"Item1"、
"Item2"、"Item3"、"Item4"
如果选择列表框中的一
项，则单击"复制"按钮时，
可以把该项复制到文本框
中（如图所示）。
1、该题考查考生对ListBox
控件的使用，该控件显示
项目列表，从其中可以选
择一项或多项。如果项目
总数超过了可显示的项目
数，就自动在ListBox控件
上添加滚动条。
语法：
ListBox
MultiSelect属性：返回或设
臵一个值，该值指示是否
能够在FileListBox或
ListBox控件中进行复选以
及如何进行复选。在运行
时是只读的。
知识点：VB知识点/控件的
使用
3、在名称为Form1的
窗体上建立两个单选按
钮，名称分别为Opt1和
Opt2，标题分别为"100-200
之间素数"和"200-400之间
素数"，一个文本框，名称
为Text1，和两个命令按钮，
其名称分别为Cmd1和
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]用于打开文件。 知识点：VB 知识点/结构化程序设计
4、请根据以下要求设计Visual Basic 应用程序（包括界面和代码）。
在名称为Form1的窗体中建立一个名称为
Cmd1，标题为"显示"的命令按钮（如图所示）。 要求程序运行后， 如果单击"显示"按钮， 则执行语句Form1.Print "显示"；如果单击窗体，则执行语句Form1.Cls 。
*注意：保存时必须存放在考生文件夹下，窗体文件名为wy3.frm ，工程文件名为wy3.vbp 。
1、新建一个工程，在窗体上添加一个名为"Cmd1"的按钮，双击这个按钮在弹出的代码窗口中写入
"Form1.Print"显示""，在窗体空白部分双击，在弹出的窗口中写入"Form1.Cls"，然后以文件名wy3.vbp 和wy3.frm 保存； 知识点：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 ，否则没有成绩。
新建一工程，在上面放臵一文本框设臵其MultiLine 属性为True ，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
知识点：VB知识点/结构化程序设计
6、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1、Cmd2，标题分别为"输出"、"清除"（如图所示）。要求程序运行后，每单击一次"输出"按钮，不使用任何变量而直接在图片框中显示小写字母"red"；如果单击"清除"按钮，则清除图片框中的内容。
*注意：保存时必须存放在考生文件夹下，窗体文件名为wy9.frm，工程文件名为wy9.vbp。
1、PictureBox控件可以显示来自位图、图标或者源文件，以及来自增强的源文件、JPEG 或GIF文件的图形。如果控件不足以显示
整幅图像，则裁剪图像以
适应控件的大小。也可以
用PictureBox控件将
OptionButton控件分组，并
用该控件显示图形方法的
输出和Print方法写入的文
本。Image控件用来显示图
形，但是它只支持
PictureBox控件的一部分属
性、事件和方法。
知识点：VB知识点/对象属
性的设臵
7、在名称为Form1的窗
体上建立一个文本框（名
称为Text1，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文件，否则没有成
绩。
考查对数组、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]用于打开文
件。
知识点：VB知识点/结构化
程序设计
8、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在名称为Form1的窗体
上建立一个名称为Text1的
文本框，一个名称为Cmd1，
标题为"输出"的命令按钮
（如图所示）。要求程序
运行后，在文本框输入几
个字符，在单击"输出"按
钮，则在窗体上显示文本
框中的的文字。
*注意：
1）在程序中不能使用任何变量。
2）保存时必须存放在考生文件夹下，窗体文件名为wy12.frm，工程文件名为wy12.vbp。
1、考查基本控件的使用和对Print方法的使用，新建一工程，建立一名为Text1的文本框和名为Cmd，标题为"输出"的命令按钮，双击命令按钮加入如下代码：Cls
Print Text1.Text
知识点：VB知识点/对象属性的设臵
9、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"排序显示保存"）（如图所示）。程序运行后，如果单击"读入数据"按钮，则读入
"in2.txt"文件中的100个整数，放入一个数组中（数组下界为1）；如果单击"排序显示保存"按钮，则对这100个整数按从小到大进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件"result2.txt"中
（在考生的目录下有标准
模块prog2.bas过程可以把
指定个数的数组元素存入
result2.txt文件，考生可以把
该模块文件添加到自己的
工程中）。
注意：文件必须存放在考
生文件夹下，窗体文件名
为wy14.frm，工程文件名为
wy14.vbp，排序结果存入
result2.txt文件，否则没有成
绩。
新建工程，双击控件面板
中的TextBox控件，在窗体
上自动添加一个名称为
Text1的文本框，在属性窗
口中设臵MultiLine属性为
True，ScrollBars属性为2，
建立两个命令按钮，名称
分别为Cmd1和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
知识点：VB知识点/结构化
程序设计
10、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
按下述要求在属性窗
口中设臵属性：在名称为
Form1的窗体中建立一个
标签，名称为L1，在标签
上显示"选课"，其字号大小
为四号；再建立三个复选框，名称分别为Chk1、Chk2和Chk3，标题分别为"操作系统"、"数据库原理"、"概率论"，字体大小均为14，其中"概率论"被禁用。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为wy15.frm，工程文件名为wy15.vbp。
本题考查对CheckBox控件属性Enabled的使用以及Label控件Font属性的使用，使CheckBox控件属性Enable为False时，该控件就被禁用。
知识点：VB知识点/对象属性的设臵
11、在考生文件夹中有工程文件wy16.vbp及其窗体文件wy16.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为"校验"的命令按钮。其中文本框用来输入口令（如图所示），要求在文本框中输入的内容都必须以"*"显示（请考生
自己通过属性窗口设臵）。
要求程序运行后，输入口
令，单击命令按钮后，对
口令进行校验。如果输入
的内容是"ABC"或"abc"这3
个字母，则用MsgBox信息
框输出"正确"，否则输出"
错误"（如图所示）。
1、考查考生对文本框属性
PasswordChar的使用，本例
中设臵PasswordChar属性
为"*"，然后在C1的Click事
件中填入如下代码：
If Text1.Text = "ABC"
Or Text1.Text = "abc" Then
MsgBox "正确" Else
MsgBox "错误"
知识点：VB知识点/控件的
使用
12、在名称为Form1的
窗体上建立一个文本框
（名称为Text1，MultiLine
属性为True，ScrollBars属性
为2）和两个命令按钮（名
称分别为Cmd1和Cmd2，标
题分别为"读入数据"和"排
序显示保存"）（如图所
示）。程序运行后，如果
单击"读入数据"按钮，则读
入"in3.txt"文件中的100个
整数，放入一个数组中（数
组下界为1）；如果单击"
排序显示保存"按钮，则对
这100个整数按从大到小进
行排序，把排序后的全部
数据在文本框Text1中显示
出来，然后存入考生文件
夹的"out3.txt"中。（考生的
文件夹下的标准模块
mode1.bas其中的putdata过
程可以把指定个数的数组
元素存入out3.txt文件，考
生可以把模块文件添加到
自己的工程中）。
注意：
文件必须存放在考生文件
夹下，窗体文件名为
wy18.frm，工程文件名
wy18.vbp，排序结果存入
out3.txt,否则没有成绩。
新建工程，双击控件面板
中的TextBox控件，在窗体
上添加一个名称为Text1的
文本框，在属性窗口中设
臵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
End Sub
知识点：VB知识点/结构化程序设计
13、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
在名称为Form1的窗体
上建立一个名称为Cmd1，
标题为"显示"的命令按钮，
编写适当的事件过程。程
序运行后，如果单击"显示"
命令按钮，则在窗体上显
示"全国计算机等级考试"
（如图所示）（要求：不
要使用任何变量，直接显
示字符串）。
*注意：
保存时必须存放在考生文
件夹下，窗体文件名为
wy19.frm，工程文件名为
wy19.vbp。
1、新建一个工程，在窗体
上添加一个名为"Cmd1"的
按钮，双击这个按钮在弹
出的代码窗口中写入
"Form1.Print "全国计算机
等级考试""，然后以文件名
wy1.vbp和wy1.frm保存；
知识点：VB知识点/对象属
性的设臵
14、在窗体上建立一个
名称为Text1的文本框，然
后建立两个主菜单，其标
题分别为"商品类别"、"帮
助"，名称分别为vbMenu和
vbHelp，其中"商品类别"
菜单包括"百货"、"食品"、
"家电"三个子菜单，名称
分别为vbMenu1、vbMenu2、
vbMenu3。程序运行后，如
果在"商品类别"的下拉菜
单中选择"百货"，则在文本
框内显示："大类核算"；如
果选择"食品"，则在文本框
内显示："中类核算"；如果
选择"家电"，则在文本框
内显示："小类核算"（要求：
不能使用任何变量，直接
显示字符串）。
*注意：
保存时必须存放在考生文
件夹下，窗体文件名为
wy21.frm，工程文件名为
wy21.vbp。
1、菜单编辑器窗口分3个
部分，即数据区、编辑区
和菜单项显示区。数据区
用来输入或修改菜单项、
设臵属性；编辑区用来对
输入的菜单项进行简单编
辑，并可设臵菜单的层次；
单击相应的菜单在弹出的
代码窗口中加入相应的代
码。
知识点：VB知识点/控件的
使用
15、在名称为Form1的
窗体上建立一个文本框
（名称为Text1，MultiLine
属性为True，ScrollBars属性
为2）和两个命令按钮（名
称分别为Cmd1和Cmd2，标
题分别为"读入数据"和"计
算保存"，如图所示）。要
求程序运行后，如果单击"
读入数据"按钮，则读入
"in4.txt"文件中的100个整
数，放入一个数组中（数
组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算其中前50个数之和，并把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件"out4.txt"中。（在考生的文件夹下有标准模块mode2.bas，其中的putdata 过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。注意：文件必须存放在考生文件夹下，窗体文件名为wy23.frm，工程文件名为wy23.vbp，计算结果存入out4.txt文件，否则没有成绩。
语法
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时，重复
执行一个语句块中的命
令。
知识点：VB知识点/结构化
程序设计
16、请根据以下各小题的
要求设计Visual Basic应用
程序（包括界面和代码）。
在名称为Form1的窗
体上画一个名称为Text1的
文本框，通过属性窗口设
臵文本框属性，在文本框
中显示"AAAA"（如图所
示）；再建立一个名称为
Cmd1，标题为"清除"的命
令按钮，编写适当的事件
过程。要求程序运行后，
如果单击"清除"命令按钮，
则清除文本框中所显示的
信息。
*注意：
保存时必须存放在考生文
件夹下，窗体文件名为
wy24.frm，工程文件名为
wy24.vbp。
1、新建一个工程，在窗体
上添加一个名为"Cmd1"的
按钮和一个名为"Text1"的
文本框，双击按钮在弹出
的代码窗口中写入
"Text1.Text="""，然后以文
件名wy24.vbp和wy24.frm保
存。
知识点：VB知识点/对象属
性的设臵
17、在窗体上建立一个
名称为Text1的文本框，然
后建立两个主菜单，标题
分别为"学分等级"和"帮助
"，名称分别为vbMenu和
vbHelp，其中"学分等级"
菜单包括"等级A"、"等级
B"、"等级C"三个子菜单，
名称分别为vbMenu1、
vbMenu2、vbMenu3。要求
程序运行后，如果在"学分
等级"的下拉菜单中选择"
等级A"，则在文本框内显
示："85分以上"；如果选
择"等级B"，则在文本框内
显示："75分至85分"；如
果选择"等级C"，则在文本
框内显示："60分至75分"
（要求：不能使用任何变
量，直接显示字符串）。
*注意：
保存时必须存放在考生文
件夹下，窗体文件名为
wy26.frm，工程文件名为
wy26.vbp。
1、菜单编辑器窗口分3个
部分，即数据区、编辑区
和菜单项显示区。数据区
用来输入或修改菜单项、
设臵属性；编辑区用来对
输入的菜单项进行简单编
辑，并可设臵菜单的层次；
单击相应的菜单在弹出的
代码窗口中加入相应的代
码。
知识点：VB知识点/控件的使用
18、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"，如图所示）。
要求程序运行后，如果单击"读入数据"按钮，则读入"in5.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中前30个数的平均值（结果四舍五入为整数），并把结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件"out5.txt"中。（在考生的文件夹下有标准模块
mode3.bas，其中的putdata 过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。注意：文件必须存放在考生文件夹下，窗体文件名为wy28.frm，工程文件名为wy28.vbp，计算结果存入out5.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]
知识点：VB知识点/结构化
程序设计
19、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在名称为Form1的窗
体上建立一个名称为
Cmd1，宽度为1500，高度
为500，标题为"显示"的命
令按钮（如图所示），编
写适当的事件过程。要求
程序运行后，如果单击"显
示"命令按钮，则在窗体上
显示"祝你考试成功"运行
结果如图所示（要求：不
要使用任何变量，直接显
示字符串）。
*注意：
保存时必须存放在考生文
件夹下，窗体文件名为
wy29.frm，工程文件名为
wy29.vbp。
1、新建一个工程，在窗体
上添加一个名为"Cmd1"的
按钮，单击这个按钮在属
性窗口中选择Width填入
1500，Height为500，Caption
为"显示"，双击这个按钮在
弹出的代码窗口中写入
"Form1.Print "祝你考试成
功""，然后以文件名
wy29.vbp和wy29.frm保存；
知识点：VB知识点/对象属
性的设臵
20、在窗体上建立一个
名称为Text1的文本框；然
后建立两个主菜单，标题
分别为"销售业态"和"帮助
"，名称分别为vbMenu和
vbHelp，其中"销售业态"
菜单包括"大型百货"、"连
锁超市"、"前店后厂"三个
子菜单，名称分别为
vbMenu1、vbMenu2、
vbMenu3。要求程序运行
后，在"销售业态"的下拉菜
单中选择"大型百货"，则在
文本框内显示："百货大楼
"；如果选择"连锁超市"，
则在文本框内显示"利客隆
"；如果选择"前店后厂"则
在文本框内显示："稻香村
"。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为
wy31.frm，工程文件名为wy31.vbp。
1、菜单编辑器窗口分3个部分，即数据区、编辑区和菜单项显示区。数据区用来输入或修改菜单项、设臵属性；编辑区用来对输入的菜单项进行简单编辑，并可设臵菜单的层次；单击相应的菜单在弹出的代码窗口中加入相应的代码。
知识点：VB知识点/控件的使用
21、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars属性为2），两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"，如图所示）。
要求程序运行后，如果单击"读入数据"按钮，则读入"in6.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算小于或等于700的所有数之和，并把求和结果在文本框Text1中显示出来，同时把该结果存入考生文件夹
中的文件"out6.txt"中。（在
考生文件夹下有标准模块
mode4.bas，其中的putdata
过程可以把结果存入指定
的文件，考生可以把该模
块文件添加到自己的工程
中，直接调用此过程）
注意：文件必须存放在考
生文件夹下，窗体文件名
为wy33.frm，工程文件名为
wy33.vbp，计算结果存入
out6.txt文件，否则没有成
绩。
语法
[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
知识点：VB知识点/结构化
程序设计
22、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在名称为Form1的窗
体上画一个文本框，名称
为Text1；再画二个命令按
钮，名称分别为C1、C2，
标题分别为"隐藏"、"显示"
（如图所示）。请编写适
当的事件过程，使得在运
行时，如果单击"隐藏"按
钮，则文本框消失，而如
果单击"显示"按钮，则文本
框显示出来。程序中不得
使用任何变量。
*注意：
存盘时必须存放在考生文
件夹下，工程文件名为
sjt3.vbp，窗体文件名为
sjt3.frm。
文本框的Visible属性：Visible属性用来设臵对象的可见性，可以取True和False两种值，取值为True 时，对象可见；取值为False 时，将隐藏对象。
设臵Visible属性的语法是：对象名.Visible = True(-1)或False(0)
解题方法：
新建一个名为Form1的窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。
点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出两个命令按钮，通过属性窗口分别设臵其Name属性为"C1"和"C2",Caption属性为"隐藏"和"显示"。
打开代码窗口，输入如下的代码：
Private Sub C1_Click()
Text1.Visible = False
End Sub
Private Sub C2_Click() Text1.Visible = True
End Sub
按要求保存文件即完成本
题。
知识点：VB知识点/对象属
性的设臵
23、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在名称为Form1的窗
体上画二个文本框，名称
分别为T1、T2，初始情况
下都没有内容。请编写适
当的事件过程，使得在运
行时，在T1中输入的任何
字符，立即显示在T2中（如
图所示）。程序中不得使
用任何变量。
*注意：
存盘时必须存放在考生文
件夹下，工程文件名为
sjt5.vbp，窗体文件名为
sjt5.frm。
文本框的Text属性
设臵或返回文本框编辑区
中的文本，其语法为：
文本框名.Text = 字符串
文本框的Change事件
当用户向文本框中输入新
信息，或当程序把Text属性
设臵为新值时，就会触发
Change事件。
解题方法：
新建一个名为Form1的窗
体，点击工具箱中的
TextBox控件图标，然后在
窗体上拖拉出两个文本
框。
打开代码窗口，输入如下
的代码：
Private Sub T1_Change()
T2.Text = T1.Text
End Sub
按要求保存文件即完成本
题。
知识点：VB知识点/控件的
使用
24、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在Form1的窗体上画一
个名称为Text1的文本框，
然后建立一个主菜单，标
题为"操作"，名称为Op，
该菜单有两个子菜单，其
标题分别为"显示"和"退出
"，其名称分别为Dis和Exit，
编写适当的事件过程。程
序运行后，如果单击"操作"
菜单中的"显示"命令，则在
文本框中显示"等级考试"；
如果单击"退出"命令，则结
束程序运行。程序的运行
情况如图所示。
*注意：
存盘时必须存放在考生文
件夹下，工程文件名为
sjt7.vbp，窗体文件名为
sjt7.frm。
菜单的"标题"与"名称"属
性:
菜单的"标题"是程序运行
和设计过程中用户所看到的菜单项显示的文字信息；菜单的"名称"是菜单控件名，是该菜单项区别于其他菜单项以及其他控件的重要标识。相当与一般控件的Name属性。
解题方法：
新建一个名为Form1的窗体，执行"工具"菜单中的"菜单编辑器"命令，打开菜单编辑器。
在"标题"栏中输入"操作"，在"名称"栏中输入"Op"；点击"下一个"按钮，再点击编辑区的"→"按钮，在"标题"栏中输入"显示"，在"名称"栏中输入"Dis"；点击"下一个"按钮，在"标题"栏中输入"退出"，在"名称"栏中输入"Exit"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。
打开代码窗口，输入如下的代码：
Private Sub Dis_Click() Text1.Text = "等级考试" End Sub
Private Sub Exit_Click() End
End Sub
按要求保存文件即完成本题。
知识点：VB知识点/控件的使用
25、在考生文件夹下有工程文件wy39.vbp及窗体文件wy39.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部
分。存盘时不得改变文件
名和文件夹。
本题描述如下：
在窗体中有两个命令按
钮，名称分别是C1和C2,标
题分别是"修改窗体图标"
和"修改窗体标题"。要求程
序运行后，点击C1命令按
钮，则将窗体标题栏中的
图标换为图标文件3.ico（该
文件在考生文件夹下）；
点击C2命令按钮，则将窗
体标题修改为"窗体"。
空
知识点：VB知识点/控件的
使用
26、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在Form1的窗体上画一
个名称为Text1的文本框，
然后建立一个主菜单，标
题为"操作"，名称为Op，
该菜单有两个子菜单，其
标题分别为"显示"和"隐藏
"，名称分别为Dis和Hid，
编写适当的事件过程。程
序运行后，如果单击"操作"
菜单中的"显示"命令，则在
文本框中显示"等级考试"；
如果单击"隐藏"命令，则隐
藏文本框。程序的运行情
况如图所示。
*注意：
存盘时必须存放在考生文
件夹下，工程文件名为
sjt9.vbp，窗体文件名为
sjt9.frm。程序中不得使用
任何变量。
空
知识点：VB知识点/控件的
使用
27、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在Form1的窗体上画一
个名称为Text1的文本框，
然后建立一个主菜单，标
题为"操作"，名称为Op，
该菜单有两个子菜单，其
标题分别为"显示"和"清除
"，名称分别为Dis和Clea，
编写适当的事件过程。程
序运行后，如果单击"操作"
菜单中的"显示"命令，则在
文本框显示"等级考试"；如
果单击"清除"命令，则清除
文本框中显示的内容。程
序的运行情况如图所示。
*注意：
存盘时必须存放在考生文件夹下，工程文件名为
sjt11.vbp，窗体文件名为sjt11.frm。
菜单的"标题"与"名称"属性:
菜单的"标题"是程序运行和设计过程中用户所看到的菜单项显示的文字信息；菜单的"名称"是菜单控件名，是该菜单项区别于其他菜单项以及其他控件的重要标识。相当与一般控件的Name属性。
解题方法：
新建一个名为Form1的窗体，执行"工具"菜单中的"菜单编辑器"命令，打开菜单编辑器。
在"标题"栏中输入"操作"，在"名称"栏中输入"Op"；点击"下一个"按钮，再点击编辑区的"→"按钮，在"标题"栏中输入"显示"，在"名称"栏中输入"Dis"；点击"下一个"按钮，在"标题"栏中输入"清除"，在"名称"栏中输入"Clea"。
点击工具箱中的TextBox控件图标，然后在窗体上拖
拉出一个文本框。
打开代码窗口，输入如下
的代码：
Private Sub Clea_Click()
Text1.Text = ""
End Sub
Private Sub Dis_Click()
Text1.Text = "等级考试"
End Sub
按要求保存文件即完成本
题。
知识点：VB知识点/控件的
使用
28、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在Form1的窗体上建
立一个主菜单，标题为"操
作"，名称为Op，该菜单有
两个子菜单，其标题分别
为"显示"和"清除"，其名称
分别为Dis和Clea，编写适
当的事件过程。程序运行
后，如果单击"操作"菜单中
的"显示"命令，则在窗体上
显示"等级考试"；如果单击
"清除"命令，则清除窗体上
显示的内容。程序的运行
情况如图所示。
*注意：
存盘时必须存放在考生文
件夹下，工程文件名为
sjt13.vbp，窗体文件名为
sjt13.frm。
菜单的"标题"与"名称"属
性:
菜单的"标题"是程序运行
和设计过程中用户所看到
的菜单项显示的文字信
息；菜单的"名称"是菜单控
件名，是该菜单项区别于
其他菜单项以及其他控件
的重要标识。相当与一般
控件的Name属性。
Cls方法
清除运行时窗体上或
PictureBox中所生成的图形
和文本。
解题方法：
新建一个名为Form1的窗
体，执行"工具"菜单中的"
菜单编辑器"命令，打开菜
单编辑器。
在"标题"栏中输入"操作"，
在"名称"栏中输入"Op"；点
击"下一个"按钮，再点击编
辑区的"→"按钮，在"标题"
栏中输入"显示"，在"名称"
栏中输入"Dis"；点击"下一
个"按钮，在"标题"栏中输
入"清除"，在"名称"栏中输
入"Clea"。
打开代码窗口，输入如下
的代码：
Private Sub Clea_Click()
Cls
End Sub
Private Sub Dis_Click()
Print "等级考试"
End Sub
按要求保存文件即完成本
题。
知识点：VB知识点/控件的
使用
29、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在名称为Form1的窗
体上放臵两个列表框，名称分别为List1和List2。在List1中添加"第一题"、"第二题"…"第八题"，并设臵MultiSelect属性为2（要求在控件属性中设臵实现）。再放臵一个名称为Cmd1，标题为"复制"的命令按钮。程序运行后，如果单击"复制"按钮，将List1中选中的内容(至少两项)复制到
List2中。如果选择的项数少于2项，用消息框提示"请选择至少两项"。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为
wy52.frm，工程文件名为wy52.vbp。
ListBox控件：ListBox控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在ListBox 控件上添加滚动条。
语法：
ListBox
MultiSelect属性:返回或设臵一个值，该值指示是否能够在FileListBox或ListBox控件中进行复选以
及如何进行复选。在运行
时是只读的。
知识点：VB知识点/控件的
使用
30、在窗体上建立一
个名称为Text1的文本框。
然后建立两个主菜单，其
标题分别为"颜色"、"帮助
"，名称分别为vbColor和
vbHelp。其中"颜色"菜单包
括"红色"、"蓝色"、"黄色"
三个子菜单项，名称分别
为red、blue、yellow。程序
运行后，如果单击"红色"
菜单项，则文本框内显示
小写字母串"red"；如果单
击"蓝色"菜单项，则在文本
框内显示小写字母串
"blue"；如果单击"黄色"
菜单项，则在文本框内显
示小写字母串"yellow"（要
求：不能使用任何变量，
直接显示字符串）。
*注意：
保存时必须存放在考生文
件夹下，窗体文件名为
wy65.frm，工程文件名为
wy65.vbp。
新建一个工程，双击控件
面板上的"TextBox"控件，
在窗体Form1上自动添加
一个"名称"为"Text1"的文
本框，在属性页上把"Text"
属性设为""，单击标准工具
栏上的"菜单编辑器"按钮，
通过单击"下一个"按钮切
换，分别在"标题框"和"名
称框"中输入题面中要求的
菜单名称及标题。再选中
要设臵成子菜单的项目，
并单击向右的箭头，设臵
成主菜单的二级菜单。单
击"查看代码"按钮，输入以
下代码：
Private Sub blue.Click()
Text1.Text = "blue"
'或Text1.Text =
blue.Caption
End Sub
Private Sub red.Click()
Text1.Text = "red"
'或Text1.Text =
red.Caption
End Sub
Private Sub
yellow.Click()
Text1.Text =
"yellow"
'或Text1.Text =
yellow.Caption
End Sub
单击标准工具栏中的"保存
工程"按钮，选择考生文件
夹，以文件名wy65.frm，
wy65.vbp分别保存。
知识点：VB知识点/控件的
使用
31、在窗体上建立一个
名称为Text1的文本框，然
后建立两个主菜单，标题
分别为"学生信息"、"帮助
"，名称分别为vbMenu和
vbHelp，其中"学生信息"，
菜单包括"张三"、"李四"、
"王五"三个子菜单，名称
分别为vbMenu1、vbMenu2、
vbMenu3。要求程序运行后，如果在"学生信息"的下拉菜单中选择"张三"，则在文本框内显示"张三"；如果选择"李四"则在文本框内显示"李四"；如果选择"王五"则在文本框内显示"王五"。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为
wy67.frm，工程文件名为wy67.vbp。
第一题：
新建一个工程，双击控件面板上的"TextBox"控件，在窗体Form1上自动添加一个"名称"为"Text1"的文本框，在属性页上把"Text"属性设为""，单击标准工具栏上的"菜单编辑器"按钮，通过单击"下一个" 按钮切换，分别在"标题框"和"名称框"中输入题面中要求的菜单名称及标题。再选中要设臵成子菜单的项目，并单击向右的箭头，设臵成主菜单的二级菜单。单击"查看代码"按钮，输入以下代码：
Private Sub
vbMenu1_Click()
Text1.Text = vbMenu1.Caption
'或Text1.Text = "张三" End Sub
Private Sub
vbMenu2_Click()
Text1.Text =
vbMenu2.Caption
'或Text1.Text = "李四"
End Sub
Private Sub
vbMenu3_Click()
Text1.Text =
vbMenu3.Caption
'或Text1.Text = "王
五"
End Sub
单击标准工具栏中的"保存
工程"按钮，选择考生文件
夹，以文件名wy67.frm，
wy67.vbp分别保存。
知识点：VB知识点/控件的
使用
32、在名称为Form1的
窗体中画一个名称为L1的
标签，其标题为"0"，
BorderStyle属性为1；再添
加一个名称为Timer1的计
时器。请设臵适当的控件
属性，并编写适当的事件
过程，使得在运行时，每
隔一秒钟标签中的数字加
1。如图所示的是程序刚启
动时的情况。程序中不得
使用任何变量。
*注意：
存盘时必须存放在考生文
件夹下，工程文件名为
sjt19.vbp，窗体文件名为
sjt19.frm。
标签控件的BorderStyle属
性
返回或设臵标签控件的边
框样式。可以取0和1两种
值，取值为0时，标签控件
无边框；取值为1时，标签
控件有边框。其语法为：
控件名.BorderStyle= 0或1
计时器控件的Interval属性
返回或设臵计时器事件之
间的间隔，以毫秒为单位，
取值范围是0到65535
解题方法：
新建一个名为Form1的窗
体，点击工具箱中的Timer
控件图标，然后在窗体上
拖拉出一个计时器，通过
属性窗口设臵其Interval属
性为1000。
点击工具箱中的Label控件
图标，然后在窗体上拖拉
出一个标签控件，通过属
性窗口设臵其Name属性为
"L1"，Caption属性为"0"，
BorderStyle属性为1。
打开代码窗口，输入如下
的代码：
Private Sub Timer1_Timer()
L1.Caption = L1.Caption +
1
End Sub
按要求保存文件即完成本
题。
知识点：VB知识点/控件的
使用
33、请根据以下各小题的
要求设计Visual Basic应用
程序（包括界面和代码）。
在名称为Form1的窗
体上画一个列表框，名称
为L1，高为780，宽为1000，
字体为"黑体"，并通过属性窗口为其添加三个列表项，依次为"列表1"、"列表2"、"列表3"（如图所示）。*注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
列表框控件的List属性
List属性用来列出列表项
的内容。该属性保存了列表框中所有值的数组，可以通过下标访问数组中的值（下标从0开始），其语法是：
列表框名.List（下标）=字符串
解题方法：
新建一个名为Form1的窗体，点击工具箱中的ListBox控件图标，然后在窗体上拖拉出一个列表框，通过属性窗口设臵其Name属性为"L1"，Height 属性为780,Width 属性为1000，Font属性为"黑体"，通过列表框的List 属性为列表框添加"列表1"、"列表2"和"列表3"三个列表项。按要求保存文件即完成本题。
知识点：VB知识点/对象属性的设臵
34、请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
在窗体上画一个文本
框，名称为Text1，高度为
350，宽度为2000，字体为"
黑体"，并设臵其它相关属
性，使得在运行时，在文
本框中输入的字符都显示
为"？"（如图所示）。
*注意：存盘时必须存放在
考生文件夹下，工程文件
名为sj3.vbp，窗体文件名为
sj3.frm。
文本框的PasswordChar属
性
用来设臵文本框中所显示
的内容。在默认状态下，
该属性的设臵值是空字符
串，此时文本框所显示的
是键盘所输入的字符；如
果将该属性的值设臵为一
个非空字符串，则从键盘
向文本框输入字符时，文
本框中的实际内容仍是键
入的字符，但显示的是
PasswordChar属性所设臵
的字符串的第一个字符。
解题方法：
新建一个窗体，点击工具
箱中的TextBox控件图标，
然后在窗体上拖拉出一个
文本框，通过属性窗口设
臵其Font属性为"黑体"，
Height属性为350，Width属
性为2000，PasswordChar
属性为"?"。
按要求保存文件即完成本
题。
知识点：VB知识点/对象属
性的设臵
35、在考生文件夹下有
一个工程文件sj8.vbp，窗体
上有一个名为P1的图片
框；一个单选按钮数组，
含三个单选按钮，标题分
别为"正方形"、"椭圆形"、
"圆形"；还有一个标题为"
显示"的命令按钮。程序的
功能是在运行时，如果选
中一个单选按钮后，单击"
显示"按钮，则根据单选按
钮的选中情况，在图片框
中显示"选择了正方形"、"
选择了椭圆形"或"选择了
圆形"，如图所示。
要求：1）原题中的单选按
钮和命令按钮没有标题，
请利用属性窗口依次添加
单选按钮标题分别为"正方
形"、"椭圆形"、"圆形"，
添加命令按钮标题为"显示
"。
2）去掉程序中的注
释符，把程序中的？改为
正确的内容，使其实现上
述功能。
注意：不能修改程序中的
其他部分，也不能修改控
件的其他属性。最后把修
改后的程序以原文件名存
盘。
空
知识点：VB知识点/控件的使用
36、在考生文件夹下有一个工程文件sj10.vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为"北京"、"上海"、"广州"；再添加一个标题为"显示"的命令按钮，如图所示。程序的功能是在运行时，如果选中一个单选按钮后，单击"显示"按钮，则根据单选按钮的选中情况，在窗体上显示"我的出生地是北京"、"我的出生地是上海"或"我的出生地是广州"。要求：
1）依次添加单选按钮标题为"北京"、"上海"、"广州"；设初始选中的是"广州"，添加命令按钮标题为"显示"。
2）去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。
最后把修改后的文件按原文件名存盘。
本题考查对控件属性的设臵,以及属性的应用
可以在属性窗体中设臵各个控件的Caption属性,在程
序修改中,要注意控件数组
是从0开始到Op1.Count-1
结束的,即可填写,在判断
中如果OptionButton被选
中它的Value应该为True,这
里明白OptionButton的是
否被选中是由Value属性表
示的就可正确填写。后面
一个?主要是显示
OptionButton的标题
Caption这样该题目就完成
了。
知识点：VB知识点/控件的
使用
37、在考生文件夹下有
一个工程文件sj14.vbp，其
窗体上有两个标签L1和
L2，标题分别为"口令"和"
允许次数"；一个命令按钮
C1，标题为"确定"；两个文
本框名称分别为为Text1和
Text2。其中Text1用来输入
口令（输入时，显示"*"），
无初始内容；Text2的初始
内容为3。并给出了C1的事
件过程，但不完整，要求
去掉程序中的注释符，把
程序中的？改为正确内
容，使得在运行时，在Text1
中输入口令后，单击"确定
"，如果输入的是"123456"
则在Text1中显示"口令正
确"；如果输入其他内容，
单击"确定"后，弹出如图所
示的错误提示对话框，并
且Text2中的数字减1。最多
可输入3次口令，若3次都
输入错误，则禁止再次输
入。
注意：
不能修改程序中
的其他部分。最后把修改
后的文件按原文件名存
盘。
本题的考查重点在,文本框
的PasswordChar属性
文本框的PasswordChar属
性:返回或设臵一个值，该
值指示所键入的字符或占
位符在TextBox控件中是
否要显示出来；返回或设
臵用作占位符。此属性不
影响Text 属性；Text准确
地包括所键入或代码中所
设臵的内容。将
PasswordChar设臵为长度
为0的字符串（""）（缺省
值），将显示实际的文本。
本题中两处用到：一个是
设计时通过属性窗体设
臵；一个是密码验证成功
以后要显示文本需要恢复
正常，在题面语句
Text1.Text = "口令正确"的
后续语句?处填入
PasswordChar，这样就是
Text1.PasswordChar=""，去
掉了Text1的PasswordChar，
Text1的文本就能够正常显
示。
其他几个?根据题面分析,
第一个IF判断要检查输入的口令是否正确,只能用Text1.Text属性进行,当然写作Text1也可以,Text是文本框的默认属性,
第二个IF判断检查口令的输入次数,根据题目知道是三次,并且Text2在判断以前已经先减了一次,所以填入0最后一个明显是口令
三次检查不合格的处理，要使Text1无效设臵Enabled属性为False即可。知识点：VB知识点/结构化程序设计
38、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为"身高"和"体重"）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为"输入"）。然后编写命令按钮的Click事件过程，程序运行后，如果单击命令按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高和体重，并分别在两个文本框中显示出来，运行后的窗体如图所示。要求程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为
Sj15.vbp，窗体文件名为
sj15.frm。本题考查标签、文本框和
命令按钮及其属性的设
臵，以及在事件中在文本
框中显示文本。
首先在控件工具箱上选择
标签、文本框和命令按钮
控件，把它们加到窗体上。
然后在窗体上选中标签控
件，在右边的属性窗口中
选择Caption，把其后面的
"Label1"和"Label2"分别改
为"身高"和"体重"；再选中
文本框控件，把属性窗口
中的Text后面的"Text1"和
"Text2"改为""；再选中命令
按钮，把属性窗口中的
Caption后面的
"Command1"改为"输入"。
命令按钮的Click事件中用
InputBox分别来输入身高
和体重，其代码如下：
Private Sub
Command1_Click()
Text1.Text = InputBox("请
输入身高")
Text2.Text = InputBox("请
输入体重")
End Sub
当然，实现利用输入对话
框向文本框中输入文本的
代码写法有很多种，这只
是比较常见的一种。
知识点：VB知识点/对象属
性的设臵
39、请根据以下设计Visual
Basic应用程序（包括界面
和代码）。
在名称为Form1的窗
体上画一个标签（名称为
Label1，标题为"输入信息
"）、一个文本框（名称为
Text1，Text属性为空白）
和一个命令按钮（名称为
Command1，标题为"显示
"），如图1所示。然后编写
命令按钮的Click事件过
程。程序运行后，在文本
框中输入"计算机等级考试
"，然后单击命令按钮，则
标签和文本框消失，并在
窗体上显示文本框中的内
容。运行后的窗体如图2所
示。要求程序中不得使用
任何变量。
*注意：存盘时必须存放在
考生文件夹下，工程文件
名为sj19.vbp，窗体文件名
为sj19.frm。
图1 图2
新建一个工程，在窗体上添加一个标签Label1，并将其Caption属性设臵为"输
入信息"，再添加一个内容为空白的文本框Text1和一个命令按钮Command1，标题为"显示"。双击这个按钮添加如下代码：
Private Sub
Command1_Click()
Label1.Visible = False
Text1.Visible = False
Print Text1.Text
End Sub
最后按照题目要求保存文件即可。
知识点：VB知识点/控件的使用
40、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
在名称为Form1标题为"选课"的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是"数学"、"语文"、"外语"、"计算机"，其中"语文"、"计算机" 复选框处在选中状态下，运行时的窗体如图所示。请画控件并设臵相应属性。*注意：存盘时必须存放在考生文件夹下，工程文件名为sj21.vbp，窗体文件名为sj21.frm。
复选框的Value属性：
Value属性用来表示复选框
的状态，可以取
0-Unchecked、1-Checked和
2-Grayed三种值，取值为0
时，复选框没有选中的；
取值为1时，复选框是选中
的；取值为2时，复选框为
灰色状态。
设臵复选框Value属性的语
法是：
复选框名.Value =
Unchecked（0）或Checked
（1）或Grayed（2）
由于Value属性是复选框的
缺省属性，因此在设臵该
属性的值的时候，可以省
略属性名。
控件数组：
控件数组是一组具有共同
名称和类型的控件。它们
的事件过程也相同。一个
控件数组至少应有一个元
素，元素数目可在系统资
源和内存允许的范围内增
加；数组的大小也取决于
每个控件所需的内存和
Windows资源。
控件数组中的每一个控件
都有唯一的索引号
（Index），即下标，根据
这个下标，可以调用控件
数组中任意控件的事件，
设臵控件数组中任意控件
的相关属性。
解题方法：
新建一个名为Form1的窗
体，点击工具箱中的
CheckBox控件图标，然后
在窗体上拖拉出一个复选
框，通过属性窗口设臵其
Name属性为"CH1"。
选中"CH1"控件，执行"编
辑"菜单中的"复制"命令
（热键为Ctrl+C），随后选
中Form1窗体，执行"编辑"
菜单中的"粘贴"命令（热键
为Ctrl+V），将显示一个对
话框，询问是否建立控件
数组，选择"是"按钮，则可
以建立控件数组的第二个
元素。重复执行上述操作，
可以建立控件数组的第三
个元素，第四个元素。
通过属性窗口，按索引顺
序由小到大设臵控件数组
中的各控件的Caption属性
为"数学"、"语文"、"外语"
和"计算机"，并将"语文"和
"计算机"控件的Value属性
设臵为1。
按要求保存文件即完成本
题。
知识点：VB知识点/对象属
性的设臵
41、在名称为Form1的
窗体上画一个名称为Text1
的文本框，再建立一个名
称为Format的弹出式菜单，
含三个菜单项，标题分别
为"加粗"、"斜体"、"下划
线"，名称分别为M1、M2、
M3。请编写适当的事件过
程，在运行时当用鼠标右
键单击文本框时，弹出此
菜单，选中一个菜单项后，则进行菜单标题所描述的操作，如图所示。
*注意：存盘时必须存放在考生文件夹下，工程文件名为sj23.vbp，窗体文件名为sj23.frm。
新建一个工程sjt3.vbp，打开其中的Form1窗体，执行"工具"菜单中的"菜单编辑器"命令，打开菜单编辑器。在"名称"栏中输入"Format"；点击"下一个"按钮，再点击编辑区的"→"按钮，然后在"标题"栏中输入"加粗"，在"名称"栏中输入"M1"；点击"下一个"按钮，在"标题"栏中输入"斜体"，在"名称"栏中输入"M2"；点击"下一个"按钮，在"标题"栏中输入"下划线"，在"名称"栏中输入"M3"。在窗体上添加一个文本框。在代码窗口中输入如下代码：
Private Sub
Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu Format
End If End Sub
Private Sub M1_Click()
Text1.FontBold = True
End Sub
Private Sub M2_Click()
Text1.FontItalic = True
End Sub
Private Sub M3_Click()
Text1.FontUnderline =
True
End Sub
按要求保存文件即完成本
题。
知识点：VB知识点/控件的
使用
42、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在名称为Form1的窗
体上画一个标签（名称为
Label1，标题为空白，
BorderStyle属性为1，Visible
属性为False）、一个文本
框（名称为Text1，Text属
性为空白）和一个命令按
钮（名称为Command1，标
题为"显示"），如图1所示。
然后编写命令按钮的Click
事件过程。程序运行后，
在文本框中输入"计算机等
级考试"，然后单击命令按
钮，则文本框消失，并在
标签内显示文本框中的内
容。运行后的窗体如图2所
示。要求程序中不得使用
任何变量。
*注意：存盘时必须存放在
考生文件夹下，工程文件
名为sj41.vbp，窗体文件名
为sj41.frm。
图
1
图2
新建一个工程，在窗体上
添加一个标签Label1，并将
其BorderStyle属性为1，即
有边框显示，再添加一个
内容为空白的文本框Text1
和一个命令按钮
Command1，标题为"显示"。
双击这个按钮添加如下代
码：
Private Sub
Command1_Click()
Label1.Visible = True
Label1.Caption = Text1.Text
Text1.Visible = False
End Sub
最后按照题目要求保存文
件即可。
知识点：VB知识点/对象属
性的设臵
43、在名称为Form1的
窗体上画一个名称为
Label1、标题为"添加项目:"
的标签；画一个名称为Text1的文本框，没有初始内容；画一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目（不少于3个，内容任意）；再画两个命令按钮，名称分别为Command1、Command2，标题分别为"添加"、"统计"。在运行时，向Text1中输入字符，单击"添加"按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中；单击"统计"按钮，则在窗体上显示组合框中列表项的个数，如图所示。请编写两个命令按钮的Click事件过程。
*注意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为
sj27.vbp，窗体文件名为
sj27.frm。
新建一个工程，在窗体上添加一个Caption属性为"
添加项目："的标签Label1，再添加内容为空的文本框Text1，一个下拉式组合框Combo1和两个命令按钮Command1、Command2，标题分别为"添加"和"统计"。打开代码窗口，添加如
下代码：
Private Sub
Command1_Click()
Combo1.AddItem
Text1.Text
End Sub
Private Sub
Command2_Click()
Print Combo1.ListCount
End Sub
最后按照题目要求保存文
件即可。
第2小题：
打开工程文件为sjt4.vbp的
代码窗口，修改后的代码
如下：
Private Sub
Command1_Click()
Dim n As Integer, k As
Integer, m As Integer
Dim c As String, a As
String
For k = 0 To 2
If Op1(k).Value
Then
n =
Val(Op1(k).Caption)
End If
Next k
m = Len(Text1.Text)
a = ""
For k = 1 To m
c =
Mid$(Text1.Text, k, 1)
c = String(1, Asc(c)
+ n)
If c > "z" Or c >
"Z" And c < "a" Then
c = String(1,
Asc(c) - 26)
End If
a = a + c
Next k
Text2.Text = a
End Sub
按要求保存文件就完成了
本题。
知识点：VB知识点/控件的
使用
44、请根据以下要求设计
Visual Basic应用程序（包括
界面和代码）。
在名称为Form1的窗
体上画一个标签，名称为
L1，标题为"业余爱好"，再
画一个名称为Ch1的复选
框数组，含3个复选框，它
们的Index属性分别为0、1、
2，标题依次为"体育"、"
音乐"、"美术"，请设臵复
选框的属性，使其初始状
态如下表所示：
体育选中可用
音乐未选中不可
用
美术未选中可用
运行后的窗体如图所示。
*注意：存盘时必须存放在
考生文件夹下，工程文件
名为sj36.vbp，窗体文件名
为sj36.frm。
CheckBox控件：该控件可
用来提供True/False或者
Yes/No选项。组中可以使
VBProject代码操作代码之常用语句
一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub
vb的操作题(有标准答案)
1.(1）在考生文件夹中有工程文件sj12６.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有１０个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找＂按钮,则找出数组中的最大值(或最小值）,并显示在标签Ｌabｅl２中。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private SuｂCommanｄ1_Click() x ＝ａ（１) y = a（1) Fｏr ｉ＝ 2 To 10 If Opｔion1.Valｕｅ = Ｔrue Ｔheｎ If a(i)>x Then ｘ= ａ(i) Ｅｎd Ｉf
ＥlseIｆａ(i) < y Theｎ y = a(i) Ｅnd Ｉｆ Next If Option1.Vaｌue ＝ True Theｎ Labｅl2．Cａption ＝ x Eｌsｅ Ｌaｂel2.Caption = y Enｄ Iｆ Ｅnd Suｂ 2.(2）在名称为Form1的窗体上画一个名称Ｓｈａｐe1的形状控件,在属性窗口中将其 设置为圆形。画一个名称为List１的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、５。将窗体的标题设为"图形控件"。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sｊ107.vbp，窗体文件名为ｓｊ１0７.ｆｒm。 在Shape控件中,可以用FｉlｌStyle属性设置图形的填充图案，0:透明，2:虚线，3：点线，4:点划线，５:双点划线,6：内实线。 Ｌisｔ控件的Clｉck事件过程为： Private Ｓｕb Ｌｉst１＿Clｉck() Shapｅ1.FiｌlStyｌe = Lｉst１.Text EnｄＳub
VB考试练习题(上机操作)
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述
功能。 5 在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。 要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。 6 请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。 7 在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击"统计"命令按钮，
VB常用字符串操作函数解读
VB常用字符串操作函数2009/11/25 18:321. ASC(X，Chr(X：转换字符字符码[格式]： P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]：(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65 (2P=Asc(“A” ‘ 输出65 2. Len(X：计算字符串X的长度 [格式]： P=Len(X [说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算 一个字符。 [范例]： (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd” Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. Mid(X函数：读取字符串X中间的字符 [格式]： P=Mid(X,n 由X的第n个字符读起，读取后面的所有字符。 P=Mid(X,n,m 由X的第n个字符读起，读取后面的m个字符。 [范例]： (1 X=”abcdefg” P=Mid(X,5 结果为：P=”efg” (2 X=”abcdefg” P=Mid(X,2,4 结果为 P=”bcde” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]： P=Replace(X,S,R [说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=”VB is very good” P=Replace(X,good,nice 输出结果为：P=”VB is very nice” 5. StrReverse：反转字符串 [格式]： P=StrReverse(X [说明]：返回X参数反转后的字符串 [范例]：（1）X=”abc” P=StrReverse(X 输出结果：P=”cba” 6. Ucase(X，Lcase(X：转换英文字母的大小写 [格式]：P=Lcase(X ‘ 将X字符串中的大写字母转换成小写P=Ucase(X ‘ 将X字符串中的小写字母转换成大写 [说明]：除了英文字母外，其他字符或中文字都不会受到影响。 [范例]：（1）令X=”VB and VC” 则Lcase(X的结果为”vb and vc”，Ucase(X的结果为”VB AND VC” 7. InStr函数：寻找字符串 [格式]： P=InStr(X,Y 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]：（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。（2） InStr(X,Y相当于 InStr(1,X,Y。（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都 返回0。（4）若Y为空字符串，则返回0。 ---------------------------------------------------------------------------------------------- mid(字符串，从第几个开始，长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找，返回字符
vb的操作题(有答案)
1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。请去掉程序中的注释符，把程序中的？改为正确的容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 If Option1.Value = True Then If a(i)> x Then x = a(i) End If
ElseIf a(i) < y Then y = a(i) End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.（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.Text End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；
vb练习题及答案.doc
vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23
25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb
vb新操作题(含答案)
一、操作题,每题 10分,6 题共60分 【第4题】 打开文件“考生文件夹\175\工程1、vbp”,完善Command1_Click事件及s函数代码并保存。 实现功能:用递归法求1+2+3+…+100的值,结果输出在窗体上。 Public Function S(n As Integer) As Integer If n = 1 Then S = ① Else S = ② + S(n - 1) End If End Function Private Sub Command1_Click() Dim Sum As Integer Sum = S(③) Print "Sum=" & CStr(Sum) End Sub 【第5题】 打开文件“考生文件夹\851\工程1、vbp”,完善程序实现如下功能并保存: 花果山上有一洞,小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞,编程在Text1中输入台阶数,在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示,调试时输入的台阶数最大不要超过35！ Function s(n As Integer) As Long If n = 1 Or n = 2 Then s = ① Else If n = 3 Then s = 2 Else s = s(n - 1) + s(n - 3) End If End If ①1 ②text1、text ③s(n) ①1 ②n ③100
End Function Private Sub Command1_Click() Dim n As Integer n = Val(②) Label1、Caption = Str(③) End Sub 【第6题】 打开文件“考生文件夹\861\年龄问题、vbp ”,完善程序实现如下功能并保存: 有5个人坐在一起,第5个人说她比第4个人小3岁;第4个人说她比第3个人小3岁;第3个人说她比第2个人小3岁;第2个人又说她比第1个人小3岁;第1个人说她就是38岁。编写程序,计算出第5个人的年龄并显示。 Private Sub cmdDisplay_Click() Print "第5人的年龄:"; age(①) End Sub Function age(n As Integer) As Integer If n = 1 Then age = ② Else age = age(n - 1) - 3 ③ End Function 【第3题】 打开文件“考生文件夹\89\工程1、vbp ”,完善Command1_Click 事件代码并保存。 乘坐飞机的经济舱时,免费托运行李一般不得超过20公斤,超重每公斤按全票价的1、5%计算。 实现功能:输入行李重量及经济舱全票价后,点击按钮,计算出行李托运费用,输出到对应文本框中。 Private Sub Command1_Click() Dim w As Integer '行李重量 Dim pj As Integer '机票价格 Dim fy As Single '托运费用 w = Val(Text1、Text) pj = Val(Text2、Text) If w <= 20 Then ① Else fy = (w - 20) * pj * 0、015 ② Text3、Text = ③ End Sub 【第4题】 打开文件“考生文件夹\122\工程1、vbp ”,完善Command1_Click 事件代码并保存。 王晓珊家距离学校s1(千米),某天她与李明各自同时从家里步行出发上学,王晓珊步行速率v1(千米/小时),李明步行速率v2(千米/小时),结果她们同时到达学校。
VB基本操作题
基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码) 1、(1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2，标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为“输入”)。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。 注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。 (2)在名为Form1的窗体上绘制一个标签(名称为Label1，标题为“输入”)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为“显示”)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。 注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。 2、(1)在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图62-1所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj2．vbp。 (2)在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点
vb试题及答案
VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。
高中信息技术学业水平测试 VB操作题讲解学习
精品文档 Vb算法程序题汇总 目录 1、输入5个数并排序（选择排序） 2、判读输入的三条边能否构成三角形 3、图形打印（倒三角） 4、判断是否为闰年 5、产生随机数 6、输入消费金额，计算出实收金额 7、输入用电量，计算出输出电费 8、求出100以内某数的阶乘 9、程序改错，求100以内奇数之和 10、输入学生成绩，显示相应等级（select case结构） 11、图形打印（三角形） 12、用字符串函数Ucase()和转换函数Asc()填空 13、对数组赋值并求和 14、利用函数，把abcd变成BCD 15、输入10个数，求最大值最小值和平均值 16、输入公里数，计算车费 17、已知两边和夹角，求三角形面积 18、输入学生成绩，显示相应等级（select case结构） 19、学生成绩转换（select case结构） 20、求100以内能够被19整除的个数 1、完善程序代码实现当单击输入并排序按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。 Private Sub Command1_Click() Dim x As Long Dim n As Integer, i As Integer, s As Long Dim a(1 To 5) As Single For i = 1 To 5 ???嘠污?灮瑵潂?请在输入第+ Str(i) + \/5个数)) Print a(i); Next i Print For i = 1 To ___①__ Min = a(i): m = i For x = i + 1 To 5 精品文档． 精品文档 If ___②___ Then Min = a(x): m = x Next x
vb题库及答案
| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",
VB6.0课后题及常见操作题代码
第四章 1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox 函数输入数据，在窗体上显示和及平均值。 Dim a as single For i=1 to 4 a=inputbox（“请输入一个数：”，“数据输入”） sum=sum+a n=n+1 avg=sum/n next i print “和是：”,sum print “平均值是：”，avg 2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。 Dim a as variant Fontsize=20 a=inputbox（“请输入姓名：”，“数据输入”） print “姓名：”；a a=inputbox（“请输入年龄：”，“数据输入”） print “年龄：”；a a=inputbox（“请输入通信地址：”，“数据输入”） print “通信地址：”；a a=inputbox（“请输入邮政编码：”，“数据输入”） print “邮政编码：”；a a=inputbox（“请输入电话：”，“数据输入”） print “电话：”；a 3．a=5，b=2.5，c=7.8，编程序计算： y=（πab）/（a+bc） 程序： Dim a as single，b as single，c as single a=5 b=2.5 c=7.8 pi=3.14 y=（pi*a*b）/（a+b*c） print “结果是：”;y 4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。 Dim a as long，d as integer ，h as integer，s as integer a=inputbox（“请输入秒数：”，“数据输入”） d=int（a/86400） h=int（（a-d*86400）/3600） s=a-d*86400-h*3600 print d；“日”；h；“时”；s；“秒” 5、自由落体位移公式为：s=gt2/2+v0t
VB操作题答案
第一次作业 Private Sub Command1_Click() Text1.Text = "欢迎你学习VB程序设计" Text1.ForeColor = vbGreen Text1.Font = "宋体" Text1.FontSize = 25 Text1.FontItalic = True Text1.FontBold = True End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Click() Text1.ForeColor = vbRed Text1.Font = "隶书" Text1.Text = "佛山大学理学院" End Sub 第二次作业(服务员密码) 1、请建立一个工程（ zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）… 3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。Private Sub Command1_Click() Text1.Visible = False Label2.Visible = True Label2.Caption = "你好，你需要什么" Command2.Enabled = True End Sub Private Sub Command2_Click() Command1.Visible = False Command2.Visible = False Label1.Visible = False Label2.Caption = "谢谢你，再见！" End Sub Private Sub Form_Load() Label2.Visible = False Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Text1_Change() If Text1.Text = "12345" Then Command1.Enabled = True Text1.PasswordChar = "*" End Sub 第三次
vb经典题目及答案
1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。
计算机等级VB模拟训练题(二)
第8套 1.基本操作（2小题，每小题15分，共计30分） （1）在名称为Form1的窗体上画一个水平滚动条，其名称为HScroll1，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能：1）窗体标题为“设置滚动条属性”2）滚动条所能表示的最小值和最大值分别为0和2003）程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为24）程序运行后，单击滚动框前面或后面的部位时，滚动框移动的增量值为105）滚动框的初始位置为100程序的运行情况如图所示。要求：不要编写任何代码。*注意：存盘时必须存放在考生文件夹下，工程文件名为lq1.vbp，窗体文件名为lq1.frm。 （2）在名称为Form1的窗体上画一个文本框，其名称为Text1（如图1所示），编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上角。程序的运行情况如图2所示。要求：不得使用任何变量；只允许通过修改属性的方式移动文本框。*注意：存盘时必须存放在考生文件夹下，工程文件名为lq2.vbp，窗体文件名为lq2.frm。 图1 图2 2.简单应用（2小题，每小题20分，共计40分） （1）在考生文件夹下有一个工程文件lq3.vbp，相应的窗体文件为lq3.frm。其功能是产生20个0～1000的随机整数，放入一个数组中，然后输出这20个整数中大于500的所有整数之和。程序运行后，单击命令按钮（名称为Command1，标题为“输出大于500的整数之和”），即可求出这些整数的和，并在窗体上显示出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （2）在考生文件夹下有一个工程文件lq4.vbp，相应的窗体文件为lq4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～100范围内不能被7整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，
VB6.0基础入门教程
VB最简单入门教程
目录 （提示：按ctrl,并单击鼠标，可以跳到相应页） 1.1 1 我们需要什么 (3) 1.2 2 第二章：事件、属性及数据类型 (3) 1.3 3 第三章：VB语言 (6) 1.4 4-1第四章按钮（一） (12) 1.5 4- 第四章按钮（二） (199) 1.6 5 第五章菜单 (27) 1.7 6-1第六章输入（一） (34) 1.8 6-2第六章输入（二） (42) 1.9 6-3第六章输入（三） (52) 1.10 7第七章输出 (59) 附录 (63) 2.1 VB教程 (63)
1.1 1 我们需要什么 我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi 又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。
vb试题及答案
一、选择题（1-30 题每小题1分，共30分，31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”，正确的语句是：a A．Form1.Caption=“正在复制文件…” B．Form1.Title=“正在复制文件…” C．Form1.Text=“正在复制文件…” D．Form1.名称=“正在复制文件…” 如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：a A．1000 B．100 C．10 D．1 3、下列关于控件的基本操作中，错误的是 A)当控件处于活动状态时，可以对控件进行缩放 B) 在设计阶段不能移动控件 C) Visual Basic 6.0 允许对画好的控件进行复制和删除 D) 可以通过属性窗口改变控件的位置和大小 4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是： A) ①②③B) ①③②C) ③②①D) ③①② 5、为使文本框只能显示不能输入，即只读，应设置文本框的属性是：c A．MaxLength设置为0 B．Cancel设置为True C．Locked设置为True D．Read设置为True 6、InputBox函数返回值的类型为。B A．数值B．字符串C．变体 D．数值或字符串（视输入的数据而定） 7、为了把焦点移到某个指定的控件，所使用的方法是：A A．SetFocus B．Visible C．ReFresh D．GetFocus 8、函数String(3,”str”)的功能是：b A．把数值型数据转换成字符串 B．返回有3个字符串组成的字符串 C．从字符串中第3个字符 D．从字符串中第3个字符的位置开始取字符串 9、双击窗体中的对象后，Visual Basic将显示的窗口是：c A．项目（工程）窗口B．工具箱C．代码窗口D．属性窗口 10、用于获得字符串s最左边4个字符的函数是：a A．Left(s,4) B．Left(1,4) C．LeftStr(s) D．LeftStr(3,4) 11、以下程序段的输出结果是：d a=Sqr(3) b=Sqr(2) c=a>b Print c A．-1 B．0 C．False D．True 12、用下面语句定义的数组的元素个数是：c Dim A (-4 to 6) As Integer A．6 B．7 C．11 D．9