单选题窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim X As Integer x=2 Text1.Text:Fun2Fun1(x),y Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer) As Integer x=x+y:y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer,y As Integer) As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是( )。 A) 2 4 2 4 B) 2 4 4 8 C) 10 10 58 58 D) 4 4 8 8
单选题表达式2+3*4^5-Sin(x+1)/2中最先进行的运算是( )。
单选题设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：
Private Sub Commandl Click()
StatiC b As Variant
b=Array(1，3，5，7，9)
...
End Sub
此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是
单选题可以产生30~50(含30和50)之间的随机整数的表达式是
单选题窗体上有三个水平滚动条，名称分别为HSRed、HSGreen和HSBlue，取值范围均是0～255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。程序代码如下：Dimcolor(3)AsIntegerPrivateSubForm_Load() Callfill(color())EndSubPrivateSubfill(c()AsInteger) Form1.BackColor=RGB(c(1),c(2),c(3))EndSubPrivateSubHSRed_Change() color(1)=HSRed.Value Callfill(color())EndSubPrivateSubHSGreen_Change() color(2)=HSGreen.Value Callfill(color())EndSubPrivateSubHSBlue_Change() color(3)=HSBlue.Value Callfill(color())EndSub关于以上程序，如下叙述中错误的是______。A.color是窗体级整型数组B.改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变C.3个滚动条Change事件过程中只设置了一个color数组元素的值，调用fill过程失败D.fill函数定义中的形式参数是数组型参数
单选题对如图1所示的二叉树进行中序遍历的结果是
单选题有如下函数： Function fun(a As Integer, n As Integer) As Integer Dim m As Integer While a＞=n a=a-n m=m+1 Wend fun=m End Function 该函数的返回值是
单选题计算下面的表达式，其值是__________。
CInt(4.5) * Fix(-3.81) + Int(4.1) * (5 Mod 3)
4 -3 4 2
单选题在窗体上画两个命令按钮，名称分别为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 程序运行后，在窗体上输出( )。