南京工程施工学院vb试题库8套

1、南京工程学院vb题库试卷编号：8954所属语言：Visual Basic试卷方案：09-10-2程序设计基础 一VB模拟试卷总分：100分共有题型：6种一、判断共5题（共计10分）第1题（2.0分）所有的VB的变量，都有隐含说明字符和强调声明两种方法来定义答案：N第2题（2.0分）框架控件和形状控件都不能响应用户的鼠标的单击事件.答案：丫第3题（2.0分）组合框兼有文本框和列表框两者的功能，用户可以通过键入文本或选择列表中的项目来进行选择.答案：丫第4题（2.0分）移动框架内的控件时框架内的控件也跟随移动，所以框架内各控件的Left和Top属性值也将分别随之改变.答案：N第5题（2.0分）在框

2、架控件上放置的控件可以移动到框架控件的外面答案：N二、单项选择共20题（共计40分）默认值（0None）,则执行语名 Listl.RemoveltemListl丄istlndex的结果是（）.A:删除列表框的最后一项B:删除列表框的第一项C:出错D:删除列表框中的最后添加的一项答案：C第2题（2.0分）如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（）.A:0B:-1C:TrueD:FALSE答案：BA:BackColor B:BorderStyle C:ForeColor D:BackStyle答案：D第4题(2.0分)“）&"123"）的结果是表达

3、式 print Len(trim(" abcdA:9B:7C:abcdD:123答案：B第5题（2.0分）要使标签能透岀窗体的背景，必须设置（）属性.A:BackStyleB:BorderStyleC:Appeara neeD:BackColor答案：A第6题（2.0分）以下正确的ForNext结构是A:For x = 5 Step 10Next xB:For x=3 To -3 Step -3Next xC:For x=1 To 10start:Next xIf i=10 The n GoTo startD:For x=3 To 10 Step 3Next m答案：B第7题（2.0

4、分）下面关于多重窗体的叙述中，正确的是A：作为启动对象的 Main子过程只能放在窗体模块内B:如果启动对象是 Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载及加载哪一个窗体C：没有启动窗体，程序不能执行D:以上都不对答案：A第8题（2.0分）在Visual Basic中最基本的对象是（）,它是应用程序的基石,是其他控件的容器A:文本框B:命令按钮C：窗体D:标签答案：C第9题（2.0分）以下叙述错误的是：A:下拉式菜单和弹出式菜单都用菜单编辑器建立B:如果把一个菜单项的Enabled属性设置为False,则菜单项不可见C：除分隔线外，所有菜单项都能接收Clic

5、k事件D:内缩符号由4个点组成，它表明菜单项所在的层次答案：B第10题（2.0分）以下叙述中错误的是（）.A:双击鼠标可以触发DblClick事件B:窗体或控件的事件的名称可以由编程人员确定C:移动鼠标时，会触发MouseMove 事件D:控件的名称可以由编程人员设定答案：B第11题（2.0分）VB的编程机制是A:可视化B:面向对象C:事件驱动答案：C第12题（2.0分）CIS方法可清除窗体或图片框中的信息是A:Picture属性设置的背景图案B:在设计时放置的控件C:程序设计时产生的图形和文字D:以上方法都对答案：C第 13 题（2.0 分）Print #1,STR1$ 中的 Print 是

6、A:顺序文件的写语句B:在窗体上显示的方法C：子程序名D:打印命令答案：A第14题（2.0分）下列不属于代码窗口的是（）.A:对象下拉式列表框B:过程下拉式列表框C:代码框D:属性列表框答案：D第 15 题（2.0 分）表达式 INT(8*SQR(36)*10*2)*10+0.5)/10的值是().A:0.48B:0.048C:.5D:.O5答案：C第16题（2.0分）如果要设置窗体的标题栏，应选择以下那种属性A:NameB:Captio nC:TipsD:Text答案：B第17题（2.0分）要使一个标签透明且不具有边框,则应（）.A:将其 BackStyle 属性设置为 0,BorderSt

7、yle().属性设置为0B:将其BackStyle属性设置为 0,BorderStyle 属性设置为1C:将其BackStyle属性设置为 1,BorderStyle 属性设置为0D:将其BackStyle属性设置为1,BorderStyle属性设置为 1答案：B第18题（2.0分）若有数组说明语句为：Dim a（-3 to 8）,则数组a包含元素的个数是（）.A:5B:8C:11D:12答案：D第19题（2.0分）可视化编程的最大优点是（）.A:具有标准工具箱B: 一个工程文件由若干个窗体文件组成C:不需要编写大量代码来描述图形对象D:所见即所得答案：C第20题 （2.0分）将Command

8、Dialogl通用对话框以打开对话框打开，可选以下（）方法.A:showope nB:showcolorC:showsaveD:showfo nt答案：A三、程序填空共1题（共计10分）第1题（10.0分）【程序填空】'功能：窗体中有若干控件，单击其中的一个按扭cmdput时,执行如下的事件过程，该过程的功能是把数据输岀到指定的文件中I*SPACE*Private Type 【?】Number As Stri ngName As Stri ngEnd TypePrivate Sub cmdput_click()Dim Title As Stri ngDim Str1 As Stri n

9、gDim str2 As Str ingDim stu As Stude ntDim i As In tegerOpen App.Path & "student.dat" For Random As #1 Len = Len(stu)Title ="写记录到随机文件“Str1$ ="请输入学生号“str2$ ="请输入学生名“For i = 1 To 5I*SPACE*【？】.Number = InputBox(Str1$, Title$)stu.Name = In putBox$(str2$, Title$)Put #1, i, st

10、uNext iI*SPACE*Close【？】End Sub答案：=（答案 1）=Stude nt=（答案 2）= stu=（答案 3）=#1四、程序改错共1题（共计10分） 第1题（10.0分）【程序改错】题目 产生30个小于100的成绩随机数，并统计岀优、良'、中等、及格、不及格数的个数，并计算出成绩属'于优秀段的成绩平均分。Opti on ExplicitPrivate Sub Form_Click()Dim k%, a%, bjg%, jg%, zd%, lh%, yx As In tegerDim pjf As In tegerRan domizePjf = 0For

11、 k = 1 To 30I*FOUND*a = In t(R nd()Select Case aCase 0 To 59bjg = bjg + 1 '不及格Case 60 To 69jg = jg + 1 '及格Case 70 To 79zd = zd + 1 '中等Case 80 To 89Ih = Ih + 1 '良好Case 90 To 100yx = yx + 1 '优秀I*FOUND*pjf = pjf + 1End SelectNext kI*FOUND*If yx > 0 Then pjf = pjf / 30Debug.Print&

12、quot;不及格"+ Str$(bjg) + " 人，及格"+ Str$(jg) + "人，中等"+ Str$(zd) + "人"Debug.Print"良好"+ Str$(lh) + "优秀"+ Str$(yx) + "人"Debug.Pri nt "优秀分数段成绩平均分"& pjfEnd Sub答案:=(答案 1)= a = Int( Rn d() * 100)a = lnt（ Rnd * 100）=（答案 2）=Pjf = pjf + a=（答案 3）=If yx > 0 Then pjf = pjf / yx五、程序设计共1题（共计20分）第1题 （20.0分）【程序设计】题目：（事件）单击窗体。'（响应）已知 s=1+1/3!+1/5!+1/7!+1/9!, 请将 s 结果值'输岀到窗体上。使用do while.loop 语句完成程序答案:Dim i As In tegeri = 1p = 1Do While i <= 9p = p * iIf i Mod 2 = 1 The ns = s + 1 / pEnd Ifi = i + 1L