计算n!的函数过程如下:
Private Function fact(n As Integer)As Long
f = 1
For i = 1 To n
f = f * i
Next i
(___________________)
End Function
下划线处需要编写的语句是()。
A. f = 1
B. f = fact
C. fact = f
D. 不需要其他任何语句
第1题
在窗体上画一个List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目,当单击列表框中的某个项目时,在标签中显示被选中的项目的名称,下列能正确实现上述操作的程序是( )。
A) Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B) Private Sub List1_Click()
Label1.Name = List1.ListIndex
End Sub
C) Private Sub List1_Click()
Label1.Name = List1.Text
End Sub
D) Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
第2题
用来设置文本框有无滚动条的属性是( )
A. ScrollBars
B. MultiLine
C. SelText
D. SelLength
第3题
计算z的值,当x大于y时,z=x;否则z=y。下列语句错误的是( )
A. If x>=y Then z=x : z=y
B If x>=y Then z=x Else z=y
C. z=y : If x>=y Then z=x
D. If x<=y Then z=y Else z=x
第4题
运行下列程序段后,j3显示的结果为( )
J1=23
J2=32
j3=j1 & J2
A 3223
B 23
C 55
D 2332
第5题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Sub Command1_Click()
num As Integer
= 1
Until num >6
num;
= num + 2.4
Sub
程序运行后,单击命令按钮,则窗体上显示的内容是( )
A、1 3.4 5.8
B、1 3 5
C、1 4 7
D、无数据输出
第6题
下列程序段运行后,其运行结果是( )。
Dim a(3) As Integer, b(3) As Integer
For k = 0 To 3
a(k) = k*k +k
b(k) = a(k)-k
Next k
Print a(2) + b(1)
A. 5
B. 6
C. 7
D. 8
第7题
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Public x As Integer
Private Sub Command1_Click()
Dim y As Integer
x=10 : y=5
Call f(x, y)
Print x; y
End Sub
Private Sub f(x1 As Integer, y1 As Integer)
x1=x+2
y1=y+2
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是( )。
A. 10 5
B. 12 7
C. 12 2
D. 以上都不对
第8题
若用户在键盘上按下一个键,则会产生一个( )事件
A. click
B. KeyDown
C. DbClick
D. Load
第9题
要在代码编辑器的“通用/声明”段部分定义私有Function函数,则正确的是()。
A. Public Sub
B. Public Function
C. Private Sub
D. Private Function
第10题
当一个工程含有3个窗体时,其中的启动窗体是( )。
A. 启动Visual Basic时建立的窗体。
B. 第一个添加的窗体Form1。
C. 最后一个添加的窗体Form3。
D. 在"工程属性"对话框中指定的窗体。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!