VB实验报告

原创 2012年03月26日 19:33:37

 

实验报告

 

一、实验目的

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

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

二、实验内容

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

2.编写代码如下:

1,Private SubCommand1_Click()

Timer1.Enabled =True

Timer1.Interval =100

End Sub

Private SubCommand2_Click()

Form1.Cls

End Sub

Private SubCommand3_Click()

Timer1= False

EndSub

PrivateSub 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 SubForm_Click()

     If Timer1.Enabled = False Then

        Timer1.Enabled = True

     Else

        Timer1.Enabled = False

     End If

 End Sub

Private SubForm_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii

       Case 61

          Timer1.Interval = 10

       Case 45

          Timer1.Interval = 100

     End Select

  End Sub

Private SubForm_Load()

    TopBottom = "0"

    LeftRight = "0"

End Sub

Private SubTimer1_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实验报告 一:试验目的: 1 利用vb程序设计语言制作随机图形 2 利用vb程序设计语言制作动画 二:实验内容:    1先进行界面分布和相应的属性设置    2编写代码如下:  1...

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

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

VB编程实验报告

VB 编程实验报告 教 育 学 院 专业 教育学 姓名 王宏宏 学号 11110142018         ...

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

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

西北工业大学vb实验报告

  • 2014年03月10日 11:39
  • 84KB
  • 下载

vb课内实验报告.

  • 2014年04月07日 19:11
  • 155KB
  • 下载

第十六周实验报告(四)---指针做 十四周任务2

#include #include using namespace std; //在这个问题中,成绩和人数是核心数据,适合作为全局变量处理 int score[50]; //将score设为全...
  • YtdxYHZ
  • YtdxYHZ
  • 2012年02月14日 12:57
  • 426

大学VB课程的实验报告

  • 2009年03月21日 11:50
  • 12.63MB
  • 下载

vb.net实验报告

  • 2013年12月20日 16:06
  • 637KB
  • 下载

软件工程导论——实验报告(终结版)

学    院 __新媒体学院___     专     业 __网络工程___ 班    级 ____ 2 班_____      学     号   120708216  姓    名    王...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB实验报告
举报原因:
原因补充:

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