我的VB作业

 

 

                                                                             计算机实验报告

 

 

 

专业：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 >中的<>打成了《》，经过检查改正后，工程正常运行。

五、        没有解决的问题

无