Кратно ли число 5 или 3

@Oldia · Регистрация: 30.03.2010

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

Помогите пожалуйста, срочно!!!

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

С клавиатуры вводиться число R. Определить кратно ли оно 5 или 3.

Заранее, большое спасибо.

@YuraAAA · 31.03.2010, 00:12

VB 6:

Visual Basic

Private Sub Command1_Click()
Dim r As Single
r = InputBox("r")
If (r Mod 3) = 0 Then MsgBox ("Ktatno 3")
If (r Mod 5) = 0 Then MsgBox ("Kratno 5")
If (r Mod 3) <> 0 And (r Mod 5) <> 0 Then MsgBox ("Ne kratno")
End Sub

@gaw · 31.03.2010, 00:28

почти то же

Visual Basic

Private Sub Command1_Click()
Dim R As Integer
Dim tr3 As String, tr5 As String
R = Val(Text1.Text)
 
If R Mod 3 = 0 Then tr3 = "делится на 3"
If R Mod 5 = 0 Then tr5 = "делится на 5"
If tr3 <> "" Or tr5 <> "" Then
MsgBox "число R=" & R & vbCrLf & tr3 & vbCrLf & tr5
Else
MsgBox "число R=" & R & " не делится ни на 3,  ни на 5"
End If
End Sub

@Oldia · 31.03.2010, 00:47 **[ТС]**

Громаднейшее спасибо!!!

Оказалось,что я сама себе всё усложняла...

@Oldia 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 10
		1
	Кратно ли число 5 или 3 31.03.2010, 00:04. Показов 8150. Ответов 3 Метки нет (Все метки) Помогите пожалуйста, срочно!!! Нужно написать программу в Visual Basic 2006 С клавиатуры вводиться число R. Определить кратно ли оно 5 или 3. Заранее, большое спасибо. 0

@Oldia 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 10
	31.03.2010, 00:47 [ТС]	4
	Громаднейшее спасибо!!! Оказалось,что я сама себе всё усложняла... 0