网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
单选题
当下面程序运行后，单击窗体在对话框中输入10，则输出的结果是（） Private Sub Form_Click（） score=InputBox（"输入"） Select Case score CaseIs＜10 a$="F" Case 10 To 19 a$="D" Case 20 To 29 a$="C" Case 30 To 39 a$="B" Case Else a$="A" End Select Printa$ End Sub
A
A
B
B
C
C
D
D
参考答案
参考解析
解析：
暂无解析
更多 “单选题当下面程序运行后，单击窗体在对话框中输入10，则输出的结果是（） Private Sub Form_Click（） score=InputBox（"输入"） Select Case score CaseIs＜10 a$="F" Case 10 To 19 a$="D" Case 20 To 29 a$="C" Case 30 To 39 a$="B" Case Else a$="A" End Select Printa$ End SubA AB BC CD D” 相关考题
考题
有如下程序：Private Sub Form_Click()Dim i As Integer，Sum As IntegerSum=0For i=2 To 10If i Mod 2＜＞0 And i Mod 3=0 ThenSum=Sum+iEndIfNextPrint SumEnd Sub程序运行后，单击窗体，输出结果为A．12B．30C．24D．18
考题
在窗体上画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（）Dim Check As Boolean, Counter As IntegerCheck = TrueCounter = 5DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint CounterEnd Sub程序运行后，单击窗体，输出结果为______。
考题
设有如下程序：Private Sub Form_Click（）Dim n As Integer, s As Integern = 8s = 0Dos = s + nn = n - 1Loop While n 0Print sEnd Sub以上程序的功能是______。程序运行后，单击窗体，输出结果为______。
考题
在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click（）x = InputBox（"请输入一个整数"）Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。A．123B．456C．479D．123456
考题
（ 32 ）设有以下程序：Private Sub Form_Click()X=50For i=1 To 4Y=InputBox( “ 请输入一个整数 ” )Y=Val(y)If y Mod 5=0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入 15 、 24 、 35 、 46 ，输出结果为A ） 100B ） 50C ） 120D ） 70
考题
在窗体上画一个命令按钮，然后编写如下事件过程：private sub command1_click()dima,basintegera=Val(inputbox(EntertheFirstinteger))b=Val(inputbox(EntertheSecondinteger))Printb+aend sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111，则输出结果是( )A.456B.111C.567D.111456
考题
假定有以下程序：Private Sub Form_Click()a=1：b=aDo Until a=5x=a*bPrint b；xa=a+bb=b+aLoopEnd Sub程序运行后，单击窗体，输出结果是A．1 1 2 3B．1 1 2 4C．1 1 3 8D．1 1 3 6
考题
（ 8 ）有如下程序：Private Sub Form_Click （）n=10i=0Doi=i+nn=n-2Loop While n2Print iEnd Sub程序运行后，单击窗体，输出结果为 【 10 】 。
考题
设有以下窗体单击事件过程：Private Sub Form_Click()a=1For i=1 To 3End SelectNext iEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是( )。
考题
请阅读程序：Private Sub Form_Click()m=1For i=4 To 1 Step-1Print Str(m)；m=m+1For j=1 To iPrint”*”；Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是( )。A．1**** 2*** 3** 4*B．4* 3** 2*** 1****C．**** *** ** *D．* ** *** ****
考题
有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。A．Private Sub Form_Click() PopupMenu cut End SubB．Private Sub Command1_Click() PopupMenu edit End SubC．Private Sub Form_Click() PopupMenu edit End SubD．Private Sub Form_Click() PopupMenu cut End Sub
考题
有如下程序：Option Base 1Private Sub Form_Click()Dim arr,SumSum=0For i=1 To 10If arr(i)/3=arr(i)\3 ThenEnd IfNext iEnd Sub程序运行后，单击窗体，消息框的输出结果为( )。
考题
设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1 a=a+1 Case 2, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是( )。A．3B．4C．5D．6
考题
编写如下事件过程： Private Sub Form_Click() k=2 Ifk＞=1 Then A=3 Ifk＞=2 Then A=2 Ifk＞=3 Then A=1 Print A End Sub 程序运行后，单击窗体，输出的结果为 ______。A．1B．2C．3D．出错
考题
阅读程序：Private Sub Form_Click()msg 1$＝"继续吗?"msg 2$="操作对话框"r＝MsgBox(msgl$,vbYesNo Or vbDefaultButton2,msg2$)End Sub程序运行后，单击窗体，将产生一个信息框。此时如果直接按Enter键，则相当于用鼠标单击信息框中的【 】按钮。
考题
以下程序运行时连续单击4次窗体，则第4次单击窗体后消息框中的输出结果为【 】。PRIVATE FORM_CLICK( )STATIC A AS INTEGERDIM B AS INTEGERB=A+B+1A=A+BMSGBOX A"," BEND SUB
考题
在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分别输入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
考题
设有以下窗体单击事件过程：Private Sub Form_Click()a=1For i=l To 3Select Case iCase 1，3a=a+1Case 2,4a=a+2End SelectNext iMsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是______。
考题
在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过程： Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示是( )。A．123B．456C．579D．123456
考题
在窗体上放一个文本框Text1，在文本框中输入456，并有下列事件过程：Private Sub Form_Click()x=InputBox("请输入一个整数")Print x+Text1.TextEnd Sub单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示的是( )。A．123B．456C．579D．123456
考题
若有以下窗体单击事件过程：Private Sub Form_Click()result=1For i=1 To 6 step 3result=result*iNext iMsgBox resultEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是A．1B．4C．15D．120
考题
下面一段程序的功能是，单击窗体弹出对话框。在对话框中输入一个文件名，窗体中输出该文件名的文件号。请填空。Private Sub Form_ click()filename = InputSox (“请输入文件名”)Filecode =Open filename For Output As FilecodePrint filename; “的文件号是”; FilecodeClose FilecodeEnd Sub
考题
设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1,3 a=a+l Case2,4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是______。A．3B．4C．5D．6
考题
运行下列程序：Private Sub form_Click( )For i = 1 To 2x = 1For j = 1 To 3x = 5For k = 1 To 4x = x + 2Next kNext jNext iPrint xEnd Sub单击窗体后，则输出结果是( )。A.5B.13C.25D.48
考题
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x
运行下列程序：Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
热门标签
最新试卷
