网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
单选题
设程序中有如下语句：运行程序，执行上述语句，输入5并单击输入对话框上的“取消”按钮，则窗体上输出（ ）。
A
0
B
5
C
100
D
空白
参考答案
参考解析
解析：
单击了“取消”按钮，则当前的输入作废，此时返回一个空字符串，因此窗体上输出空白。
单击了“取消”按钮，则当前的输入作废，此时返回一个空字符串，因此窗体上输出空白。
更多 “单选题设程序中有如下语句：运行程序，执行上述语句，输入5并单击输入对话框上的“取消”按钮，则窗体上输出（ ）。A 0B 5C 100D 空白” 相关考题
考题
（ 35 ） 在窗体中有一个名称为 run35 的命令按钮 ， 单击该按钮从键盘接收学生成绩 ， 如果输入的成绩不 在0 到 100 分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35 命令按钮的 Click 的事件代码如下：Private Sub run35_Click( )Dim flag As Boolcanresult=0flag=TrueDo While flagresult=Val(InputBox(" 请输入学生成绩 :", " 输入 "))If result=0 And result =100 Then___________ElseMsgBox " 成绩输入错误，请重新输入 "End IfLoopRem 成绩输入正确后的程序代码略End Sub程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是（ ） 。A ） flag=FalseB ） flag=Not flagC ） flag=TrueD ） Exit Do
考题
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：Dim Flag As BooleanPrivate Sub Command1_Click（）Dim intNum As IntegerintNum=InputBox（"请输入："）If Flag ThenPrint f（intNum）End IfEnd SubFunction f（X As Integer）As IntegerIf X10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp（Button As Integer,Shift As Integer,X As Single,Y As Single）Flag=TrueEnd Sub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为（ ）。A．0B．5C．15D．无任何输出
考题
（ 31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：Dim Flag As BooleanPrivate Sub Command1_Click( )Dim intNum As IntegerintNum=InputBox(" 请输入 :")If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer)As IntegerIf X10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Flag=TrueEnd Sub运行程序 ， 首先单击窗体 ， 然后单击命令按钮 ， 在输入对话框中输入 5 ， 则程序的输出结果为 （ ） 。A ） 0B ） 5C ） 15D ）无任何输出
考题
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X＜10 Then Y=X Else Y=X＋10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。A．0B．5C．15D．无任何输出
考题
在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click（）x = InputBox（"请输入一个整数"）Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。A．123B．456C．479D．123456
考题
在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubcommand1_click()DimaAsString,bAsStringa=InputBox(EntertheFirstinteger)b=InputBox(EntertheSecondinteger)Printb+aEndSub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111,则输出结果是( )A.456B.111C.567D.111456
考题
（29）通过InputBox函数可以产生输入对话框。若执行下列语句： st$=InputBox("请输入字符串,""字符串对话框","字符串") 运行程序，用户输入完毕并单击“确定”按钮后，st$变量的内容为A.字符串 B.请输入字符串 C.字符串对话框 D.用户输入内容
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click()a= Val(InputBox(“请输入一个整数”))b=Val(InputBox(“请输入一个整数”))Print a+bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。
考题
在窗体上画一个命令按钮，然后编写如下程序：Dim k As Longk=1Do While numLoopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As LongMsgBox rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。
考题
在考生文件夹中有一个工程文件execise25.vbp，相应的窗体文件为execise25.timo在在名为Form1的窗体上有一个命令按钮，其名称为Cmd1，标题为“输入”；还有一个文本框，其名称为Text1，初始内容为空白。程序运行后，单击“输入”命令按钮，显示“输入”对话框。在对话框中输入某个月份的数值(1～12)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入8，将输出“8月份是秋季”，如下图所示。该程序不完整，请补充完整。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。
考题
在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在。到100分之间，则要求重新输入：如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下： Private Sub run35_Click() Dim flag As Boolean result=0 flag＝True Do While flag result=Val(InputBox("请输入学生成绩：","输入")) If result＞=0 And result＜=100 Then ______ Else MsgBox"成绩输入错误，请重新输入" End If Loop Rem 成绩输入正确后的程序代码略 End Sub 程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是______。A．flag=FalseB．flag=Not flagC．flag=TrueD．Exit Do
考题
在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分别输入321和456，则输出结果为【 】。Private Sub Command1_Click()a=InputBox("请输入一个整数")b=InputBox("请再输入一个整数")Print a+bEnd Sub
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容为( )A．123345B．468C．123D．345
考题
在窗体上画一个命令按钮，名称为Commandl，然后编写如下程序：Privme Sub Commandl_Click()Dim intNum As IntegerintNum＝InputBox(“请输入：”)MsgBox f(intNum)End SubFunction f(X As Integer) As Integerf＝IIf (X10,X,X+5)End Function运行程序，单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。
考题
在窗体上添加一个命令按钮，名为Command1，事件过程如下：程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1后，输出的结果是______。A．5B．4C．3D．2
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。A. 输出0B. 输出25C. 输出45D. 无任何输出
考题
在窗体上画一个命令按钮，然后编写如下时间过程（ ）。程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是A. 579B. 123C. 456D. 123456
考题
设程序中有如下语句：x-input box(“输入”,”数据”，100)print x运行程序，执行上述语句，输入5并单击输入对话框上的“取消”按钮，则窗体上输出A)0B)5C)100D)空白
考题
在名为Form1的窗体中建立一个命令按钮，名为Cmd1，标题为Show(如下图所示)。编写适当的事件过程，使程序运行后，若单击Show按钮，则执行语句Form1.Print"Show"如果单击窗体，则执行语句Form1.Cls。注意：文件必须存放在考生文件夹中， 窗体文件名为execise351frm，工程文件名为 execise35.vbp。
考题
翻在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0～100分，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下。 Private Sub run35_Click（ ） Dim flag As Boolcanresult=0flag=TrueDo While flagresult=Val（InputBox（"请输入学生成绩："，"输入"））Ifresult>；=0 And result<；=100 ThenElseMsgBox”成绩输入错误，请重新输入”EndIfLoopRem。成绩输入正确后的程序代码略 End Sub程序中有一空白处，需要填人一条语句使程序完成其功能。下列选项中错误的语句是（ ）。【考点4 VBA流程控制语句】A.flag=FalseB.flag=Not flagC.flag=TrueD.Exit Do
考题
在窗体上绘制一个文本框，然后编写如下事件过程： Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为( )。A．123B．456C．579D．123456
考题
在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在O～100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下： PrivateSub run35_ClickDim flag As Boolcanresult=O flag=True Do Whileflag result=Val(InputBox(”请输入学生成绩：”，”输入”)) Ifresult=0 And result=100 Then __________ Else MsgBox”成绩输入错误，请重新输入” End If Loop Rem成绩输入正确后的程序代码略 End Sub 程序中的空白处需要填入一条语句使程序完成其功能。下列选项中错误的语句是（ ）。A.flag=FalseB.flag=Not flagC.flag=TrueD.Exit Do
考题
单选题在窗体上画一个文本框，然后编写如下事件过程：程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。A
123B
456C
579D
123456
考题
单选题有如下程序：程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。A
100B
50C
120D
70
热门标签
最新试卷
