职业道德是从业人员在一定的职业活动中遵循的、具有自身职业特征的道德要求和行为准则。加强职业道德建设的重要意义有

下列程序运行后的输出结果是______。

Private Sub f(k，s)

s=1

For j=1 To k

s=s*j

Next

End Sub

Private Sub Command1_Click()

Sum=0

For i=1 To 3

Call f(i，s)

Sum=Sum+s

Next

Print Sum

End Sub

运行下列程序：

Private Sub form_Click()

For i = 1 To 2

x = 1

For j = 1 To 3

x = 5

For k = 1 To 4

x = x + 2

Next k

Next j

Next i

Print x

End Sub

单击窗体后，则输出结果是()。

A.5

B.13

C.25

D.48

下面程序运行后的结果是()。 Private Sub Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub

A．6

B．72

C．144

D．432

下面程序运行后输出是

Private Sub Form_Click()

for i＝1 to 4

x＝1

for j＝1 to 3

x＝3

for k＝1 to 2

x＝x＋6

next k

next j

next i

print x

End Sub

A．7

B．15

C．157

D．538

运行下列程序：

Private Sub Command1_Click()

s$ = "abcdefabcdefabcdef"

k = InStr(s$, "c")

Do While k > 0

n = n + 1

s$ = Mid(s$, k + 1)

k = InStr(s$, "c")

Loop

Print n

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是()。

A.1

B.2

C.3

D.4

有如下程序：

Private Sub Form_C1ick()

E=1:F=1

For j=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

运行下列程序，单击窗体后输出的结果是()。

Private Sub Form_Click()

Dim a

Dim s As Integer, i As Integer

a = Array(1, 2, 3, 4, 5, 6)

s = 1

For i = 5 To 1 Step -2

s = s * a(i)

Next i

Print s

End Sub

A、 15

B、 48

C、 120

D、 720

（30 ）下面程序的输出结果是

Private Sub Command1_Click()

ch$= ” ABCDEF ”

proc ch

Print ch

End Sub

Private Sub proc(ch As String)

S= ””

For k=Len(ch) To 1 Step-1

s=s&Mid(ch,k,1)

Next k

ch=s

End Sub

A ） ABCDEF

B ） FEDCBA

C ） A

D ） F

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Command1_Click() Dim a a = Array(1,2,3,4,5) For k = 1 To4 s=s+a(k) Next Print S End Sub

A．10

B．14

C．15

D．120

运行下列程序：

Private Sub form_Click()

For i = 1 To 4

t = t * 10 + i

s = s + t

Next i

Print s

End Sub

单击窗体后，则输出结果是()。

A.1234

B.4321

C.1370

D.4444