实验报告1

 

系别:电子信息科学与技术  班级:电子2班  姓名:张猛   日期:3月18号

学号:11050242037

一:试验目的

1 显示各位数

2 大小写转化

3 随机数

二:实验内容

   1先界面设置和属性设置

   2编写代码

     1显示数:

      Dim stuname as string

      Dim Maths As Integer ,Eng AS integer , s Integer

      Private Sub command1_Click

       Stuname=InputBox

       Maths= InputBox

        Eng= InputBox

      Compu = InputBox

         Label1.Caption=StuName

         Label1.Text = Maths

        Label2. Text =,Eng     

 Label3. Text = Compu

         Label4. Text = Maths +Eng+ Compu   

         Label5. Text = (Maths +Eng+ Compu)/3

      End Sub

       2大小写

         Dim x as string

        Private Sub form _load()

           X=Text1.Text

        End Sup

Private Sub command1_Click

              Text1.Text=Ucase(x)

        End Sup

      Private Sub command2_Click

         Text1.Text=Lcase(x)

       End Sup

         Private Sub command1_Click

           Text1.Text=x

End Sup 

        3随机数

 Private Sub command1_Click

 Dim m as string

Dim n as string

M=Val(Text1.Text)

n=Val(Text1.Text)

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

    End Sup

三:心得体会

   1随机数要用到Rnd(x)的函数

   2 转大写为Ucase,转小写为Lcase

   3输入框为InpuBox

四:解决问题

在编完代码后无法执行程序,逐项检测各个阶段编码,找到问题的所在。以后还得多多练习。

五:没有解决的问题

    不知道函数的正确使用方法,只知道安课本的步骤作,以后要灵活应用,举一反三,多多看课本或者视频来学习vb编程。

阅读更多
文章标签: vb 编程
想对作者说点什么? 我来说一句

北理工数据结构实验报告1

2011年12月11日 62KB 下载

软件测试 实验报告1

2010年03月02日 42KB 下载

LL1文法分析实验报告

2009年04月09日 168KB 下载

数据结构实验报告

2012年02月19日 1.42MB 下载

编译原理SLR(1)语法分析实验报告

2013年06月24日 115KB 下载

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

不良信息举报

实验报告1

最多只允许输入30个字

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