下列小说或散文作品，依据所反映的社会生活内容和揭示的思想主旨，分类正确的一组是：①《孔乙己》②《荷塘月色》③《药》④《范进中举》⑤《阿Q正传》⑥《夜》

程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是()。 Option Base 1 Private Sub Command1_Click() Dim i As Integer Dim x(3，3)As Integer For i=1 To 3 For j=1 To 3 x(i,j)=(i-1)*3+j Next j Next i For i=1 To 3 Print x(i,4-i)； Next i End Sub

A．1 5 9

B．1 4 7

C．3 5 7

D．3 6 9

程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是()。 Private Sub Command1_Click() Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub

A．32

B．28

C．30

D．36

程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是()。 Private Sub Command1_Click() Dim Y As Integer，I As Integer Dim A(7)As Integer Y=18：I=0 Do A(I)=Y Mod 2 I=I+1 Y=Y\2 Loop Until Y＜1 For j=I-1 To 0 Step-1 Print A(j)； Next j End Sub

A．1 0 0 0

B．1 0 0 1 0

C．0 0 1 1 0

D．1 0 1 0 0

在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print "Visual"； End Sub Private Sub Command2_Click() Print "Basic"； End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是

A．Basic

B．Visual

C．Cancel

D．True

在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b＞= 10 then exit for if b Mod 3 = 1 then b=b+3 End ifNext aPrint aEnd Sub在命令按钮上单击后，窗体上显示的结果是______。

A．101

B．6

C．5

D．4

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是

A． 123.45

B．12345.00

C．12345

D．00123.45

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=“VisualBasic” Print String(3，a$) End Sub程序运行后，单击命令按钮，在窗体上显示的内容是

A．VVV

B．Vis

C．sic

D．11

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

运行程序，单击命令按钮，窗体上显示的是

A.13

B.21

C.22

D.33

单击窗体上Command1命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$= "software and hardware" b$= Right(a$, 8) c$= Mtd(b$ 1, 8) Msgbox c$ End sub则在弹出的信息框的标题栏中显示的信息是()。

A．software and hardware

B．software

C．hardware

D．and

单击窗体上Command1命令按钮时，执行如下事件过程： Private Sub Command1-Click() a$="software and hardware" b$=Right(a$，8) c$=Mid(a$，1，8) Msgbox a $,,b$；c$,1 End sub 则在弹出的信息框的标题栏中显示的信息是()。

A．software and hardware

B．software

C．hardware

D．1