单选题在窗体上画两个命令按钮，名称分别为Command1、Command2，并编写如下程序 Const n=5,m=4 Dim a(m,n) Private Sub Command1_Click() k=1 For i=1 To m Forj=1 To n a(i,j)=k k=k+1 Next j Next i End Sub Private Sub Command2_Click() summ=0 For i=1 Tom For j=1 To n If i=1 Or i=m Then summ=summ+a(i,j) Else If j=1 Or j=n Then summ=summ+a(i,j) End If End If Next j Next i Print summ End Sub 过程Command1 Click()的作用是在二锥数组a中存放—个m行n列的矩阵；过程Command2 Click()的作用是______。
单选题能对顺序文件进行输出的语句是______。
单选题在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下程序：
Private Sub Command1_Click() Dim a(10) As Integer
Dim x As Integer
For i=1 To 10
a(i)=8+i
Next x=2
Print a(f(x)+x) End Sub
Function f(x As Integer)
x=x+3
f=x
End Function
程序运行后，单击命令按钮，输出结果为______。
单选题设窗体上有一个滚动条，要求单击滚动条右端的按钮一次，滚动条移动一定的刻度值，决定此刻度的属性是
单选题下列表达式的值为2123的是( )。
单选题下列程序运行后会出现错误的提示为 Private Sub Command1_Click() Dim i AS Integer Dim x x=Array(2，3， 4， 5， 6， 7) For Each i In x Print i； Next i End Sub
单选题在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明：PrivateTypePersonnameAsString*8majorAsString*20EndTypeDimpAsPerson设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。A.Open"c:/Test2.dat"ForOutputAs#1Put#1,1,pClose#1B.Open"c:/Test2.dat"ForRandomAs#1Get#1,1,pClose#1C.Open"c:/Test2.dat"ForRandomAs#1Len=Len(p)Put#1,1,pClose#1D.Open"c:/Test2.dat"ForRandomAs#1Len=Len(p)Get#1,1,pClose#1
单选题有下列程序： Private Sub Command1_Click() X$="Nanchang" y$="Beijing" z$="Nanjing" z$=InStr(Left(x$，3)+Right(y$，4)，z$) Print z$ End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下代码：
OpdOn Base1
Private Sub Commandl_CUck()
d=0
c=10
x=Array(10,12,21,32,24)
For i=1 To 5
Ifx(i)＞c Then
d=d+x(i)
c=X(i)
Else
d=d-c
End If
Next I
Printd
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。
单选题窗体上有名称为Option1的单选按钮，且程序中有语句： If Option1.Value=True Then 下面语句中与该语句不等价的是( ) A．If Option1.Value Then B．If Option1.True Then C．If Value=True Then D．If Optionl Then
单选题以下关于命令按钮的叙述中正确的是
单选题编写下列事件过程和函数过程： Private Sub Commandl Click() Dim num(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 num(4)=32:num(5)=-56:num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer,number()As Single)As Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。
单选题假定有以下循环结构
Do Until 条件表达式
循环体
Loop
则以下正确的描述是
单选题在文本框中，要设置显示的文本颜色，应该设置{{U}} {{/U}}属性。
A. ForeColor
B. BackColor
C. FillColor
D. BackStyle
单选题窗体上有一个名称为Textl的文本框，一个名称为Commandl的命令按钮。要求编写一个程序，统计文本框中0-9各数字字符的个数。某人编写如下程序：Prirate Sub Commandl_Click()Dim count(10)As Integer'第1个For循环For i=0 To 9 count(i)=0 Next s=Trim(Text1，Text) strLen=Len(s)'第2个For循环 For i=1 To strLen c=Mid(s，i，1) If c＞="0"And c＜="9"Then x=Val(c)：count(i)=count(i)+1 End IfNext'第3个For循环 For i=0 To 9 Print Str(i)，count(i) NextEnd Sub运行程序后，发现不能实现题目的要求，程序应该进行的修改是
单选题某二叉树中度为2的结点有10个，则该二叉树中有( )个叶子结点。
单选题在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为
For i=1 To 3 For j=1 To 3
For k=1 To 2
x=x+3 Next k，j，i Text1.Text=str(x)
A. 21
B. 42
C. 54
D. 72
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Text1．Text：""：Text2．Text=""：Text1．SetFocus End Sub Private Sub Text 1_Change() Text2．Text=Mid(Text1．Text，6) End Sub 程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是
单选题下面不属于软件设计原则的是
单选题为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：
Private Sub Command1_Click()
Dim a%,s%,k%
s=1
a=2
For k=2 To 10
a=a*2
s=s+a
Next k
Text1.Text=s
End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是______。