VB

原创 2012年03月26日 18:54:28

VB实验报告

 一:试验目的:

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

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

二:实验内容:

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

2编写代码如下:

1Private 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

 

 

 

 

 

 

 

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

三:解决问题

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

四:没有解决的问题

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

 

vb Form的基本事件

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

VB程序打包方法

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

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新手学习教程

第1课,建立你的第一个VB程序 建立你的的一个vb程序 首先,你要先安装一个vb6 vb课程第一步,创建第一个vb程序~ 创建一个vb程序有3个主要步骤 (1)创建应用程序界面 (...
  • zzj1993930
  • zzj1993930
  • 2014年10月08日 09:01
  • 1054

VB中数据类型及其运算

Visual Basic 6.0的数据类型
  • oLinXi1234567
  • oLinXi1234567
  • 2014年10月08日 18:54
  • 3336

VB Cells.find函数参数解释

用VBA录制的查找 Cells.Find(What:="想查找的数据", After:=ActiveCell, LookIn:=xlValues, LookAt:= xlPart, SearchOr...
  • Seabiscuit_92
  • Seabiscuit_92
  • 2016年05月31日 10:54
  • 1692

VB文本框textbox的那点事

1、限制文本框中只允许输入数字 在textbox的keypress事件里面写上 (1)判断输入的数字是否为小数 IfkeyAscii=46 and not(InStr(txtnumber,"."...
  • IstarI
  • IstarI
  • 2015年08月10日 10:43
  • 1773
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB
举报原因:
原因补充:

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