面试题目，请求解答！

您好，請先閱讀「回覆試題注意事項」並以VB 6完成下列試題，物件請按括號內指定的名稱命名。回覆試題注意事項：
請勿有任何複製抄襲、捉刀代打之行為，以免浪費彼此寶貴的時間。
請勿直接以文字型態回覆試題，project所有內容含程式碼註解、檔案名稱等，一律使用英文。
回信主旨請寫”程序員應徵試題回覆”，內容請寫上姓名及聯繫電話。
試題一：
輸入任意秒數求其為?日?時?分?秒，並將其結果顯示於Label物件
使用物件：TextBox(InputSec)、Command Button(Analyze)、Label(DisPlay)試題二：
輸入戶名及口令，並以ADODB查詢SQL Server 2000資料庫查詢，若符合條件則傳回UserLv
使用物件：TextBox(UserID、UserPW)、Command Button(Login)、Label(DisPlay)
資料庫連結字串：
"Provider=SQLOLEDB.1;Network Library=dbmssocn;Persist Security Info=False;Initial Catalog=test;Data Source=127.0.0.1;User ID=sa;Password="
資料表構成語句：
use [Test]
GOif exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[UserData]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[UserData]
GOCREATE TABLE [dbo].[UserData] (
[recKey] [int] IDENTITY (1, 1) NOT FOR REPLICATION  NOT NULL ,
[UserID] [nvarchar] (50) COLLATE Chinese_Taiwan_Stroke_CI_AS NOT NULL ,
[UserPW] [nvarchar] (50) COLLATE Chinese_Taiwan_Stroke_CI_AS NOT NULL ,
[UserLv] [tinyint] NOT NULL 
) ON [PRIMARY]
GOALTER TABLE [dbo].[UserData] WITH NOCHECK ADD 
CONSTRAINT [PK_TABLE2] PRIMARY KEY  CLUSTERED 
([recKey]) ON [PRIMARY] 
GOALTER TABLE [dbo].[UserData] ADD 
CONSTRAINT [DF_TABLE2_UserLv] DEFAULT (0) FOR [UserLv]
GOINSERT INTO UserData (UserID, UserPW, UserLv) VALUES ('user0', '0000', 0)
INSERT INTO UserData (UserID, UserPW, UserLv) VALUES ('user1', '1111', 1)
INSERT INTO UserData (UserID, UserPW, UserLv) VALUES ('user2', '2222', 2)
INSERT INTO UserData (UserID, UserPW, UserLv) VALUES ('user3', '3333', 3)
INSERT INTO UserData (UserID, UserPW, UserLv) VALUES ('user4', '4444', 4)
INSERT INTO UserData (UserID, UserPW, UserLv) VALUES ('user5', '5555', 5)
GO試題三：
試以Winsock物件編寫簡易的文字對談 (使用TCP Protocol )
使用物件：TextBox(SendText、DisplayText)、Command Button(Connect、Send)、Winsock(Winsock1)