设有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunction在窗体上画一个名_刷题宝

题干

设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
DIM x As Integer
x = 10
y=5
Z = f(x)
Print x;Z
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）

A．10 5

B．20 5

C．20 40

D．10 40

上一题下一题 0.99难度选择题更新时间:2019-09-06 12:28:17

答案(点此获取答案解析）

同类题1

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
m = 0
For n =" 1" To 20
If n Mod 3 <> 0 Then m =" m" + n \ 3
Next n
Text1.text = Str(m)
End Sub
程序运行后，如果单击命令按钮，则文本框Text1中显示的内容是 ( )

同类题2

写出下列程序的输出结果
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "zhejiangxiaoshi"
c =" Mid(a," Len(a) \ 2 + 2, 7)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是( )

同类题3

某VB程序段如下：
a="“Visual" Basic 6.0”
b=Mid(a,1,6)
c=“C++”
Text1.text=b+c
该程序段运行后在文本框Text1中显未的内容是( )

A．“Visual Basic 6.0C++”	B．b+c
C．“VisualC++”	D．“IC++”

同类题4

设有数组定义语句：Dim a(5) As Integer，Listl 为列表框控件。下列给数组元素赋值的语句，错误的是（）。

B．a(3)=VAL(InputBox(“InputData”）

C．a(3)=Listl.ListIndex

D．a=Array(1,2,3,4,5,6)

同类题5

将文本框Text1中的数据赋值到数值型变量n中，正确的语句是（）

A．n = text1	B．n = Text1.text
C．n = Str(Text1.text)	D．n = Val(Text1.text)

相关知识点