有如下程序： 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

[单选题]有如下程序 x=InputBox("input value of x") Select Case x Case Is＞0 y=y+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x ;y 运行时，从键盘输入-5，输出的结果是( )。A．-7B．-9C．-8D．-10

[单选题]有如下程序 x=InputBox("input value of x") Select Case x Case Is>0 y=y＋l Case Is=0 y=x＋2 Case Else y=x＋3 End Select． Print x: y 运行时，从键盘输入—5，输出的结果是( )。A．-7B．-9C．-8D．-10

[单选题]有如下程序：s=InputBox（"input va lue of s："）SELECT CASE sCASE IS＜6f=s+1CASE IS＜5f=s+2CASE IS＜4f=s+3CASE ELSEf=s+4END SELECTPRINT s；f运行时从键盘输入6，输出的结果是（）A . 3和10B . 6和10C . 6和11D . 5和11

[单选题]有如下语句：str1=InputBox(“输入 ”,” ”,”联系 ”)从键盘上输入字符串“学生”后，str1的值为( )A．“输入”B．“ ”C．“联系”D．“学生”

[单选题]有如下程序：Private Sub Command1_Click（）a$= "A WORKER IS HERE"x=Len（a$）F．or i=1 To x - 1b$=Mid$（a$, i, 3）If b$= "WOR" Then S=S + 1NextPrint SE．nd Sub单击命令按钮，程序运行结果为（ ）A．1B．2C．3D．5

[单选题]有如下程序：A． 24B． 30C． 12D． 18

[单选题]有如下程序：A．BAA～A～B～AB．ABA～B～A～AC．BAA～B～A～AD．ABA～A～B～A

[单选题]有如下程序:Private Sub Command1_Click()a$="A WORKER IS HERE"x=Len(a$)F．or i=1 To x - 1b$=Mid$(a$, i, 3)If b$="WOR" Then S=S + 1NextPrint SE．nd Sub单击命令按钮，程序运行结果为A．1B．2C．3D．5

[单选题]有如下程序：Private Sub Command1_Click()a$="A WORKER IS HERE"x=Len(a$)F．or i=1 To x-1b$=Mid$(a$，i，3)If b$="WOR"，Then S=S+1NextPrint SE．nd Sub单击命令按钮，程序运行结果为AA．1B．2C．3D．5

[单选题]有如下程序： Private Sub Command1_Click() a$="A WCIRKER IS HERE" x=Len(a$) For i=1 To x-1 b$=Mid$(a$,i,3) If b$="WOR"Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为A．1B．2C．3D．5