VB实验报告

原创 2012年03月26日 18:33:56

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

PrivateSub Form_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii

       Case 61

          Timer1.Interval = 10

       Case 45

          Timer1.Interval = 100

     End Select

  End Sub

PrivateSub Form_Load()

    TopBottom = "0"

    LeftRight = "0"

EndSub

PrivateSub 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.调试并运行编写好的程序

三:解决问题

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

四:没有解决的问题

还有许多函数和基本结构以及循环需要去理解运用,以后应多看书,多练习,努力去解决学习中所遇到的困难。

LateX练习:写一份实验报告

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

基于SSH框架作业与实验报告系统

其实也可以算成是作业系统,老师可以发布作业,实验内容,学生完成提交,老师批改给分。前端主要是之前在CSDN下载的一个资源的前端,原作者做得很漂亮就拿来用了(前端硬伤,还有几个页面是同学做的,在此谢过原...
  • iaiti
  • iaiti
  • 2014年07月22日 22:48
  • 4141

操作系统作业调度实验报告

一、实验名称 作业调度算法实验。 二、实验目标 已知n个作业的进入时间和估计运行时间(以分钟计) (1)单道环境下,分别用先来先服务调度算法、短作业优先调度算法、响应比高者优先调度算法,求出批...
  • j2013210855
  • j2013210855
  • 2015年10月14日 22:07
  • 4513

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

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

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

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

VB实验报告

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

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

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

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

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

VB编程实验报告

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

计算机技术基础实验报告格式VB

  • 2014年04月21日 00:15
  • 599KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB实验报告
举报原因:
原因补充:

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