计算机

实验报告

系别：11级教育学院

班级：教育学2班

姓名：任亚茹

日期：2012.03.20

一．实验目的

二．实验内容

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

2.作业二：大小写转换

（1）界面设计

单击“CommandButton”画三个命令按钮，单击“TextBox”画一个文本框，单击“label”画一个标签。

（2）属性设置

将label1属性改为请输入英文字母，将text1属性改为任意英文单词，command1改为转大写，command2改为转小写，command3改为还原。

（3）编写代码

①  在通用声明段中，声明模块级变量x

Dim x as String

②  在“代码”窗口中选择Form控件的Load事件，

Private SubForm_Load()

   X=Text1.Text

   End Sub

③  在“代码”窗口中选择Command1控件的Click

Private Sub Command1_Click()

   Text1.Text = UCase(x)

End Sub

④  在Command2控件的Click，编写

Private Sub Command2_Click()

   Text1.Text = LCase

End Sub

⑤  在Command3控件的Click，编写

Private Sub Command3_Click()

  Text1.Text = x

End Sub

作业三：生成随机数

（1）界面设计

单击工具箱“CommandButton”控件，在窗体上拖动鼠标添加一个命令按钮；单击“TextBox”画三个文本框；单击“abl”画三个标签。

在窗体上放置三个文本框，分别用于输入随机数的下界和上界，显示生成的随机整数；一个命令按钮用于执行随机整数的生成和显示

（2）属性设计

将Command1属性改为生成随机数，label1改为请输入随机数的下界，label2改为请输入随机数的下界，label3改为生成的随机数，text1，text2，text3改为空白。

（3）编写程序代码

Private Sub Command1_Click()

  Dim m As Interger

  Dim n As Interger

  M =Val(Text1.Text)

  N =Val(Text2.Text)

  Text3.Text=m+Int(Rnd*(n-m+1))

End Sub

三．心得体会

   其实上VB课也挺长时间了，总之就觉得这门课程挺难得，似乎每节课必须去认真听讲，否则就什么也不会，总之一句话，做任何事都得认真，否则就会失败。

四．遇到的问题及解决问题的办法

  其实问题挺多的，好多不会的。有的问题翻书解决的，还有问题是通过上网查询的，问同学解决不会的问题。

五．没有解决的问题

  好多不会的感觉这门课程还没入门