VB程序设计实验报告

原创 2012年03月28日 07:07:23

VB程序设计实验报告

一:试验目的:

1 利用vb程序设计语言制作随机图形

2 利用vb程序设计语言制作动画

二:实验内容:

1先进行界面分布和相应的属性设置

2编写代码如下:

1,Private Sub Command1_Click()

Timer1.Enabled = True

Timer1.Interval = 100

End Sub

Private Sub Command2_Click()

Form1.Cls

End Sub

Private Sub Command3_Click()

Timer1 = False

End Sub

Private Sub Timer1_Timer()

Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)

FillStyle = Int(Rnd * 7)

FillColor = QBColor(Int(Rnd * 15))

Line (Int(Rnd * 8000), Int(Rnd * 8000))-(Int(Rnd * 8000) + 1000, Int(Rnd * 8000))

End Sub

2,Public TopBottom, LeftRight As String

Private Sub Form_Click()

If Timer1.Enabled = False Then

Timer1.Enabled = True

Else

Timer1.Enabled = False

End If

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 61

Timer1.Interval = 10

Case 45

Timer1.Interval = 100

End Select

End Sub

Private Sub Form_Load()

TopBottom = "0"

LeftRight = "0"

End Sub

Private Sub Timer1_Timer()

Select Case TopBottom & LeftRight

Case "00"

Form1.Image1.Top = Form1.Image1.Top - 10

Form1.Image1.Left = Form1.Image1.Left - 10

Form1.Image1.Move _

Form1.Image1.Left - 10, Form1.Image1.Top - 10

If Form1.Image1.Top <= 0 Then

TopBottom = "1"

End If

If Form1.Image1.Left <= 0 Then

LeftRight = "1"

End If

Case "10"

Form1.Image1.Top = Form1.Image1.Top + 10

Form1.Image1.Left = Form1.Image1.Left - 10

If Form1.Image1.Top >= _

Form1.ScaleHeight - Form1.Image1.Height Then

TopBottom = "0"

End If

If Form1.Image1.Left <= 0 Then

LeftRight = "1"

End If

Case "01"

Form1.Image1.Top = Form1.Image1.Top - 10

Form1.Image1.Left = Form1.Image1.Left + 10

If Form1.Image1.Top <= 0 Then

TopBottom = "1"

End If

If Form1.Image1.Left >= _

Form1.ScaleWidth - Form1.Image1.Width Then

TopBottom = "0"

End If

Case "11"

Form1.Image1.Top = Form1.Image1.Top + 10

Form1.Image1.Left = Form1.Image1.Left + 10

If Form1.Image1.Top >= _

Form1.ScaleHeight - Form1.Image1.Height Then

TopBottom = "0"

End If

If Form1.Image1.Left >= _

Form1.ScaleWidth - Form1.Image1.Width Then

LeftRight = "0"

End If

End Select

End Sub

3.调试并运行编写好的程序

三:心得体会

1, 自己的vb知识还十分的匮乏,对于一些基本知识还不甚了解。对一些基本的函数还不是十分的清楚,如:对timer事件的编写还不能运用自如,对一些基本结构也不能把握很好,对此我应该自己认真听老师的讲解,课下多多练习,以巩固课上所学到的知识。

2, 编写vb程序一定要仔细,在一个vb程序中,即使一个字母之差也会导致整个程序不能正确运行,所以在编和写的过程中都要认真仔细,不要出现一些不必要的错误。

四:解决问题

逐渐的理解了一些vb词汇,和一些基本的结构的运用,以及一些函数基本运用。

五:没有解决的问题

还有许多函数和基本结构需要去记,以后应多看书,多练习,尽力去解决学习中所遇到的困难。

相关文章推荐

第四次C程序设计实验报告

目标: 1.学习C语言调试方法 2.复习C语言基本语法、函数、选择和重复控制语句; 任务1:参考《C语言调试方法》掌握代码的调试和排错技巧.把调试过程出现的问题,写到报告中。 说明:学习编...
  • h031522
  • h031522
  • 2013年04月11日 19:20
  • 573

C++程序设计实验报告(二)

第7周报告: 实验目的:掌握简单C++程序的单步执行方法,以及在调试中观察变量值变化的方法 实验内容:编写求输入两个数的最大公约数并进行单步调试 * 程序头部注释开始 * 程序的版权和...

《Java语言程序设计》上机实验报告

《Java语言程序设计》 上机实验报告             实验名称:                        班    级:                      ...

C++程序设计实验报告(十一)

第12周报告: 实验目的:学会使用循环控制语句解决实际问题,并强化注重效率的观念 实验内容:用循环控制语句编写程序,完成表达式的计算 * 程序头部注释开始(为避免提交博文中遇到的问题,将用于表明...
  • dqybzs
  • dqybzs
  • 2012年02月01日 17:02
  • 429

C++程序设计实验报告(二十六)

第18周报告2:二维数组 实验目的:学会二维数组的操作 实验内容:二维数组的操作 * 程序头部注释开始 * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学...

C++程序设计实验报告(十二)----计算sin和cos的近似值

第13周报告2: 实验目的:学会使用自定义函数解决实际问题 实验内容:定义自定义函数,计算sin和cos的近似值 * 程序头部注释开始(为避免提交博文中遇到的问题,将用于表明注释的斜杠删除了...

2012C++程序设计实验报告【7.2】

/* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学计算机学院学生 * All rights reserved. * 文件名称:  ...

C 程序设计实验报告(二)

C 程序设计实验报告(二)        (班级:计114-3,学号:201158504328,姓名:刘江波) 实验内容:C ++程序的单步调试 实验目的:掌握简单C 程序的单步执行方法,以及在...

C++程序设计实验报告(八十四) --- 第十七周任务一

/* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2012, 烟台大学计算机学院学生 * All rights reserved. * 文件名称:二进...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB程序设计实验报告
举报原因:
原因补充:

(最多只允许输入30个字)