单选题在窗体上画一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Form_Load()
Show
Text1.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim ch As String
ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(ch))
Print Chr(KeyAscii+4);
End Sub
程序运行后，在文本框中输入abcde，则在窗体上显示的内容是
单选题设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10．; TelNum As String*20 End Type 在窗体上画一个名为Commandl的命令按钮，要求当执行事件过程Commandl Click时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是
单选题以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click() Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End Sub
单选题以下可以作为“容器”的控件是
单选题fileFiles.Pattern="*.dat"程序代码执行后，会显示
单选题当一个复选框被选中时，它的Value属性的值是
单选题在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明：PrivateTypePersonnameAsString*8majorAsString*20EndTypeDimpAsPemon设文本框中的数据已正确地赋值给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
单选题要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为( )。
单选题以下变量名中合法的是( )。
单选题下列说法中，错误的是
单选题设在窗体上有—个名称为Combol的组合框，含有5个项目，要删除最后一项，正确的语句是 ______。
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="321"：b$="abc" For j=1 To 5 Print Mid$(a$，6 -j，1)+Mid$(b$，j，1)； Next i End Sub 程序运行后，输出的结果是；
单选题下述程序的功能是______。
x=" ((a+B* A)-(a* b+C)"
n=Len(x)
m=0
For k=1 To n
p $=Mid(x, k, 1)
If p $="("Then
m=m-1
ElseIf p $=")"Then
m=m+1
End If
Next k
If m＞0Then
print ": - ("
Else
print ": - )"
End If
单选题在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是____。
单选题在Visual Basic中，可以同时删除字符串前导和尾部空格的函数是
单选题有如下过程代码：
Sub var_dim()
Static numa As Integer
Dim numb As Integer
numa=numa+2
numb=numb+1
print numa;mumb
End Sub
连续3次调用var_dim.过程，第3次调用时输出的是
Ａ) 2 1 Ｂ) 2 3 Ｃ) 6 1 Ｄ) 6 3
单选题下列关于复选框的说法，正确的是{{U}} {{/U}}。
A. 复选框的Enabled属性用于决定该复选框是否可见
B. 复选框的Value属性用于决定该复选框是否被选中
C. 复选框的TabIndex属性用于决定该复选框在控件数组中的序号
D. 复选框的Visible属性用于决定该复选框是否可用
单选题窗体上有1个名称为Text1的文本框；1个名称为Timer的计时器控件，其Interval属性值为5000，Enabled属性值是True。
Timer1的事件过程如下： Private Sub Timer1_Timer()
Static flag As Integer If flag=0 Then flag=1
flag=-flag If flag=1 Then
Text1.ForeColor=&HPP& '&HFF&为红色
Else Text1.ForeColor=&HC000&
'&HC000&为绿色 End If End Sub
以下叙述中正确的是
A. 每次执行此事件过程时，flag的初始值均为0
B. flag的值只可能取0或1
C. 程序执行后，文本框中的文字每5秒改变一次颜色
D. 程序有逻辑错误，Else分支总也不能被执行
单选题下列程序的执行结果为 Private Sub Command1_Click() Dim s1 As String，s2 As String S1；="abcdef" Call Invert(s1，s2) Print s2 End Sub Private Sub Invert (ByVal xstr As String，ystr As String) Dim tempstr As String i=Len(xstr) Do While i>=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub
单选题能够接受Print方法的对象是( )。 (1)窗体 (2)标签 (3)标题栏 (4)立即窗口 (5)图片框 (6)状态栏 (7)打印机 (8)代码窗口