【201401VBA初级】第二讲作业B组上交贴（已开贴）

雪舞子 · 发表于 2014-4-18 09:34

本帖最后由雪舞子于 2014-4-23 15:03 编辑

201401VBA初级班第二讲B组学员作业请提交：

注意：
1、提交作业请注明论坛ID及学号。如：B15-暖；
2、作业请以代码方式提交，标清题号并所有题贴到一个代码标签中，无需提交附件。不会使用标签可移步妙妙班长帖子：http://www.excelpx.com/thread-322284-1-1.html
3、代码题要求强制声明变量，代码缩进及代码注释(缺少任何一项按错误处理没有分)；
4、跟帖不要重复占楼,有问题直接在原帖编辑;
5、非本组学员请勿跟帖，否者不予理会；
6、作业截止时间：2014年4月22日晚8:00。时间紧任务重，请同学们抓紧时间。

ccq000000 · 发表于 2014-4-18 11:44

本帖最后由 ccq000000 于 2014-4-18 21:13 编辑

误操作了,抱歉.

qh8600 · 发表于 2014-4-18 12:12

本帖最后由 qh8600 于 2014-4-18 16:35 编辑

B03-qh8600

Option Explicit '强制声明变量
Enum xq '设置枚举数据类型
Sum = 7 '分别给枚举数据类型的序列赋值
Mon = 0
Tues = 2
Wen = 3
Thur = 4
Fri = 5
Sat = 6
End Enum
Type xszl '设置自定义数据类型
rxdate As Date '分别给常量定义数据类型
name As String
age As Integer
pjf As Long
End Type
Sub demo1()
Dim a As xq '声明变量a为枚举类型xq
a = Wen '把枚举类型的序列Wen赋值给变量a
MsgBox a '用MsgBox函数输出Wen的常量
End Sub
Sub demo2()
Dim aa As xszl '声明变量aa为自定义数据类型xszl
aa.rxdate = "2013-9-1" '分别给自定义数据类型xszl的常量赋值
aa.name = "张三"
aa.age = 18
aa.pjf = 95
Debug.Print aa.rxdate '打印出入学日期
End Sub

复制代码

无影无形 · 发表于 2014-4-18 13:19

Option Explicit '强制声明变量
'第一题定义枚举类型
Enum WeekDay '定义枚举类型
Sum = 7 '设置枚举项并定义该项对应的常量值
Mon = 0
Tues = 2
wen = 3
thur '未设置的常量会根据上一个枚举项常量值依次顺延，经测试很正确
Fri
sat
End Enum '结束枚举定义

复制代码

'********************************************************

'第二题自定义类型
Type studentinfor '设置一个自定义类型
studay As String '设置自定义类型下的方法属性，这里将学生入学日期设置为字符串类型了
stunam As String '学生姓名为字符型所以设置为字符串类型
stuAge As Byte '学生年龄为小于255的整数数字，所以设置为单精度型、无符号整型
stuave As Integer '平均值不知道大概范围在多少，所以设置为长整型整数
End Type '结束自定义设置

复制代码

'********************************************************

'第三题输出枚举类型
Sub test() '建立一个测试枚举类型的过程
Dim weekd As WeekDay '定义变量weekd
weekd = wen '给变量赋值
MsgBox weekd '以对话窗口形式输出变量的值
End Sub '结束过程

复制代码

'********************************************************

'第四题打印入学日期
Sub test1() '建立一个测试自定义类型的过程
Dim stu As studentinfor '为测试建立一个自定义类型的变量stu（不知道怎么解释这句才合适）
stu.studay = "2014-4-17" '通过变量stu给自定义类型赋值（同上）
stu.stunam = "无影无形"
stu.stuAge = "88"
stu.stuave = "108"
Debug.Print stu.studay '通过debug.print函数在立即窗口打印出学生的入学时间
End Sub '过程结束

复制代码

'*******************************************************
' 回答完毕，学委辛苦了，谢谢

云影 · 发表于 2014-4-18 13:21

本帖最后由云影于 2014-4-18 13:32 编辑

B11-云影

Enum 第一题
Sun = 7 '改变默认值
Mon = 0
Tues = 2
Wen
Thur
Fri
Sat
End Enum

复制代码

Type 第二题
入学日期 As Date '定义数据类型
姓名 As String
年龄 As Byte
平均分 As Byte
End Type

复制代码

Sub 第三题()
MsgBox 第一题.Wen '提示框显示数值
End Sub

复制代码

Sub 第四题()
Dim 第四 As 第二题
第四.入学日期 = #1/1/2014#
第四.姓名 = "张三"
第四.年龄 = 18
第四.平均分 = 95
Debug.Print 第四.入学日期 '立即窗口显示
End Sub

复制代码

蓝粆 · 发表于 2014-4-18 14:12

本帖最后由蓝粆于 2014-4-20 00:22 编辑

1、

Option Explicit '强制声明变量
Enum 星期 '创建枚举过程
sun = 7 '赋值
mon = 0 '
tues = 2 '
wen = 3 '
thur = 4 '
fri = 5 '
sat = 6 '
End Enum '结束过程

复制代码

2、

Type stuinf '创建自定义过程
sturx As Date '定义变量类型
stuname As String
stuage As Byte
stuaversco As Integer
End Type '结束过程

复制代码

3、

Sub 枚举()
Dim xq As 星期 '定义变量类型
xq = wen '给变量赋值
MsgBox xq '信息框输出对应值
End Sub

复制代码

4、

Sub 信息() ' 创建过程
Dim stu As stuinf
stu.sturx = #9/1/2014# '赋值
stu.stuname = "王老五"
stu.stuage = 18
stu.stuaversco = 87.5
Debug.Print stu.sturx '在立即窗口打印出需要的结果
End Sub '结束过程

复制代码

我真的没醉 · 发表于 2014-4-18 16:05

本帖最后由我真的没醉于 2014-4-20 08:35 编辑

ＥＰ2014Ｖ初班Ｂ组017我真的没醉交作业

第一题：
Enum workdays 'enum 作为关键字用于声明枚举,这里声明了变量workdays一个星期
Sun = 7 '枚举值星期天,赋值7
Mon = 0 '枚举值星期一,赋值0
Tues = 2 ' 枚举值星期二,赋值2
wen = 3 '枚举值星期三,赋值3
Thur = 4 '枚举值星期四,赋值4
Fri = 5 '枚举值星期五,赋值5
Sat = 6 '枚举值星期六,赋值6
'枚举元素本身由系统定义一个表示序号的数值,从0开始顺序定义为0，1，2…。_
'原本在weekdays中，sun值为0，mon值为1，…,sat值为6　此时已直接赋值7、0、2、3、4、5、6
End Enum '枚举结束
第二题:
Type stuinfo '声明了stuinfo这样一个自定义变量
studate As Date 'studate　入学日期，定义为日期型
stuname As String 'stuname 姓名　　定义为字符型
stuage As Integer 'stuage 年龄　　定义为整型
stuavv As Single 'stuavv 平均分　定义为单精度浮点型
End Type '自定义结束
第三题：
Enum workdays 'enum 作为关键字用于声明枚举,这里声明了变量workdays一个星期
Sun = 7 '枚举值星期天,赋值7
Mon = 0 '枚举值星期一,赋值0
Tues = 2 ' 枚举值星期二,赋值2
wen = 3 '枚举值星期三,赋值3
Thur = 4 '枚举值星期四,赋值4
Fri = 5 '枚举值星期五,赋值5
Sat = 6 '枚举值星期六,赋值6
'枚举元素本身由系统定义一个表示序号的数值,从0开始顺序定义为0，1，2…。_
'原本在weekdays中，sun值为0，mon值为1，…,sat值为6　此时已直接赋值7、0、2、3、4、5、6
End Enum '枚举结束
Sub test1() '声明test1这样一个过程，
Dim workday As workdays '定义workday变量类型为workdays型
workday = wen '把wen赋值给workday
MsgBox workday '利用输出函数msgbox来显示workday的内容
End Sub '过程结束
第四题：
Type stuinfo '声明了stuinfo这样一个自定义变量
studate As Date 'studate　入学日期，定义为日期型
stuname As String 'stuname 姓名　　定义为字符型
stuage As Integer 'stuage 年龄　　定义为整型
stuavv As Single 'stuavv 平均分　定义为单精度浮点型
End Type '自定义结束
Sub test2() '声明test2一个过程
Dim stu As stuinfo '定义变量stu.类型为stuinfo
stu.studate = 2014 / 4 / 18 '入学日期为2014/4/18
stu.stuname = "张三" '姓名：张三
stu.stuage = 20 '年龄：20
stu.stuavv = 90 '平均分：90
Debug.Print stu.studate '在立即窗口中显示入学日期
End Sub '过程结束

复制代码

ccq000000 · 发表于 2014-4-18 21:13

本帖最后由 ccq000000 于 2014-4-18 22:08 编辑

Option Explicit '变量强制申明
'第一题
Enum 定义星期 '开始语句(枚举类型的名称)
Sun = 7 '赋值(下同)
Mon = 0
Tues = 2
Wen = 3
Thru = 4
Fri = 5
Sat = 6
End Enum '结束语句
'第二题
Type stuData '开始语句(自定义类型的名称)
stuDate As String '学生入学日期
stuName As String '学生姓名
stuAge As Integer '学生年龄
stuGrade As Single '学生平均分
End Type
'第三题
Sub aa() 'sub名
Dim x As 定义星期 '定义一个枚举类型的变量x
x = Wen '给x赋值
MsgBox x '输出x的值
End Sub 'sub程序结束
'第四题
Sub bb() 'sub名
Dim student As stuData '定义一个stuData自定义类型的变量student
student.stuDate = "2000年3月1日" '学生入学日期
student.stuName = "学习粉丝团" '学生姓名
student.stuAge = 7 '学生年龄
student.stuGrade = 60.5 '学生平均分
Debug.Print student.stuDate '打印学生入学日期
End Sub 'sub程序结束

复制代码

云子 · 发表于 2014-4-18 23:09

Option Explicit '强制要求声明变量
Enum workdays '定义workdays为枚举型，并初始化
sun = 7
mon = 0
tues = 2
wen
thur
fri
sat
End Enum
Type stuinfor '定义stuinfor为自定义型
enrdate As Date
stuname As String
stuage As Byte
avrscore As Single
End Type
Sub mysub1()
Dim workday As workdays '声明workday为枚举型变量
Debug.Print sun, mon, tues, wen, thur, fri, sat '打印workday中各元素的值
MsgBox wen '输出wen的值
End Sub
Sub mysub2()
Dim i As stuinfor '声明i为自定义型变量，并赋值
i.enrdate = #4/1/2014#
i.stuname = "yunzi"
i.stuage = 23
i.avrscore = 100
Debug.Print i.enrdate '打印入学日期
End Sub

复制代码

tianyiyi · 发表于 2014-4-19 07:31

本帖最后由 tianyiyi 于 2014-4-20 15:14 编辑

学委辛苦，交作业了{:171:}B09:tianyiyi 第一题，第三题

Enum wakdays '定义枚举类型
Mon
Tuse = 2
wen
Thur
Fri
Sat
SUN
End Enum
Sub demo1()
Dim wakday As wakdays '定义变量
warkday = wen
MsgBox warkday '输出wen的常量
End Sub

复制代码

第二题，第四题

Type stuInfor '定义自定义类型
studate As String
stuname As String
stuage As Integer
stuaver As single
End Type
Sub dome1()
Dim stu As stuInfor '定义变量
stu.studate = #9/1/2014# '学生入学日期赋值
stu.stuname = "李四" '学生姓名赋值
stu.stuage = 18 '年龄赋值
stu.stuaver = 90 '平均分赋值
Debug.Print stu.studate '打印入学日期
End Sub

复制代码

		自动登录	找回密码
密码			注册

[习题] 【201401VBA初级】第二讲作业B组上交贴（已开贴）

相关帖子

点评

评分

B12：无影无形

点评

评分

点评

评分

点评

评分

点评

评分

B-14ccq000000

点评

评分

评分

点评

评分