单选题某人编写了下面的程序，希望能把Text1文本框中的内容写到Temp．txt文件中 Private Sub Command1_Click() Open"Telnp．txt"For Output As #2 Print"Text1" Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是( )。
单选题单击命令按钮时，下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer x=12: y=34 Call Procl(x，y) Print x；y End Sub
单选题单击一次命令按钮，下列程序代码的执行结果为
____
。
Private Sub Commandl_Click()
Dima As Integer,b As Integer，CASInteger
a=2：b=3：c=4
PrintP2(c，b，a)
End Sub
PrivateFunctionPl(X As Integer,y As Intege；z As Integer)
P1=2*x+y+3*Z
End Function
PrivateFunctionP2(X As Integer,y As Integer,z As Integer)
P2=P1(z,x,y)+x
End Function
单选题假定有以下循环结构
Do Until条件
循环体
Loop
则正确的描述是
单选题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim n()As Integer：Dim a，b As Integer a=InputBox("Enter the first number") b：InputBox("Enter the second number") ReDim n(a To b) For k=LBound(n)To UBound(n) n(k)=k Print n(k)； Next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为
单选题有下列程序：程序最后打印结果是______。
单选题在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Label1标签，窗体
外观如图a所示，要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图b所示。实现上述功能的程序如下：
Private Sub Text1_Change()
Call ShowText(Text1)
End Sub
Private Sub Text2_Change()
Call ShowText(Text2)
End Sub
Private Sub ShowText(T As TextBox)
Labell．Caption="文本框中的内容是："＆T．Text
End Sub
关于上述程序，以下叙述中错误的是( )。
单选题在窗体上有一个文本框控件，名称为TextTime；一个计时器控件，名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ ______( ) TextTime.text=Time End Sub 在下画线上应填入的内容是
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim I As Integer,n As Integer For i=0 T0 50 i=i+3：n=n+1 If i>10 Then Exit For Next Text1．Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
单选题要想在过程调用后返回两个结果，下面的过程定义语句中合法的是_____________。
A.Sub Proc(ByVal n,ByVal m)
B.Sub Proc(n,ByVal m)
C.Sub Proc(n,m)
D.Sub Proc(ByVal n,m)
单选题以下关于局部变量的叙述中错误的是( )。
单选题使用Open语句打开文件时需要指定参数Len的是___________。
A.打开顺序文件
B.打开文本文件
C.打开随机文件
D.打开二进制数文件
单选题窗体上有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