By the end of next year, I______for the company for 10 years.A.workB.am workingC.had worke
By the end of next year, I______for the company for 10 years.
A.work
B.am working
C.had worked
D.will have worked
By the end of next year, I______for the company for 10 years.
A.work
B.am working
C.had worked
D.will have worked
Private Sub Command 1_Click()
Dim x as intege,y as integer
For x=-34 To 34
For y=-34 To 34
If______Then
Debug.print x,Y
End If
Next y
Next x
End Sub
给出下面程序: Private Sub Command1_Click() Dim x,y,z X=False For Each y In 2 If y.Text="Hello" Then x=True Exit For End If Next y End Sub 下面描述正确的是
A.退出For Each…Next循环的条件是x=True
B.退出For Each…Next循环的条件是x=False
C.程序检查y对象的Text属性,等于“”时退出For Each…Next循环
D.程序逐一查找在z中的对象,不确切并判断其Text属性,文本框中的内容等于“Hello”时退出For Each…Next循环
运行下列程序:
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
下面程序运行后,文本框中的数据为()。
Private Sub Command1_Click()
For a=1 To 5
y=1
For b=1 To 10
For c=1 To 6
x=x+1
y=y+1
Next c
Next b
Next a
Text1.Text=y
End Sub
下列程序运行后的输出结果是
Function Fun(n)
X=n*n
Fun=x-11
End Function
Private Sub Command1_Click()
For k=1 To 2
y=Fun(k):Print y
Next
End Sub
A.-10 -7
B.10 8
C.1 3
D.0 4
下列程序计算1!,3!,5!,7!的值。完善下列程序。
Private Sub Command1_Click()
for x = 1 To 7 Step 2
()
For y = 1 To x
fact = fact * y
Next y
Print x; "! ="; fact
Next x
End Sub
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!