VB实验报告

原创 2012年03月27日 21:21:01

一:试验目的:

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

五:没有解决的问题

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


VB程序设计实验报告

VB程序设计实验报告 一:试验目的: 1 利用vb程序设计语言制作随机图形 2 利用vb程序设计语言制作动画 二:实验内容: 1先进行界面分布和相应的属性设置 2编写代码如下: 1,Pr...
  • sunqingxue
  • sunqingxue
  • 2012年03月28日 07:07
  • 967

VB实验报告

VB实验报告 一:试验目的: 1 利用vb程序设计语言制作随机图形 2 利用vb程序设计语言制作动画 二:实验内容:    1先进行界面分布和相应的属性设置    2编写代码如下:  1...
  • wo876107909
  • wo876107909
  • 2012年03月25日 21:24
  • 112

VB编程实验报告

VB 编程实验报告 教 育 学 院 专业 教育学 姓名 王宏宏 学号 11110142018         ...
  • fuyademeng
  • fuyademeng
  • 2012年03月26日 19:03
  • 176

VB实验报告----制作随机图形,制作动画

一:试验目的: 1利用vb程序设计语言制作随机图形 2利用vb程序设计语言制作动画 二:实验内容: 1先进行界面分布和相应的属性设置 2编写代码如下: 1,Private Sub Comm...
  • qiyexue116
  • qiyexue116
  • 2012年03月26日 18:37
  • 279

VB语言“用户名”与“密码”实验报告

VB语言5“用户名”与“密码”实验报告 姓名:吕建勋 学号:15050341019 实验日期:2016.5.26 实验内容:首先创作一个登录页面,然后输入相应的字并对字符大小进行修改,然后建...
  • lv8830
  • lv8830
  • 2016年06月16日 17:21
  • 151

VB语言设计“用户名”与“密码”实验报告

VB语言设计“用户名”与“密码”实验报告 姓名:刘兆国 学号:15050342020 实验日期:2016.5.26 实验内容:首先创作一个登录页面,然后输入相应的字并对字符大小进行修改,然后建...
  • sinat_34242847
  • sinat_34242847
  • 2016年06月02日 17:11
  • 394

VB语言5“用户名”与“密码”实验报告

VB语言5“用户名”与“密码”实验报告 姓名:叶大塽 学号:15050342035 实验日期:2016.5.26 实验内容:首先创作一个登录页面,然后输入相应的字并对字符大小进行修改,然后建立...
  • yedashuang
  • yedashuang
  • 2016年06月16日 16:43
  • 117

LateX练习:写一份实验报告

LaTeX的排版确实是惊人地出色,高德纳大神的杰作果然非同一般。为了入门LaTeX,我用来简单地处理了一份实验报告。我用的是CteX套装,安装很简单。废话不说,直接上源文件代码:\documentcl...
  • qq_23851075
  • qq_23851075
  • 2016年05月03日 09:34
  • 1692

《数据结构》实验五:树和二叉树 实验(实验报告)

一.实验目的      巩固树和二叉树的相关知识,特别是二叉树的相关内容。学会运用灵活应用。 1.回树和二叉树的逻辑结构和存储方法,清楚掌握树和二叉树的遍历操作。 2.学习树的相关知...
  • denise94
  • denise94
  • 2014年12月06日 20:57
  • 3636

VB实验报告——<<实现能动的图形>>

实验目的:实现能动的图形 实验内容: 实验原理: Private Sub Command1_Click() 定义三个启动按钮 Timer1.Enabled = True Timer1.Int...
  • x2511627852
  • x2511627852
  • 2012年06月12日 13:28
  • 103
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB实验报告
举报原因:
原因补充:

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