VB第一章

Visual Basic程序设计(A)

实验报告

题 目：Visual Basic简单程序设计

院 （部）： 管理工程学院

专 业：

班 级：

姓 名：

学 号：

指导教师：

一、实验目的：

1、熟悉Visual Basic 6.0的集成环境及其基本操作。

2、掌握窗体、命令按钮、标签和文体框等基本控件的使用。

3、掌握一个Visual Basic应用程序的组成及创建方法。

4、理解面向对象编程的机制及编码过程。

5、掌握常量和变量的定义及使用方法。

6、掌握各种运算符的优先级及结合性，掌握内部函数的使用。

二、实验任务：

1、在窗体上画一个文本框Text1和两个命令按钮C1、C2，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。当单击C1时，文本框消失；而当单击C2时，文本框重新出现，并在文本框中显示“VB程序设计”。

2、设计界面如图1-1所示，单击出题按钮，产生任意两个[1,100]之间的随机整数，单击“计算”按钮，求这两个数的和。

图1-1设计界面

提示：

产生[A,B]之间随机整数的公式为：Int((B-A+1)*Rnd+A)

3、设计应用程序，输入圆柱体的底面半径和高，求底面积、侧面积、体积。要求：

1）界面如图1-2所示。

2）程序中将圆周率定义为符号常量Pi。(Const Pi=3.14)

3）将输入的底面半径和高先分别存于变量r和h中（Dim r as Single,h as

Single）。再利用Pi、r、h计算圆柱体的底面积、侧面积和体积。运算结果设为只读。

图1-2设计界面

提示：

1）圆柱的画法：椭圆用工具箱中的Shape控件，设置Shape属性值为2-Oval，线条用工具箱中的Line控件，自己调整其位置、大小及颜色。

2）运算结果设为只读：设置文本框的Locked属性值为True。

三、实验要求：

1 第一、二章习题

一、选择题

1、与传统的程序设计语言相比，VB最突出的特点是（ ）

A 结构化程序设计 B程序开发环境 C事件驱动编程机制 D程序调试技术

2、在正确安装VB后，可以通过多种方式启动VB，以下方式中，不能启动VB的是（ ）

A通过“开始”菜单中的“程序”命令 B对过“我的电脑”中找到VB.exe

C 通过“开始”菜单中的运行命令 D 进入DOS方式，执行VB6.exe

3、为了用键盘打开菜单和执行菜单命令，第一步应按的键是（ ）

A 功能键F10或Alt B Shift+功能键F4 C Ctrl或功能键F8 D Ctrl+Alt

4、VB6.0集成环境的主窗口中不包括（ ）

A 标题栏 B菜单栏 C 状态栏 D 工具栏

5、用标准工具栏中的工具按钮不能执行的操作是（ ）

A 添加工程 B打印源程序 C 运行程序 D 打开工程

6、VB窗体设计器的主要功能是（ ）

A 建立用户界面 B编写源程序代码 C 画图 D 显示文字

7、以下不能在“工程资源管理器”窗口中列出的文件类型是（ ）

A .bas B .res C .frm D .ocx

8、下列叙述不正确的是（ ）

A 一个目标程序所需的所有文件的集合称为工程

B VB的工程文件的扩展名为.VBP

C 工程文件中除了窗体文件是可选的外，其他文件都是必须的

D工程文件中可包括窗体文件、标准模块文件、类模块文件、资源文件等

9、保存一个工程至少要保存两个文件，这两个文件分别是（ ）

A 文本文件和工程文件 B 窗体文件和工程文件

C窗体文件和标准模块文件 D类模块文件和工程文件

10、下列不能打开属性窗口的操作是（ ）

A 执行“视图”菜单中的“属性窗口”命令 B 单击工具栏上的“属性窗口”按钮

C 按Ctrl+T 快捷键 D按F4键

11、启动VB后，就意味着建立了一个新的（ ）

【例10-1】编写如图10-1所示的应用程序。若选择“建立文件”，则分别用PrintLine和WriteLine语句将三个同学的学号、姓名和成绩写入文件ScorePrintLine.dat和ScoreWriteLine.dat;若选择“读取文件”，则用LineInput函数按行将两个文件中数据送到相应的文本框。

图10-1比较PrintLine和WriteLine

要求：学号和姓名是字符串类型，成绩是整型。

分析:

使用PrintLine和WriteLine将数据写入文件表示建立的文件应该是顺序文件，而不是随机文件。

主要步骤：

（1）建立Module1．VB模块，并在其中定义如下的变量:

Module Module1

Public strLineInput As String

Public No As String

Public Name As String

Public Score，Sum As Integer

End Module

(2)“建立文件”按钮事件过程:

Sub Button1_Click(……)Handles Button1.Click

FileOpen(1，"C:＼ScorePrintLine．dat"，OpenMode．Output)

PrintLine(1，"051023"，"王海涛”，66)

PrintLine(1，“052498”，"周文英"，88)

PrintLine(1，"050992"，"陈建栋"，71)

FileClose(1)

FileOpen(1，"C＼ScoreWriteLine．dat"，OpenMode．Output)

WriteLine(1，"051023"，"王海涛"，66)

WriteLine(1，"052498"，"周文英"，88)

WriteLine(1，"050992"，"陈建栋"，71)

FileClose(1)

End Sub

（3）“读取文件”按钮事件过程:

[原创]vb教程答案第七章

1(略

2(略

3(略

4((1) BASIC

(2) 6 26

2 62

-2 98

(3) 23

47

(4)10 8

12 -10

5 2

12 10

5( 编写一个摄氏温度与华氏温度转换的通用过程。摄氏温度(C)与华氏温度(F)转换的公式

如下:F=C×9?5，32

Private Sub Command1_Click()

Dim c As Single, f As Single

c = Text1.Text

Call zhh(c, f)

Text2.Text = f

End Sub

Private Sub zhh(cs As Single, fs As Single)

fs = cs * 9 / 5 + 32

End Sub

6( 编写一个验证一个数是否是素数的通用过程。

Private Sub Form_Click()

Dim n As Integer, flag As Boolean

n = InputBox("输入一个整数:", "判断素数")

Call sushu(n, flag)

If flag Then

MsgBox Str(n) + "是素数"

Else

MsgBox Str(n) + "不是素数"

End If

End Sub

Private Sub sushu(m As Integer, f As Boolean)

Dim i As Integer

For i = 2 To Int(m / 2)

If m Mod i = 0 Then Exit For Next i

If i = Int(m / 2) + 1 Then

f = True

Else

f = False

End If

End Sub

7( 编写程序找出1-100之间的所有孪生素数。