vb 程序

 

 计算机实验报告

 

 

 

专业：11级教育学

 

班级：一班

 

姓名：白明昊

 

学号：11110141027

 

日期：2011.4.10

 

 

 

 

 

 

 

 

 

实验一：显示各位数

一、实验目的：

充分认识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确实不太简单，很多时候搞不清楚专业术语的意思。但是我们要充分利用网络资源，熟读课本，深入了解，弄清程序语言，更好的编程。

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

对专业术语不理解，通过熟读课本，网络查找，完成编写程序。

五、    没有解决的问题

 不够熟练，还需继续练习。

 

 

实验二：大小写的转换

一、实验目的：

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

四问题寄解决的方法：

 因“UCase(x) LCase”中大小写输错，导致程序不能正常运行。改正后可正常运行。

 

 

实验三：生成随机数

实验目的：

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是要注意细心，在输入程序代码时要要看清，例如是“,”还是“.”运行过程不是很顺利，编写的程序由于粗心经常出现丢落字母等问题。要仔细编写。

四．        问题及解决方法；

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

解决方法：核对输入的代码，发现把“.“输成了“,“，改正后可正常运行

 

 

实验四：随机生成图形

一、        实验目的

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

二、        实验内容

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绘制图形并使其运动

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

Dim g As Boolean

Dim x As Long

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

g = True

x = Shape1.Left

End Sub

Private Sub Timer1_Timer()

If g Then

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控件绘制了一个圆。

三、        心得体会

每个小问题都需要自己不断地探索研究，通过思考查阅知识解决问题才是学习之道。

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