计算机实验报告

原创 2012年03月24日 13:54:37

计算机实验报告

专业:11级教育学

班级:一班

姓名:张漫

学号:11110141024

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

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

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

五、 没有解决的问题

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

实验二:大小写的转换

一、实验目的:

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

三、 心得体会

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

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

不了解编写能动图形的程序

通过百度资料得以解决

五、 没有解决的问题

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

计算机技术课实验报告9

实验目的: 1>.写一个程序:输出一个直角三角形(上三角),行数由用户输入,如图1所示: 2>.写一个程序:输出一个直角三角形(下三角),行数由用户输入,入图2所示: 3>.写一个程序:输出一个...

计算机技术课实验报告(4)

实验目的: 1.  输入一个数字,使用if语句判断匹配的数字。 如果输入的是: 1>. 打印:您输入的数字是1 2>. 打印:您输入的数字是2 3>. 打印:您输入的数字式3 其他数字 打...

计算机技术课实验报告(1)

实验目的: 已知学生有学号,姓名,性别,年龄,身高,体重六项基本信息,依次从键盘录入该学生信息,完成后输出该生详细信息。 实验代码: public class daiMa1 { public...

计算机技术课实验报告13

实验目的: 实现一个计算器,用户从键盘输入两个操作数和一个运算符(+、-、*、/、%),系统自动完成计算 实验代码: public class daiMa13 { public static...

计算机组成原理 - 实验报告

第一次实验 手动实验环境 十六位机运算器实验 第二次实验 通用寄存器实验 准双向I/O口实验 地址总线组成实验 第三次实验 十六位数据总线实验 存储器读写实验 指令总线运用实验 第四次实验 微...

计算机技术课实验报告7

实验目的: 从键盘上输入一个年份,并输入一个月份,计算从当前年份1月1号只当前第month个月共有多少天(如输入年份为2011,月份为3月,则计算,从1月1号到3月1号共多少天。输入年份为2004,...

计算机技术课实验报告(2)

实验目的: 张三要购买T恤,T恤单价及数量由用户输入,李四要购买网球,网球单价及数量由用户输入; 计算张三及李四各自消费总额并输出. 实验代码: public class daiMa2 { ...

计算机系统基础(bomb实验报告)

山东大学 计算机系统基础实验报告bomblab一、实验目的1) 理解arm汇编语言,学会使用调试器。 2) 熟悉安卓开发板的使用和环境配置; 3)熟悉并掌握在linux系统下的shell命令使用...

计算机网络实验报告

  • 2014-10-31 09:52
  • 628KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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