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词汇,和一些基本的结构的运用,以及一些函数基本运用。

五:没有解决的问题

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

Visual Basic程序设计教程实验及实验报告答案(第3版)【全部】

  • 2010年12月13日 15:44
  • 505KB
  • 下载

【VB.NET程序设计】——总结篇

.net的视频算是结束了,写个总结,看看收获! 整个视频学下来的感觉,和之前学习《数据库》和《信管》里边的程序设计流程很相似,感觉像是一个系列,看 看思维导图: 里边的数字,是看.net视频...
  • u011626283
  • u011626283
  • 2015年01月24日 11:17
  • 1814

程序设计报告模板

上机内容:C++程序的编写和运行 上机目的:掌握简单C++程序的编辑、编译、连接和运行的一般过程 /* * 文件名称:Ex1-1.cpp * 作 者:曾辉 * 完成日期:2015 年...
  • macrohui29
  • macrohui29
  • 2016年02月24日 20:13
  • 1546

VB 思维导图总结(一)

早该进入数据库的学习了,不过在师父张薄的指导下我还是先把之前的VB再系统的整合一下,就像米老师说的,先把基础打好、起初的慢是为了以后的块,相信没错的、 下面是我对整个VB学习的整理、 第二章、vb语言...
  • u010282984
  • u010282984
  • 2013年06月07日 06:59
  • 1601

ACM程序设计节课总结

1 浅谈ACM 刚进入大学时,我便对C++这门课程感到十分有兴趣,在上学期的C++程序设计课程中,我便迷上了这门语言,以及十分有个性的费老师,可能是有那么一点灵性吧,我入门的非常快,一开始放在农大O...
  • z846666407
  • z846666407
  • 2017年06月18日 17:06
  • 150

vb.Net程序设计(一)——其实不太懂

背景:     前天vb.Net视频就已经看完了,可是总是懒懒的,不想去总结。其实原因不只是自己懒,还有就是自己看完视频后感觉没有学到什么东西,看完后最强烈的感觉就是台湾的时间比大陆的时间走得慢,一集...
  • u013043341
  • u013043341
  • 2015年02月11日 16:41
  • 1296

《ACM程序设计》课程总结

目录   一、我校ACM程序设计竞赛的现状 二、我对这门课的理解 三、我为什么要选择这门课 四、对这门课的体会 五、我从这门课中学到了什么 六、这门课对我的发展方向有什么帮助  一、我校ACM程序设...
  • WiseDoge
  • WiseDoge
  • 2016年06月26日 15:05
  • 2116

line控件和方法

在VB6中,画直线有两种途径 line方法line控件 line方法,就是在代码中用line(x1,y1)-(x2,y2)直接画线 这种方式看似简单,但也容易出错 看链接,出现图形部分显示不出来的问...
  • yiyiyicz
  • yiyiyicz
  • 2014年12月11日 20:58
  • 2600

vb窗体程序设计实例

实现功能 用户密码验证登录,按键识别。 窗体1:两个标签,两个文本框,两个按钮。窗体2:一个文本框 窗体1代码 窗口名称Form1,标签1,2分别为Lbl1,Lbl2,确定,取消按钮为,c...
  • Wangguo_hui
  • Wangguo_hui
  • 2015年01月03日 20:03
  • 428

C++程序设计课程主页-2015级

【前言】  本文专为烟台大学计154-1.2班《C++程序设计》课程建设,用于组织和展示实践性学习需要的材料和成果。借助于博客,我们将继续将”积累代码行“的实践进行下去,详见论文《利用博客提交作业的程...
  • sxhelijian
  • sxhelijian
  • 2016年02月28日 11:32
  • 5139
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB程序设计实验报告
举报原因:
原因补充:

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