网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x
运行下列程序：
Private Sub Form_Click( )
Dim y As Integer, x As Integer
Do Until x > 20
x = x + 10
y = y + x
If x > 20 Then Exit Do
Loop
Print x, y
End Sub
单击窗体后，则在窗体上显示的结果是( )。
A.10 20
B.30 60
C.10 30
D.20 60
参考答案
更多 “ 运行下列程序: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 ” 相关考题
考题
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。【说明8.1】以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。【程序代码8.1】Private Sub Command1_Click()For i=1 To 20x=Int((1)*200+100)If (2)=0 ThenPrint xS=S+ (3)End IfNext iPrint"Sum=";SEnd Sub【说明8.2】程序8.2运行后，单击窗体，则在窗体上显示的内容是：a=(4)和b=(5)。【程序代码8.2】Private Sub Form_Click()Dim a As Integer,b As Integera=20:b=50p1 a,bp2 a,bp3 a,bPrint"a=";a,"b=";bEnd SubSub p1(x As Integer, ByValy As Integer)x=x+l0y=y+20End SubSub p2(ByVal×As Integer, y As Integer)x=x+l0y=y+20End SubSub p3(ByVal×As Integer, ByVal y As Integer)x=x+10y=y+20End Sub
考题
有如下函数过程：Function HFC（ByVal x As Integer, ByVal y As Integer） As IntegerDo While y 0sic=x / yx=yy=sicLoopHFC=xEnd Function以下是该函数的调用过程，该程序的运行结果是Private Sub Command1_Click（）Dim a As IntegerDim b As Integera=12b=2x=HFC（a, B．Print xEnd Sub（ ）。A．0B．6C．2D．80
考题
在窗体上画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 Command33_Click()Dim X As Integer，y As Integerx=1：Y=0Do Until y=25y=y+X*XX=X+1 ‘Loop ’ 。MsgBox“x一”＆X＆,“y=”＆yEnd SubA．x=1，y=0B．x=4，y=25C．x=5，y=30D．输出其他结果
考题
设有如下程序：Private Sub Form_Click()Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”For i=4 To 1 Step-1y=Mid(x，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为A．ABCCDEDEFGB．AABBCDEFGC．ABCDEFGD．AABBCCDDEEFFGG
考题
单击命令按钮时，下列程序代码的执行结果为( )。 Private Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Funcfion Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z，x，y)+x End Funcfion Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2 b=3 c=4 Printf SecProc(c,b,a) End SubA．21B．19C．17D．34
考题
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click() Dim a As Integer，b As Integer a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x＞y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．lB．2C．5D．8
考题
单击命令按钮时，下列程序代码的执行结果为______。 Private Sub Proe1 (n As Integer，ByVa1 m As Integer) n=n Mod 10 m=m\ 10 End Sub Private Sub Command1_Click() Dim x As Integer Dim y As Integer x= 12 y = 34 Call Proe1 (x, y) Print x; y End SubA． 12 34B．2 34C．2 3D．12 3
考题
下面程序：Private Sub Form_Click()Dim x，y，z As Integerx＝5y＝7z＝0Call P1(x，y，z)Print Str(z)End SubSub P1(ByVal a As Integer, ByVal b As Integer, c As integer)c＝a＋bEnd Sub运行后的输出结果为A．0B．12C．Str(z)D．显示错误信息
考题
单击按钮时，以下程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=x+y End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer，Z As Integer x=1：y=2：z=3 Call proc1(x，x，z) Print x；x；z Call proc1(x，y，y) Print x；y；y End SubA．6 6 12 `B．9 5 10 6101051010C．9 6 12D．9 10 10 910155410
考题
阅读下列程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为A．0B．20C．40D．无任何输出
考题
有如下函数过程。Function UNC(ByVal x As Integer，ByVal y As Integer)As IntegerDo While y＜＞0S=x/yx=yy=SLoopUNC=xEnd Function以下事件调用该函数，程序运行结果是【 】。Private Sub Command1_Click()Dim a As IntegerDim b As Integera=12b=2x=UNC(a，b)Print xEnd Sub
考题
单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVal n As Integer，ByValm As Integer) n=n\10 m=m\10 End SubA．08B．50 78C．450D．78 50
考题
在窗体上画一个名称为Commana1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func = Y End Function Private Sub Form. MouseDown(Button As Integer,_ Shift As Integer,X As Single, Y As Single) SW = False End Sub Private Sub Form_MouseUp( Button As Integer,_ Shift As Integer ,X As Single, Y As Single) SW = True End Sub Private Sub Commandl_Click( ) Dim intNum As Integer intNum = InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为A．输出0B．输出25C．输出45D．无任何输出
考题
有如下函数过程。Function Fun(By Val x As Integer,By Val y As Integer)As IntegerDo While y0reminder=x Mod yx=yy=reminderLoopFun=xEnd Function以下调用函数的事件过程,该程序的运行结果是Private Sub Command7_Click()Dim a As Integer,b As Integera=100:b=25x=Fun(a,B)Print xEnd SubA．0B．25C．50D．100
考题
以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 Private SubForm_Click() Dim a As Integer，b As Integer a=10 ：b=20 Call ff(a，B)Print a，b End Sub Private Sub ff(x As Integer，y As Integer) x=x+y y=x+y End SubA．30 50B．30 30C．20 20D．10 20
考题
有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n ＜= 4 x=x +y n=-+1 Loop firstfunc = x End Function调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub该事件过程的执行结果是 ______。A．1B．3C．16D．9
考题
当发生Form_Click事件时，下列程序的输出结果是( )。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer，p As Integer k=6：p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub sub1(x As Integer,ByVal y As Integer) Dim m As Integer n=n+5 m=n+x+y x=x+y y=x+y End SubA．7 75 66 60 7 80 126 60B．7 75 66 60 7 75 126 60C．7 75 66 60 7 80 66 60D．7 75 66 60 7 75 66 60
考题
下面程序： Private Sub Form_Click() Dim x,y,z As Integer x=5 y=7 z=0 CallPI(x,y,z) Print Str(z) End Sub SubP1(By Val a As Integer, By Val b As Integer, c As Integer) C=a+b End Sub 运行后的输出结果为______。A．0B．12C．Str(z)D．显示错误信息
考题
阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As Integer Do While n ＜ = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为．A．16B．21C．26D．31
考题
下面程序： Private Sub Form_Click() Dim x，y，z As Integer x=5 y=7 z=0 Call P1(x，y，z) Print Str(z) End Sub Sub P1(ByVal a As Integer，ByVal b As Integer,c As Integer) c=a+b End Sub 运行后的输出结果为 ______。A．0B．12C．Sb(z)D．显示错误信息
考题
执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print"Click"： End Sub Private Sub Form_MouseDown(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Up" End SubA．DownUpClickB．CfickDownUpC．DownClickUpD．UpDownClick
考题
运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = 12345For x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.1B.11111C.55555D.12345
考题
在窗体上画一个名称为Coramandl的命令按钮，然后编写如下程序； Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim a As Boolean SW=False End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("") If SW Then Print flmc(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为A．输出0B．输出2C．输出45D．无任何输出
考题
单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Integer，y As Integer，z As Integer x=1：y=2：z=3 Call proc1(x，x，2) Print x；x；z Call proc1(x，y，y) Print x；y；y End SubA．6 6 12 6 6 10B．9 5 10 5 10 10C．9 6 12 9 10 15D．9 5 10 5 4 10
考题
程序段如下，当发生Form_Click事件时，窗体上输出的结果是( )。 Option Explicit Private x As Integer Public y As Integer Sub Test() Dim y as integer x=2：y=2 Print"x1=";x;"y1=";y End Sub Private Sub Form_Click() x=1：y=1 Test Print "X2="；x；"y2="；y End SubA．x1=2 y1=2 x2=2 y2=1B．x1=2 y1=2 x2=2 y2=2C．x1=2 y1=1 x2=2 y2=2D．x1=2 y1=1 x2=2 y2=1
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，y As Integer x = 41： y = 54 Call sub1(x，y) x = x + 1 Print x； y End Sub Private Sub sub1(n As Integer， ByVal m As Integer) n=n Mod 10 m=m\10 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．41 54B．2 54C．1 3D．42 3
热门标签
最新试卷