单选题下列关于随机文件中使用Put语句、Get语句、Print语句和Write语句的说法中，错误的是___________。
A.每执行一次Put #语句，会在随机文件中产生一个记录
B.每执行一次Get #语句，会在随机文件中读取一个记录的数据
C.一条Print #（或Write #）语句可以将若干个数据项写入数据文件中，但这些数据项类型必须是相同的
D.一条Print #（或Write #）语句可以将若干个数据项写入数据文件中，但这些数据项类型可以是不同的
单选题为了把窗体上的某个控件变为活动的，应执行的操作是（ ）
单选题设a=2，b=3，c=4，d=5，表达式Not a＜=c Or 4*c=b^2 And b＜＞a+c的值是
单选题定义无符号整数类为UInt，下面可以作为类UInt实例化值的是( )。
单选题下列语句的输出结果为 Print Format$(5689.36，"000，000.000")
单选题数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是______。
单选题设有如下的程序段：
n=0
For i=1 To 3
For j=1 To i
For k=j To 3
n=n+1
Next k
Next j
Next i
执行上面的程序段后，n的值为______。
单选题在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作的事件过程是______ 。
单选题在窗体上画两个文本框，其名称分别为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中显示的内容是______。
单选题在窗体上画一个名称为Text1的文体框，然后画一个名称为HScrolll的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是（）。
单选题设窗体上有Text1、Text2两个文本框，并编写了下面的程序代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If"A"＜=Chr(KeyAscii)And Chr(KeyAscii)＜="Z"Then
KeyAscii=KeyAscii+(Asc("a")-Asc("A"))
End If
n=0
If KeyAscii=13 Then
For k=1 To Len(Text1)
ch$=Mid(Text1, k, 1)
If "a"＜=ch And ch＜="z" Then n=n+1
Next k
Text2=n
End If
End Sub
程序运行时，在Textl文本框中输入“Visual Basic 6.0”后按回车键，则在Text2文本框显示的是
单选题以下关于Visual Basic程序模块的描述正确的是
单选题在窗体中画一个命令按钮，然后编写以下时间过程： Private Sub Command1_Click() For i=1 To 4 x=1 For j=1 To 3 x=2 For k=1 To 2 x= x+6 Next k Next j Next i Print x End Sub程序运行后，单击命令按钮，输出结果是______。
单选题某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中： Private Sub
Commandl_Click() Open"out.txt"For Output As #2
Print "Text1" Close #2 End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是______。
A.把Print"Text1"改为Print≠}2， Text1
B.把Print"Text1"改为Print Text1
C.把Print"Text1"改为Write"Text1"
D.把所有#2改为#1
单选题在Visual Basic 6中下列 ______是不对的。
单选题因修改文本框中的数据而触发的事件是______。
单选题在“报表设计器”中，任何时候都可以使用“预览”功能查看报表的打印效果，以下4种操作中不能实现预览功能的是( )
单选题下列选项中，不属于数据模型所描述的内容的是{{U}} {{/U}}。
A. 数据类型
B. 数据操作
C. 数据结构
D. 数据约束
单选题有以下通用过程： Function fun(N As Integer) S=0 For k=1 T0 N s=s+k*(k+1) Next k fun=S End Function 该过程的功能是
单选题当执行以下过程时，在名为1blResult的标签框内将显示______。 Private Sub cmdlt_ click() Dim I，R R=0 For I=1 To 5 Step 1 R=R+I Next i 1blResult．Caption=Str＄(R) End Sub