关闭

计算机

标签: commandtextbox作业教育stringvb
69人阅读 评论(0) 收藏 举报

 

 

 

 

 

实验报告

 

 

 

系别: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改为生成的随机数,text1text2text3改为空白。

(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课也挺长时间了,总之就觉得这门课程挺难得,似乎每节课必须去认真听讲,否则就什么也不会,总之一句话,做任何事都得认真,否则就会失败。

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

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

五.没有解决的问题

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:5745次
    • 积分:240
    • 等级:
    • 排名:千里之外
    • 原创:21篇
    • 转载:0篇
    • 译文:1篇
    • 评论:0条
    文章存档