Нужно написать программу на Visual Basic

@flower88 · Регистрация: 09.03.2010

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

Здравствуйте, неожиданно столкнулась с такой проблемой:

нужно написать программу.
1. Число С1 составляет 3% от С2, которое составляет 21,2% от С3=1079. Найти С1 и С2.
2. Найти числа в интервале от N и M, которые являются квадратами четных чисел.

Первую задачу я решила так, только не знаю, правильно ли.

Visual Basic

Private Sub Command1_Click()
Dim x As Single, y As Single, c As Single
x = Val(Text1.Text)
y = x * (21.2 / 100)
Text2.Text = Str(y)
z = y * (3 / 100)
Text3.Text = Str(z)
End Sub

А вторую задачу не смогла ни как решить. Помогите, пожалуйста. Буду благодарна за любую помощь!

@Beralus · 09.03.2010, 15:34

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

Здравствуйте, неожиданно столкнулась с такой проблемой:

нужно написать программу.
2. Найти числа в интервале от N и M, которые являются квадратами четных чисел.

Visual Basic

for i= int (sqr(n) ) to int(sqr(m)) 
 if i*i >N and i*i<M then and (i/2)=int(i/2)
  'i vkvadrate  v intervale (N,M) i chetniy
endif
next i

@flower88 · 09.03.2010, 15:47 **[ТС]**

А как должна выглядеть форма в программе Visual Basic? Если не трудна можете показать? Я плохо разбираюсь в программировании.

@Beralus · 09.03.2010, 15:58

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

А как должна выглядеть форма в программе Visual Basic? Если не трудна можете показать? Я плохо разбираюсь в программировании.

derji

@Alex77755 · 09.03.2010, 16:25

весьма оригинальное решение

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

Visual Basic

1	if ii >N and ii<M then and (i/2)=int(i/2)

В решении первой задачки опечатка: Объявлена переменная "c", а считается и выводится "z".
Что бы включить проверку корректности применея переменных ставте в начале модуля
Option Explicit

@flower88 · 09.03.2010, 16:29 **[ТС]**

Visual Basic

Private Sub cmdOkeychik_Click()
N = Val(txtN.Text)
M = Val(txtM.Text)
 
 
For i = Int(Sqr(N)) To Int(Sqr(M))
If (i * i > N) And (i * i < M) And ((i / 2) = Int(i / 2)) Then
  Text1.Text = Text1.Text & i & vbCrLf
  
End If
Next i
 
End Sub

А что обозначает в программе & i & vbCrLf и Int?

Нам просто преподаватель попросит объяснить программу.

@Beralus · 09.03.2010, 16:39

А что обозначает в программе & i & vbCrLf и Int?

& -opeaciya soedinenie strok to est "A" & "B"="AB"
vbCrLf - konstanta so znacheniem chr$(13) to est enter (vozvran koretki-novaya stroka)
int funksiya znachenie celoe chast argumenta to est Int(1.75)= 1

@gaw · 09.03.2010, 18:15

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

весьма оригинальное решение

flower88
(i * i > N) And (i * i < M) <===> i > sqr(N) and i < sqr(M) /N>=0 , M>=0 ,M>N/
For i = Int(Sqr(N)) To Int(Sqr(M)) ==== i >= sqr(N) and i < sqr(M)
зачем дважды

@flower88 · 09.03.2010, 18:25 **[ТС]**

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

flower88
(i * i > N) And (i * i < M) <===> i > sqr(N) and i < sqr(M) /N>=0 , M>=0 ,M>N/
For i = Int(Sqr(N)) To Int(Sqr(M)) ==== i >= sqr(N) and i < sqr(M)
зачем дважды

А вы не можете программу целиком написать, как на ваш взгляд она должна выглядеть?

@gaw · 09.03.2010, 18:37

1 могу
2 должна выглядеть как VB код

@flower88 · 09.03.2010, 18:38 **[ТС]**

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

1 могу
2 должна выглядеть как VB код

а как VB код выглядит?

@Alex77755 · 09.03.2010, 18:46

Visual Basic

1
2
3

For i = Int(Sqr(N)) To Int(Sqr(M))
If i Mod 2 = 0 then Text1.Text = Text1.Text & i & vbCrLf
Next i

только нет проверки, что N < M

@gaw · 09.03.2010, 18:55

Alex77755 , первое--- в условии нет N>=0 (M>=0)
второе --- (может я неправильно понял) 16 есть квадратом 4 , то вывод 25 (или все же 4)
третье --- если речь идет о вещественных, то результат выз. сомнения

@Alex77755 · 09.03.2010, 19:16

сорри квадрат не вставил

Visual Basic

1	If I Mod 2 = 0 Then Текст3.Text = Текст3.Text & I ^ 2 & vbCrLf

16 есть квадратом 4 , то вывод 25

А здесь не понял при чём 25?

@gaw · 09.03.2010, 22:42

сори
Alex77755
а это новая таблица квадратов

ну конечно же 16 есть квадратом 4 , то вывод 16

Добавлено через 1 час 53 минуты
Alex77755
я часто читаю Тебя
и просто хотелось бы услышать Твое мнение (если хочешь конечно)
по поводу случая For i = (Sqr(N)) To (Sqr(M)) (для этой задачи)

@Maggot1 · 10.03.2010, 20:39

Помогите пожалуйста=( Ввести целое число n !Выделить из этого числа цифры кратные 3ём, и записать их в одномерный массив!только надо в районе сегодня сделать выручайте пжл

@gaw · 10.03.2010, 20:48

для разбора

Visual Basic

Private Sub Command1_Click()
Dim tr()
Text1.Text = ""
n = Val(InputBox("N - ?"))
k = 0
For i = 1 To Len(CStr(n))
If Mid(CStr(n), i, 1) Mod 3 = 0 Then
k = k + 1
ReDim Preserve tr(k)
tr(k) = Mid(CStr(n), i, 1)
If k = 0 Then Text1.Text = "Not"
Text1.Text = Text1.Text & tr(k) & "  "
End If
Next i
End Sub

@Maggot1 · 10.03.2010, 23:09

я так понял это моё решение?)

@Toxa33rus · 11.03.2010, 22:54

Не по теме:

Вот Maggot1, #$^% гадский, во всех темах со этой своей задачей наспамил

@Maggot1 · 11.03.2010, 23:41

я просто не знал какой язык Vba или Visual Basic=)сори за офтоп)

@flower88 2 / 2 / 0 Регистрация: 09.03.2010 Сообщений: 16
	09.03.2010, 15:47 [ТС]	3
	А как должна выглядеть форма в программе Visual Basic? Если не трудна можете показать? Я плохо разбираюсь в программировании. 0

@Beralus 26 / 26 / 5 Регистрация: 30.01.2010 Сообщений: 84
	09.03.2010, 16:39	7
	А что обозначает в программе & i & vbCrLf и Int? & -opeaciya soedinenie strok to est "A" & "B"="AB" vbCrLf - konstanta so znacheniem chr$(13) to est enter (vozvran koretki-novaya stroka) int funksiya znachenie celoe chast argumenta to est Int(1.75)= 1 1

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	09.03.2010, 18:15	8
	Сообщение от Alex77755 весьма оригинальное решение flower88 (i * i > N) And (i * i < M) <===> i > sqr(N) and i < sqr(M) /N>=0 , M>=0 ,M>N/ For i = Int(Sqr(N)) To Int(Sqr(M)) ==== i >= sqr(N) and i < sqr(M) зачем дважды 0

@flower88 2 / 2 / 0 Регистрация: 09.03.2010 Сообщений: 16
	09.03.2010, 18:25 [ТС]	9
	Сообщение от gaw flower88 (i * i > N) And (i * i < M) <===> i > sqr(N) and i < sqr(M) /N>=0 , M>=0 ,M>N/ For i = Int(Sqr(N)) To Int(Sqr(M)) ==== i >= sqr(N) and i < sqr(M) зачем дважды А вы не можете программу целиком написать, как на ваш взгляд она должна выглядеть? 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	09.03.2010, 18:37	10
	1 могу 2 должна выглядеть как VB код 0

@flower88 2 / 2 / 0 Регистрация: 09.03.2010 Сообщений: 16
	09.03.2010, 18:38 [ТС]	11
	Сообщение от gaw 1 могу 2 должна выглядеть как VB код а как VB код выглядит? 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	09.03.2010, 18:55	13
	Alex77755 , первое--- в условии нет N>=0 (M>=0) второе --- (может я неправильно понял) 16 есть квадратом 4 , то вывод 25 (или все же 4) третье --- если речь идет о вещественных, то результат выз. сомнения 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	09.03.2010, 22:42	15
	сори Alex77755 а это новая таблица квадратов ну конечно же 16 есть квадратом 4 , то вывод 16 Добавлено через 1 час 53 минуты Alex77755 я часто читаю Тебя и просто хотелось бы услышать Твое мнение (если хочешь конечно) по поводу случая For i = (Sqr(N)) To (Sqr(M)) (для этой задачи) 0

@Maggot1 0 / 0 / 0 Регистрация: 10.03.2010 Сообщений: 26
	10.03.2010, 20:39	16
	Помогите пожалуйста=( Ввести целое число n !Выделить из этого числа цифры кратные 3ём, и записать их в одномерный массив!только надо в районе сегодня сделать выручайте пжл 0

@Maggot1 0 / 0 / 0 Регистрация: 10.03.2010 Сообщений: 26
	10.03.2010, 23:09	18
	я так понял это моё решение?) 0

@Toxa33rus
	11.03.2010, 22:54 #19
	Не по теме: Вот Maggot1, #$^% гадский, во всех темах со этой своей задачей наспамил 2

@Maggot1 0 / 0 / 0 Регистрация: 10.03.2010 Сообщений: 26
	11.03.2010, 23:41	20
	я просто не знал какой язык Vba или Visual Basic=)сори за офтоп) 0