具有重要方法论意义的社会形态范畴是指（）。A．物质文明和精神文明的统一B．经济基础和上层建筑的统

窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：

Private Sub Command1_Click（）

Timer1．Enabled=True

End Sub

Private Sub Form_Load（）

Timer1．Interval=10

Timer1．Enabled=False

End Sub

Private Sub Timer1 Timer（）

Command1．Left=Command1．Left+10

End Sub

程序运行时，单击命令按钮，则产生的结果是（）。

A.命令按钮每10秒向左移动一次

B.命令按钮每10秒向右移动一次

C.命令按钮每10毫秒向左移动一次

D.命令按钮每10毫秒向右移动一次

窗体上有一个名称为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

（34 ）窗体上有一个名为 Command1 的命令按钮，并有下面的程序：

Private Sub Comand1_Click （）

Dim arr （5 ） As Integer

For k=1 To 5

arr （k ） =k

Next k

prog arr （）

For k=1 To 5

Print arr （k ）

Next k

End Sub

Sub prog （a （） As Integer ）

n=U b ound （a ）

For i=n To 2 step -1

For j=1 To n-1

if a （j ） <a （j+1 ） Then

t=a （j ） :a （j ） =a （j+1 ） :a （j+1 ） =t

End If

Next j

Next i

End Sub

程序运行时，单击命令按钮后显示的是

A ） 12345

B ） 54321

C ） 01234

D ） 43210

（34 ）窗体上有一个名为 Command1 的命令按钮，并有下面的程序：

Private Sub Comand1_Click （）

Dim arr （5 ） As Integer

For k=1 To 5

arr （k ） =k

Next k

prog arr （）

For k=1 To 5

Print arr （k ）

Next k

End Sub

Sub prog （a （） As Integer ）

n=U b ound （a ）

For i=n To 2 step -1

For j=1 To n-1

if a （j ） <a （j+1 ） Then

t=a （j ） :a （j ） =a （j+1 ） :a （j+1 ） =t

End If

Next j

Next i

End Sub

程序运行时，单击命令按钮后显示的是

A ） 12345

B ） 54321

C ） 01234

D ） 43210

窗体上有一个名为Command1的命令按钮，并有如下程序：

Private Sub Corqmand1_Click（）

Dim a As Integer，b As Integer

a=8

b=12

Print Fun(a，b)；a；b

End Sub

Private Function Fun(ByVal a As Integer，b AS Integer)As Integer

a=a Mod 5

b=b＼5

Fun=a

End Function

程序运行时，单击命令按钮，则输出结果是（）。

A.3 3 2

B.3 8 2

C.8 8 12

D.3 8 12

设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：

Private Sub Command1 Click（）

X!=Val(Text1．Text)

Select Casc x

Case Is<-10，Is>=20

Print"输入错误"

Case Is<0

Print 20-x

Case Is<10

Print 20

Case Is<=20

Print x+10

End Seleet

End Sub

程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。

A.5

B.20

C.25

D.输入错误

窗体上有一个名为Command1的命令按钮，并有如下程序：

Private Sub Command1Click（）

Dim a(10)，x％

Fork=1 To 10

a(k)=Int(Rnd*90+10)

x=x+a(k)Mod 2

Next k

Print X

End Sub

程序运行后，单击命令按钮，输出结果是（）。

A.10个数中奇数的个数

B.10个数中偶数的个数

C.10个数中奇数的累加和

D.10个数中偶数的累加和

窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Command1Click（） Dim a(10)，x％ Fork=1 To 10 a(k)=Int(Rnd*90+10) x=x+a(k)Mod 2 Next k Print X End Sub 程序运行后，单击命令按钮，输出结果是（）。

A.10个数中奇数的个数

B.10个数中偶数的个数

C.10个数中奇数的累加和

D.10个数中偶数的累加和

在窗体上画一个名为Command1的命令按钮，然后编写以下程序：

Private Sub Command1 Click（） Dim a(10)As Integer Fork=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k)) End Sub 运行程序，单击命令按钮，输出结果是（）。

A.18

B.12

C.8

D.6

在窗体上画一个名为Command1的命令按钮，然后编写以下程序：

Private Sub Command1 Click（）

Dim a(10)As Integer

Fork=10 To 1 Step-1

a(k)=20-2*k

Next k

k=k+7

Print a(k-a(k))

End Sub

运行程序，单击命令按钮，输出结果是（）。

A.18

B.12

C.8

D.6