关闭

显示各位数

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

   Dim stuname as string

      Dim Maths As Integer ,Eng ASinteger , 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

0
0

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