visual--basic程序设计教程--生物安全实验报告--大学毕业设计论文

Text1.FontItalic = True End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MnuFs End Sub

3、在标题为“通用对话框”的窗体Form1上添加一个标题为“Visual Basic 程序设计”带有单边框的标签Label1.然后再添加两个标题分别为“字体设置”和“颜色设置”的命令按钮。最后添加一个通用对话框CommonDialog1。运行时，单击“字体设置”按钮，弹出“字体”对话框，设置字体的类型和字号。单击“颜色设置”按钮，弹出“颜色”对话框，设置标签的前景颜色。 代码如下:

Private Sub Command1_Click()

CommonDialog1.DialogTitle = \字体\

CommonDialog1.Flags = cdlCFBoth OrcdlCFEffects '设置flages属性 CommonDialog1.ShowFont Label1.FontName = CommonDialog1.FontName '设置字体 Label1.FontSize = CommonDialog1.FontSize '设置字号 End Sub

Private Sub Command2_Click() CommonDialog1.DialogTitle = \颜色\CommonDialog1.Flags = 1 '将当前对话框的前景颜色作为其初始颜色

CommonDialog1.ShowColor '打开颜色对话框

Label1.ForeColor = CommonDialog1.Color '用在对话框中选择的颜色设置标签的前景颜色End Sub

4、设计一个具有多文档界面的程序，由一个标题为“多文档界面”的父窗体MDIForm1和标题为“文档”的子窗体Form1组成。在父窗体上设计一个“文件”菜单，在子窗体设计一个图片框Picture1和一个下拉菜单，运行时，实现菜单相关功能。 代码如下

Dim drawstate As Boolean '定义绘图状态 Dim x1 As Single, y1 As Single Dim n

Private Sub Form_Load() drawstate = False End Sub

Private Sub MClose_Click() '清除图片框中的图片

Picture1.Picture = LoadPicture() End Sub

Private Sub MCls_Click()

Picture1.Cls '清除绘制的图形 End Sub

Private Sub MDraw_Click()

n = 1

Picture1.Cls End Sub

Private Sub MExit_Click() End End Sub

Private Sub MNew_Click()

Dim newfile As New Form1 '新建子窗体 newfile.Show End Sub

Private Sub MOpen_Click()

Picture1.Picture = LoadPicture(App.Path + \彩色.jpg.jpg\打开图片 End Sub '绘画

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 And n = 1 Then drawstate = True x1 = X y1 = Y End If End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If drawstate = True Then Picture1.Line (x1, y1)-(X, Y) x1 = X y1 = Y End If End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then drawstate = False End If End Sub

系： 生物安全 专业： 生物安全 年级： 10级

姓名： 李珠蓬 学号： 102251001045 计算机号 实验时间： 2012、4、20实验地点： 综南附307 指导教师签字： 黄红兵

实验十 文件管理与操作

一、实验目的 1、了解顺序文件，随机文件和二进制文件的特点和区别 2、掌握顺序文件的打开、关闭和读写操作 3、掌握文件系统应用程序的设计 二、实验内容

1、在标题为“Print和Write区别”的窗体Form1上添加四个标题分别为“最大值”“最小值”“Print语句文件”和“Write语句文件”的标签。然后再添加四个初始文本内容为空的文本框，其中文本框3和4可以显示多行文本，且有一个垂直滚动条，最后添加两个标题为“求解保存”和“读取文件”的命令按钮。运行后，单击“求解保存”按钮，生成10个1~100之间的随机整数存放在数组a（1-10）中，然后求这10个整数的最大值和最小值，并在文本框1和2中显示，同时分别用Print#语句和Write#语句将求解的结果写入Pout.txt和Wout.txt中。单击“读取文件”按钮，则用Line Input 语句将两个文件中的数据分别读到文本框3

和4中。 代码如下

Private Sub Command1_Click()

Dim a(1 To 10) As Integer '定义数组 Dim max%, min% Randomize

For i = 1 To 10 '随机产生10个数，存于数组中 a(i) = Int(Rnd * 100 + 1) Next i

max = a(1): min = a(1) '找出最大值和最小值 For i = 2 To 10

If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) Next i

Text1.Text = max '显示结果 Text2.Text = min

Open App.Path & \As #1 '

Print #1, \最大值： \Print #1, \最小值：\Close #1

Open App.Path & \As #2

Write #2, \最大值：\ '显示结果 Write #2, \最小值：\Close #2 End Sub

Private Sub Command2_Click() Dim s As String

Open App.Path & \读取文件 Do While Not EOF(1) Line Input #1, s

Text3.Text = Text3.Text & s & vbCrLf Loop Close #1

Open App.Path & \Do While Not EOF(2) Line Input #2, s

Text4.Text = Text4.Text & s & vbCrLf Loop Close #2 End Sub 2、在窗体Form1上添加一个文本框1和两个标题分别为“打开”和“保存”的命令按钮，text1的

初始信息为空，支持多行显示并有一个垂直滚动条。运行时，单击“打开”按钮，则读入D\\01\\2303010文件夹下的“in.txt”文件中数据，并在文本框1中显示，单击“保存”按钮，则将text1中的小写字母转换为大写字母并保存到“out.txt”文件夹中。 代码如下：

Private Sub Command1_Click()

Open \读入文件中数据 Input #1, s

Text1.Text = Text1.Text & s Loop Close #1 End Sub

Private Sub Command2_Click() Dim s As String s = Text1.Text

Text1.Text = UCase(s) '小写变大写

Open \保存

Print #1, Text1.Text Close #1 End Sub

3、在窗体Form1上添加一个文本框text1以及两个标题分别为“读入”和“计算”的命令按钮，文本框text1的初始信息为空，支持显示多行文本，有一个垂直滚动条。运行时，单击“读入”按钮，则读入D:\\01\\2303010文件夹下“infile.txt”文件中的20个整数，放在数组中，同时在文本框中显示出来，单击“计算”按钮，则计算数组中大于或等于300并且小于800的所有数之和，并把求和结果在文本框中显示出来。 代码如下：

Dim a(1 to 20) As Integer Private Sub Command1_Click() Dim i As Integeri = 1 Open\新建文件夹\\infile.txt\‘打开文件

Do While Not EOF(1) Input #1, a(i)

Text1.Text = Text1.Text & a(i) & \i= i + 1 Loop Close #1 End Sub

Private Sub Command2_Click() Dimsum As Double sum= 0 Fori = 1 To 20 ‘计算

If a(i) >= 300 And a(i) < 800 Then sum = sum + a(i)