工伤保险也称职业伤害保险，是指劳动者在生产劳动和其他工作过程中遭受意外伤害或因长期接触有毒有害因素引起职业病伤害后，由国家或社会为负伤、致残者和死亡者生前供养的亲属提供必要的物质保障制度。根据上述定义，下列情形不属于“工伤”范畴的是：

下列程序的输出结果是()。 Dima a=Array(1，2,3,4,5,6,7,8) i=0 ForK=100 To 90 Step-2 s=a(i)^2 If a(i)＞3 Then Exit For i=i+1 Nextk Printk；a(i)；s

A．88 6 36

B．88 1 2

C．90 2 4

D．94 4 16

（20）运行下列语句后，输出的结果是 Option Base 1 Dim a i=1 A=Array(1,-2,9,0,-1,9) Do K=a(i) For m=10 To k Step -2 Next m Print n+m i=i+1 Loop While Abs(m+n)<>27A.3 27 -8 B.3 -8 27 C.-8 27 3 D.-8 3 27

下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

D．天天向上清华大学天上人间程序设计

运行下列语句后，输出的结果是()。 Option Base 1 Dim a i=1 a=Array(l, -2, 9, 0, -1, 9) Do k=a(i) For m = 10 To k Step -2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n) ＜＞ 27

A．3 27-8

B．3-8 27

C．-8 27 3

D．-8 3 27

下列程序运行时输出的结果是

Private Sub Form_Click()

Dim x

x=Array("天天向上","清华大学","天上人间","程序设计")

For i=LBound(a,1) to UBound(a,1)

If Left(a(i),1)="天"Then Print a(i);

Next

End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

D．天天向上清华大学天上人间程序设计

以下程序的输出结果是( )。

Dim i As Integer,j As Integer,k As Integer

i=1:k=5:j=1

Do While i＜=k*j

i=i+1

Loop

MsgBox i

A．3 B．4 C．5 D．6

运行下列程序：

Private Sub Form_Click()

Dim sum As Integer

Dim i As Integer

sum = 0

For i =12.4 To3.1 Step -3.8

sum = sum + i

Next i

Debug.Print sum

End Sub

单击窗体后，则在立即窗口上输出结果是()。

A.15

B.- 0.7

C.24

D.0