Через букву маленькие буквы должны стать большими - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д