VB期末考試.docVIP

1.函数InStr(VB程序设计教程，程序)的值为______。 3 2.在程序中分别将变量IntA、Bl、st和D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是____。 Bl=#True# 3.如果要在语句：a=Array(1,2,3,4,5)的前面声明变量a，则正确的声明是___________。 Dim a As Variant 4.窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1（Simple），并有如下事件过程： Private Sub Command1_Click() For i=0 To List1.ListCount-1 If List1.Selected(i)=True Then List2.AddItem Text End If Next End Sub 上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是___________。 将Lsit2.AddItem Text 改为List2.AddItem List1.List(i) 5.设有如下函数 Function delspace(ch As String) As Integer Dim n%, st$, c$ st = n = 0 For k = 1 To Len(ch) c = Mid(ch, k, 1) If c Then st = st c Else n = n + 1 End If Next k ch = st delspace = n End Function 该函数的功能是:删除字符串ch中的空格符，返回删除字符的个数 6.下列程序段的执行结果为____________ 18 Dim A(5, 5) As Integer For i = 1 To 3 For j = 1 To 4 A(i, j) = i * j Next j Next i Print A(2, 3) + A(3, 4) + A(4, 5) 7.执行下列程序段，输出结果为 __________。 出错 Dim a() As Integer Dim i As Integer ReDim a(10) For i = 1 To 10 a(i) = 2 * i - 1 Next i Print a(4); Erase a Print a(4) 8.设有如下程序 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n = InputBox(输入数据) If n 10 Then Call GetArray(a, n) End If End Sub Private Sub GetArray(b() As Integer, n As Integer) Dim c(10) As Integer j = 0 For i = 1 To n b(i) = CInt(Rnd() * 100) If b(i) / 2 = b(i) \ 2 Then j = j + 1 c(j) = b(i) End If Next i Print j End Sub 以下说法中错误的是___________。 GetArray过程的参数n 是按值传送的 9. 若在应用程序的标准模块.窗体模块和过程Sub1的说明部分，分别用Public G As Integer、Private G As Integer和Dim G As Integer语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句G=3596，则该语句是给在___________说明部分定义的变量G赋值。 过程Sub1 10. 执行语句Dim X,Y As Integer后__。x被定义为变体类型变量，Y被定义为整型变量 11. 窗体上有名称为List1的列表框。以上能够将列表框当前选定的列表项替换为字符串Basic的语句是: List1.List(List1.ListIndex) = Basic 12. VB 中三种文件访问的类型为___________ . 顺序、随机、二进制 13. 在标