Visual Basic [Вопрос] << На главную или назад  

7 ответов в теме “Visual Basic [Вопрос]”

1. 7
   Валера Вовк ответил:
   24 марта 2010 в 20:03

   #7 спасибо за советы, друг сдал работу препод сказал что я тут не вставил MsgBox но друг не помнит где именно надо)) в след раз возьмет рабочую прогу и мне скинет) Тема исчерпала себя удалять или оставить?

2. 6
   Денис Оболенский ответил:
   24 марта 2010 в 1:05

   слушай, а ты откуда взял событие "Щелкнуть"??измени на click.
   и поставь вместо последнего casecase else

3. 5
   Валера Вовк ответил:
   23 марта 2010 в 20:02

   Вообщем вот прога, но ответ никак не хочет показывать ответ =\

   Sub Кнопка1_Щелкнуть()
   Dim X As Double
   Dim Z As String
   X = CDbl(InputBox("Введите X"))
   Select CaseX
   Case 90 >= X <= 100
   Z = "A"
   Case 82 >= X <= 89
   Z = "B"
   Case 75 >= X <= 81
   Z = "C"
   Case 70 >= X <= 74
   Z = "D"
   Case 60 >= X <= 69
   Z =" E"
   Case (100<x) or (x<60)
   Z = "F"
   End Select
   MsgBox ("Ответ " & Z)
   End Sub

4. 4
   Денис Оболенский ответил:
   23 марта 2010 в 13:05

   ну тогда еще строчка
   Case (100<x) or (x<60)
   Z="F"
   И у тебя ошибочка есть)
   Select case QWE!!!!! а надо Select Case X

5. 3
   Валера Вовк ответил:
   23 марта 2010 в 12:05

   Не сказано. Главное чтобы работало))
   При вводе числа более 100 и менее 60 отображает Fв остальных случаях пустота
   ща буду пробовать дальше

6. 2
   Денис Оболенский ответил:
   23 марта 2010 в 10:00

   конечно не будет работать ведь по сути бери тип String для Z, и потом в конструкции Select Case присвой Z буквы, короче вот код:
   Sub Кнопка1_Щелкнуть()
   Dim X As Double
   Dim Z As String
   X = CDbl(InputBox("Введите X"))
   Select Case qwe
   Case 90 >= X <= 100
   Z = "A"
   Case 82 >= X <= 89
   Z = "B"
   Case 75 >= X <= 81
   Z = "C"
   Case 70 >= X <= 74
   Z = "D"
   Case 60 >= X <= 69
   Z =" E"
   Case X <= 59
   Z = "F"
   End Select
   MsgBox ("Ответ " & Z)
   End Sub

   Насчет ввода данных- в условии не сказано же как вводить??

7. 1
   Валера Вовк ответил:
   22 марта 2010 в 23:02

   Char не работает
   String тоже
   (& Z)не работает, вместо нее пустота
   ____________
   что то про ковычки не совсем понял)