江湖x通玄神功70点根骨:谁能给我一个基于VC的对话框的计算时间间隔的完整程序

来源:百度文库 编辑:高校问答 时间:2024/04/28 00:45:08
谁能给我一个基于VC的对话框的计算时间间隔的完整程序
用日期控件的

Var
b,a,n:Integer;
c:Array [1..100] Of Longint;
Begin
c[1]:=1;
For b:=1 To 100 Do
Begin
For a:=1 To 100 Do
c[a]:=c[a]*2;
For a:=1 To 100 Do
If c[a]>=10 Then
Begin
c[a]:=c[a]-10;
c[a+1]:=c[a+1]+1;
End;
End;
n:=0;
For b:=100 Downto 1 Do
If (c[b]<>0) And (n<b) Then
n:=b;
For b:=n Downto 1 Do
Write(c[b]);
Writeln;
End.