在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：Dim Flag As BooleanPrivate Sub Comma

在窗体上画一个命令按钮，名称为Comraandl。单击该命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$="software and hardware" b$=Right(a$, 8) c$=Mid(a$, 1, 8)+b$ MsgSox a$, 1, b$ End Sub 则在弹出的消息框的标题栏中显示的信息是______。

A．software and hardware

B．software

C．hardware

D．1

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) For i=1 To UBound(a)a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。

A．4

B．5

C．6

D．7

在窗体上画一个文本框，名称为Text1(可显示多行)，然后再画三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图8所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5．txt文件中的所有英文字符放入Text1 (可多行显示)；单击“统计”按钮，找出并统计英文字母i、i、k、l、m、n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i～n出现次数的统计结果依次存到考生目录下的顺序文件out5．txt中。 注意：存盘时必须存放在考生文件夹下，工程文件名为sit5．vbp，窗体文件名为sjt5．frm。

在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：

程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

a=0

For i=1 To 2

For j=1 To 4

If j Mod 2＜＞0 Then

a=a-1

End If

a=a+1

Next j

Next i

Print a

End Sub

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

A．0

B．2

C．3

D．4

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a-1 End If a=a＋1 Next j Next i Print a EndSub 程序运行后，单击命令按钮，输出结果是______。

A．0

B．2

C．3

D．4

3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1，3 y=X*X CaseIS＞=10，IS＜=-10 y=X Case-10 To 10 y=-X End Select End S

A．执行y=x*x

B．执行y=-x

C．先执行y=x*x，再执行y=-x

D．程序出错

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

Private Sub Command1_Click（）

Print fun("ABCDEFG")

End Sub

Function fun(st As String)As string

stlen=Len(st)

temp=""

For k=1 To stlen／2

temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)

Next k

fun=temp

End Function

程序运行时，单击命令按钮，则在窗体上显示的是（）。

A.ABCDEFG

B.AGBFCE

C.GFEDCBA

D.AGBFCED

在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1)，外观如下图所示。编写如下程序： Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.Text

A．4

B．6

C．8

D．12

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程

Option Base 1

Pribate Sub Command1_Click（）

Dim a（5.5） As Integer

For i=1 To 5

a（I,j）*5\10

Next j

Next i

S=0

For i=1 To 5

S=s+a（i,i）

Next i

Print s

End Sub

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

A．15

B．13

C．11

D．9