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之间的所有孪生素数。

第一章_NI_Vision_Assistant概述.pdf

NI_Vision_Builder_AI入门教程__第二章_配置界面.doc

NI_Vision_Builder_AI入门教程____第四章_图像增强.doc

NI_Vision_Builder_AI入门教程__第五章_视觉助手(一).doc

NI_Vision_Builder_AI入门教程___第六章_视觉助手(2).doc

NI_Vision_Builder_AI入门教程___第七章_视觉助手3___灰度选板.doc第一章 NI Vision Assistant概述

NI公司的视觉开发模块是专为开发机器视觉和科学成像应用的工程师及科学家而设

计。该模块包括NI Vision Builder和IMAQ Vision两部分。NI Vision Builder是一个交互式的

开发环境，开发人员无需编程，即能快速完成视觉应用系统的模型建立；IMAQ Vision是一

套包含各种图像处理函数的功能库，它将400多种函数集成到LabVIEW和Measurement

Studio，LabWindows/CVI，Visual C++及Visual Basic开发环境中，为图像处理提供了完整

的开发功能。

NI视觉开发模块供从事开发机器视觉和科学图像应用的科学家、工程师和技术人员使

用。NI视觉开发模块包括NI Vision Assistant--供需要不通过编程就实现将LabVIEW应用快

速成型的直观环境；以及IMAQ视觉--拥有强大视觉处理函数的库。与其它视觉产品不同，

NI Vision Assistant和IMAQ视觉的紧密协同工作简化了视觉软件的开发。NI Vision Assistant

可自动生成LabVIEW程序框图，该程序框图中包含NI Vision Assistant建模时一系列操作的

相同功能。您可以将程序框图集成到自动化或生产测试应用中，用于运动控制、仪器控制和

33 VB教案

目录

第一章 VB程序的开发环境 一课时

第二章 对象及操作 一课时

第三章 简单程序设计 一课时

第四章 VB程序设计基础 一课时

第五章 数据的输入输出 一课时

第六章 常用标准空件 二课时

第七章 VB控制结构 一课时

第八章 数组 一课时

第九章 过程 一课时

第十章 键盘与鼠标事件过程 一课时

第十一章 菜单程序设计 一课时

第十二章 对话框程序设计 一课时

第十三章 多重窗体程序设计与环境应用 一课时

第十四章 数据文件 二课时

共计十六课时

33 课题名称 Visual Basic 章节 第一章

教学目的 了解Visual Basic程序的开发环境

教学重点 Visual Basic的特点

教学难点 对主窗口和其他口的使用

授课类型 教具 课时 60分钟

教学内容

1. Visual Basic的特点

Visual Basic是一种可视化,面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发Windows环境下的各类应用程序.

Visual Basic的特点如下:

1) 可视化编程

在用传统程序设计语言来设计程序时,都是通过编写程序代码来设计拥护界面,在设计程序过程总看不到界面的实现效果,必须编译后运行才能观察.如果对界面不满意,还要回到程序中去修改.