有如下程序： s=InputBox（"input va lue of s："） SELECT CASE s CASE IS＜6 f=s+1 CASE IS＜5 f=s+2 CASE IS＜4 f=s+3 CASE ELSE f=s+4 END SELECT PRINT s；f 运行时从键盘输入6，输出的结果是（）A、3和10B、6和10C、6和11D、5和11
有如下程序： s=InputBox（"input va lue of s："） SELECT CASE s CASE IS＜6 f=s+1 CASE IS＜5 f=s+2 CASE IS＜4 f=s+3 CASE ELSE f=s+4 END SELECT PRINT s；f 运行时从键盘输入6，输出的结果是（）
- A、3和10
- B、6和10
- C、6和11
- D、5和11
相关考题：
有如下程序： INPUT TO A IF A=10 S=0 ENDIF S=1 ?S 假定从键盘输入的A的值一定是数值型，那么上面条件选择程序的执行结果是______。A．0B．1C．由A的值决定D．程序出错
（ 35 ）设在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String * 10TelNum As String * 20End Type在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程 Command1_Click 时，在顺序文件Person.txt 中写入一条 Books 类型的记录。下列能够完成该操作的事件过程是A ） Private Sub Command1_Click()Dim B As BooksOpen “ Person.txt ” For Output As #`1B.Name=InputBox( “ 输入姓名 ” )B.TelNum=InputBox( “ 输入电话号码 ” )Write #1,B.Name,B.TelNumClose #1End SubB ） Private Sub Command1_Click()Dim B As BooksOpen “ Person.txt ” For input As #`1B.Name=InputBox( “ 输入姓名 ” )B.TelNum=InputBox( “ 输入电话号码 ” )Print #1,B.Name,B.TelNumClose #1End SubC ） Private Sub Command1_Click()Dim B As BooksOpen “ Person.txt ” For Output As #`1B.Name=InputBox( “ 输入姓名 ” )B.TelNum=InputBox( “ 输入电话号码 ” )Write #1,BClose #1End SubD ） Private Sub Command1_Click()Open “ Person.txt ” For input As #`1Name=InputBox( “ 输入姓名 ” )TelNum=InputBox( “ 输入电话号码 ” )Print #1, Name, TelNumClose #1End Sub
● 语句（43）用于在HTML表单中添加默认选中的复选框。（43）A. input type=radio name=s checkedB. input type=radio name=s enabledC. input type=checkbox name=s checkedD. input type=checkbox name=s enabled
以下MyReplace函数的功能是将一个字符串(保存在变量S中)中的子字符串(保存在变量OldS中)用新的字符串(保存在变量NewS中)代替，编写以下程序：PublicFunctionMyReplace(s$,OldS$,NewS$)AsStringDimc%,lenOldS%lenOldS=Len(OldS)c=InStr(s,OldS)DoWhilec0s=Left(s,c-1)+NewS+Mid(s,c+lenOldS)c=InStr(s,olds)LoopMyReplace=sEndFunctionPrivateSubCommand1_Click()dimold,newasstringold=inputbox(请输入要替换的字符)new=inputbox(请输入替换后新的字符)PrintMyReplace(VisualBasic程序设计教程5.0版,old,new)EndSub当程序运行单击命令按钮后先后分别输入 5.0和 6.0，程序的运行结果为( )A.VisualBasic程序设计教程5.0版B.VisualBasic程序设计教程6.0版C.VisualBasic程序设计教程6版D.VisualBasic程序设计教程
（35）在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名（StuName）、年级（StuGrade）和年龄（StuAge）.在程序中有下列记录类型和窗体的事件过程，请选择正确的语句完成程序 Private Type student StuName As String*10 StuGrade As String*10 StuAge As String End Type Private Sub For_Click() Dim s As student Open"c:student.txt"For Random As#1 Len=Len(s) For i=1 To 1 s.StuName=InputBox("请输入姓名") s.StuGrade=InputBox("请输入年纪号") s.StuAge=InputBox("请输入年龄") Next i End Sub A.Print#1,s B.Print#1,I C.Put#1,,s D.Put#1,,i
语句(43)用于在HTML表单中添加默认选中的复选框。A.B. 语句(43)用于在HTML表单中添加默认选中的复选框。A．＜input type=radio name=s checked＞B．＜input type=radio name=s enabled＞C．＜input type=checkbox name=s checked＞D．＜input type=checkbox name=s enabled＞
设在工程中有一个标准模块，其中定义了如下记录类型： Type Books Name As String * 10 TelNum As String * 20 EndType 在窗体中添加一个名为Commandl的命令按钮，要求单击命令按钮时，在顺序文件 Ptxt中写入一条记录。下列能够完成该操作的程序段是 ( )A．Private Sub Commandl_Click() Dim B As Books Open"d:\P1.txt"For Output As #1 B. Name=InputBox( "姓名") B. TelNum=InputBox("电话号码") Write #1,B. Name,B. TelNum Close #1 EndSubB．Private Sub Commandl_Click() Dim B As Books Open" d:\Pl.txt" For Input As B. Name=InputBox ("姓名") B. TelNum=InputBox ("电话号码") Print #1,B. Name,B. TelNum Close #1 EndSubC．Private Sub Commandl_Click() Dim B As Books Open"d:\P1. txt"For Output As B. Name=InputBox("姓名") B. TelNum=InputBox ("电话号码") Write #1,B Close #1 EndSubD．Private Sub Commandl Cliek() Open"d:\P1.txt" For Input As Name=InputBox("姓名") TelNum=InputBox ("电话号码") Print #1,Name,TelNum Close #1 EndSub
单击命令按钮，并在对话框内依次输入99，73，84，88，-1，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim S As Single, max As Single, min As Single n=0 S=InputBox("Please enter a score") max=S min=S Do While S＞=0 If S＞max Then max=S End If If S ＜ min Then min=S End If S=InputBox("Please enter a score") n=n+1 Loop Print n; ":"; max, min End SubA．4:99,88B．4;99,73C．4:99,73D．4;99,88
有如下程序： INPUT TO A IF A=10 S=0 ENDIF S=1 ? S 假定从键盘输入的A的值一定是数值型，那么程序的执行结果是______。A．0B．1C．由A的值决定D．程序出错
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序( )。 Private Type student StuName As String * 10 StuGrade As String * 10 StuAge As Integer End Type Private Sub Form_Click() Dim s As student Open "c:\student.txt" For Random As #1 Len = Len(s) For i = 1 To 1 s.StuName = InputBox("请输入姓名") s.StuGrade = InputBox("请输入年级号") s.StuAge = Val(InputBox("请输入年龄")) Next i Close #1 End SubA．Print #1,sB．Print #1,iC．Put #1,,sD．Put #1,,i
有如下程序： CLEAR INPUT“请输入数值：”TO A IF A=10 S=10 END IF S=I ?“S=”，S RETURN 如果输入A的值一定是数值型，那么上面条件选择程序的执行结果为( )。A．0B．1C．由A值决定D．程序出错
【程序说明】 计算下列算式的值。a，Ai为正整数，从键盘输入。其小∑Ai＝1+2…+ Ai，Ai!＝1 *2*3*Ai(i＝1，2… a)。【程序】SET TAIK OFFCLEARINPUT“M＝”TO MSTORE 0 TO S1，S2FOR I=1 TO M(8)DO SUB1DO SUB2ENDFOR? ” 所求算式的值为：“+ALLTRIM(STR(S1/S2，15，3))SET TALK ONPROCEDURE SUB1(9)FOR R＝1 TO AK＝K+RENDFOR(10)RETURNPROCEDURE SUB2(11)FOR P＝1 TO AT=T*PENDFOR(12)RETURN(8)A．INPUT“A＝”TO AB．INPUT“I=”TO IC．INPUT“R=”TO STR(R)D．INPUT“K＝”TOK
假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程Commandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是：A． Prirate Sub Commandl Click() Dim B As Books Open"C:\Person.txt"For Output As #1B．Name=InputBox("输入姓名")B．TelNum=InputBox("输入电话号码") Write #1,B．Name,B．TelNum Close #1 End SubB．Pdrate Sub Commandl Cliok() Dim B As Books Open"c:\Person.txt"For Input As #1B．Name=InputBox("输入姓名")B．TeINum=InputBox("输入电话号码") Print #1,B．Name,B．TelNum Close #1 End SubC．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Output As #1 Name=InputBox("输入姓名") TelNunl=InputBox("输入电话号码") Write #1,B Close #1 End SubD．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox("输入姓名") Temum=InputBox("输入电话号码") Write #1,B．Name,B．TelNuin Close #1 End Sub
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=InputBox(“Input”) Select Case x Case 1，3 Print“分支1” Case Is4 Print“分支2” Case Else Print“Else分支” End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A．分支1B．分支2C．Else分支D．程序出错
在执行以下程序时，为了使输出结果为t＝4，则给a和b输入的值应当满足的条件是______。 a=InputBox(“a=”) b=InputBox(“b=”) s=1 t=1 If a＞0 Then s=s+1 End If If a＞b Then t=s+1 Else If a=b Then t=5 Else t=2*s End If End If Print tA．a＞bB．a＜b＜0C．0＜a＜bD．0＞a＞b
有如下程序： #includeiostream usingnamespacestd； classMyClass{ public： MyClass(intx)：val(x){} voidPrint（）const{cout"const：val="val＼t；} voidPrint（）{cout"val="valt；} private： intval； }； intmain（）{ constMyClassobj1(10)； MyClassobj2(20)；obj1．Print（）； obj2．Print（）； return0； } 程序的输出结果是（ ）。A.va1=10const：va1=20B.const：va1=10const：va1=20C.const：va1=10val=20D.val=10va1=20
有如下程序 x=InputBox("input value of x") Select Case x Case Is0 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
以下语句执行时，从键盘上输入Zhang，执行结果是______。 Dim a As String a=InputBox("Input"，""，"Name") Print aA．InputB．NameC．ZhangD．空字符串
执行如下程序SET TALK OFFS=0I=1INPUT "N=" TO NDO WHILE S 执行如下程序SET TALK OFFS=0I=1INPUT "N=" TO NDO WHILE SS=S+II=I+1ENDDO?SSET TALK ON如果输入值为5，则最后S的显示值是( )。A.1B.3C.5D.6
有如下程序 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+1 Case Is = 0 y=x + 2 Case Else y=x + 3 End Select Print x, y运行时，从键盘输入-5，输出的结果是( )。A．-7B．-9C．-8D．-10
单选题有如下程序：#include #include struct S{ char name[10];};void change(struct S *data,int value){ strcpy(data-name, ****); value=13;}main(){ struct S input; int num = 4; strcpy(input.name, THIS); change(input,num); printf(%s,%d,input.name,num);}程序运行后的输出结果是（ ）。A****,4B****,13CTHIS,4DTHIS,13
单选题有如下程序： s=InputBox（"input va lue of s："） SELECT CASE s CASE IS＜6 f=s+1 CASE IS＜5 f=s+2 CASE IS＜4 f=s+3 CASE ELSE f=s+4 END SELECT PRINT s；f 运行时从键盘输入6，输出的结果是（）A3和10B6和10C6和11D5和11
单选题有以下程序#include #include struct S{ char name[10];};void change(struct S *data, int value){ strcpy(data-name, #); value = 6;}main(){ struct S input; int num = 3; strcpy(input.name, OK); change(input, num); printf(%s,%d, input.name, num);}程序运行后的输出结果是（ ）。AOK,6B#,6COK,3D#,3