Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VB Cтрока: Удалить из строки S первую подстроку, совпадающую с S0. https://www.cyberforum.ru/ visual-basic/ thread1890815.html Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. если совпадающих подстрок нет, то вывести строку S без изменений. Пожалуйста, помогите сделать эти задания, в паскале их с потом сделал, а тут еще в бейсике надо сделать, где не знаю команды с типом string.	Массивы VB 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Найти произведение элементов, имеющих четное значение. 2. Вывести индексы тех элементов, значения которых по модулю меньше заданного числа А. 3. Определить, есть ли в данном массиве положительные элементы, делящиеся на заданное число k с остатком 2.
VB Проверить, образуют ли элементы массива геометрическую прогрессию https://www.cyberforum.ru/ visual-basic/ thread1890677.html 2)Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию. Если образуют, то вывести знаменатель прогрессии, если нет — вывести 0.	VB Дом из фигур https://www.cyberforum.ru/ visual-basic/ thread1890593.html нужно изобразить дом на VB использовав фигуры : линии, треугольник и тд плииз
Найти первое число Фибоначчи, большее заданного VB Дано целое число N (> 1). Найти первое число Фибоначчи, большее N	VB Вывести наименьшее из целых чисел K, для которых сумма будет больше A )Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму. https://www.cyberforum.ru/ visual-basic/ thread1890536.html
VB Вывести элементы массива с нечетными номерами в порядке убывания номера Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN, AN−2, AN−4, …, A1. Условный оператор не использовать. https://www.cyberforum.ru/ visual-basic/ thread1890534.html	Заставить шар двигаться по траектории VB Стоит задача: нужно заставить шар двигаться по траектории. Начало в центре верхней линии PictureBox, он должен, как бы, пройти по траектории ромба. Помогите, не могу понять.
VB Нужен код для программы, в которую вводятся данные и выводится комментарий https://www.cyberforum.ru/ visual-basic/ thread1890303.html В соревнованиях по бегу принимают участие спортсмены, известны фамилии и результаты каждого. Ввести значение норматива (с помощью textbox). Вывести для каждого участника комментарий "выполнил" или "не выполнил" и определить, сколько спортсменом выполнило норматив.	VB Дана строка. Подсчитать количество содержащихся в ней цифр https://www.cyberforum.ru/ visual-basic/ thread1889885.html Дана строка. Подсчитать количество содержащихся в ней цифр.
VB Вычислить значение ряда с заданной точностью Е	VB Цикл. Определить значение переменной х после выполнения следующих операторов https://www.cyberforum.ru/ visual-basic/ thread1889751.html F=1: N=1 For I=2 To n F=F+1/I Next

Sysn1k

0 / 0 / 0

Регистрация: 22.12.2016

Сообщений: 24

String. Исправьте ошибку - VB - Ответ 9953442

28.12.2016, 18:55. Показов 703. Ответов 6

Метки (Все метки)

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

Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.».

Вот так выглядит в Pascal

Pascal

var s:string;
     r:real;
     t,c:integer;
begin
write('s=');
readln(s);
val(s,t,c);
if c=0 then write('1')
else
 begin
  val(s,r,c);
  if c=0 then write('2') 
  else write('0');
 end;
readln
end.

Вот так пытался сделать в Basic

Visual Basic

Private Sub CommandButton1_Click() 
Dim s As String, i, err As Integer, r As Double 
s = Val(TextBox1.Text) 
For i = 1 To Len(s) 
err = Mid(s, i, 1) 
''val(s,i,err); 
If err = 0 Then 
TextBox2.Text = "1" 
Else 
err = Mid(s, r, 1) 
''val(s,r,err); 
If err = 0 Then 
TextBox2.Text = "2" 
Else 
TextBox2.Text = "0" 
End If 
End If 
Next i 
End Sub

Программа жалуется.

Вернуться к обсуждению:
String. Исправьте ошибку VB

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.12.2016, 18:55

Готовые ответы и решения:

Исправьте ошибку string subscript out of range
#include <iostream> #include <string> #include <vector> using namespace std; int main () { ...

Ребят Незнаю что делать при запуске на компилирование выдает ошибку.Кто понимает что не так скажите а если не затруднит исправьте ошибку
Разговаривал с двумя преподами говорят что проект не правильно создавал,хотя все правильно из...

Исправьте ошибку
program notebook; USES CRT; type NOTE = record fam:string; im:string; telefon:string;...

Исправьте ошибку
Program Z; Var z1, z2, x:real; Begin Writeln('BBeDuTE x'); Readln(x);...

	28.12.2016, 18:55

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.12.2016, 18:55

Помогаю со студенческими работами здесь

Исправьте ошибку
2. Задан двумерный массив N x N. Разрешается произвольно переставлять элементы внутри любого...

Исправьте ошибку
Дан массив чисел размером N. Нужно поменять местами « - » - ы элементы массива с « + » - и...

исправьте ошибку
нужно методом подбора по условию определить радиус, скрин из программы приложен

Исправьте ошибку
Option Explicit Public DlMass As Integer Public RangMass As Range Sub Number() With...

Наверх