Basic - Форум
Понедельник, 05.12.2016, 07:25
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Basic (Символьные функции)
Basic
=)Дата: Вторник, 10.05.2011, 23:03 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Помогите пожалуйста! Очень нужно сдать к среде!!!!

Добавлено (10.05.2011, 23:03)
---------------------------------------------
Спасайте!!!Пожалуйста((

Прикрепления: 6513953.jpg(119Kb)
 
roguДата: Среда, 11.05.2011, 13:25 | Сообщение # 2
Генерал-лейтенант
Группа: Новичок
Сообщений: 52
[ 1 ]
Статус: Offline
Code
Private Sub Command1_Click()
Dim a() As String, n As Integer, S As String, b() As String, k As Integer
a = Split(InputBox("Enter string"))
n = Val(InputBox("Enter  n "))
k = UBound(a)
ReDim b(k)
   For i = k To n Step -1
   b(i - n) = a(i)
   Next
   For i = 0 To n - 1
   b(k - (n - (i + 1))) = a(i)
   Next
   For i = 0 To k
   S = S + b(i) + " "
   Next
   Print S
End Sub

Code
Private Sub Command1_Click()
Dim s As String
s1 = InputBox("Enter S")
sx = InputBox("Enter Sx")
sy = InputBox("Enter Sy")
s = Replace(s1, sx, sy)
Print s
End Sub

Enjoy

Сообщение отредактировал rogu - Среда, 11.05.2011, 14:38
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Basic (Символьные функции)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016