《VB程序设计》模拟考试试题2.doc

Next j; Print Next I 运行结果为( ) A*****B* ****** ****** C*D* ****** ** *********** 17. 设有语句 open "c: Test . Dat" For OutPut As#1 则以下错误的叙述是() A) 该语句打开 C 盘根目录下一个己存在的文件 Test . Dat B) 该语句在 C 盘根目录下建立一个名为 Test . Dat 的文件 C) 该语句建立的文件的文件号为 1 D) 执行该语句后,就可以通过 Print# 语句向文件 Test . Dat 中写入信息 18. 表的每一行就是一个( ) ;表中的每一列称作一个( ) ,描述了它所含有的数据。 A 记录字段 B 索引字段 C 字段记录 D 记录索引 19. Data 控件的很多方法,当我们在运行时修改了 Record-Source 属性后,需要调用( )方法刷新记录集。 A Refresh 方法 B UpdateRecord 方法 C UpdateControls 方法 D Cancelupdate 方法三、程序填空题(每空 2 分,共 36 分) 1. 下面的程序段是检查输入的文字段中大括号是否配对,,以+ 输入回车作为结束标志,. Dim Count1% Private Sub Text1_KeyPress(Key Ascii As Integer) If="{" Then Count1=Count1+1 Else If="}" Then If KeyAscii=13 Then If Then Print "左右大括号配对" Else If Then Print " 左大括号数多"; Count1 ;"个" A(t)=a(i) End If IfI =3 Then a(I +1)=a(t-4) A(4)=1 Print a(i); Next I End Sub 程序运行后,单击命令按钮,输出结果为。 5. 在窗体中添加一个名称为 Text1 的文本框,mand1 mand2 的命令按钮。要求程序运行后, 用户向文本框中输入字母, mand1 按钮则文本框中字母全部转换为大写; 然后单 mand2 按钮则文本框中字母全部转换为小写。请将下列程序补充完整。 Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) __ _________ = End Sub Private mand1_Click() = ___ __ End Sub Private mand2_ __________ = LCase() End Sub 6. 在窗体上画一个命令按钮(其 Name mand1 ) ,然后编写如下代码: Private mand1_click() Dim m(10)As Integer For k=1 To 10 M(k)=12-k Next k X=6 Print m(2+m(x)) End Sub 程序运行后,单击命令按钮,输出结果为。 7. 下面程序运行后,输出的结果为__