运行下列程序: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.1

题目

运行下列程序: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

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

在窗体上画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．0

B．5

C．15

D．无任何输出

正确答案：B
解析：单击窗体在释放鼠标时，将会触发Form_MouseUp事件，将Flag值置True，从而允许输出。在Command1的Click事件中，通过输入框输入5，并在窗体上输出f(5)，函数f的作用是，如果自变量x10，则直接返回 x，否则返回x＋10。故本题应输出5。

第2题：

设有如下程序：

Private Sub Form_Click()

Dim i As Integer，x As String,Y As String

x=”ABCDEFG”

For i=4 To 1 Step-1

y=Mid(x，i，i)+y

Next i

Print y

End Sub

程序运行后，单击窗体，输出结果为

A．ABCCDEDEFG

B．AABBCDEFG

C．ABCDEFG

D．AABBCCDDEEFFGG

正确答案：A
解析：本题Mid函数的功能是从第i个字符开始取i个，当i=4时，从字母D开始取到G，并加在y的开头，当i=3时，从字母C开始取到E，并加在y的开头，当i=2时，从字母B开始取到C，并加在y的开头，当i=1时，只取字母A，并加在y的开头，因此本题答案为A)。

第3题：

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

【说明8.1】

以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。

【程序代码8.1】

Private Sub Command1_Click()

For i=1 To 20

x=Int((1)*200+100)

If (2)=0 Then

Print x

S=S+ (3)

End If

Next i

Print"Sum=";S

End Sub

【说明8.2】

程序8.2运行后，单击窗体，则在窗体上显示的内容是：a=(4)和b=(5)。

【程序代码8.2】

Private Sub Form_Click()

Dim a As Integer,b As Integer

a=20:b=50

p1 a,b

p2 a,b

p3 a,b

Print"a=";a,"b=";b

End Sub

Sub p1(x As Integer, ByValy As Integer)

x=x+l0

y=y+20

End Sub

Sub p2(ByVal×As Integer, y As Integer)

x=x+l0

y=y+20

End Sub

Sub p3(ByVal×As Integer, ByVal y As Integer)

x=x+10

y=y+20

End Sub

正确答案：(1)Rnd或Rnd(n)其中n为任意整数 (2)x Mod 5或Int(x/5)-x/5或x/5-Int(x/5)或CInt(x/5)-x/5或x/5-CInt(x/5)或Round(x/5)-x/5或x/5- Round(x/5)或x-(x\5)*5或(x\5)*5-x或Fix(x/5)-x/5或x/5-Fix(x-5) (3)x (4)30 (5)70
(1)Rnd或Rnd(n)，其中n为任意整数 (2)x Mod 5或Int(x/5)-x/5或x/5-Int(x/5)或CInt(x/5)-x/5或x/5-CInt(x/5)或Round(x/5)-x/5或x/5- Round(x/5)或x-(x\5)*5或(x\5)*5-x或Fix(x/5)-x/5或x/5-Fix(x-5) (3)x (4)30 (5)70 解析：x用来存放200～300之间的随机整数，因此，赋给x的表达式是Int(Rnd*200+100)，即(1)空填“Rnd”；下面的if语句用来判断能被5整除的数，因此(2)空填“x Mod 5”；S用来表示能被5整除数的累加和，因此(3)空填“x”。
程序5.2主要考过程参数的值参(传值)和变参(传地址)概念。参数前有Byval限定词表示参数传递是传值，否则是传地址。参数传递是传值时，被调过程不能改变主调过程的参数值；而参数传递是传地址时，被调过程改变主调过程的参数值。本题中，过程P1的第一个参数是传地址，它在过程中的变化将带到主调程序，而第二个参数是传值，当过程执行完后，主调过程的参数值不变，因此p1 a，b这条语句执行后，a的值是30，b的值是50；同理，语句p2 a，b执行后，a的值是30， b的值是70；语句p3 a，b执行后，a的值仍是30，b的值仍是70。

第4题：

下面程序：

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．0

B．12

C．Str(z)

D．显示错误信息

正确答案：B
解析：在本题中，用Call过程名的方法调用过程P1。在P1中，将参数C的值改为12。因为参数C是按地址传送(默认为按地址传送，即ByRef)，故z的值变为12了，所以输出值为12。

第5题：

在窗体上画一个命令按钮，然后编写如下程序 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．l

B．2

C．5

D．8

正确答案：B
解析：事件过程N的作用是输出两个数中最大的，它调用了IIF函数，条件部分是(x＞y)，如果满足，那么N的值即为x的值，否则为y的值。在Sub过程中，定义了两个变量a，b，并赋给它们初值1，2，并调用Print函数，输出N(a，B)的值，因为xy，所以输出y=2。

第6题：

有如下事件程序，运行该程序后输出结果是

Private Sub Command33_Click()

Dim X As Integer，y As Integer

x=1：Y=0

Do Until y<=25

y=y+X*X

X=X+1 ‘

Loop ’ 。

MsgBox“x一”＆X＆,“y=”＆y

End Sub

A．x=1，y=0

B．x=4，y=25

C．x=5，y=30

D．输出其他结果

正确答案：A
解析：Do Until-Loop结构是条件式值为假时，重复执行循环，直至条件式值为真，结束循环。

第7题：

单击命令按钮时，下列程序代码的执行结果为( )。 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 Sub

A．21

B．19

C．17

D．34

正确答案：A

第8题：

有如下函数过程：

Function HFC（ByVal x As Integer, ByVal y As Integer） As Integer

Do While y <> 0

sic=x / y

x=y

y=sic

Loop

HFC=x

End Function

以下是该函数的调用过程，该程序的运行结果是

Private Sub Command1_Click（）

Dim a As Integer

Dim b As Integer

a=12

b=2

x=HFC（a, B．

Print x

End Sub（）。

A．0

B．6

C．2

D．80

正确答案：B

第9题：

单击命令按钮时，下列程序代码的执行结果为______。 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 Sub

A． 12 34

B．2 34

C．2 3

D．12 3

正确答案：B

第10题：

单击按钮时，以下程序运行后的输出结果是 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 Sub

A．6 6 12 `

B．9 5 10 6101051010

C．9 6 12

D．9 10 10 910155410

正确答案：A
解析：从整体上看，可得主调过程将两次调用过程Proc1后，实参的值将随形参变化而变化，现在分析一下这两次调用实参和形参是怎么变化的。第一次调用被调过程proc1，主调过程把实参x，x，z的地址分别传给形参x，y,z，此时形参x，y，z值分别为1，1，3，执行语句x=3*z后，形参x值变为9，此时相对应的实参x也变为9，执行语句y=2*z后，形参y值变为6，则相对应的实参x值变为6。执行x=x+y后，形参z值应为12，当然这次调用后，程序代码输出的数值为6，6，12；第二次调用被调过程proc1，主调过程把实参x，x，z的地址分别传给形参x，y，z。我们应注意一下，此时实参x的值为6而不是1，所以此时形参x，y，z值分别为6，2和2，执行语句x=3*z后，形参x值为6，相对实参x值也相应的变为6。执行语句y=2*z后，形参y值变为4，相应的实参y值也变为4，执行z=x+y后，形参z值变为10，相应的实参y的值变为10，而形参y和x的地址相同，最后它们值都应为10，所以此次调用后，程序代码将输出的数值为6，10和10。

运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x

题目

相似问题和答案

更多相关问题

相关内容