在Visual Basic中按文件的编码方式不同，可将文件分为（）。

A. 顺序文件和随机文件
B. 文本文件和数据文件
C. ASCII文件和二进制文件
D. 数据文件和可执行文件

假定在窗体（名称为Form1） 的代码窗口中定义如下记录类型：<br>Private Type animal<br>animalName As String *20<br>aColor As String *10<br>End Type<br>在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：<br>Private Sub Command1_Click（）<br>Dim rec As animal<br>Open "c:\vbTest.dat"For Random As #1 Len=Len（reC．<br>rec.animalName= "Cat"<br>rec.aColor= "White"<br>Put #1,,rec<br>Close #1<br>End Sub<br>则以下叙述中正确的是（）。

A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件c:\vbTest.dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写在文件的末尾
D. 语句"Put #1,,rec"将animal类型的两个数据元素写到文件中

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。<br>Private Type Ang<br>K As Integer<br>Sinx As Single<br>Cosx As Single<br>End Type<br>Dim Ksc As Ang<br>Private Sub Form_Click（）<br>Dim Y As Single<br>Open 【14】<br>Y=3.14159 / 180<br>For I=1 To 90<br>Ksc.K=I<br>Ksc.Sinx=Sin（I * Y）<br>Ksc.Cosx=Cos（I * Y）<br>【15】<br>Next I<br>Close #2<br>End Sub

（4）数据库设计包括概念设计、 【4】 和物理设计。

（13）为把圆周率的近似值 3.14159 存放在变量 pi 中，应该把变量 pi 定义为（）。<br>A）Dim pi As Integer<br>B）Dim pi(7) As Integer<br>C）Dim pi As Single<br>D）Dim pi As Long

（11）在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序：<br>Private Sub Command1_Click()<br>Dim i As Integer<br>Sum=0<br>n=InputBox("Enter a number")<br>n=Val(n)<br>For i=1 To n<br>Sum= 【12】<br>Next i<br>Print Sum<br>End Sub<br>Function fun(t As Integer)As Long<br>p=1<br>For i=1 To t<br>p=p*i<br>Next i<br>【13】<br>End Function<br>以上程序的功能是，计算 1!+2!+3!+？+n!，其中 n 从键盘输入，请填空。

（23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：<br>Private Sub Command1_Click()<br>a=0<br>For i=1 To 2<br>For j=1 To 4<br>If j Mod 2＜＞0 Then<br>a=a-1<br>End If<br>a=a+1<br>Next j<br>Next i<br>Print a<br>End Sub<br>程序运行后，单击命令按钮，输出结果是（）。<br>A ） 0<br>B ） 2<br>C ） 3<br>D ） 4

（34 ）下列叙述中错误的是（）。<br>A ）用 Shell 函数可以执行扩展名为 .exe 的应用程序<br>B ）若用 Static 定义通用过程，则该过程中的局部变量都被默认为 Static 类型<br>C ） Static 类型的变量可以在标准模块的声明部分定义<br>D ）全局变量必须在标准模块中用 Public 或 Global 声明

（26 ）下列关于过程的叙述中，错误的是（）。<br>A ）事件过程是由某个事件触发而执行的过程<br>B ）函数过程的返回值可以有多个<br>C ）可以在事件过程中调用通用过程<br>D ）不能在事件过程中定义函数过程

执行以下程序段<br>a$="abbacddcba"<br>For i=6 To 2 Step -2<br>X=Mid（a,i,i）<br>Y=Left（a,i）<br>z=Right（a,i）<br>z=UCase（X & Y & z）<br>Next i<br>Print z<br>输出结果为（）。

ABA
BBABBA
C. ABBABA
D. AABAAB