标准控件不包括()控件。
A.驱动器列表框
B. 目录列表框
C. 文件列表框
D. 通用对话框
A.驱动器列表框
B. 目录列表框
C. 文件列表框
D. 通用对话框
第1题
执行下面的语句后,所产生的信息框的标题是( )
a=MsgBox("AAAA",5,"BBBB")
A.AAAA
B.5
C.BBBB
D.没有标题
第2题
下面对Microsfot Excel(97及以后版本)的说法中,错误的是( )。
A.Excel的单元格中可以是文字、数字或公式等
B.当打开一个Excel工作簿时,只是包含有数据的工作表被打开
C.Excel工作表最多有65536行
D.Excel工作表可以保存为文本文件
第3题
Internet的三项主要服务项目是英文缩写是( )。
A.E-mail, FTP, WWW
B.Web, LAN, HTML
C.ISP, HUB, BBS
D.TCP/IP, FTP, PPP/SLIP
第4题
x,y是整数型变量,z产生一个范围在[y,x]之间的随机整数的语句是( )。
A.z=Int(Rnd*(y-x+1))+x
B.z=Int(Rnd*y) + x
C.z=Int(Rnd*x)+y
D.z=Int(Rnd*(y-x)) + x
第5题
运行下列程序:
Dim b
Private Sub Form_Click( )
a = 1: b = 1
Call fun1(a)
Print "X = "; a; ",Y = "; b
End Sub
Private Sub fun1(a)
b = 2 * a
a = 3 * b
End Sub
单击窗体后,则在窗体上显示的结果是( )。
A.X = 1,Y = 1
B.X = 2,Y = 6
C.X = 6,Y = 2
D.X = 6,Y = 1
第6题
运行下列程序:
Private Sub Form_Click( )
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x > 10
End Sub
单击窗体后,则在窗体上显示的结果是( )。
A.5
B.1 2 3 4 5
C.19
D.7
第7题
运行下列程序:
Private Sub Form_Click( )
For i = 1 To 20
If fun1(i) Then
s = s + 1
End If
Next i
Print s
End Sub
Private Function fun1(y) As Boolean
If y Mod 2 <> 0 Then
fun1 = False
Else
fun1 = True
End If
End Function
单击窗体后,则在窗体上显示的结果是( )。
A.110
B.10
C.0
D.20
第8题
运行下列程序:
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
第9题
( )把相距遥远的许多局域网和计算机用户互相连接在一起,它的作用范围通常可以从几十公里到几千公里,甚至更大的范围,也称为远程网。
A.公司网
B.WAN
C.LAN
D.小型网
第10题
运行下列程序:
Private Sub form_Click( )
x = 8: y = 2
Call fun1((x), y)
Print x, y
End Sub
Private Sub fun1(x, y)
s = x
x = s / y
y = s Mod y
End Sub
单击窗体后,则在窗体上显示的结果是( )。
A.4 2
B.8 2
C.8 0
D.2 4
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!