在名称为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 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
（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个RichText文本框控件（名称为rtx1）和一个文本框控件（名称为Text1），两个命令按钮，名称分别为Command1和Command2，标题分别为"加入WY01.TXT"、"统计字符个数"。要求程序运行后，单击command1将考生文件夹下的wy01.txt的内容显示到rtx1中；单击"统计字符个数"按钮统计Text1中有多少个字符，将结果显示在Text1中。
***********************************************************************
（2）在考生文件夹下有工程文件wy6.vbp及窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名为Image1的图像框，要求程序运行后，鼠标左键点击图像框，则图像框变大；鼠标右键点击图像框，图像框变小。
1、RichTextBox控件：RichTextBox控件给用户提供了很多比常用的TextBox控件更高级的格式和功能，允许用户进行多样式的输入和编辑。
语法：
RichTextBox
2、Count属性：返回Long（长整数），包含集合中的对象数目。
MouseDown、MouseUp事件 这些事件是当按下或者释放鼠标按钮时发生。
参数Button用来标识按下或释放的鼠标按钮，Button为1，表示鼠标左键；Button为2，表示鼠标右键；Button为4，表示鼠标中间键。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为From1的窗体上放置一个名称为Drive1的DriveListBox控件，一个名称为Dir1的DirListBox控件和一个名称为File1的FileListBox控件。程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名（不显示路径名）。
*注意：
程序中不得使用任何变量；保存时必须存放在考生文件夹下， 窗体文件名为wy1.frm，工程文件名为wy1.vbp。
**********************************************************************
（2）在名称为Form1的窗体上放置一个名为Text1 的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。
*注意：
程序中不得使用任何变量；保存时必须存放在考生文件夹下， 窗体文件名为wy2.frm，工程文件名为wy2.vbp（如下图所示）。
1、1)DriveListBox1、1)DriveListBox控件：该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框，通过它从任一可用驱动器的磁盘文件列表中打开文件。
2) DirListBox控件：这个控件可以显示分层的目录列表。例如，可以创建对话框，在所有可用目录中，从文件列表打开一个文件。
3) FileListBox控件：该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。
语法：
DriveListBox
DirListBox
FileListBox
2、Time函数用来返回当前的系统时间，因此本题的做法可以是：
在窗体的Load事件中，执行这条语句：
Text1.Text = Time
将计时器的Interval属性设置为1000毫秒，在计时器的Timer事件中执行如下语句： Text1.Text = Time
在Form1上添加两个标签(标签分别为“书名”“作者”)
基础题(1) 【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。
标签和命令按钮的标题由各自的Caption属性来设置，文本框显示的内容由Text属性设置，窗体的标题由其Caption属性来设置。在Visual Basic中可以用"＋"或"&"运算符将两个字符串连接起来。
【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.93和表3.94。
表3.93
控件 标签1 标签2
属性 Name Caption Name Caption
设置值 Label1 书名 Label2 作者
表3.94
控件 文本框1 文本框2 命令按钮
属性 Name Name Name Caption
设置值 Text1 Text2 Command1 显示
步骤2：编写程序代码。
参考答案
Private Sub Command1_Click()
Form1.Caption = Text1 + "," + Text2
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
基础题(2)
【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。
窗体的大小由其Width和Height属性设置，分别决定窗体的宽和高；用滚动条的值来设置窗体的宽和高，只要将窗体的Width属性和Height属性与滚动条的Value相关联即可。
【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.95和表3.96。
步骤2：编写程序代码。
参考答案
Private Sub HScroll1_Change()
Form1.Width = HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Form1.Height = VScroll1.Value
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
在名称为Form1的窗体上添加一个标题为“滚动条控件”的标签
基础题（1）
基础题（2）
参考答案
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Shape1.Top = Shape1.Top + 100
End Sub
简单题（1）
程序提供代码
Private Sub Text2_Change()
'If ? = 1 Then
' Text3.PasswordChar = ?
Else
' Text3.PasswordChar = ?
End If
'Text3.Text = ?
End Sub
程序结束
参考答案
第1个？处填入：Check1.Value
第2个？处填入：""
第3个？处填入："#"
第4个？处填入：Text2
简单题（2）
程序提供代码
Private Sub Command1_Click()
Dim x As Integer, k As Integer
x = Val(Text1(1)．Text)
'For k = 2 To ?
'x = FindMin(Val(Text1(k)．Text), ？)
Next
'lblResult.Caption =？
End Sub
Public Function FindMin(x As Integer, y As Integer)
'If x ? y Then
FindMin = y
Else
FindMin = x
End If
End Function
程序结束
参考答案
第1个？处填入：5
第2个？处填入：x
第3个？处填入：x
第4个？处填入：>
综合题
程序提供代码
Dim a(7, 7) As Integer
Private Sub Form_Load() read
End Sub
Public Sub read()
Open App.Path & "\Data5.txt" For Input As #1
全国计算机等级上机操作题试题(附答案)
20xx全国计算机等级上机操作题试题（附答案）
20xx全国计算机等级上机操作题试题（附答案）「篇一」
一级MS office
1.字处理题
26对考生文件夹下WORD.docx文档中的文字进行编辑、排版和保存，具体要求如下：
【文档开始】
《数据结构》教学实施意见
一、课程的目的与要求
《数据结构》课程是计算机应用专业一门重要的专业基础课，它的主要任务是讨论数据的各种逻辑结构、物理结构以及相关的算法。目的是使学生能够根据实际问题的需要选择合适的数据结构和设计算法。
二、课时安排
【文档结束】 (1)将标题段(“《数据结构》教学实施意见”)文字设置为二号红色黑体、居中。
(2)将正文第2行开始(“《数据结构》”)到第4行结束(“数据结构和设计算法。”)中的文字设置为小四号楷体、段落首行缩进2字符、行距1.25倍。
(3)将正文中第1行(一、课程的目的与要求)和第6行(二、课时安排)设置成楷体、红色小三号、并加黄色底纹，段后间距0.5行。
(4)将文中后12行文字转换为一个12行4列的表格。设置表格居中，表格第2列列宽为5厘米，其余列列宽为2厘米，行高为0.5厘米;表格中所有文字水平居中。
(5)分别用公式计算表格中“授课学时”合计和“实验学时”合计;设置表格外框线为3磅蓝色单实线、内框线为1磅蓝色单实线。
参考解析：
(1)【解题步骤】
步骤1：通过“答题”菜单打开WORD.docx文件，按题目要求设置标题段字体。选中标题段，在【开始】功能区的【字体】分组中，单击“字体”按钮，弹出“字体”对话框。在“字体”选项卡中，设置“中文字体”为“黑体”，设置“字号”为“二号”，设置“字体颜色”为“红色”，单击“确定”按钮。
步骤2：按题目要求设置标题段对齐属性。选中标题段，在【开始】功能区的【段落】分组中，单击“居中”按钮。
(2)【解题步骤】 步骤1：按照题目要求设置正文字体。选中正文第2行到第5行文字，在【开始】功能区的【字体】分组中，单击“字体”按钮，弹出“字体”对话框。在“字体”选项卡中，设置“中文字体”为“楷体”，设置“字号”为“小四”，单击“确定”按钮。
通过属性窗口设置在Form1(设置标签属性)的窗体上添加一个标签,其名称为Label1,通过属性窗口
基础题（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
vb简单应用
题目一：（1）在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序
是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'
号），但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：
在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按
钮，名称为 C1，标题为"复制"。要求程序运行后，在列表框中自动建立4个列表
项，分别为"Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的一项， 则单击"复制"按钮时，可以把该项复制到文本框中，如图1-3所示。
（2）在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm ，该程序是不
完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但
不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体有3个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为"体育"、"音乐
"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。要求程序运行后，如
果选中某个复选框，当单击"显示"命令按钮时，则显示相应的信息。例如，如果选中"体育"和"美术"复选框，单击"显示"命令按钮后，在窗体上显示"我的爱好是体育
美术"，如图1-4所示。
题目二：（1）在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序
是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：
1设计一个简单的倒计时程序要求：在文本框中输入倒计时的分钟数
一、1，设计一个简单的倒计时程序，要求：（1）在文本框中输入倒计时的分钟
数后，单击开始按纽就开始倒计时，倒计时结束时，弹出“时间到”的信息框。程序运行界面如图5所示：（2）将应用程序打包，并安装运行。注意：存盘时
保存在以学号或姓名命名的文件夹下，工程文件名为vbxk1-05.vbp，窗体文件
名为vbxk1-05.frm，文件夹名为vbxk1-05。
2. 在窗体Form1上画一个文本框，名称为Text1，内空。再画一个命令按钮，
名称为Cmd1，标题为“输入”。要求：（1）编写适当的程序代码，当单击“输
入”时，弹出一个对话框提示输入数值，用户输入一个数值，单击“确定”按钮后，该数值在文本框中显示。程序运行界面如图10所示。注意：存盘时保存在
以学号或姓名命名的文件夹下，工程文件名为vbxk1-010.vbp，窗体文件名为
vbxk1-10.frm，文件夹名为vbxk1-10。
二．1. 设计一个KeyPress事件程序，程序运行界面如图2-7，2-8所示：
要求：用户在第1个文本框输入信息后，按回车键，程序能够自动将焦点转换到下一个文本框，使用户不必使用鼠标就可以继续在下一个文本框输入信息。注意：
存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk2-04.vbp，窗
体文件名为vbxk2-04.frm，文件夹名为vbxk2-04。
2，设计一个如图2-11所示的运行界面，要求：⑴单击“打开文件”按钮，显示
文件打开对话框，在对话框内只允许显示文本文件，初始目录为C:\Windows；
当选定一个文本文件后，单击对话框中的“打开”按钮，则标签框显示所选文件
的路径和名称，若单击打开对话框的“取消”按钮，则显示放弃操作；⑵.单击
“前景颜色”按钮，则打开“颜色”对话框，可通过对话框设置标签的前景颜色。注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为
vbxk2-08.vbp，窗体文件名为vbxk2-08.frm，包文件夹名为vbxk2-08。
在form1,标题为“测试”的窗体上添加一个名称为frame1、标题为“字体”的框架
基础题(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
控件 形状控件
属性 Name Height Width Shape
设置值 Shape1 1000 1000
3
表3.122
控件 命令按钮1 命令按钮2
属性 Name Caption Name Caption
设置值 Command1 垂直线 Command2 水平线
步骤2：编写程序代码。
参考答案
Private Sub Command1_Click()
Shape1.FillStyle = 3
End Sub
Private Sub Command2_Click() Shape1.FillStyle = 2
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
简单题(1)【解题思路】String(个数，字符)函数用于返回含指定个数字符的字符串，其中的字符可以是字符码或字符；ASC(字符串)函数用于返回字符串首字符的ASCII码值。本题关键是计算同一字母大小写ASCII码值的差值，由于小写字母的ASCII码值大于大写字母的ASCII码值，差值表达式应为：n% ＝ ASC("a") － ASC("A")。对于小写字母的ASCII码应减去这个差值以获得其大写字母；对于大写字母的ASCII码则应加上这个差值以获得其小写字母。
为Form1、标题为“文本框练习”的窗体上添加1个名称为Text1的文本框
基本题 (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 + 2
End Sub
Private Sub Command2_Click()
Label1.FontSize = 12 End 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、2章_开发环境、Visual_Basic程序的建立和运行部分历年真题
2002年9月
(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （） 答案： C
A) 工程资源管理器窗口 B) 工具箱窗口 C) 代码窗口 D) 属性窗口
(2) 以下叙述中正确的是 （） 答案：A
A) 窗体的Name属性指定窗体的名称，用来标识一个窗体
B) 窗体的Name属性的值是显示在窗体标题栏中的文本
C) 可以在运行期间改变对象的Name属性的值
D) 对象的Name属性值可以为空
(3) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（） 答案： C
A) 单选按钮 B) 图片框 C) 通用对话框 D) 文本框
(31) 以下叙述中错误的是 （） 答案： C
A) 一个工程中只能有一个Sub Main过程
B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
C) 窗体的Hide方法和Unload方法的作用完全相同
D) 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
(32) 以下叙述中错误的是 （） 答案：B
A) 一个工程中可以包含多个窗体文件
B) 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C) 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D) 全局变量必须在标准模块中定义
2003年4月
（1）以下不能在"工程资源管理器"窗口中列出的文件类型是（） 答案：D
A）.Bas B）.Res C）.Frm D）.Ocx
（2）以下关于窗体的描述中，错误的是（） 答案： A
A）执行Unload Form1语句后，窗体Form1消失，但仍在内存中
B）窗体的Load 事件在加载窗体时发生
C）当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D）窗体的Height、Width属性用于设置窗体的高和宽
Form1添加一个文本框Text1,通过属性窗口设置窗体和文本框的属性,实现如下功能-推荐下载
基础题(1)
【解题思路】文本框控件的MultiLine属性用于设置文本框是否能以多行显示文本，值为True表示允许，值为False表示不允许； Font属性用于设置控件标题中文本的字体、字号和字型等。Text属性用于设置文本框中显示的文本。窗体标题通过其Caption属性设置。
【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.110和表3.111。
表3.110控件窗体属性NameCaption设置值Form1设置文本框属性
步骤2：调试并运行程序，关闭程序后按题目要求存盘。基础题(2)
【解题思路】在窗体上建立控件后，先设置控件的属性，再编写事件过程。
单击命令按钮触发Click事件。利用按钮的Height和Width属性来改变按钮的大小；利用按钮的Left和Top属性来改变按钮的位置。
【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.112。
表3.112
步骤2：编写程序代码。
参考答案Option ExplicitPrivate Sub Cmd1_Click() Cmd1.Left = 0 Cmd1.Top = 0End Sub简单题(1) 【解题思路】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