VB上机题目

演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案

VB程序设计上机题目

45

1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的\考生文件夹\均为%USER%

**********************************************************************

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

（1）在名称为Form1，标题为\图片\的窗体上画1个名称为Image1的图像框，其

高为2500，宽为2000。请通过属性窗口设置适当属性，装入考生目录下的

图片文件pic1.jpg，并使图片适应图像框的大小（如图所示）。 注意：

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

为sjt1.frm。

***********************************************************

第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键后

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

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

实验一：第二章

⒈ 在名称为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

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

1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。 单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。

Text1

Text2

Private Sub Command1_Click()

Text1.Font = 黑体

End Sub

Private Sub Command2_Click() Text1.ForeColor = vbRed

Text2.ForeColor = vbBlue End Sub

Private Sub Command3_Click() End End Sub

2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。

Private Sub Command1_MouseDown(Button As Integer,

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（2002年秋）

二级 Visual Basic 语言（试卷代号VB03）

（本试卷完成时间 70分钟）

[试卷须知]

1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考； 2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；

3． 程序代码书写应呈锯齿形。 一、改错题（17分）

[题目]所谓的完全数是一个整数N的因子和（不包括N）等于N。例如6=1+2+3，6是完全数。编写程序验证；两位以上的完全数，把它们的各位数字加起来得到一个数，再把这个数的各位数字加起来又得到一个数，一直做下去，直到得到一个一位数，这个数是1。过程WanShu的功能是找完全数。

Option Explicit

Private Sub Command1_Click()

Dim I As Integer, K As Integer, St As String For I = 10 To 500 If Wanshu(I) Then St = CStr(I)

text1.Text =

上机题目 报告1：略

报告2： 1.调试

2.练习编译课本习题P51 T2.6

报告3：

1.编写程序，通过键盘输入一个小写字母，然后将小写字母转化为大写字母。

提示：在ASCII码表中大写字母排在小写字母之前，任何大写字母和相应小写字母在表中的偏移量是相同的。因此，可以利用小写字母的位置找到大写字母，如下所示： int offset=(int)’a’-(int)’A’;

Char upperease=(char)((int)lowercase-offset);

2.从键盘输入一个字母。如果是L或者l，就显示Left。如果是R或者r，就显示Right，其余的字母显示Not Known.

报告4：

1.从键盘输入任意8个整数正数，并计算和输出它们的总和平均值，最大值和最小值。

2.使用嵌套的循环语句，打印下面的图案。

报告5：

1.编写一个方法，用于计算给定半径的圆面积。 public static double computArea(double radius)

编写一个测试程序，提示用户输入一个半径，然后显示圆面积。

2.将大写子没有转换成小写字母。使用下述方法头，编写一个将大写字母转换成小写字母的方法：

public stat

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（2010秋）

二级 Visual Basic语言 （试卷代号VB02）

（本试卷完成时间 70分钟）

【考试须知】

1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分；

3． 程序代码书写应呈锯齿形。 一、改错题（14分）

【题目】本程序的功能是，查找首末两位数字之和与中间两位数字之和相等的素数。 Option Explicit

Private Sub CmdFind_Click()

Dim I As Integer, Fg As Boolean Dim Bl As Boolean For I = 1001 To 9999 Fg = False Call PD(I, Fg)

If Prime(I) And Fg Then List1.AddItem I Next I End Sub

Private Function Prime(N As Integer) As Bo

vb上机实验

实验的总体要求与方法

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

1． 实验的基本目的

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

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

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

2． 实验的基本要求

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

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

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

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