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

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

http://www.52pojie.cn/thread-153760-1-1.html

不通过，先把三字经学好再说！

Hmily 发表于 2012-6-24 23:22
不通过，先把三字经学好再说！

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

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

Sound

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

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

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

yuyaopo

赞一个哈，精神可嘉

Yewn

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

OiO

为什么要申请会员呢

玛纳斯