关闭

VB实验报告

667人阅读 评论(0) 收藏 举报

                                                                                                              VB实验报告一

                                                                                              

 

一.                实验目的

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

二.                实验内容

1.生成随机数

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

Private sub command click ()

Dim m as integer

Dim n as integer

m=Val (Text1.text)

n=Val (Text2.text)

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

End Sub

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

Private Sub Form _Load ()

Randomize

      End Sub

 

 

2.实现大小写的转换

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

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

Dim x as string

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

Private sub form _load ()

x=Text1.text

End Sub

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

Private Sub command1_click ()

Text1.text=V case (x)

End Sub

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

Private Sub command2_click ()

Text1.text=L case (x)

End Sub

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

Private Sub command3_ click ()

Text1.text=x

End Sub

 

 

3.生成个位数

Private Sub command1 _click ()

Dim a, 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

End Sub

三.                心得体会

      VB的题太难做了,自己只会照着书上的做,不会自己做,做完这三个题,我都是花了好长的时间做的,不过我一定会努力学习VB的,我相信自己有能力学好,加油

四.                没有解决的问题

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

五.                解决的办法

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

大二大三的学姐帮助解决问题,再加上自己的一些学习,自己也懂得一些知识。VB课程,我们一定会克服它的。

    

 

 

 

0
0

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

    Bulesky993: 呵呵!今天老师给我们讲解了两位数乘法的编程程序,这是我上那么久的VB课以来第一次差不多听懂的。太高兴...