60. Определение дня недели
Dim xday 'Объявляем переменную xday как Variant(хотя можно написать Dim xday as long)
Private Sub Form_Load()
xday = WeekDay(Date, vbMonday) 'xday будет равна дню недели
If xday = 7 Then 'Если xday будет равна 1 то:
Label1.Caption = "Воскресенье" 'Label1.Caption будет равна Воскресенье
End If
If xday = 1 Then 'Дальше я не буду описывать, т.к. там все тоже самое
Label1.Caption = "Понедельник"
End If
If xday = 2 Then
Label1.Caption = "Вторник"
End If
If xday = 3 Then
Label1.Caption = "Среда"
End If
If xday = 4 Then
Label1.Caption = "Четверг"
End If
If xday = 5 Then
Label1.Caption = "Пятница"
End If
If xday = 6 Then
Label1.Caption = "Суббота"
End If
End Sub
61. Форматирование надписей
Private Sub Command1_Click()
Label1.FontSize = 26 'при нажатии на кнопку 1 у метки будет размер равным 26
End Sub
Private Sub Command2_Click()
Label1.ForeColor = vbRed 'при нажатии на кнопку 2 цвет текста будет красным
End Sub
Private Sub Command3_Click()
Label1.BackColor = vbBlack 'при нажатии на кнопку 3 цвет фона метки будет черным
End Sub
Private Sub Command4_Click()
Form1.BackColor = vbWhite 'при нажатии на кнопку 4 цвет фона формы будет белым
End Sub
Private Sub Form_Load()
Label1.FontSize = 12 'при загрузке программы у метки будет размер равным 12
Label1.Caption = "Операции с текстом" 'при загрузке программы текст метки будет "Операции с текстом"
Form1.Caption = "Формач" 'при загрузке программы текст формы будет "Формач"
End Sub
62. MsgBox
Private Sub Command1_Click()
a = MsgBox("Вы уже посмотрели, как работает программа?" & _
Chr(13) & Chr(10) & "Завершить работу сейчас?", _
vbYesNo + vbQuestion, _
"Демонстрация в MsgBox многстрочного сообщения")
If a = vbYes Then Unload Me 'выгрузить форму
End Sub
63. Решение квадратного уравнения ax2 + bx + c = 0
d=b*b – 4 * a * c
If d < 0 then
Print “Уравнение не имеет корней”
Elseif d = 0 Then
x = -b / (2*a)
Print “Уравнение имеет один корень”; x
Else
x1 = (-b + sqr(d)) / (2 * a)
x2 = (-b - sqr(d)) / (2 * a)
Print “Уравнение имеет два корня ”; x1, x2
End if
64. Проанализировать случайное число, заданное от 0 до 10.
Private Sub Command1_Click()
Randomize
a = Int(Rnd * 9) + 1 'случайное число от 1 до 10
Select Case a
Case 1
Print "Равно 1"
Case 2, 3
Print "Равно 2 или 3"
Case 4 To 6
Print "Больше или равно 4 и меньше или равно 6"
Case Is >= 9
Print "Больше или равно 9"
Case Else
Print "Ни одно из предшествующих"
End Select
End Sub
65. Напечатать 10 чисел ряда Фибоначчи
Private Sub Command1_Click() Dim f1, f2 As Integer Dim i As Byte f1 = 1: f2 = 1 For i = 1 To 20 If i > 10 Then Print f1 f2 = f1 + f2 f1 = f2 - f1 Next i
End Sub |
|
66. Пример 2. Вычислить
произведение
Private Sub Command1_Click() n = Slider1.Value m = Slider2.Value p = 1 For i = 1 To n For j = 1 To m p = p * i / (1 + j ^ 2) Next j Next i Text1.Text = Str(p) End Sub
Private Sub Command2_Click() Unload Me End Sub |
|
67. Протабулировать функцию sin(x) на отрезке [–π, π] с шагом 0,1.
Private Sub Command1_Click() Const pi = 3.1415926 Dim n As Integer: Dim h As Single Dim x As Single: Dim y As Single Dim sa As String: Dim sf As String h = Val(Text1.Text) n = Int(2 * pi / h) + 1 x = -pi: sa = "": sf = "" For i = 1 To n y = Sin(x) sa = sa + Format(x, "0.000") + Chr(13) + Chr(10) sf = sf + Format(y, "0.000") + Chr(13) + Chr(10) x = x + h Next Text2.Text = sa: Text3.Text = sf End Sub
Private Sub Command2_Click() Unload Me End Sub |
|
68. Определить количество цифр в целом числе N. Для этого нужно делить число N на 10 до тех пор, пока в целой части числа не будет 0. Число делений равно числу цифр. K– число делений или цифр, INT – выделение целой части числа.
Private Sub Command1_Click() n = Val(Text1.Text) : k = 0 Do n = Int(n / 10) : k = k + 1 Loop While n > 0 Text2.Text = Str(k) Text2.Visible = True : Label2.Visible = True End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Form_Load() Text1.Text = "" : Label2.Visible = False Text2.Text = "" : Text2.Visible = False End Sub |
|
