Question

【急】VB中利用输入框输入用户名和真实姓名.并显示在标签框中代码？

现在正在进行VB考试，请大家火力支援啊！！！！还有一个小时交卷啊！！！！！！！
大家会几道题，帮忙写几道吧！我感谢你们八倍祖宗！！！Orz...

我愿意追+分100啊！！！！
一、利用输入框输入用户名和真实姓名，并显示在标签框中，如输入“zhangsan”，“张三”,在标签框中显示：”zhangsan真实姓名为：张三”

二、判断节日。文本框输入年、月、日，判断是否为元旦，五一，五四，六一，七一，八一，十一
如输入的日期为2011年6月1日，则显示“今天是六一儿童节”。

三、随机产生10个100以内的数并求出最大值。

Answer 1

太夸张了吧。。

Answer 2

一、
Private Sub Command1_Click()
Label1.Caption = Text1.Text & "的真实姓名为" & Text2.Text
End Sub
二、
Private Sub Command1_Click()
Label1.Caption = "今天不是节日"
If Val(Text2.Text) = 1 And Val(Text3.Text) = 1 Then Label1.Caption = "今天是元旦"
If Val(Text2.Text) = 5 And Val(Text3.Text) = 1 Then Label1.Caption = "今天是劳动节"
If Val(Text2.Text) = 5 And Val(Text3.Text) = 4 Then Label1.Caption = "今天是青年节"
If Val(Text2.Text) = 6 And Val(Text3.Text) = 1 Then Label1.Caption = "今天是儿童节"
If Val(Text2.Text) = 7 And Val(Text3.Text) = 1 Then Label1.Caption = "今天是建党节"
If Val(Text2.Text) = 8 And Val(Text3.Text) = 1 Then Label1.Caption = "今天是建军节"
If Val(Text2.Text) = 10 And Val(Text3.Text) = 1 Then Label1.Caption = "今天是国庆节"
End Sub
三、

Private Sub Form_Load()
Dim r As Integer '临时存储随机数
Dim max As Integer '存储最大值
Me.AutoRedraw = True
Randomize
r = Int((100 + 1) * Rnd + 0)
max = r
Print r
For i = 1 To 9
r = Int((100 + 1) * Rnd + 0)
Print r
If r > max Then max = r
Next i
Print "最大值为：" & max
End Sub

需要文件的话qq联系

Answer 3

一、
dim n1 as string,n2 as string
n1=inputbox("用户名")
n2=inputbox("真实姓名")
label1.caption=n1 & "真实姓名为：" & n2
二、
select cstr(month(text1.text)) & "-" & cstr(day(text1.text))
case 1-1:print "今天是元旦"
case 5-1:print "今天是五一劳动节"
case 5-4:print "今天是五四青年节"
case 6-1:print "今天是六一儿童节"
case 7-1:print "今天是党的生日"
case 8-1:print "今天是八一建军节"
case 10-1:print "今天是国庆节"
end select
三、
dim a(10) as integer,max as integer,i as integer
for i=0 to 9
a(i)=RND *11
if max<a(i) then max=a(i)
next
print "最大值=" & max