Таблица умножения

@Пашок · Регистрация: 19.10.2009

Author24 — интернет-сервис помощи студентам

помогите написать пожалуйста написать программу, выводящую таблицу умножения на число, введенное пользователем. я так понял надо введенное число умножать последовательно на 1,2,3....10 ?
типо того :

Visual Basic

        Dim a As Integer
        Dim b As Integer
        Dim str As String
        a = TextBox1.Text
        b = 0
        str = ""
        Do While b = a * 10
            b = a * 1
            b = a * 2
            b = a * 3
            b = a * 4
            b = a * 5
            b = a * 6
            b = a * 7
            b = a * 8
            b = a * 9
            b = a * 10
        Loop
        b = str
        Label1.Text = str

Также проверьте ,пожалуйста, правильно я написал программу для определения , является ли число введенное пользователем, простым.

Visual Basic

        Dim a As Integer
        Dim b As Integer
        Dim i As Integer
        b = 0
        a = TextBox1.Text
        For i = 2 To a - 1
            If (a Mod i = 0) Then
                b = b + 1
            End If
            If (b = 0) Then Label1.Text = "Простое число" Else Label1.Text = "Не простое число"
        Next
    End Sub

У меня вопросы насчет этого :
как найти все делители;
вычислить количество делителей;
найти наибольший из делителей;
найти наименьший из делителей.
=)

@CJ_Sashok · 15.11.2010, 23:42

Вот тебе программа-Таблица умножения:

@Пашок · 16.11.2010, 14:52 **[ТС]**

а это в каком бейсике сделано? а то у меня visual basic 2008 стоит )

@CJ_Sashok · 16.11.2010, 15:56

Сообщение от Пашок

а это в каком бейсике сделано? а то у меня visual basic 2008 стоит )

Я её сделал в Vb6 Но у меня есть проект и Vb 2008 .)

Добавлено через 3 минуты
Так ты же можешь открыть этот проект. Visual Basic 2008 автоматически откомпилирует проект в 2008))

@Пашок · 16.11.2010, 19:21 **[ТС]**

у меня пишет ошибку при компиляции ( выложите сюда код пожалуйста =) а из 6 сам попробую перевести в 8

@CJ_Sashok · 16.11.2010, 20:14

Этот код в Vb2008, ибо у меня есть программа Vb2008))

На форме размещаешь TextBox1, ListBox1, Timer1, Button1,Label1.В свойствах Timer1 выставляешь Enabled = false, и Interval = 5; а в свойствах Label1 высталяешь Text = 1, и visible = false .

VB.NET

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Введите число.", MsgBoxStyle.Critical, "Ошибка")
        ElseIf TextBox1.Text <> "" Then
            ListBox1.Items.Clear()
            Timer1.Enabled = True
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim a As Integer
        a = Val(TextBox1.Text) * Val(Label1.Text)
        ListBox1.Items.Add(TextBox1.Text & " * " & Label1.Text & "= " & a)
        Label1.Text = Val(Label1.Text) + Val("1")
        If ListBox1.Items.Count = 10 Then
            Timer1.Enabled = False
            Label1.Text = "1"
        End If
    End Sub

@Пашок · 19.11.2010, 20:09 **[ТС]**

а что насчет второй задачи?

@Alex77755 · 19.11.2010, 20:52

Пашок,

а это в каком бейсике сделано?

А в каком разделе зал вопрос в том и получил!!!
Смотри где создаёшЬ

Добавлено через 2 минуты
CJ_Sashok,
А зачем там таймер?? Циклом не проще?

@CJ_Sashok · 19.11.2010, 23:46

Сообщение от Alex77755

А зачем там таймер?? Циклом не проще?

Самое главное, что программа работает)))

@Пашок 0 / 0 / 0 Регистрация: 19.10.2009 Сообщений: 47
	16.11.2010, 14:52 [ТС]	3
	а это в каком бейсике сделано? а то у меня visual basic 2008 стоит ) 0

@CJ_Sashok Живу от Клика до Клика 35 / 35 / 5 Регистрация: 01.06.2010 Сообщений: 157
	16.11.2010, 15:56	4
	Сообщение от Пашок а это в каком бейсике сделано? а то у меня visual basic 2008 стоит ) Я её сделал в Vb6 Но у меня есть проект и Vb 2008 .) Добавлено через 3 минуты Так ты же можешь открыть этот проект. Visual Basic 2008 автоматически откомпилирует проект в 2008)) 0

@Пашок 0 / 0 / 0 Регистрация: 19.10.2009 Сообщений: 47
	16.11.2010, 19:21 [ТС]	5
	у меня пишет ошибку при компиляции ( выложите сюда код пожалуйста =) а из 6 сам попробую перевести в 8 0

@Пашок 0 / 0 / 0 Регистрация: 19.10.2009 Сообщений: 47
	19.11.2010, 20:09 [ТС]	7
	а что насчет второй задачи? 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	19.11.2010, 20:52	8
	Пашок, а это в каком бейсике сделано? А в каком разделе зал вопрос в том и получил!!! Смотри где создаёшЬ Добавлено через 2 минуты CJ_Sashok, А зачем там таймер?? Циклом не проще? 0

@CJ_Sashok Живу от Клика до Клика 35 / 35 / 5 Регистрация: 01.06.2010 Сообщений: 157
	19.11.2010, 23:46	9
	Сообщение от Alex77755 А зачем там таймер?? Циклом не проще? Самое главное, что программа работает))) 0