VB编程实验报告

 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 事件,编写程序。

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记事本完整的实验报告

2010年06月14日 8KB 下载

大学VB课程的实验报告

2009年03月21日 12.63MB 下载

哈夫曼 编程 数据结构 实验报告

2010年06月08日 106KB 下载

VB 编程入门教程(强烈推荐)

2010年08月27日 729KB 下载

没有更多推荐了,返回首页

不良信息举报

VB编程实验报告

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭