A.BackColor
B.BorderStyle
C.ForeColor
D.BackStyle
第2题
确定一个窗体或控件大小的属性是().
A:Width 和Height
B:Width 和Top
C:Top 和right
D:Top 和 Left
第3题
要在垂直位置上移动控件,应利用控件的()属性.
A:Left(左右移动时,利用该属性)
B:Width
C:Top
D:Height
第5题
下面对Microsfot Excel(97及以后版本)的说法中,错误的是( )。
A.Excel的单元格中可以是文字、数字或公式等
B.当打开一个Excel工作簿时,只是包含有数据的工作表被打开
C.Excel工作表最多有65536行
D.Excel工作表可以保存为文本文件
第6题
Internet的三项主要服务项目是英文缩写是( )。
A.E-mail, FTP, WWW
B.Web, LAN, HTML
C.ISP, HUB, BBS
D.TCP/IP, FTP, PPP/SLIP
第7题
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
第8题
运行下列程序:
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
第9题
运行下列程序:
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
第10题
运行下列程序:
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
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!