一道VB题,求大神帮忙!!在线等。。。

创建一个项目,项目的名称为“Student”,该项目中定义一个学生类Student(建议将该类定义为一个独立的.vb文件),该类包含的成员如下:
(1)两个公有数据成员分别表示姓名(name)和性别(sex),一个私有数据成员表示成绩(score)。
(2)一个可读写私有数据成员score的公有属性Scoret。
(3)一个公有方法Result,该方法用于返回一个字符串。当成绩大于等于80分时Result()方法返回“你很棒”字符串,否则为“继续努力!”字符串。
最后在该项目的窗体中使用Student类来创建对象s1,通过文本框设置对象s1的姓名(name),单击“确定”按钮,在标签中根据对象是s1的成绩显示相应的信息(“你很棒”或者“继续努力!”)
谢谢!!!

第1个回答  2013-05-31
干嘛不用数据库做啊?追问

啥是数据库??不会。。

追答

Access

本回答被提问者采纳

VB 问题...在线等...
x= 70 y= 70 a= 70 b= 70 2、如果输入5则输出10,否则输出 输入的数+2 3、S=6 S=15 S=24 W=3 K=11

VB问题 在线等着.速度 等着交呢.
1,'学生成绩 x=90 '任意了 if x>=90 then word="优秀"end if if x>=80 then word="良好"end if if x>=70 then word="中"end if if x>=60 then word="及格"end if if x<60 then word="不及格"end if '程序向下覆盖,这样可以输出正确的 print word '输出 2,'物体 t=90 d...

VB简单题!!急在线等快考试!请解释清楚哦!无限感激!救人一命胜造n级...
第二题,x是全局变量所会被送入子程序里,所子程序f里的x=10;y不是全局变量,所以子程序f里的y=0,由于子程序f是传地址的,所以调用程序里的x,y会被子程序f的计算结果所更改x=10+2,y=0+2。第三题,由于没有定义变量,所以A、B、C均为变体变量(又称万能变量),又由于给它们赋值的是字...

Vb问题 求大神指点
4、C Show 是显示窗体 UnLoad 是卸载窗体 Load 是加载窗体 Hide 是隐藏窗体 6、D 身份证 6位地区码+8位出生日期+3位流水+1位校验码 ①身份证位数比较长 ②校验码可能出现X 8、A ①变量名不能包含+ - * \/ !@ # ¥ ?小数点 等字符,且长度不能超过255 所以 B 是错误的 ②变量必须是...

求大神解答这道vb题目 谢谢!!
回到题中,年龄要算到 65 岁,那么还是一样使用 CalcSalary 中的第三个默认参数:Debug.Print "Based on starting salary of 20000," & vbCrLf & "Helen will earn about $" & CStr(CalcSalary(20000, 25)) & " from age of 25 to 65."输出结果应该是 Helen 从 25 岁到 65 岁能赚到 ...

VB选择题,高手来!!!在线等,求指导,求解答。
1、B(还可以以编译程序的方式运行)2、A(word、excel、access都可用VBA)3、B(exp:指数函数,返回值是小数;left:字符串;ucase:字符串;acs:整数;int:整数(或货币);len:整数;sgn:整数;str:字符串;rtrim:字符串;fix:整数(货币);chr:字符串;lcase:字符串),具体什么函数...

求VB大神帮帮忙,解一下两个编程题!在线等,急!拜托了,谢谢(ฅ>ω<*...
第二题:Dim str As StringPrivate Sub Command1_Click()Form1.Clsstr = InputBox(请输入五分制成绩等级, 请输入五分制成绩等级, "A")If str = "A" Then Print "大于等于90分"ElseIf str = "B" Then Print "80分到90分之间"ElseIf str = "C" Then Print "70分到80分之间"...

VB求解,不太懂。求具体的。谢谢啦。高分送上,在线等。
Dim x As Byte Open "d:\\0.dat" For Binary As #1 For i = 1 To 50 x = Int(Rnd * 91) + 10 Put #1, , x Print x;If i Mod 10 = 0 Then Print Next i Print Close #1 End Sub Private Sub Command2_Click()Dim x As Byte Open "d:\\0.dat" For Binary As #1 Max ...

跪求VB大师进 很简单的 在线等!!
left(a,b)表示左边b个,right是右边,ucase是转大写 最后一次循环,i=2 x=mid(a,2,2)=bb y=left(a,2)=ab z=right(a,2)=ba 最后一句Z=ucase(x&y&z)连接上面几个再转大写,所以是BBABBA 2。主要是这段:x=1 For i=1 To 3 If i<=1 then a=x*x If i<=2 then a=x*x+...

VB怎么做 在线等!!!
第一题:Dim i As Integer, j As Integer, k As Integer, n As Integern = InputBox("n=")k = 64PrintFor i = 1 To n For j = 1 To i k = k + 1 Print Chr(k); Next j PrintNext i第二题:Dim i As Integer, j As Integer, n As Integer n = In...

相似回答