VB实验报告

原创 2012年03月26日 19:10:15

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

四:没有解决的问题

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

 

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

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

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

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

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
  • 139

vb Form的基本事件

Private Sub Form_Activate() 当此窗体变为活动窗口时触发 End Sub Private Sub Form_Click() 单击时触发 End Sub Private Sub...
  • bianyamei
  • bianyamei
  • 2015年12月23日 13:09
  • 469

VB程序打包方法

VB学习已经有很长一段时间了,在马上就迎来的作品展中,相信大家的作品也接近了尾声,VB程序的最后一步就是打包发布,对此,我遇到了很多问题,我找到了两个解决的方法。利用VB本身提供的打包程序可以实现打包...
  • lu930124
  • lu930124
  • 2013年04月24日 21:15
  • 5048

Vb 与 Vc 的区别

一:简单的对比 VB是由Basic语言演化而来的VisualBasic,意思是可视化Basic,而VC是由C++语言演化而来的VisualC++,意思是可视化C++,VB功能没有VC强大,但是很容易...
  • guomutian911
  • guomutian911
  • 2014年10月21日 11:57
  • 2534

VB与VB.net的区别

概述: VB.NET是基于微软.NET Framework之上的面向对象的编程语言。其在调试时是以解释型语言方式运作,而输出为EXE程序是是以编译型语言方式运作。可以看作是VB在.NetFramewo...
  • wxr15732623310
  • wxr15732623310
  • 2016年01月28日 21:27
  • 1141

vb 操作xml方法总结

Private Sub xxx(ByVal xmlStr As String) ''初始化xml文档 Dim xmlDoc As New XmlDocument ...
  • yuewei19
  • yuewei19
  • 2014年12月11日 15:21
  • 2771

vb 简单If条件语句

一、简单If条件语句   使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。“If...Then”分支结构在程序中计算条件值,并根据条件值决定下一步执...
  • lexuansweet
  • lexuansweet
  • 2013年05月16日 11:17
  • 4824
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB实验报告
举报原因:
原因补充:

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