有如下程序： infocase$=InputBox("Inputoneletter:") Select Case infocase$ case"a" grade$="Verygood" case"b" grade$="Good" case"C" grade$="OK" case"d" grade$="Qualified" case Else grade$="Bab" End SelectA．Very goodB．GoodC．BadD．Qualified

题目

有如下程序： infocase$=InputBox("Inputoneletter:") Select Case infocase$ case"a" grade$="Verygood" case"b" grade$="Good" case"C" grade$="OK" case"d" grade$="Qualified" case Else grade$="Bab" End Select

A．Very good

B．Good

C．Bad

D．Qualified

相似考题

1.有如下程序:includevoid main(){int x=1,a=0,b=0;switch (x){Case 0: b＋＋;Case 1:有如下程序：#include＜iostream.h＞void main(){int x=1,a=0,b=0;switch (x){Case 0: b++;Case 1: a++;Case 2: a++; b++;}cout＜＜"a="＜＜a＜＜","＜＜"b="＜＜ b;}该程序的输出结果是( )。A．a=2,b=1B．a=1,b=1C．a=1,b=0D．a=2,b=2

2.假设x是一个整数变量，要求判断x的值为1～4之间。Select语句形式如下，则Case表达式列表写法正确的是_____________。 Select Case x Case 表达式列表A．Case 4＞=x＞=1B．Case x＞=1 and x＜=4C．Case Is＞=1 and Is＜=4D．Case 4＞=Is＞=1E．Case 1 to 4F．Case 1,2,3,4

3.在Select语句中，下面各Case子句中有语法错误的是_________。‍A．Case 1 to 10B．Case Is＞10‍C．Case 2,4,6D．Case x＞100

4.单击命令按钮，并在对话框内输入6，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n As Integer n=InputBox ("请输入日期") Select Case n Case Is ＜= 0 n=InputBox("错误!请重新输入日期!") Case Is＞7 n=InputBox("错误!请重新输入日期!") Case 1 To 3 Print "江苏" Case 4 To 5 Print "浙江" Case 6 To 7 Print "双休日" End Select End SubA．错误!请重新输入日期!B．江苏C．浙江D．双休日

参考答案和解析
正确答案：D
更多“有如下程序:infocase$=InputBox("Inputoneletter:")Select Case infocase$case"a"grade$="Verygo ”相关问题

  • 第1题：

    4、假设x是一个整数变量，要求判断x的值为1～4之间。Select语句形式如下，则Case表达式列表写法正确的是_____________。 Select Case x Case 表达式列表

    A．Case 4＞=x＞=1

    B．Case x＞=1 and x＜=4

    C．Case Is＞=1 and Is＜=4

    D．Case 4＞=Is＞=1

    E．Case 1 to 4

    F．Case 1,2,3,4


    Case 1 to 4;Case 1,2,3,4

  • 第2题：

    假定等级和分数有以下对应关系： 等级：A 分数：85～100 　等级：B 分数：60～84 　等级：C 分数：60 以下 对于等级grade输出相应的分数区间，能够完成该功能的程序段是_____.

    A.switch (grade) { case 'A':printf("85--100n"); case 'B':printf("60--84n"); case 'C':printf("60以下n"); default:printf("等级错误!n"); }#B.switch (grade) { case 'A':printf("85--100n");break; case 'B':printf("60--84n"); case 'C':printf("60以下n"); default:printf(" 等级错误!n"); }#C.switch (grade) { case 'A':printf("85--100n");break; case 'B':printf("60--84n");break; case 'C':printf("60以下n"); default:printf("等级错误!n"); }#D.switch (grade)
    switch (grade)
    { case ''C' :printf("<60\n"); break;
    case 'B' :printf("60--84\n"); break;
    default: printf("grade is error!\n"); break;
    case 'A' :printf("85--100\n");
    }

  • 第3题：

    【其它】下面是一个switch语句，利用if嵌套来完成相同的功能。 switch（grade) { case 7: case 6:a=11; b=22; break; case 5:a=33; b=44; break; default:a=55; break; }


    正确

  • 第4题：

    下列程序的输入值为5，运行结果为（）。 Private Sub Command1_Click（) Dim a As Integer a = InputBox（"请输入a的值") Select Case a Case 1 To 4 Print "D" Case 5 To 10 Print "C" Case 11 To 14 Print "B" Case Else Print "A" End Select End Sub

    A．A

    B．B

    C．C

    D．D


    Error: the side length should be positive

  • 第5题：

    假定等级和分数有以下对应关系： 等级：A 分数：85～100 　等级：B 分数：60～84 　等级：C 分数：60 以下 对于等级grade输出相应的分数区间，能够完成该功能的程序段是__________.

    A.switch (grade) { case 'A':printf("85--100n"); case 'B':printf("60--84n"); case 'C':printf("60以下n"); default:printf("等级错误!n"); }#B.switch (grade) { case 'A':printf("85--100n");break; case 'B':printf("60--84n"); case 'C':printf("60以下n"); default:printf(" 等级错误!n"); }#C.switch (grade) { case 'A':printf("85--100n");break; case 'B':printf("60--84n");break; case 'C':printf("60以下n"); default:printf("等级错误!n"); }#D.switch (grade)
    switch (grade) { case ’ C ’ :printf( ” <60\n ” ); break; case ’ B ’ :printf( ” 60 —— 84\n ” ); break; default: printf( ” grade is error!\n ” ); break; case ’ A ’ :printf( ” 85 —— 100\n ” ); }

相关内容