2015年VBA初级1班D组第一讲作业提交帖

云子

2015年VBA初级1班D组第一讲作业提交帖

第一讲课程视频http://www.excelpx.com/thread-365414-1-1.html
第一讲作业http://www.excelpx.com/thread-365407-1-1.html

作业要求：
1、提交作业请注明论坛ID及学号。如：D14-郭郭嗯；
2、作业请以代码方式提交，标清题号并所有题贴到一个代码标签中，无需提交附件。不会使用标签可移步妙妙班长帖子：http://www.excelpx.com/thread-322284-1-1.html
3、代码题要求强制声明变量，代码缩进
4、跟帖不要重复占楼,有问题直接在原帖编辑;
5、非本组学员请勿跟帖，否者往死里扣分；
6、作业截止时间：2015年6月9日18:00时

addins

D05-Addins 交作业

1. Sub SpecialMsgbox() '过程名 SpecialMsgbox
   
2.     Dim s As Single, l As Long              '定义变量
   
3.     Const Pi As Single = 3.14159265  '定义常量
   
4.     l = 25                  '直径l赋值
   
5.     s = Round(Pi * (l / 2) ^ 2, 2)   '计算面积,Round保留两位小数
   
6.     MsgBox "园的面积为" & s & "平方米！", vbInformation + vbOKCancel, "我的第一个VBA程序"    '对话框输出结果
   
7. End Sub
   

复制代码

武林长风

1. D14：武林长风  交作业
   
2. 
   
3. Option Explicit                             '强制定义变量(如果有本句存于开始，则所有变量需定义)
   
4. Sub SpecialMsgbox()                    '子程序 SpecialMsgbox()
   
5.        Dim a As Integer, s As Single         '定义变量 a 为 整型值,s 为 Single
   
6.        Dim Str As String                          '定义变量 Str 为 字符串
   
7.        Const π As Single = 3.1415926    'Constπ 为 Single= 3的1415926
   
8.        a = 25    'a=25
   
9.        s = Round((a / 2) ^ 2 * π, 2)     's=Round((25/2)乘方次数2*π,2)
   
10.       Str = "圆的面积为" & s & "平方米！"    'Str="圆的面积为" & s & "平方米！"
    
11.       MsgBox Str, vbOKCancel + vbInformation, "我的第一个VBA程序"    '<消息框>：Str,vbOKCancel+vbInformation,"我的第一个VBA程序"
    
12. End Sub    '子程序结束

复制代码

一村之长

1. Sub SpecialMsgbox()
   
2. Dim i As Integer, str As String, 面积
   
3.     Const pi = 3.1415926
   
4.         i = 25
   
5.         面积 = Round((i / 2) ^ 2 * pi, 2)
   
6.     str = "圆的面积为" & 面积 & "平方米 !"
   
7. MsgBox str, vbOKCancel + vbInformation, "我的第一个VBA程序"
   
8. End Sub
   

复制代码

天蓝地黑

D09:天蓝地黑
上交作业

1. Sub SpecialMsgbox()
   
2.     Dim SR As String, 半径 As Single, 面积 As Single
   
3.     Const K As Single = 3.14159
   
4.     半径 = 25 / 2
   
5.     面积 = Round(K * 半径 ^ 2, 2)
   
6.     MsgBox "圆的面积为" & 面积 & "平方米!", vbInformation + vbOKCancel, "我的第一个VBA程序"
   
7. End Sub
   

复制代码

E雪无痕

Sub SpecialMsgbox()
Dim 面积 As Single, 直径 As Single
Const P = 3.14159
直径 = 25
面积 = P * (直径 / 2) ^ 2
MsgBox "圆的面积为" & 面积 & "平方米", vbExclamation + vbOKCancel
End Sub



D09:E雪无痕

contending

1. 1、Sub SpecialMsgbox()
   
2. Dim r, s As Double
   
3. Dim str As String
   
4. Const π As String = 3.1415926
   
5. r = 25 / 2
   
6. s = π * r ^ 2
   
7. s = Round(s, 2)
   
8. str = "圆的面积为" & s & "平方米！"
   
9. MsgBox str, vbInformation + vbOKCancel, "我的第一个VBA程序"
   
10. End Sub
    

复制代码

xk465592765

D20:xk465592765

1. Option Explicit
   
2. Public Sub SpecialMsgbox()
   
3.    计算圆面积
   
4. End Sub
   
5. Sub 计算圆面积()
   
6.    Const pi As Double = 3.14159265358979 '定义常量PI
   
7.    Dim r, 直径, s As Double '定义半径,周长,面积
   
8.    直径 = 25 '为变量周长赋值
   
9.    r = 直径 / 2 '计算半径
   
10.    s = pi * r ^ 2 '计算面积
    
11.    MsgBox "圆的面积为：" & Format(s, "standard") & "平方米！", 1 + 64, "我的第一个VBA程序" '显示结果
    
12. End Sub

复制代码

郭郭嗯

1. Sub aa()
   
2.     Dim s, r
   
3.         pai = 3.1415926
   
4.         r = 25 / 2
   
5.         s = pai * r ^ 2
   
6.    
   
7.     MsgBox "圆的面积为" & Round(s, 2) & "平方米！", vbOKCancel, "我的第一个VBA程序"
   

复制代码

纳哥普尔

交作业了   D23-纳哥普尔
唉，样式还是不对！学委辛苦了！

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

复制代码