编写VB程序，功能是根据A城和B城同一时间段内的温度数据，计算两城温差（A城温度B城温度）A城数据和B城数据分别为包含若于个记录的序列，其中，A城每个记录包含温度及其截止时间，B城每个记录包含温度及其持续时长。两城温差计算结果表示为若干个记录的序列，每个记录包含温差及其持续时长。持续时长是指同一温度（或温差）保持不变的最大时长。示例见下表。

时间		第1小时	第2小时	第3小时	第4小时	第5小时	第6小时	第7小时
A城温度		30	30	33	33	31	31	32
A城数据	温度	30		33		31		32
	截止时间	2		4		6		7
B城温度		20	20	20	22	21	21	22
B城数据	温度	20			22	21		22
	持续时长	3			1	2		1
计算结果	温差	10		13	11	10
	持续时长	2		1	1	3

（时间单位：小时，温度单位：摄氏度）

表中，A城数据有4个记录，其中第1个记录为（温度30，截止时间2），第2个记录为（温度33，截止时间4），这表明从开始到第2小时的温度都是30，此后到第4小时的温度都是33。B城数据有4个记录，其中第3个记录为（温度21，持续时长2），这表明第5、第6这2个小时的温度都是21。两城温差计算结果的第4个记录为（温差10，持续时长3），这表明第5第6、第7这3个小时的温差都是10。