Страница: 1 |
Вопрос: Таблица умножения в Basic'e! HELP! | Добавлено: 17.11.03 23:47 |
Автор вопроса: ![]() |
Я думаю тут не мало народу должно быть знакомо с Basic'ом :) Вот я бы хотел попросить помощи в построении таблицы умножения. Сам в этом деле плохо секу, инфа в школе с 9-ого только началась :) , поэтому надеюсь только на Вас! Помогите пожалуйста с таблицей умножения. |
Ответы | Всего ответов: 6 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 10 Ответов: 387 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 17.11.03 23:51 |
конкретне опиши что должна программка делать ?.... выводить всю таблицу умножинеия ? или что ? |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() Вопросов: 2 Ответов: 2 |
Профиль | Цитата | #2 | Добавлено: 18.11.03 09:29 |
Вот знаешь, надо, чтобы она выглядела как на обычной 12-ти листовой тетрадке. И ещё тот кто входит мог набирать так, 2 х 2 = 4, где "х" и "=" уже будут видны. Надеюсь Вы понли мою задумку. Помогите пожалуйста! Буду очень благодарен! |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 18.11.03 20:17 |
Чуть поконкретнее: в чём проблема (что не получается?) и какой бейсик ( If Not VB6.0 And Not YaBasic Then "Я-пас" Else "Возможно даже напишу сам" End if )... |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | Цитата | #4 | Добавлено: 19.11.03 09:13 |
Да... Неповезло тебе... У меня еще хуже - инфа с 10 класса... Так на каком языке тебе нужно ее писать??? |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 10 Ответов: 387 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 19.11.03 23:37 |
Ну вот тут ... тебе ... примерчик сделал ... можно конечно былоб с помощью АПИ выводить текст в нужжное место но я думаю .... в данном случаи не надо +) Вставь этот код ... в пустую форму... и запусти все настройки над формой специально в код занёс.... +) Private Sub Form_Load() Dim i As Integer, n As Integer, v1 As String, v2 As String, v3 As String, v4 As String i = 1: n = 2 Me.BorderStyle = 4 Me.AutoRedraw = True Me.BackColor = &H0& Me.ForeColor = &HC000& Me.Width = 4900 Me.Height = 4100 Me.Caption = "Oaaeeoa Oiii?aiey" Do While n < 10 Do While i < 10 If (i * n) < 10 Then v1 = "0" & i * n Else v1 = i * n If (i * (n + 1)) < 10 Then v2 = "0" & i * (n + 1) Else v2 = i * (n + 1) If (i * (n + 2)) < 10 Then v3 = "0" & i * (n + 2) Else v3 = i * (n + 2) If (i * (n + 3)) < 10 Then v4 = "0" & i * (n + 3) Else v4 = i * (n + 3) Print n & " x " & i & " = " & v1 & " " & n + 1 & " x " & i & " = " & v2 & " " & n + 2 & " x " & i & " = " & v3 & " " & n + 3 & " x " & i & " = " & v4 i = i + 1 Loop i = 1 n = n + 4 Loop End Sub всё ровно выносится на форму.... +))) |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 10 Ответов: 387 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 21.11.03 22:28 |
Так будет более красиво .... +) Option Explicit Private Sub Form_Load() Dim i As Integer, n As Integer i = 1: n = 2 DoEvents Me.BorderStyle = 4 Me.AutoRedraw = True Me.BackColor = &H0& Me.ForeColor = &HC000& Me.Width = 4900 Me.Height = 4100 Me.Caption = "Tablica Umnojeniya" Dim sp As String sp = String$(14, vbKeySpace) Do While n < 10 Do While i < 10 Print n & " x " & i & " = " & Format$(i * n, "00") & sp _ & n + 1 & " x " & i & " = " & Format$(i * (n + 1), "00") _ & sp & n + 2 & " x " & i & " = " & Format$(i * (n + 2), _ "00") & sp & n + 3 & " x " & i & " = " & Format$(i * (n + 3), "00") i = i + 1 Loop i = 1 n = n + 4 Loop End Sub можно ещё и TextOut поднапряч.... ну я думая ... что это тебе надо для УЧ заведения.... а там лучше не умничать +)... а то неправильно поймут.... |
Страница: 1 |
|