2012 vb上机1

2012年（秋）上机 Visual Basic（VB01）答案一、改错【题目】本程序的功能是找出k（从文本框Text1输入）位整数中，不含数字0，且相邻数位数字差值大于1的所有升序数。

所谓升序数是指从高位到低位，各位数字的数值依次增大的整数。

例如符合要求的4位整数有1357、1468等。

Option ExplicitPrivate Sub Command1_Click()Dim k As Integer, i As IntegerDim s As String, j As Integerk = Val(Text1.Text)For i = 10 ^ (k - 1) To 10 ^ k - 1s = CStr(i) 'err Str(i)For j = 1 To Len(s)If Val(Mid(s, j, 1)) = 0 Then Exit ForNext jIf j > Len(s) ThenIf judge(i) Then List1.AddItem iEnd IfNext iEnd SubPrivate Function judge(ByVal n As Integer) As BooleanDim i As Integer, s As Strings = CStr(n)For i = 1 To Len(s) - 1If Mid(s, i + 1, 1) - Mid(s, i, 1) <= 1 Then 'err <judge = FalseExit Function 'err Exit For 或将judge = True语句置于For循环前End IfNext ijudge = TrueEnd Function二、编程题【题目】编写程序，统计输入的英文句子中各字母的出现次数（字母不分大小写，字母“a”的ASCII码值为96）。

Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, letter(26) As IntegerDim st As String, s As String, k As Integer'Text1 = "This is a paper."st = LCase(Text1.Text)Call cal(st, letter)For i = 1 To 26If letter(i) <> 0 ThenList1.AddItem Chr(96 + i) & "-" & letter(i) End IfNext iEnd SubPrivate Sub cal(st As String, a() As Integer)Dim i As Integer, s As String, k As IntegerFor i = 1 To Len(st)s = Mid(st, i, 1)If s >= "a" And s <= "z" Thenk = Asc(s) - 96a(k) = a(k) + 1End IfNext iEnd SubPrivate Sub Command2_Click()Text1.Text = ""List1.ClearText1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub。

第1套VB上机题参考代码如下:Private Sub Command1_Click()Text1.Text = ""If Check1.Value = 1 ThenText1.Text = Check1.CaptionEnd IfIf Check2.Value = 1 ThenText1.Text = Text1.Text + Check2.CaptionEnd IfEnd Sub本题可以用双重循环来实现该数列的求和计算。

外循环用于求和，内循环计算某项的分母。

参考代码如下:Dim s As Single, n As Integer, t As Single, i As Integer Private Sub C1_Click()s = 1n = 1Don = n + 1t = 1For i = 1 To 2 * n - 1t = t * i '计算阶乘Next is = s + (-1) ^ (n - 1) / t '求和Loop Until 1 / t < 0.00001 '外循环结束条件Text1.Text = sEnd SubPrivate Sub C2_Click()Call putdata("kssj.dat", Text1.Text)'调用putdata过程把结果写入文件End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。

2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。

3. 在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名称“文件”。

4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“新建”；使用类似的操作，输入如下所示的菜单：文件(F) 数据处理新建计算──────退出Ctrl+X5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。

（1）【考点分析】本题考点有：线条的Name、X1、X2、Y1、Y2属性。

【解题思路】通过对于直线Line1、Line2的坐标值的计算，确定线条的X1、X2、Y1、Y2属性的值，画出线段Line3。

步骤1：建立界面，添加Line1、Line2，设计的属性如下表3.253所示。

根据Line1、Line2的坐标值计算出Line13的坐标值，如表3.254所示。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

（2）【考点分析】本题考点有：列表框的的Name、List、ListIndex、Text属性，文本框的Name、Text属性。

【解题思路】根据题意添加控件并通过属性窗口设置相应的属性。

需要注意的是ListIndex是从0值开始计算，所以要是文本框中显示列表框中某项对应的顺序号，要将ListIndex属性值再加上1。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.255。

表3.255步骤2：编写程序代码。

参考答案Private Sub List1_Click()Text1 = List1.ListIndex + 1End SubPrivate Sub Text1_Click()Text1 = List1.Text1End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

（1）【考点分析】本题考点有：窗体的Name、MinButton、MaxButton、Caption、Visible 属性和Show方法，菜单项的Click事件，命令按钮的Click事件，文本框的Alignment、FontSize、FontName 属性，列表框的Text、List、ListIndex属性，If判断语句和For循环语句。

【解题思路】根据题意添加控件并通过属性窗口设置相应的属性。

程序一般默认的启动窗体时Form1；初始Form2的Visible属性为False；单击"格式"菜单项，用窗体的Show方法显示窗体2；在窗体2中选择好字号和字体以后，单击确定按钮，再次将窗体2的Visible属性设为False。

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。

窗体的标题为"按钮窗口"。

运行后的窗体如图1所示。

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

图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。

表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。

程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。

注意：程序中不能使用变量，每个事件过程中只能写一条语句。

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

图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。

步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。

第一章概述一、基本要求（1）熟悉VB集‎成开发环境‎（2）掌握代码窗‎口的应用及‎录入、编辑代码的‎基本方法（3）了解VB程‎序设计的基‎本步骤二、实习内容（1）实习熟悉V‎B集成开发‎环境各组成‎部分（2）输入一个数‎，求该数的平‎方并显示结‎果第二章一、基本要求（1）熟练掌握各‎种运算符的‎应用和优先‎顺序（2）掌握各种常‎用函数的功‎能、参数和返回‎值（3）掌握立即窗‎口的使用方‎法二、实验内容（1）回答整形、长整型、单精度、双精度类型‎数据占用字‎节数。

（2）已知直角三‎角形的两条‎直角边长，求斜边长。

Priva‎t e Sub Comma‎n d1_C‎l ick()Dim a%, b%, c%a = Val(Input‎B ox("输入第一条‎直角边长"))b = Val(Input‎B ox("输入第二条‎直角边长"))c = Sqr(a ^ 2 + b ^ 2)Print‎cEnd Sub（3）给小学生随‎机出两位数‎和一位数的‎加法题。

Priva‎t e Sub Comma‎n d1_C‎l ick()Dim a%, b%, c%a = Val(Input‎B ox("输入两位数‎"))b = Val(Input‎B ox("输入一位数‎"))c = a + bPrint‎cEnd Sub（4）用文本框输‎入一个带小‎数的数，对输入的数‎四舍五入保‎留2位小数‎。

Priva‎t e Sub Comma‎n d1_C‎l ick()Dim x#, y!x = Text1‎.Texty = Round‎(x, 2)Print‎yEnd Sub（5）输入某人姓‎名，判断是否你‎的本家。

Priva‎t e Sub Comma‎n d1_C‎l ick()Dim a$, b$, p As Boole‎a nb = "李"a = Input‎B ox("输入某人的‎姓名")If Left(a, 1) = b Thenp = TrueEnd IfPrint‎pEnd Sub（6）任意输入西‎安地区的固‎定电话号码‎（原为7位），将其升为8‎位（在原号码前‎面加8）。

2009-2010学年春季学期Visual Basic程序设计上机实验目录实验一：VB集成环境及简单应用程序的建立 (1)实验二：顺序结构程序设计 (5)实验三：选择结构程序设计 (7)实验四：循环结构程序设计 (11)实验五：常用内部控件的程序设计 (12)实验六：数组的使用 (18)实验七：过程的创建和使用 (23)实验一：VB集成环境及简单应用程序的建立(一)实验目的：熟悉VB集成开发环境的使用；掌握VB应用程序设计思想，能完成简单的程序设计。

(二)实验要求：在自己的机器上新建一个文件夹，名称为自己的学号。

按照要求完成各题，保存时必须保存在自己的文件夹中。

(三)同学们上机容易出现的问题：1.一道题建立一个工程，做一道题时启动VB，做完后保存，关闭VB。

2.写程序代码时，符号要用英文输入法输入。

例如字符串的定界符引号：form1.caption="程序举例"3.写代码时，一定注意对象的名称是否正确，例如打入label1. 后，如果没有VB自动提示，肯定是名称写错了，检查修改。

为避免麻烦，可以把标签等对象名重新命名，例如命名成简单的a。

修改name名称属性。

4.保存：点击保存按钮，或文件→保存工程。

生成可执行程序：文件→生成.exe(四)实验内容：1.独立完成例1-3-1，保存时窗体文件名为1.frm，工程文件名为1.vbp，生成可执行程序文件名为1.exe。

(教材P7)2.独立完成例1-4-1，保存时窗体文件名为 2.frm，工程文件名为2.vbp，生成可执行程序文件名为2.exe。

(教材P23)3.独立完成例1-4-2，保存时窗体文件名为 3.frm，工程文件名为3.vbp，生成可执行程序文件名为3.exe。

(教材P26)4.第1章课后作业第6题，保存时窗体文件名为4.frm，工程文件名为4.vbp，生成可执行程序文件名为4.exe。

(教材P28)5.第1章课后作业第7题，保存时窗体文件名为5.frm，工程文件名为5.vbp，生成可执行程序文件名为5.exe。

第12套上机考试试题1 基本操作题(2小题，每题15分，共计30分)注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1) 在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“隐藏”，名称分别为Dis和Hid，编写适当的事件过程。

程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“隐藏”命令，则隐藏文本框。

程序的运行情况如图12-1和图12-2所示。

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

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

(2) 在窗体上画一个列表框，名称为L1，通过“属性”窗口向列表框中添加四个项目，分别为“早上好”、“中午好”、“下午好”和“晚上好”，编写适当的事件过程。

程序运行后，每次单击列表框中的任何一项，则总在最后面添加一项“真有礼貌”。

程序的运行情况如图12-3和图12-4所示。

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

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

2 简单应用题(2小题，每题20分，共计40分)注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。

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

本题描述如下：在窗口中有一个名称为Image1的图像框，一个名称为Timer1的计时器，一个名称为HScroll1的滚动条，还有一个名称为C1，标题为“开始”的命令按钮。

要求程序运行后，点击开始按钮，则图像框中的图片根据计时器中设定的时间间隔交替变更，如果改变滚动条中滚动框的位置，则图片交替变换的速度也随之变化。

第03套1. 基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为%USER%**********************************************************************请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上画一个名称为Frame1，标题为“目的地”的框架，在框架中添加三个复选框，名称分别为Check1、Check2、Check3，其标题分别是“上海”、“广州”、“巴黎”，其中“上海”为选中状态，“广州”为未选状态，“巴黎”为灰色状态，如图所示。

请画控件并设置相应属性。

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

解题思路：启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1，标题（Caption属性）设为“目的地”。

在F1框架中画三个复选框控件，通过其属性窗口将名称分别设为Check1、Check2、Check3，标题（Caption 属性）分别设为“上海”、“广州”、“巴黎”，“上海”的Value属性设为1,“巴黎”的Value属性设为2。

参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。

**********************************************************************（2）在名称为Form1的窗体上画一个名称为Picture1的图片框，其宽和高分别为1700、1900。

请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件pic1.bmp，如图所示。

VB程序设计上机指导书前言Visual Basic是Microsoft公司推出的一种面向对象的“可视化”Windows应用程序开发工具，它在语法上继承了Basic和Quick Basic的优点，具有使用方便、简单易学等特点，且功能强大，与其他开发工具有丰富的接口。

因此，深受广大用户的青睐，成为学习开发Windows应用程序首选的程序设计语言。

“VB程序设计”是一门实践性很强的课程，在学习此课程的过程中，上机实验是十分重要的环节，通过上机实验，可以使学生了解面向对象的程序设计方法，掌握用VB开发应用软件的方法，培养学生的实用型应用软件开发能力，为今后承担VB应用程序的开发和维护打下良好的基础。

本指导书共有四个实验，要求学生必须熟练掌握。

目录前言 (2)实验一VB集成开发环境及工程管理 (4)一、实验目的 (4)二、实验内容 (4)实验二VB基本编程技术 (5)一、实验目的 (5)二、实验内容 (5)实验三文件管理 (7)一、实验目的 (7)二、实验内容 (7)实验四数据库访问技术 (9)一、实验目的 (9)二、实验内容 (9)实验一VB集成开发环境及工程管理（2学时）一、实验目的1．掌握Visual Basic启动和退出的方法。

2．熟悉Visual Basic的集成开发环境。

3．掌握VB工程的创建、打开和保存以及向工程中添加、删除文件的操作方法。

二、实验内容实验1-1 启动Visual Basic，然后创建一个“标准 EXE”工程。

了解Visual Basic集成开发环境下各组成部分及其作用。

【要求】（1）在集成开发环境中分别寻找“窗体窗口”、“属性窗口”、“工程资源管理器”、“窗体布局窗口”、“工具箱窗口”，熟悉它们的默认位置。

（2）在“视图”或“工程资源管理器”中切换显示“代码窗口”和“窗体窗口”。

（3）在“视图”菜单中点击“立即窗口”，观察刚刚显示出来的“立即窗口”。

（4）尝试分别将各部分关闭，然后再用“视图”菜单中对应的菜单命令将其显示。