单选题设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String,strL As 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
程序运行后，单击命令按钮，输出结果是
单选题下列程序段的执行结果为 Dim t(10) For k=2 To 10 t(k) =11 - k Next k X=6 Print t(2+t(x))
单选题Visual Basic中的对话框分为3种类型，即预定义对话框、自定义对话框和
单选题以下叙述中错误的是_______。A) 一个工程中可以包含多个窗体文件B) 在一个窗体文件中用Private定义的通用过程能被其他窗体调用C) 在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D) 全局变量必须在标准模块中定义
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() m=1:n=1 Print"m="; m; ", n="; n Call subl((m), n) Print "m="; "; ", n="; n End Sub Private Sub subl(x, y) x=x+5 y=y+x Print "x="; x;", y="; y End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。
单选题下面循环语句中在任何情况下都至少执行一次循环体的是
单选题在窗体上画一个文本框(名称为TxtA)，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(KeyAscii As Integer)
……
End Sub
如果焦点位于文本框中，则能够触发KeyPress事件的操作是
单选题以下不属于Visual Basic系统的文件类型是
单选题在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 A．Private SubText1_KeyPress(KeyAscii As Integer) If KeyAscii＜65 or KeyAscii＞90 Then MsgBox“请输入大写字母” KeyAscii=0 End If End Sub B. Private Sub Text1_KeyDown( KeyCode As Integer,Shift As Integer) If KeyCode ＜ 65 or KeyCode ＞ 90 Then Msgbox“请输入大写字母” KeyCode = 0 End If End Sub C. Private SuB Text1_MouseDown( Button AS Integer,_ Shift As lnteger,X As Single,Y As Single) If Asc ( Text1. Text) ＜ 65 or Asc ( Text1.Text) ＞ 90 Then Msgbox“请输入大写字母” End If End Sub D. Private Sub Text1_Change( ) If Asc(Text1.Text) ＞64 And Asc(Text1.Text) ＞9l Then Msgbox“请输入大写字母” End lf End Sub
单选题在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是______。 A) Private Sub Text1 Click() Label1.Caption=Len(Text1.Text) End Sub B) Private Sub Text1_Change() Label1.Caption=Str(Len (Text1.Text)) End Sub C) Private Sub Text1 Change() Label1.Caption=Str(Text1.Text) End Sub D) Private Sub Label1_Change() Label1.Caption=Str(Len(Text1.Text)) End Sub
单选题关于随机文件，以下叙述中错误的是
单选题若程序中有语句：y = proc(6)，则proc 应该是
单选题文本框的Scroll Bars属性设置为非零值，却没有效果，原因是( )。
单选题单击命令按钮时，下列程序的执行结果是( )。
Private Sub Command1_Click()
Dim a As Integer，b As Integer，C As Integer
a=3
b=4
c=5
Print SecProc(c，b，a)
End Sub
Function FirProc (x As Integer，y As Integer，z As Integer)
FirProc=2 * x + y + 3 * z+2
End Function
Function SecProc (x As Integer，y As hteger，z As Integer)
SecProc=FirProc(z，x，y)+x+7
End Function
单选题以下叙述中错误的是
单选题有数据定义语句：Dim a，b As Integer Dim x％，y as Integer执行语句后，不是整型变量的是
单选题以下过程的功能是从数组中寻找最大值： Pfivate Sub FindMax(a() As Integer，ByRef Max As Integer) Dim S As Integer，f As Integer：Dim i As Integer s=LBound(a)：f=UBound(a) Max=a(s) For i=S To f Ifa(i)>Max Then Max=a(i) Next End Sub 以下关于上述过程的叙述中，错误的是
单选题若组合框Combol中有3个项目，则以下能删除其最后一项的语句是( )。
单选题双击窗体中的对象后，VisualBasic显示的窗口是( )。
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub
Form_Load() Show Text1.Text="'
Text2.Text="' Text1.SetFocus End
Sub Private Sub Text1_Change()
Text2.Text=Mid(Text1.Text,6) End Sub
程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是______，
A.ChinaBeijing
B.China
C.Beijing
D.ChinaB