VBNet - Форум - Таблица умножения в Basic'e! HELP!

Вопрос: Таблица умножения в Basic'e! HELP! Добавлено: 17.11.03 23:47

Автор вопроса: Monah

Я думаю тут не мало народу должно быть знакомо с Basic'ом :)
Вот я бы хотел попросить помощи в построении таблицы умножения. Сам в этом деле плохо секу, инфа в школе с 9-ого только началась :) , поэтому надеюсь только на Вас! Помогите пожалуйста с таблицей умножения.

Ответить

Ответы Всего ответов: 6

Номер ответа: 1
Автор ответа:

Fallout

Вопросов: 10
Ответов: 387

Web-сайт: mudator.by.ru
Профиль | | #1

Добавлено: 17.11.03 23:51

конкретне опиши что должна программка делать ?....

выводить всю таблицу умножинеия ? или что ?

Ответить

Номер ответа: 2 Автор ответа: Monah Вопросов: 2 Ответов: 2	Профиль \| \| #2	Добавлено: 18.11.03 09:29
	Вот знаешь, надо, чтобы она выглядела как на обычной 12-ти листовой тетрадке. И ещё тот кто входит мог набирать так, 2 х 2 = 4, где "х" и "=" уже будут видны. Надеюсь Вы понли мою задумку. Помогите пожалуйста! Буду очень благодарен! Ответить

Номер ответа: 3
Автор ответа:

Neco

ICQ: 247906854

Вопросов: 133
Ответов: 882

Web-сайт: neco.pisem.net
Профиль | | #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 класса... Но я учился сам на QB потом на VB6.0

Так на каком языке тебе нужно ее писать???

Ответить

Номер ответа: 5
Автор ответа:

Fallout

Вопросов: 10
Ответов: 387

Web-сайт: mudator.by.ru
Профиль | | #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
Автор ответа:

Fallout

Вопросов: 10
Ответов: 387

Web-сайт: mudator.by.ru
Профиль | | #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 |