Через букву маленькие буквы должны стать большими - VB

Узнай цену своей работы

Формулировка задачи:

ребят помогите, пожалуйста, с контрольной. в программировании не знаю ничего... если по высшей математике есть какие вопросы помогу ... любое слово, например, "хорошо" после нажатия кнопки должно перейтти в вид "ХоРоШо", т.е. через букву маленькие должны стать большими в первом окне вводишь свое слово, а во втором результат Заранее спасибо!

Решение задачи: «Через букву маленькие буквы должны стать большими»

textual
Листинг программы
Const e = 2.718282
Private Sub Form_Click()
Dim x As Single, Y As Single, i As Single
Dim niz As Double, verh As Double, shag As Double
   Me.Show
   m = InputBox("Vvedite m", "", 31)
   niz = -4: verh = 8: shag = 0.00013 ': X = niz
   
   Me.Caption = "y=e^x*sin(sqr(x^2+m))"
   
   DrawStyle = 0: WindowState = 2: FillStyle = 0
   Me.Show
   Cls
   Scale (niz, verh)-(verh, niz)
   Line (niz, 0)-(verh, 0), vbBlue  'ocb X
   Line (0, niz)-(0, verh), vbBlue   'ocb Y
 
   For x = niz To verh - 2 Step shag
          '''''''''''''''''''''''''''''''''''''''''''''
          Y = e ^ x * Sin(Sqr(x ^ 2 + m)) '
          '''''''''''''''''''''''''''''''''''''''''''''
          Circle (x, Y), 0.015, RGB(255, 0, 0)
   Next x
  
   Form1.DrawStyle = 2   ' Пунктирная линия
   For i = -50 To 50 Step 0.5
          Form1.CurrentX = 0    ' оцифровка
          Form1.CurrentY = i
          Print i        ' засечка
          Line (-8, i)-(10, i)
   Next i
 
   For i = -50 To 50 Step 0.5
          Form1.CurrentX = i    ' оцифровка
          Form1.CurrentY = 0
          Print i
          Line (i, -10)-(i, 8) ' засечка
          
   Next i
    ForeColor = vbBlue: FontBold = True
    CurrentY = 7.8
   For x = 0 To 3 Step 0.2
    Y = e ^ x * Sin(Sqr(x ^ 2 + m))
    CurrentX = -2.6
    Print "x = " & x & ",   Y = "; Y
   Next x
  End Sub
  Private Sub Form_Load()
          Form_Click
  End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.429 из 5
Похожие ответы