vb高手请进

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我不会

哥们，你太抠了。

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