申请会员：taotaolin （补充）【申请不通过】

发表于 2012-6-24 19:35

1、申请 I D ：taotaolin
2、个人邮箱：752739086@qq.com
3、自我简单介绍及主要作品链接：本人是一位高中生，爱好VB，C，破解等，现在还在学VB和汇编的知识；
4、申请时间：2012年6月22日
5、备注：请管理人员审核，谢谢！
H大，下午想了想，凌晨投稿的作品有点简单。。。想了很久，应为学校只教数学应用上的VB编程。。。所以用下午的时间
找了个自己书上题目做。
题目如下：从键盘输入某一学生姓名,修读《信息技术基础》和《算法与程序设计》两门信息技术课的成绩，求学生的平均成绩，并输出学生姓名，两门课的成绩和平均成绩。（要求：使用自定义数据类型和自定义函数）
我做的代码：(注：代码中label和text已经按照题目要求更改其Caption值了)
'以下程序在模块Module中编写
'声明自定义数据类型
Type student
Name As String '姓名
ITBase As Single '信息技术基础
AGProgram As Single ’算法与程序设计
Aver As Single ’平均成绩
End Type
Dim ret'临时变量，存放函数返回值
'主程序
Sub Main( )
Dim stu As Student '声明自定义类型变量stu
'输入姓名和成绩
stu.Name = InputBox("请输入姓名：")
stu.ITBase = Val(InputBox("请输入信息技术基础成绩："))
stu.AGProgram = Val(InputBox("请输入算法与程序设计成绩：")
ret = Average(stu)'求平均成绩
ret = Show(stu) '显示成绩
End Sub
'显示结果
Public Function Show(st As Student)
MsgBox "姓名："& st.Name & "信息技术基础：" & st.ITBase & "算法与程序设计" & st.AGProgram & "平均成绩" & st.Aver
End Function
'求平均成绩
Public Function Average(st As Student)
st.Aver = (st.ITBase + st.AGProgram) / 2
End Function

Hmily 发表于 2012-6-24 23:22

http://www.52pojie.cn/thread-153760-1-1.html不通过，先把三字经学好再说！

发表于 2012-6-24 23:51

Hmily 发表于 2012-6-24 23:22 static/image/common/back.gif
不通过，先把三字经学好再说！

{:1_921:}未进吾爱，先上一课。谢谢H大的教诲。。。H大教会了我做人的道理！{:301_993:}也希望H大能原谅上次我的错误。我不会放弃的，也不会利用开放注册的时间。整装好我还会拿着自己原创作品来申请会员……希望吾爱每一位管理都能像H大一样负责！H大，等着我的再次来稿……

发表于 2012-6-24 23:54

我会用自己的作品来取得帐号的！

Sound 发表于 2012-6-25 20:44

论坛是开放性论坛就是为大家提供学习交流的地方

论坛也很宽容楼主希望您可以用您的实力来证明自己

期待以后可以看到您在论坛的身影

yang0317 发表于 2012-6-25 21:10

yuyaopo 发表于 2012-6-25 21:14

赞一个哈，精神可嘉

Yewn 发表于 2012-6-25 23:31

吓死了 ~如此小学生也可以出VB绿卡

OiO 发表于 2012-6-25 23:39

{:301_997:}为什么要申请会员呢

玛纳斯 发表于 2012-6-25 23:40

{:1_921:}

页: [1] 2

吾爱破解 - 52pojie.cn's Archiver

申请会员：taotaolin （补充）【申请不通过】