计算机实验报告
专业:11级教育学
班级:一班
姓名:吕春锋
学号:11110141029
日期: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控件绘制了一个圆。
三、 心得体会
每个小问题都需要自己不断地探索研究,通过思考查阅知识解决问题才是学习之道。
四、 遇到的问题及解决的方法
不了解编写能动图形的程序
通过百度资料得以解决
五、 没有解决的问题
无