vb上机实验答案

(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，

请务必认真！) ．．．．．．

实验一：第二章

⒈ 在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。

Private sub command1_click() Label1.visible=false

Command1.caption=label1.caption End sub

⒉ 在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框，名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。

上机代码：Private sub command1_cl

vb上机实验

实验的总体要求与方法

实验是巩固课堂所学知识、掌握可视化程序设计的方法、提高分析问题和解决问题能力的最重要的途径。因此明确实验目的、内容与要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。

1． 实验的基本目的

（1） 通过实验熟悉面向对象程序设计的基本概念。

（2） 通过实验熟练掌握利用VB进行可视化程序设计的基本方法。

（3） 通过实验掌握应用程序的调试方法，加强应用能力的训练与培养，从而具有 计一般应用程序和解决事务管理问题的能力。

2． 实验的基本要求

（1） 上机实验之前，应认真预习有关实验内容及相应教材。

（2） 实验过程中应记录实验中的有关数据（包括出错信息等），以便课后进行分析。 （3） 所有实验都应具备下列条件：

① 硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。

② 软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic

1、在工程中添加一个窗体form1，当用户单击窗体时，在窗体上显示九九乘法表程序。结果如下图所示（本题编程解决，20分）

参考答案：

Private Sub Form_Click() Cls

For i = 1 To 9 For j = 1 To i

Print i * j; \ Next j Print Next i End Sub

2、在工程中，添加一个窗体form2，在窗体上放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。

要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（本题编程完成，满分：30分）

参考答案：

Private Sub Check1_Click()

Text1.FontBold = Check1.Value End Sub

Private Sub Check2_Click()

Text1.FontItalic = Check2.Value En

实验二 VB 语言基础及内部函数（4个学时）

一 、实验目的

1. 掌握不同数据类型合法表达式的构成。 2. 掌握各种表达式的优先级别和运算。 3. 掌握内部函数的使用

4. 掌握数据的输入和输出地方法

二 、实验内容

1. 上机验证下表中个表达式的值，并将结果填入表中。

要求：先自行分析上表中表达式的值，再上机到“立即窗口”中验证，如果有错，请分析原因。

表达式 10\\2.5 10/2.5 8*3+2 Mod 3/2 10>12+3 And True And 2>3 8<>5 Or Not 10>12+3 5 4 24 False True 值 表达式 “EFG”<>”efg” & “ abc“ Not 5 = 4 And 5<4*2 6>3*2 Or 7<> 8 And 8 = 2*4 Not 7>2*4 Or Not 5<> 2+3 And False # 10/11/2010# +30 True True True True 2010-11-10 值 2. 设计一个程序进行选票统计，共有三位候选人(名字自拟)，如果同意某人，就单击一下某人的按钮，在其对应的文本框中显示已得的票数。

1）界面设计 （将设计好的界面截下来粘贴在下

第二部分 浙江省VB二级试题解

A．程序调试题 一、选择结构

程序调试01

Option Explicit

Public Sub getanswer()

'该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c#

a = InputBox(\输入系数a\ b = InputBox(\输入系数b\ c = InputBox(\输入系数c\dalt = b * b - 4 * a * c if ----1---- then dalt = Sqr(dalt)

MsgBox Format((-b + dalt) / 2 / a), \a, \

elseif ---2---- then

MsgBox Format(-b / 2 / a, \ Else

dalt= ---3----

MsgBox Format(-b / 2 / a, \+ Format(-b / 2 / a, \ End If End Sub

二、单重循环

程序调试02

Option Explicit ‘这条语句要求在该模块中，使用变量前必须先声明。 Public Sub Uppersen()

'该过

第1章 上机练习

1. 熟悉Visual Studio .NET的IDE界面，练习窗口的浮动、停靠，工具栏的定制。 2. 模仿书中的例子，编写“Hello，Visual Basic .NET”程序。

3. 学会使用帮助，在编写程序时使动态帮助始终打开，注意观察动态帮助窗口中内容的变

化。

4. 在帮助菜单下选择对“帮助的帮助”，阅读其中的内容，学习帮助的使用。 5. 在窗体上选中不同的控件，按下F1，阅读显示的内容。

第2章 上机练习

1． 使用文本框、标签和按钮，编写一个计算年利息的程序。用户输入本金、年利率、年限

计算应得的利息。

2． 编写程序在窗体上放置1个TextBox控件和4个Button控件。分别按下这4个按钮，可

以把文本框的背景色分别设置为红色、蓝色、黑色和绿色。

3． 写一个简单的程序来证明当按钮具有焦点时按下回车键，将引起按钮的单击事件。 4． 在窗体上放置4个排成矩形的按钮，每个按钮的标题都是PushMe！。当用户单击其中一

个按钮时，此按钮便会消失，其它3个依然存在。

5． 窗体有2个文本框，用户可以在其中输入信息，单击其中一个文本框，会变成空白，其

中的信息转移到另一个文本框。

6． 在窗体上放置3个文本框，按下Tab键后

第1章 上机练习

1. 熟悉Visual Studio .NET的IDE界面，练习窗口的浮动、停靠，工具栏的定制。 2. 模仿书中的例子，编写“Hello，Visual Basic .NET”程序。

3. 学会使用帮助，在编写程序时使动态帮助始终打开，注意观察动态帮助窗口中内容的变

化。

4. 在帮助菜单下选择对“帮助的帮助”，阅读其中的内容，学习帮助的使用。 5. 在窗体上选中不同的控件，按下F1，阅读显示的内容。

第2章 上机练习

1． 使用文本框、标签和按钮，编写一个计算年利息的程序。用户输入本金、年利率、年限

计算应得的利息。

2． 编写程序在窗体上放置1个TextBox控件和4个Button控件。分别按下这4个按钮，可

以把文本框的背景色分别设置为红色、蓝色、黑色和绿色。

3． 写一个简单的程序来证明当按钮具有焦点时按下回车键，将引起按钮的单击事件。 4． 在窗体上放置4个排成矩形的按钮，每个按钮的标题都是PushMe！。当用户单击其中一

个按钮时，此按钮便会消失，其它3个依然存在。

5． 窗体有2个文本框，用户可以在其中输入信息，单击其中一个文本框，会变成空白，其

中的信息转移到另一个文本框。

6． 在窗体上放置3个文本框，按下Tab键后

实验教程

实验三 顺序结构程序设计编程题参考答案 （第47页）

1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print 方法输出。

2. 输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label控件输出。

3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。要求使用TextBox控件分别进行输入，使用Label控件输出。

实验四 选择结构程序设计编程题参考答案 （第58页） 1. 输入一个，判断其是否能同时被3和7整除。

2. 输入三个数，输出其中的最大值。

6. 编程及输出分段函数的值。由键盘输入t的值，计算y的值

Y=

t2 t<1 t2-1 1≤t<2 t2-2t+1 2≤t<3 t2+4t-17 t≥3

7. 输入年龄，输出所处人群：9岁以下为儿童，输出A；10～19为少年，输出B；20～29为青年，输出B；30～49为中年，输出B； 50以上为老年，输出E；要求使用Select Case语句实现。

8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。 实验五 循环结构程序设计编程题参考答案 （第77页）

1. 编写

VB后半学期练习题

1、 编制通用函数过程，计算1+2+??+N 的值。在窗体的Click事件中调用该函数。 Private Function sum(n As Integer) As long Dim i As Integer For i = 1 To n sum = sum + i Next i End Function

Private Sub Form_Click() Print sum(100) '任意选取一个数对函数过程进行调试就可 End Sub

2、 编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。 Private Function fact(n As Integer) As Double Dim i As Integer

fact = 1 '必须赋初值 For i = 1 To n fact = fact * i Next i End Function

Private Sub Form_Click() Print fact(5) End Sub

VB后半学期练习题

1、 编制通用函数过程，计算1+2+……+N 的值。在窗体的Click事件中调用该函数。 Private Function sum(n As Integer) As long Dim i As Integer For i = 1 To n sum = sum + i Next i End Function

Private Sub Form_Click() Print sum(100) '任意选取一个数对函数过程进行调试就可 End Sub

2、 编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。 Private Function fact(n As Integer) As Double Dim i As Integer

fact = 1 '必须赋初值 For i = 1 To n fact = fact * i Next i End Function

Private Sub Form_Click() Print fact(5) End Sub