您的位置:首页 > 编程语言 > VB

VB编程实验报告

2012-03-26 19:03 309 查看
 VB
编程实验报告










专业
教育学


姓名
王宏宏


学号 11110142018

 

 

 

 

 

 

 

 

 

 

一.               实验目的

1.                生成随机数

2.                实现大小的转换

3.                随机生成个位数

为了学习到真正的运用VB知识做题,要学会运用如何随机生成随机数,大小写的转换,生成个位数。

二.               实验内容

1.生成随机数

再窗体上放三个文本框,一个command按钮,三个label.
Label1属性是输入随机数的下界,Label2的属性是输入随机数的上界,Label3的属性是生成的随机数。


Privatesub command click ()

Dimm as integer


Dimn as integer

m=Val(Text1.text)

n=Val(Text2.text)

Text3.text=m+ Lit (Rod *(n-m+1))

EndSub

在窗体的load事件过程中调用Randomize函数

PrivateSub Form _Load ()

Randomize

     
End Sub


2.实现大小写的转换

建立Form1的属性字母转换,Label的属性是请输入英文字母,Text1的属性为空,command1的属性是转大写,command2的属性是转小写,command3的属性是还原。

a.    在通用声明中,声明模块级变量x

Dimx as string

b.   在代码窗口中选择form控件的load事件,代码程序

Privatesub form _load ()

x=Text1.text

EndSub


c.     在代码窗口中选择command1控件click
事件写代码


PrivateSub command1_click ()

Text1.text=Vcase (x)

EndSub


d.   在代码窗口中选择command2控件click
事件,编写程序。[/b]

PrivateSub command2_click ()

Text1.text=Lcase (x)

EndSub

e.     在代码窗口中选择command3控件click事件,编写程序。

PrivateSub command3_ click ()

Text1.text=x

EndSub


3.生成个位数

PrivateSub command1 _click ()

Dima, b, c as integer


Cols

Randomize

a=lnt (10* Rod)

b=lnt (100* Rod)

c=Int (1000* Rod)

Print“a =”&a

Print“b =”&b

Print“c=”&c

EndSub

三.               心得体会

     
VB的题太难做了,自己只会照着书上的做,不会自己设计,做完这三个题,我都是花了好长的时间做的,VB知识的只要我们认真的学习,VB我们相信我们一定会的。


四.               没有解决的问题

    
在随机数,大小写转换,生成个位数中,没有解决的问题还有很多,例如,不知道该怎样编写程序,我也不会编写程序,这一直是最大的问题。


五.               解决的办法

上网查找相关知识,找到问题的答案,到图书馆去找书籍,解决问题。

大二大三的学姐帮助解决问题,再加上自己的一些学习,自己也懂得一些知识。VB课程,我们一定会克服它的。
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  vb 编程 command 教育 c