我的VB作业

原创 2012年03月27日 21:07:18

 

 

                                                                             计算机实验报告

 

 

 

专业:11级教育学

 

班级:一班

 

姓名:郭飘云

 

学号:11110141004

 

日期:2011.3.21

 

 

 

 

 

 

 

 

 

实验一:显示各位数

一、实验目的:

充分认识vb的语言及其能够处理的数据类型。

二、     实验内容:

1.  做三位数的显示,在窗体中放置三个标签,并在其属性值中分别输入“个位”,“十位”“百位”,并放置三个文本框,用于显示各位数,一个命令按钮,将其属性值设置为“显示”点击显示个位,十位,百位。

2.  编写程序代码:

双击命令按钮,输入:

Dim star as string

Star=text1.text

Text2.text=left(stra,1)

Text3.text=mid(stra,2,1)

Text4.text=right(stra,1)

三、     心得体会;

        由于是第一次学习VB语言,而且以前从未接触过,所以刚开始的时候是排斥的,是没有办法接受的,但是,制作VB的工程也是开心的,因为自己也可以做出东西,做出自己平常使用但是却不知道怎么来的那些东西。在做的工程中也是有遇到一些小小的问题,但是在老师和自己的努力之下也是能够工科的,所以整个工程是很开心的!

四、     遇到的问题和解决方法;

对专业术语不了解,还有就是自己的小马虎,编写代码不认真,导致不能运行。在老师的帮助,上网查询,在书上找答案,同学间相互找错误,最后终于让程序能够运行。

五、     没有解决的问题

       有些代码虽然编写了,但是不了解,还有就是对编写代码不熟悉,还需要勤加练习。

 

 

实验二:大小写的转换

一、实验目的:

1.明确赋值语句的意义,弄清赋值表达式与判断相等关系表达式的区别。

2.熟悉数据的输入与输出的办法,学习使用输入框和消息框。

二、实验内容:

  字母大小写转换。程序运行时单击“转大写”按钮,文本中英文全部转化为大写,单击“转小写”按钮,转为小写,单击“复原”按钮,复原为初始状态。

三、     实验步骤:

1.  在窗体中放置三个命令按钮,在属性值中分别输入“转大写”“转小写”“还原,”在放置一个标签,在属性值中输入“请输入英文字母”,并在后面输入一个文本框

2.  编写代码:

(1)在通用声明段中输入;dim x as string

(2)在代码窗口中选择form控件的load事件,代码如下:x=text1.text

(3)在代码窗口中选择command1控件的click事件,代码如下:text1.text=UCase(x)

(4)在代码窗口中选择command1控件的click事件,代码如下:text1.text=LCase

(5)在代码窗口中选择command1控件的click事件,代码如下:text1.text=x

四问题寄解决的方法:

  此工程操作的很顺利,并未遇到任何问题,但是还是需要勤加练习,对编写代码还是有那么一点生疏。

实验三:生成随机数

实验目的:

1.  了解vb数据类型的基本概念

2.  掌握变量的定义方法

3.  掌握运算符和表达式用法

一.         实验内容:

生成指定范围内的随机整数。用int和rnd函数生成指定范围的随机整数,用randomize函数初始化随机数发生器,用val函数将数字字符串转换为数值。

二.        实验步骤:

1.  在窗体上放置三个文本框并在其后输入三个文本框,分别用于输入随机数的下界和上界,并在属性值中输入“请输入随机数的下界”“请输入随机数的下界”“显示生成的整数”。放置一个命令按钮,并在属性值中输入“生成随机数”。

2.  编写程序代码

  双击窗体中的命令按钮在代码窗口编写click事件过程,代码如下:

Dim M as Integer

Dim N as Integer

M=Val(text1.text)

N=val(text2.text)

Text3.text=m+int(rnd*(n-m=1))

End sub

三.        心得体会:

VB是一门需要仔细和认真的一门课程,所以在操作工程中必须要百分百的认真,任何一个小错误都可以导致程序不能运行。

四.        问题及解决方法;

问题:输入代码后不能正常运行,出现“编译码错误”

解决方法: M=Val(text1.text),N=val(text2.text)中的l打成了1,所以一直本能运行,后来经同学检查改过后就能够运行了!

 

实验四:随机生成图形

一、        实验目的:

让程序随机不定时间生成随机种类的图形并生成多个

二、        实验内容:

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

 

Private Sub Timer1_Timer()

Randomize

    Cls

    Dim MaxX As Long

    Dim MaxY As Long

    MaxX = Form1.ScaleWidth

    MaxY = Form1.ScaleHeight

    For I = 1 To Int(Rnd * 50 + 1)

        x = Int(Rnd * (MaxX - 500))

        y = Int(Rnd * (MaxY - 500))

       Shape1.Shape = Int(Rnd * 5 + 1)

    Next

End Sub

三、        心得体会:

我觉得VB语言特别神奇,在我们编写的代码下,能够出现很多的奇迹,就仅仅是一连串字母,却可以演绎出很多难以想象的图形,觉得特别神奇,而且,VB语言还是一门开创思维的学科,我们可以在VB中发挥自己的能力做出各种各样的程序,那是一种很骄傲的感觉。

四、        遇到的问题及解决问题的方法:

  不会编写代码,有些步骤书上没有,自己又不会,最后是在上网查到的代码,运行的程序。

五、        没有解决的问题:

不能够完成时间的设定。而且不能够完成图形的随意变换,就是不能够随机的产生不同个数的图形。

 

          

实验五:能动的图形

一、        实验目的:

生成能动的图形

二、        实验内容:

用VB绘制图形并使其运动

绘制圆形并运动的程序代码

Dim gAs Boolean

Dim xAs Long

PrivateSub Command1_Click()

Timer1.Enabled= True

End Sub

PrivateSub Form_Load()

g =True

x =Shape1.Left

End Sub

PrivateSub Timer1_Timer()

If gThen

x = x -300

Else

x = x +300

End If

If x < 0 Or x > (Me.ScaleWidth - Shape1.Width) Then

g = Not g

End If

Shape1.Move x

End Sub

在窗体中使用了一个按钮、一个计时器,并且用shape控件绘制了一个圆。

三、        心得体会:

每个小问题都会导致工程不能运行,而我们需要做的就是耐心的寻找问题并解决问题,有时候着急是不能解决问题的,所以我们在遇到问题时一定要耐心。

四、        遇到的问题及解决的方法

   在编写代码的过程中,If x < 0 Or x >中的<>打成了《》,经过检查改正后,工程正常运行。

五、        没有解决的问题

 

vb作业,单精度与双精度的区别

13.25用二进制表示的结果及single和double 1101.01 因为1101.01=2^3+2^2+0*2^1+2^0+0*2^-1+2^-2 =8+4+0+1+0+1/4=13.2...

【网络课】VB.NET程序设计 作业答案

选择题: ACDBC DAADD BDCDD CDCCB ABDCB DBAAC BACAB CCBCD DAAAA ADAAA DCCCA BBCAA ADDBB DDCDA BCAAB ...
  • kydkong
  • kydkong
  • 2015年04月29日 08:44
  • 1588

15顺序 VB作业

Private Sub Command1_Click() Cls Me.Font.Size = 24 Dim a As Integer Dim b As Integer Dim c As I...

计算机VB作业

计算机实验报告       专业:11级教育学   班级:一班   姓名:耿学会   学号:11110141003   日期:2...

[C/S作业] 学生管理系统(VB语言)

数据表: ==================================================================================...

课程作业 vb代码

  • 2013年05月30日 13:18
  • 58KB
  • 下载

农大VB作业4

  • 2014年03月17日 20:23
  • 3KB
  • 下载

VC实现一个库,并用VB(Visual Basic)来调用的方法,包括传递数组的方法

因为工作需要,最近写了一个VB小软件,很多功能已经用VC写好了,如果再用VB整一遍太麻烦。最好的方法将VC程序编译成dll库,然后用VB来调用就行了。虽然VB已经很老了,但是做一些小软件还是非常方便的...

VB.net-8-2作业

  • 2016年05月03日 17:54
  • 98KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:我的VB作业
举报原因:
原因补充:

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