singlepost

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

В икселе надо сделать пограмму выводящую оценки в виде букв при вводе цифр (болонская система). Вот сама программа:

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

Какой тип данных ставить чтобы работало? ("E") не работает :(
Кто нибудь знает?

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

  1. 1
    Валера Вовк ответил:

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

  2. 2
    Денис Оболенский ответил:

    конечно не будет работать ведь по сути бери тип 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

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

  3. 3
    Валера Вовк ответил:

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

  4. 4
    Денис Оболенский ответил:

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

  5. 5
    Валера Вовк ответил:

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

    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

  6. 6
    Денис Оболенский ответил:

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

  7. 7
    Валера Вовк ответил:

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

Клуб программистов работает уже ой-ой-ой сколько, а если поточнее, то с 2007 года.