南京工程学院vb题库8套.doc

南京工程学院vb题库。试卷编号：8954所属语言：Visual Basic试卷方案：09-10-2程序设计基础VB模拟试卷总分：100分共有题型：6种一、判断 共5题 （共计10分）第1题 （2.0分）所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义.答案：N第2题 （2.0分）框架控件和形状控件都不能响应用户的鼠标的单击事件.答案：Y第3题 （2.0分）组合框兼有文本框和列表框两者的功能,用户可以通过键入文本或选择列表中的项目来进行选择.答案：Y第4题 （2.0分）移动框架内的控件时框架内的控件也跟随移动,所以框架内各控件的Left和Top属性值也将分别随之改变.答案：N第5题 （2.0分）在框架控件上放置的控件可以移动到框架控件的外面.答案：N二、单项选择 共20题 （共计40分）第1题 （2.0分）如果没有在列表框中选择项目,且列表框的MultiSelect属性值为默认值(0None),则执行语名List1.RemoveItemList1.ListIndex的结果是().A:删除列表框的最后一项B:删除列表框的第一项C:出错D:删除列表框中的最后添加的一项答案：C第2题 （2.0分）如果将布尔常量值TRUE赋值给一个整型变量,则整型变量的值为().A:0B:-1C:TrueD:FALSE答案：B第3题 （2.0分）若要使标签控件显示时不覆盖其背景内容,要进行设置的属性是().A:BackColorB:BorderStyleC:ForeColorD:BackStyle答案：D第4题 （2.0分）表达式print Len(trim( abcd )&123)的结果是A:9B:7C:abcdD:123答案：B第5题 （2.0分）要使标签能透出窗体的背景,必须设置()属性.A:BackStyleB:BorderStyleC:AppearanceD:BackColor答案：A第6题 （2.0分）以下正确的ForNext结构是A:For x = 5 Step 10Next xB:For x=3 To -3 Step -3Next x C:For x=1 To 10start: Next x If i=10 Then GoTo startD:For x=3 To 10 Step 3Next m答案：B第7题 （2.0分）下面关于多重窗体的叙述中,正确的是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:除分隔线外,所有菜单项都能接收Click事件D:内缩符号由4个点组成,它表明菜单项所在的层次答案：B第10题 （2.0分）以下叙述中错误的是().A:双击鼠标可以触发DblClick事件B:窗体或控件的事件的名称可以由编程人员确定C:移动鼠标时,会触发MouseMove事件D:控件的名称可以由编程人员设定答案：B第11题 （2.0分）VB的编程机制是A:可视化B:面向对象C:事件驱动答案：C第12题 （2.0分）Cls方法可清除窗体或图片框中的信息是 .A:Picture属性设置的背景图案B:在设计时放置的控件C:程序设计时产生的图形和文字D:以上方法都对答案：C第13题 （2.0分）Print #1,STR1$中的Print是_.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:.05答案：C第16题 （2.0分）如果要设置窗体的标题栏,应选择以下那种属性().A:NameB:CaptionC:TipsD:Text答案：B第17题 （2.0分）要使一个标签透明且不具有边框,则应().A:将其BackStyle属性设置为0,BorderStyle属性设置为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分）将CommandDialog1通用对话框以打开对话框打开,可选以下()方法.A:showopenB:showcolorC:showsaveD:showfont答案：A三、程序填空 共1题 （共计10分）第1题 （10.0分）-【程序填空】-功能：窗体中有若干控件，单击其中的一个按扭cmdput时， 执行如下的事件过程，该过程的功能是把数据输出到指定的文件中.-*SPACE*Private Type 【?】 Number As String Name As StringEnd TypePrivate Sub cmdput_click() Dim Title As String Dim Str1 As String Dim str2 As String Dim stu As Student Dim i As Integer Open App.Path & student.dat For Random As #1 Len = Len(stu) Title = 写记录到随机文件 Str1$ = 请输入学生号 str2$ = 请输入学生名 For i = 1 To 5 *SPACE* 【?】.Number = InputBox(Str1$, Title$) stu.Name = InputBox$(str2$, Title$) Put #1, i, stu Next i *SPACE* Close 【?】End Sub答案：=(答案1)=Student=(答案2)=stu=(答案3)=#1四、程序改错 共1题 （共计10分）第1题 （10.0分）-【程序改错】-题目：产生30个小于100的成绩随机数，并统计出优、良 、中等、及格、不及格数的个数，并计算出成绩属 于优秀段的成绩平均分。-Option ExplicitPrivate Sub Form_Click() Dim k%, a%, bjg%, jg%, zd%, lh%, yx As Integer Dim pjf As Integer Randomize pjf = 0 For k = 1 To 30 *FOUND* a = Int(Rnd() Select Case a Case 0 To 59 bjg = bjg + 1 不及格 Case 60 To 69 jg = jg + 1 及格 Case 70 To 79 zd = zd + 1 中等 Case 80 To 89 lh = lh + 1 良好 Case 90 To 100 yx = yx + 1 优秀 *FOUND* pjf = pjf + 1 End Select Next k *FOUND* If yx 0 Then pjf = pjf / 30 Debug.Print 不及格 + Str$(bjg) + 人，及格 + Str$(jg) + 人，中等 + Str$(zd) + 人; Debug.Print 良好 + Str$(lh) + 优秀 + Str$(yx) + 人 Debug.Print 优秀分数段成绩平均分 & pjfEnd Sub答案：=(答案1)=a = Int( Rnd() * 100)=或=a = Int( 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 Integeri = 1p = 1Do While i = 9 p = p * i If i Mod 2 = 1 Thens = s + 1 / p End Ifi = i + 1Loop Print ssum=s-六、VB窗体设计 共1题 （共计10分）第1题 （10.0