Trial and error are the source of our knowledge.A.isB.wereC.hasD.have been
Trial and error are the source of our knowledge.
A.is
B.were
C.has
D.have been
Trial and error are the source of our knowledge.
A.is
B.were
C.has
D.have been
第1题
窗体上有一个名称为Command1的命令按钮,并有如下程序:
Private Sub Command1 Click()
x=15
Do While x>0
x=x-3
x=IIf(Int(x/5)=x/5,x+2,x)
Loop
Print x
End Sub
程序运行后,单击命令按钮Command1,输出结果为()。
A.0
B.-l
C.-2
D.-_3
第2题
在窗体上画一个命令按钮<其名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i<=4 Then x=x+1 Print x Next i End Sub 程序运行后,单击命令按钮;其输出结果为 ______。
A.1 2 3 4
B.2 3 4 5
C.2 3 4 4
D.3 4 5 6
第3题
下列程序段运行后窗体上输出结果为()。 Private Sub Command1_Click() a=5: b=4: c=3: d=2 x=3>2*b Or a=c And b<>c Or c>d Print x End Sub
A.1
B.True
C.False
D.2
第4题
在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序: Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function 程序运行后,单击命令按钮,输出结果为______。
A.12
B.15
C.17
D.18
第5题
在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序: Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function 程序运行后,单击命令按钮,输出结果为______。
A.12
B.15
C.17
D.18
第6题
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1 Click() For i=1 To 4 If i=1 Then x=i If i<=4 Then x=X+1 Print x Next i End Sub 程序运行后,单击命令按钮,其输出结果为:_______。
A.1 2 3 4
B.2 3 4 5
C.2 3 4 4
D.3 4 5 6
第7题
A.0
B.-l
C.-2
D.-_3
第8题
执行下列程序后,鼠标单击窗体,输出结果为
Private Sub Form_Click()
Print "Click";
End Sub
Private Sub Form_mouseDown(Button As Integer,Shift
As Integer, X As Single, Y As Single)
Print "Donw"
End Sub
Private Sub Form_MouseUp(ButtonAsInteger,Shift
As Integer, X As Single, Y As Single)
Print "Up"
End Sub
A.DownUpClick
B.ClickDownUp
C.DownClickUp
D.UpDownClick
第9题
下列程序段,运行后窗体上输出结果是()。
Private Sub Command1_Click()
a=5:b=4:c=3:d=2
x=3>2*b Or a=c And b<>c Or c>d
Printx
End Sub
A.1
B.True
C.False
D.2
第10题
执行下列程序后,鼠标单击窗体,输出结果为
Private Sub Form_Click()
Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print "Donw"
End Sub
Private Sub Form_MouseUp(ButtonAs Integer,Shift As Integer,X As Single,Y As Single)
Print "Up"
End Sub
A.DownUpClick
B.ClickDownUp
C.DownClickUp
D.UpDownCliek
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!