Text[Grid[{CityData[#, "Name"], Row[{Round@WeatherData[#, "Temperature"], "\[Degree]C"}]} & /@ Take[CityData[], 6], Frame -> All]]