单选题有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。A 定义一个数据处理方法B 定义一个数据输入方法C 定义一个事件过程D 定义一个数据类型

题目

单选题

有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。

定义一个数据处理方法

定义一个数据输入方法

定义一个事件过程

定义一个数据类型

参考答案和解析

正确答案： B

解析：暂无解析

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

相似问题和答案

第1题：

在窗体上画一个命令按钮，然后编写如下程序： Sub S1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer,b As Integer a=10 b=30 S1 a，b Print"a="；a；"b="；b End Sub 程序运行后，单击命令按钮，输出结果是 ______。

A．a=30 b=10

B．a=30 b=30

C．a=10 b=30

D．a=10 b=10

正确答案：C
解析：过程S1似乎是要将两个变量的值进行交换，但由于参数是用传值的方式来传递变量值的，所以执行完该过程后，a和b的值并未被交换，保持原来的值不变。

第2题：

有如下程序,执行程序后单击Button1按钮,窗体上显示的是什么()Private Sub Command1_Click()Dim a Dim b As Integera = 5 ／ 2b = 5 ／ 2Print a, bEnd Sub

A、2 2

B、 2 2.5

C、 2.5 2

D、 2.5 2.5

参考答案C

第3题：

执行下面的程序段，x的值为【】。

Private Sub Command1_Click()

For i=1 To 9

a=a+i

x=Val(i)

MsgBox x

End Sub

正确答案：10
10 解析：在程序中For…Next语句之后并没有对i的值改变，此时i为10，故运行后结果为10。

第4题：

下列正确的Visual Basic注释语句是

A．Dim a(10) As Integer Rem这是一个VB程序

B．这是一个VB程序 Private Sub Command1_Click()…

C．a＝1:b＝2:_Rem这是一个VB程序：c＝3

D．If Shift=6 And Button=2 Then Print"BBBB" Rem 这是一个VB程序 End If

正确答案：B
解析：注释语句是非执行语句，用来给程序或语句做注解。使用时应注意以下几点：①注释语句可单独占一行，也可以放在语句的后面。②若在其他语句后使用Rem关键字，则必须使用“:”与语句隔开。③若在其他语句行后使用单引号，则不必使用冒号。④单引号应是半角英文的直撇号。了解以上知识后可知选项B为正确的注释语句。

第5题：

有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B． 1 1

C．2 2

D．1 2

正确答案：B
解析：考查考生对调用通用过程的掌握情况。
[解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
[错解分析] 调用通用过程可以返回多个参数值。
[考点链接] 过程调用、参数传递。

第6题：

有如下程序：

Private Sub Command1_Click（）

Dim a As Single

Dim b As Single

a=2: b=4

Call CS （a, B．

End Sub

Sub CS （x As Single, y As Single）

t=x

x=t ＼ y

y=t Mod y

End Sub

程序运行后，单击命令按钮，a和b的值分别为（）。

A．0 0

B．1 1

C．0 2

D．1 2

正确答案：C

第7题：

设有如下程序： Private Sub Form. Click（） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（）。

A.32

B.33

C.34

D.35

正确答案：B
B。【解析】本题考查For循环，当f=1时，i=1，计算f=f*i=1*1=1；S=S十f=0十1=1，循环继续，当i=2时，f=f*i=1*2=2，S=s+f=1+2=3，循环继续，当i=3时，f=f*i=2*3=6，S=s+f=3+6=9，循环继凄，当i=4时，f=f*i=6*4=24，S=s+f=9+24=33，所以最后输出结果为33，答案选择B。

第8题：

有一过程如下:

Sub Sub1(m As Integer,total As Long)

Dim i As Integer

total=1

For i=1 To m

total=total*i

End Sub

调用它的事件过程如下:

Private Sub Command1_Click()

Dim tot As Long,a As Integer

a=Val(InputBox("请输入数据"))

Call Sub1(a,tot)

Print tot

End Sub

则输入数据5,运行结果为【】。

正确答案：120
120 解析：考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。

第9题：

有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为

A．120

B．60

C．80

D．100

正确答案：A
解析：本题的难点是实参与形参数传递的问题。如果将fact((i))改成fact(i)会产生“ByRef参数类型不符”的提示。字符型变量i经(i)计算的结果为5，其作为常数参数按值传递调用子过程fact(5)。子过程的功能是计算n!。

第10题：

在窗体上画一个命令按钮，然后编写如下程序： Sub S1(By Val x As Integer, By Val y As Integer) Dim t As Integer t=x x=y y=r End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a=10 b=30 S1 a，b Print"a=";"b=";b End Sub 程序运行后，单击命令按钮,．输出结果是______。

A．a=30 b=10

B．a=30 b=30

C．a=10 b=30

D．a=10 b=10

正确答案：C
解析：过程S1似乎是要将两个变量的值进行交换，但由于参数是用传值的方式来传递变量值的；所以执行完该过程后，a和b的值并未被交换，保持原来的值不变。

有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（T

题目

参考答案和解析

相似问题和答案

更多相关问题

相关内容