《公共选修课《VB程序设计》课程笔试试卷》由会员分享，可在线阅读，更多相关《公共选修课《VB程序设计》课程笔试试卷（12页珍藏版）》请在金锄头文库上搜索。
1、第 1 页 共 13 页南京师范大学 2004 2005 学年第二学期南京师范大学公共选修课VB 程序设计课程笔试试卷一、选择题（60 分，每选择 2 分）1、Write#语句与 Print#语句功能基本相同，它们之间的主要差别之一正确的是 1。AWrite# 语句写数值型的，而 Print#语句写非数值型的B如果是字符串数据，Write#语句写数据后在其两边加双引号，而Print#语句没有CWrite#语句按紧凑格式写文件，而 Print#语句按标准格式写文件DWrite# 语句按标准格式写文件，而 Print#语句按紧凑格式写文件2、.在 VB 中，下列关于控件的属性或方法中，搭配错误的有
2、 2个。1）Timer1.Interval 2）List1.Cls 3） Text1.Print4）List1.RemoveTtem 5）Vscroll1.Value 6）Picture1.PrintA 0 B . 1 C 2 D 33、设整型变量 a、b 的当前取值分别为 200 与 20，以下赋值与句中不能正确执行的是3。A Text1 = a / b * a B Text1 = a * a / bC Text1 = 200 * a / b D Text1 = a & b & a4、运行程序时，显示下图 1 的语句是4。图 1Ab = InputBox（输入一个整数,2003,程序示例 ）
3、Bb = MsgBox（输入一个整数,2003,程序示例）Cb = InputBox（ 程序示例,输入一个整数, 2003）Db = MsgBox（程序示例, 输入一个整数,2003）5、各种运算符间的优先顺序，从高到低是5。专业 班级 学号 姓名 .装.订.线.题号 一 二 三 四 五 六 七 总分得分第 2 页 共 13 页A比较运算符算术运算符逻辑运算符B比较运算符逻辑运算符算术运算符C算术运算符比较运算符逻辑运算符D算术运算符逻辑运算符比较运算符6、下列程序：Private Sub Form_Click（）Dim sum As Double, i As IntegerFor i = 1
4、 To 20If i Mod 5 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub执行后的打印结果是6。A50 B60 C75 D1007、Loc 函数作用是，返回一个7。ALong 型数据，在已打开的文件中指定当前读写位置BLong 型数据，计算其文件长度CInteger 型数据，表示文件号的范围DLong 型数据，表示用 Open 语句打开的文件的大小8、代数式 对应的 Visual Basic6.0 表达式是8。dcba1A1+a+b/c+d B1+a+b/（c+d） C1+（s+t）/x+y D1+（s+t）/（x+y ）9、下列程序P
5、rivate Sub Form_Click（）For i = 0 To 2Print Tab（4 - i）; String（i * 2 + 1, A）Next iPrintEnd Sub运行时输出的结果是9。AAAA B AAAAAA AAAAAA AAAC A DAAAAAA AAAAAAAA AAA10、在界面设计时，按下 F4 键，VB 6.0 将显示的窗口是10。A项目（工程）窗口 B代码窗口C属性窗口 D立即窗口11、以下四个控件中具有 Pattern 属性的是11。第 3 页 共 13 页A目录列表框 B驱动器列表框 C文件列表框 D列表框12、为菜单上访问键被显示成带下划线的字母
6、，请在要作为访问键的字母前面键入一个12号。A- B& C# D+13、下列程序Private Sub Command1_Click（）s$ = Microsoft Visual Basick = InStr（ s$, s）Do While k 0n = n + 1s$ = Mid（s$, k + 1）k = InStr（s$, s）LoopPrint nEnd Sub运行后输出结果是13。A1 B2 C3 D414、可用 Print 方法在 PictureBox 控件上显示文本信息，若想清除这些信息，可用的方法是14。AClose BRemove CClear DCls15、Sub 过程与
7、Function 过程最根本的区别是 15。AFunction 过程可以有参数，Sub 过程不可以B两种过程参数的传递方式不同CSub 过程无返回值，但 Function 过程有返回值DSub 过程是语句级调用，可以使用 Call 或直接使用过程名，Function过程是在表达式中调用16、窗体上有一个通用对话框控件 CommonDialog1，有下列语句：CommonDialog1.Action = ShowSave其表示为16_。A显示“打开”对话框 B显示“另存为”对话框C显示 “颜色”对话框 D显示“字体 ”对话框17、下列程序Private Sub form_Click（）For i
8、 = 1 To 4t = t * 10 + is = s + tNext iPrint sEnd Sub运行后输出结果是17。A1234 B4321 C1370 D444418、用来指示是否能够使用 TAB 键来将焦点从一个对象移动到另一个对象的属性是18。AEnabled BTop CIndex DTabStop第 4 页 共 13 页19、当一个工程含有多个窗体时，其中的启动窗体是19。A启动 Visual Basic 时建立的窗体 B第一个添加的窗体C最后一个添加的窗体 D在工程属性对话框中指定的窗体20、下列程序Private Sub form_Click（）Dim s1 As Str
9、ing * 1Dim s2 As Strings1 = aFor i = Asc（s1） To Asc（s1 ） + 4s2 = s2 & Chr（i）Next iPrint s2End Sub运行后输出结果是20。Aa Babcde Caaaa Ds221、不能绘制 OptionButton 控件的容器，将其控件分组是 21。AFrame 控件 BPictureBox 控件C窗体 DTextBox 控件22、 “工程资源管理器”窗口又称为“工程浏览器”窗口，在窗口中会列出当前工程的所有22。A变量和常数 B变量和数组 C窗体和模块 D过程和事件23、窗体上仅有一个文本框 Text1，当执行程
10、序后按下键盘“a ”键时打印出的结果是23。Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）key1 = KeyCode 10Print key1End SubATrue BFalse C65 D024、关于 Close 语句的叙述正确的是24。A执行 Close 语句后，所有打开的文件也会自动关闭。B打开文件后，必须要用 Close 语句关闭文件，否则当程序结束时，产生一个错误C执行 Close 语句后，程序将关闭所有窗口D执行 Close 语句后，每次只能关闭一个文件，否则要用 Reset 语句25、下列操作中不
11、能向工程中添加窗体的是25。A执行“工程”菜单中的“添加窗体”命令B单击工具栏上的“添加窗体”按钮C右击窗体，在弹出的菜单中选择“添加窗体”命令D右击工程资源管理器，在弹出的菜单中选择“ 添加”命令，然后在下一级菜单中选择“添加窗体”命令。26、下列程序Private Sub form_Click（）For i = 1 To 2第 5 页 共 13 页x = 1For j = 1 To 3x = 5For k = 1 To 10x = x + 2Next kNext jNext iPrint xEnd Sub运行后输出结果是26。A5 B13 C25 D4827、下列程序Private Sub
12、 form_Click（）Dim sl As String, s2 As Strings1 = 1234m = 0For i = 3 To 1 Step -1m = m + 1s2 = fun1（s1, m ）Debug.Print s2;Next iEnd SubPrivate Function fun1（x, y） As Stringfun1 = Right（x, y）End Function运行后输出结果是27。A1234 B4321 C434234 D111128下列程序Dim x, yPrivate Sub Form_Click（）x = 1: y = 1: z = 1fun1 （1
13、）Print x; y; zEnd SubPrivate Sub fun1（a ）x = a + x: y = a + x: z = a + yEnd Sub运行后输出结果是28。A1 1 1 B2 3 1 C2 3 4 D2 2 129、下列程序Private Sub Command1_Click（）x = abcdy = 1234第 6 页 共 13 页For i = 1 To 4z = z + Mid（x, i, 1） + Left（y, 1）Next iPrint zEnd Sub运行时输出的结果是29。Aabcd1234 Ba1b2c3d4Ca1b1c1d1 D1234abcd30、
14、下列程序Private Sub Form_Click（）a = 3t = InputBox（请输入一个整数）Select Case tCase Is 0b = a + 1Case Is = 0b = a + 2Case Elseb = a + 5End SelectPrint a; bEnd Sub运行时，从键盘输入 5，输出的结果是30。A1 5 B3 4 C1 1 D5 5二、填空题（40 分，每填空 2 分）1、运行下面的程序，当单击窗体时，窗体上第一行内容是【1】，第三行内容是【2】，第四行内容是 【3】。Option ExplicitDim x As Integer, y As IntegerPrivate Sub Form_Click（）Dim a As Integer ,b As Integera = 15: b = 4Call sub1（a,b）Print a,bPrint x,yEnd SubPrivate Sub sub1（ByVal m As Integer ,n As Integer）Dim x As Integer , y As Integer x = m + n: y = m-nm = fun1（x,y）n = fun1（x,y） End Sub第 7 页 共 13 页Private Fun
