单选题设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStrAs String．strLAs Integer tStr="" strL=Len(xStr)i=1 Do While i＜=strL／2 tStr=tStr＆Mid(xStr，i，1)＆Mid(xStr，strL-i+1，1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abcdef"：Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是
单选题窗体上有一个名称为Labell的标签；一个名称为Timerl的计时器，其Enabled和Interval 属性分别为True和1000。编写如下程序： Dim n As Integer Private Sub Timer 1_Timer() ch=Chr(n+Asc("A"))：Labell．Caption=ch：n=n+1：n=n Mod 4 End Sub 运行程序，将在标签中
单选题下列程序段，在运行时最后输出的内容是 a＝2 c＝1 AAA： c=c+a If c＜10 Then Print c GoTo AAA Else Print "10以内的奇数显示完毕" End If
单选题窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。
单选题设窗体上有1个名称为HScrol11的水平滚动条，其Max、Min属性分别设置为100、1： 有2个名称分别为Option1、Option2的单选按钮，其标题分别为“30”、“50”；还有下面程序代码： Private Sub Option 1_Click() Private Sub Option2_Click() HScrol11=Val(Option 1_Caption) HScrol11=Val(Option 2_Caption) End Sub End Sub 程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是
单选题如果在C盘当前文件夹下已经存在名称为Sdat.dat的顺序文件，那么执行语句Open "c:/Sdat.dat"For Append As #1之后，将( )。
单选题以下能够触发文本框Change事件的操作是______。 A) 文本框失去焦点 B) 文本框获得焦点 C) 当文本框不可用时 D) 改变文本框的内容
单选题窗体上有1个名称为Text1的文本框，1个名称为Timerl的计时器，且已在属性窗口将Timerl 的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。 Private Sub Form_Click() Private Sub Timerl_Timer()Timerl．________ Text1．Text=Time() End Sub End Sub 为了实现上述功能，应该在横线处填入的内容为
单选题有如下的程序：
Private Sub Command1_Click()
Dim k As Integer，m AB Integer
Dim P As Integer
k=4:m=1
P=Fun(k，m) =Print P；
P=Fun(k，m) :Print P
End Sub
Private Function Fun(a As Integer，b As Integer)
Static m As Integer，i As Integer
m=5:i=2
i=i+m+1
m=i+a+b
Fun=m/2
End Function
单击命令按钮后，输出结果为
Ａ) 2 2 Ｂ) 4 4
Ｃ) 5 5 Ｄ) 6 6
单选题下面描述中，不符合结构化程序设计风格的是 ______。
单选题设x为整型变量，以下不能正确表达数学关系式2＜x＜5的Visual Basic表达式为 _______。
单选题设有如下程序：
Sub proc(x()As Integer)
Static i As Integer
Do
x(i)=x(i)+x(i+1)
i=i+1
Loop While i＜2
End Sub
Private Sub Command1_Click()
Dim a(5)As Integer,i As Integer
For i=0 To 4
a(i)=i+1
Next i
Call proc(a)
Call proc(a)
For i=0 To 4
Print a(i);
Next i
End Sub
程序运行后，单击命令按钮Command1，输出结果为
单选题设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是（ ）。
单选题在窗体上有一个名称为CD1的通用对话框和一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“保存”，缺省文件名为“ABC”，在“文件类型”栏中显示*．txt。则能够满足上述要求的程序是( )。
单选题下面有关标准模块的叙述中，错误的是( )。
单选题窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框，窗体的单击事件过程如下：
Private Sub Form_Click()
CD1.DialogTitle="改变颜色":CD1.Color=Form1.BackColor
CD1.Action=3:Text1.BackColor=CD1.Color
End Sub
运行程序时，单击窗体，则以下叙述中错误的是
单选题以下关于过程及过程参数的描述中，错误的是( )。
单选题数据的存储结构包括顺序、______、索引和散列四种基本类型。
单选题执行下列语句后整型变量a的值是 ______。 If(3-2)＞2 Then a=10 Els If(10/2)=6 Then a=20 Else a=30 End If
单选题没有如图所示窗体和以下程序：PrivateSubCommandlClick()Text1．Text="VisualBasic"EndSubPrivateSubText1LostFocus()IfText1．Text"BASIC"ThenText1．Text=""Text1．SetFocusEndIfEndSub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是()。