... Ниже приводится код данного класса: DBClass.cls Option Explicit Private WithEvents ConRs As ADODB.Recordset Private dbConn As ADODB.Connection Private mvarConStr As String Private mvarSQLStr As String Private Sub Class_Initialize() Set dbConn = New ADODB.Connection End Sub Private Sub Class_GetDataMember(DataMember _ As String, Data As Object) Set Data = ConRs End Sub Public ... Создадим на форме один текстовый блок Text1 и присвоим его свойству Index значение 0. ...

... Быстрое вращение вытягивает конвективные ячейки в атмосфере планеты в длинные облачные ленты, делая диск Юпитера характерно полосатым. ... Зонд Галилео, опускаясь в верхней атмосфере Юпитера, на уровнях давлений, меньших 3.8 атм., смог получить только верхний предел на количество водяного пара, равный 7 * 10 -7 . ... Температурный минимум (тропопауза) в атмосфере Юпитера расположена на уровне давления 175 миллибар (0.175 атм.) при температуре 109К и высоте 35 км над уровнем давления, равном 1 атм. ...