2015年VBA初级1班A组（第1节课）作业上交贴（已开贴）

josonxu

作业要求：
1.要求独自完成
2.所有的代码均写在按钮指定的过程中
3.要求代码缩进
4.要求有注释（关键代码处）
5.要求强制声明
6.上交时间：2015-6-8  19：00 （附件形式）

incrediblesky

1. Sub SpecialMsgbox()
   
2.     Dim d As Integer, s As Double
   
3.     Const pi = 3.14159
   
4.     d = 25
   
5.     s = pi * (d / 2) ^ 2
   
6.     MsgBox "圆的面积为" & s & "平方米!", vbInformation, "我的第一个VBA程序"
   
7. End Sub
   

复制代码

双修的苏摩尔

我是0基础，第一节课有事也没听完，作业不会做……

C.Deny

A14-C.Deny 第01讲作业.rar (28.17 KB, 下载次数: 12)

2015-6-8 14:25 上传

点击文件名下载附件
A14:C.Deny 上交第一讲作业，请帮忙修改并指正错误，谢谢

开心妙妙

Excel VBA 第01讲作业-A20开心妙妙.rar (24.62 KB, 下载次数: 13)

2015-6-8 13:23 上传

点击文件名下载附件

笑眼晴天

Sub specialmsgbox()

    Dim diameter As Double, pi As Double, msg As Variant

    diameter = 25

    pi = 3.1415

    msg = MsgBox("圆的面积为" & Format(pi * (diameter / 2) ^ 2, "0.00") & "平方米！", vbInformation + vbOKCancel, "我的第一个VBA程序")

End Sub

383386074

Option Explicit

Sub SpecialMsgbox() '创建一个叫做SpecialMsgbox的程序
       Const π = 3.1415926 '定义常量π=3.1415926
       Dim r As Single '定义r为单精度型或者double双精度型
       Dim s As Single '定义s为单精度型或者double双精度型
       Dim Str As String '定义str为字符串型
       r = 25 / 2 '确定r的值为25除以2
      s = π * r ^ 2 '面积的计算公式s=π * r ^ 2
      s = Round(s, 2) '对s的值取两位小树
       Str = "圆的面积为" & s & "平方米！" '字符串型Str为：圆的面积为（s的值）平方米！
       MsgBox Str, vbOKCancel + vbInformation, "我的第一个VBA程序" '选择MsgBox的类型(vbOKCancel为确定和取消选项型，vbInformation为i符号型）
End Sub '结束程序

tinty

交作业啦 学委真好 作业没有期限 我们都做得不紧不慢的 哈哈

彩玉

VBA第一次作业
Sub SpecialMsg()Const π = 3.1415926
Dim r, s As Single
r = 25 / 2
s = π * r ^ 2
s = Round(s, 2)

MsgBox "圆的面积为" & s & "平方米!", vbInformation + vbOKCancel, "我的第一个VBA程序"
End Sub

383386074

我在找我的组长