显示个位数 大小写转换 生成随机数

一．实验目的

为了实现显示个位数，满足题目需要，实现VB语言程序的运作,最后实现个位数的显示

二．实验内容

显示各位数

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

编写程序代码:                       

双击命令按钮，输入:

Dim star as string

Star=text1.text

Text2.text=left(stra,1)

Text3.text=mid(stra,2,1)

Text4.text=right(stra,1)

 

大小写转换

 （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 AsInterger

  Dim n AsInterger

  M=Val(Text1.Text)

  N=Val(Text2.Text)

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

End Sub

三．心得体会

   Vb很难自行运用，需要大量的练习

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

  不会自主编程，上网学习

五．没有解决的问题

  不能熟练自行编程，不够熟练