单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Text2.Text="’’ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是 A) BeijingChina B) China C) Beijing D) BeijingC
单选题在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是( )。
单选题以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是
单选题Visual Basic的主窗口中不包含______ 。
单选题设程序中有以下语句：MsgBox"Visual"，"Basic"，"等级考试"，2执行该语句后，显示一个信息框，以下关于该信息框的叙述中，正确的是
单选题下列程序的执行结果为 a=100 b=50 If a＜＞b Then a=a+b Else b=b-a Print a，b
单选题在工程中的标准模块中定义了如下数据类型： Type fruit orange As Integer apple As Integer End Type 在窗体上有—命令按钮Command1，要求当单击命令按钮时在C:/根目录下的顺序文件myfrtac.txt 中写入一条记录，下列能够完成改操作的事件过程是______ 。
单选题在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text=" " Text2.Text=" " Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2&Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) S1=S1&Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S1 Text2.Text=S2 S1=" " S2=" " End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( ) A．abc和ABC B．空白 C．ABC和abc D．出错
单选题能正确表述“x为大于等于5并且小于20的数”的Visual Basic表达式是
单选题退出Visual Basic 6.0的快捷键是( )。 A) Ctrl+Q B) Alt+Q C) Alt+A D) Ctrl+A
单选题下列程序的功能是：依次将列表框List2中的项目移入列表框Listl中，并将列表框List2中移走的项目删除，给程序的空白行选择适当的语句( )。 List1.Addltem List2.List(0) List2.ReMoveltem 0 Loop
单选题当用户( )时，会引发焦点所在控件的KeyPress事件。
单选题下面列出的条目中，哪些是数据库技术的主要特点________。 Ⅰ．数据的结构化 Ⅱ．数据的冗余度小 Ⅲ．较高的数据独立性 Ⅳ．程序的标准化
单选题设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(a) If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是
单选题若在Shape控件内以Fillstyle属性所指定的图案填充区域，而填充图案线条的颜色由FillColor属性指定，非线条的区域由BackColor属性填充，则应( )。
单选题单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer，y As Integer x=12：y=32 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub A．12 32 B．2 32 C．2 3 D．12 3
单选题下列程序段的执行结果为 a=6 For k=1 To 0 a=a+k Next Print k；a A) -1 6 B) -1 16 C) 1 6 D) 11 21
单选题运行以下程序后，打印机上的输出结果是( )。 For I=To 9 Printer.Print tab(I*I),I Next
单选题在程序测试中，为了成功地测试设计数据，目前产生这些测试用例主要依赖于
____
。
单选题表达式Sgn(15.6)+Int(-16.8)的值是______。