Ребят,такая тема, в инсте начался новый семестр и ввели VBA( Visual Basic for Application)а я в нём не бум бум,в конце года нужен лишь зачёт)))а для него надо все проги сдать)))Ктонить сможет помочь за определённую благодарность($)??????)))))))если кто заинтересуется пишите в личку ПОЖАЛУЙСТА!!!!!!!! прога нужна уже в среду!!!!!!!
1 прога такая"2х мерный массив А(10,12) заполнен элементами из ячеек рабочего листа Excel,составить блок-схему и программу определения номера столбца с мин. суммой эл-тов(номер столбца вывести в ячейке B12).Найти в этом столбце макс. элемент и его ночем строки(значение эл-та вывести в ячейке C12,номер стоки-в ячейке D12)."
Private Function ConvertToBinary(ByVal lngQuotient As Long) As String
Dim strBinary As String
Dim strReturn As String
Dim i As Integer
i = 100
strBinary = String(i, "0")
Do While lngQuotient
Mid(strBinary, i, 1) = CStr(lngQuotient Mod 2)
lngQuotient = lngQuotient \ 2
i = i – 1
Loop
strReturn = Right(strBinary, 100 – i)
ConvertToBinary = strReturn
End Function
Private Sub Command1_Click()
Text2.Text = ConvertToBinary(Text1.Text)
End Sub
Самый простой способ воспользоваться инженерным калькулятором!
Но если зочеш знать систему числения то так:
Дла этого возьми например число 135!
Для этого нужно число 135 разделить на 2. Получается 67 и остаток 1 (запомним 1). Теперь 67 делим на 2, получается 33 и остаток 1 (теперь две единицы, т.е. 11). Теперь 33 делим на 2, получаем 16 и остаток 1 (теперь три единицы, 111). Теперь 16 делим на 2, получаем 8 и остаток 0 (всего 0111). Теперь 8/2=4 и остаток 0 (00111). 4/2=2 и остаток 0 000111). Теперь 2/2=1 и остаток 0 (итого 0000111). 1 на два не делится, значит, просто дописываем её 10000111. Получилось первоначальное число.
1 апреля 2010 в 20:01
Блин, а я только Blitz Basic 2d и Blitz 3d знаю. Засада!
29 марта 2010 в 18:00
Помогите решить задачки на VBA
3 марта 2010 в 11:01
Как сделать установочный файл на прогу в liberty basic v4.02 ?
22 февраля 2010 в 16:02
Ребят,такая тема, в инсте начался новый семестр и ввели VBA( Visual Basic for Application)а я в нём не бум бум,в конце года нужен лишь зачёт)))а для него надо все проги сдать)))Ктонить сможет помочь за определённую благодарность($)??????)))))))если кто заинтересуется пишите в личку ПОЖАЛУЙСТА!!!!!!!! прога нужна уже в среду!!!!!!!
1 прога такая"2х мерный массив А(10,12) заполнен элементами из ячеек рабочего листа Excel,составить блок-схему и программу определения номера столбца с мин. суммой эл-тов(номер столбца вывести в ячейке B12).Найти в этом столбце макс. элемент и его ночем строки(значение эл-та вывести в ячейке C12,номер стоки-в ячейке D12)."
4 января 2010 в 12:02
Здесь есть вся необходимая для изучения литература!
//knigaluby.ru/programmirovanie/b
4 января 2010 в 9:01
У кого есть самоучитель по VBS ? Дайте ссылки.
10 декабря 2009 в 13:04
Вот алгоритм:
—————————————————————-
Option Explicit
Private Function ConvertToBinary(ByVal lngQuotient As Long) As String
Dim strBinary As String
Dim strReturn As String
Dim i As Integer
i = 100
strBinary = String(i, "0")
Do While lngQuotient
Mid(strBinary, i, 1) = CStr(lngQuotient Mod 2)
lngQuotient = lngQuotient \ 2
i = i – 1
Loop
strReturn = Right(strBinary, 100 – i)
ConvertToBinary = strReturn
End Function
Private Sub Command1_Click()
Text2.Text = ConvertToBinary(Text1.Text)
End Sub
10 декабря 2009 в 8:01
мне нужно чтоб бэйсик переводил.а то у меня алгоритм не получается
10 декабря 2009 в 1:02
Самый простой способ воспользоваться инженерным калькулятором!
Но если зочеш знать систему числения то так:
Дла этого возьми например число 135!
Для этого нужно число 135 разделить на 2. Получается 67 и остаток 1 (запомним 1). Теперь 67 делим на 2, получается 33 и остаток 1 (теперь две единицы, т.е. 11). Теперь 33 делим на 2, получаем 16 и остаток 1 (теперь три единицы, 111). Теперь 16 делим на 2, получаем 8 и остаток 0 (всего 0111). Теперь 8/2=4 и остаток 0 (00111). 4/2=2 и остаток 0 000111). Теперь 2/2=1 и остаток 0 (итого 0000111). 1 на два не делится, значит, просто дописываем её 10000111. Получилось первоначальное число.