vb高手请进

Question

第1题 生日
问题描述：
ZCQ老师的生日是Y年M月D日，他想知道自己出生后第一万天纪念日的日期（出生日算第0天）。
分别输入Y，M，D（分别代表年、月、日），日期绝对合法。
(1900<=Y<=2008,1<=M<=12,1<=D<=31)
输出ZCQ老师生日第一万天以后的日期，格式为“Y-M-D”。
（注意年月日之间用横线连接）
样例输入输出：
输入样例： 输出样例：
1979 4 16 2006-9-1

第2题 数字三角
问题描述：
中山市迎接2010年亚运会活动将要在兴中体育场举行，市教育局为每个学校安排了一个区域，每个学校的同学都要坐在自己学校的区域内。
分给成功小学的区域是个等边三角型，这不是不重视成功小学，而是把难题给了成功小学，就是因为成功小学的同学更加优秀，因此这点小问题是难不倒他们的。大家根据座位区域，一下就设计出了以下座位安排方案：
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
……
我们可以看出，1号同学应该坐第一排的第一个，它的座标是（1，1）。而8号同学在第四排的第二个，它的座标是（4，2）。
现在的问题是，我们怎么样才能知道任意一个同学到底坐在哪个座位上（即这个座位的座标）呢？
我想，这个问题可难不倒你，你能编写一个程序帮助成功小学的同学解决这个问题吗？
输入一个整数N（1<=N<=32767），表示第N个同学。
输出两个整数i，j，中间用一个空格隔开，表示第N个同学的座位在第i行的第j个位置。
样例输入输出：
输入样例： 输出样例：
5 3 2

第3题 投票
问题描述：
X国的重大决议都是通过议会投票通过，议会里面投票者被分成K个组，如果超过半数的组投赞成票，决议就可以通过。 每组是投赞成票还是反对票也由每组内部投票决定，若这一组有超过半数的人投赞成票，那么这一组就投赞成票。
例如有3组，分别有5,7,5人，那么，至少要有6个人赞成决议才能通过（即第一组和第三组各三人）。 注意到共有17人，只需要6人赞成就有可能通过。
编写程序，告诉你组数和每组的人数，计算通过决议至少需要多少人赞成。
先输入一个整数K，（K<=15）；表示组数；然后输入K个整数，分别表示每组的人数。
输出一个整数表示决议通过至少所需的人数。
输入输出样例 ：
输入样例： 输出样例：
3
5 7 5 6

大家尽快帮我搞定，谢谢

Answer 1

1
var
y,m,d,t:longint;
function day(k:longint):longint;
var
days:longint;
begin
case m of
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2:if ((y mod 4=0) and (y mod 100<>0)) or ((y mod 100=0) and (y mod 400=0)) then days:=29
else days:=28;
end;
day:=days;
end;
begin
readln(y,m,d);
t:=10000;
repeat
t:=t-1;
d:=d+1;
if d>day(m) then begin
d:=1;
inc(m);
end;
if m>12 then begin
m:=1;
inc(y);
end;
until t=0;
writeln(y,'-',m,'-',d);
end.
2
var
i,n:longint;
begin
readln(n);
i:=0;
while n>0 do
begin
inc(i);
dec(n,i);
end;
writeln(i,' ',i+n);
end.
3我不会

Answer 2

哥们，你太抠了。

Answer 3

不用重装的，只是你的CommonDialog这个控件没有注册到你的机器上，去网上下载一个Comdlg32.OCX或Comdlg32.dll控件，然后复制到C:\windows\system32下，然后在“开始→运行”中键入"regsvr32
Comdlg32.dll”命令或"regsvr32
Comdlg32.OCX”命令注册一下即可，然后就可以使用了，或者你到装有这个控件的同学的电脑上考一个过去，再注册一下就行了