Which of the following is NOT among the many problems with the current patent system?
A.Patent offices are being inundated with applications.
B.A series of messy and expensive court battles.
C.Patent offices collect and publish data about what happens once patents are granted.
D.Large numbers of patents with extremely narrow claims.
第1题
设有如下窗体单击事件过程: Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1 a=a+1 Case 2, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后,单击窗体,则消息框的输出结果是()。
A.3
B.4
C.5
D.6
第2题
有如下程序: Private Sub Form_Click() E=1:F=1 For i=1 To 3 E=E+F:F=F+E Next Print E;F End Sub 该程序的输出结果是
A.6 6
B.5 8
C.13 21
D.34 55
第3题
9)设有如下程序:
Private Sub Form_Click()
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i); 【9】
Next i
End Sub
程序运行后,单击窗体,结果如图所示,请填空。
第4题
设有以下窗体单击事件过程:
Private Sub Form_Click()
a=1
For i=1 To 3
End Select
Next i
End Sub
打开窗体运行后,单击窗体,则消息框的输出内容是()。
第5题
设有如下程序:
Private Sub Form_Click()
Cls
a$=”123456”
For i=1 To 6
Print Tab(12-i);_____
Next i
End Sub
程序运行后,单击窗体,要求结果如图所示,则在_____处应填入的内容为
A.Left(a$,i)
B.Mid(a$,8-i,i)
C.Right(a$,i)
D.Mia(a$,7,i)
第6题
设有如下程序:
Private Sub Form_Click()
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(j)=i+1
sum=sum+ary(i)
Next 1
Print sum
Eud Sub
程序运行后,单击窗体,则在窗体上显示的是
A.15
B.16
C.20
D.25
第7题
运行下列程序:
Private Sub Form_Click()
For i = 3 To 1 Step -1
For j = 2 To 1 Step -1
Debug.Print "A"; String(3 - i, "*");
Next j
Next i
End Sub
单击窗体后,则在立即窗口内显示结果是()。
A.AAA*A**A***
B.AAA*A*A**A**
C.A*A*A*A*A*A*
D.A***
第8题
设有如下程序:
Private Sub Form_Click()
Dim i As Integer,x As String,Y As String
x=”ABCDEFG”
For i=4 To 1 Step-1
y=Mid(x,i,i)+y
Next i
Print y
End Sub
程序运行后,单击窗体,输出结果为
A.ABCCDEDEFG
B.AABBCDEFG
C.ABCDEFG
D.AABBCCDDEEFFGG
第9题
设有以下窗体单击事件过程:
Private Sub Form_Click()
a=1
For i=1 To 3
Select Case i
Case 1,3
a=a+1
Case 2,4
a=a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后,单击窗体消息框的输出内容应为【 】。
第10题
运行下列程序:
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
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!