〖第1题〗『判断』(1.0分)在一个窗体的代码中不能使用Unload语句来卸载本窗体,即一个窗体只能由其它窗体卸载.答案：N〖第2题〗『判断』(1.0分)标签没有Change事件和SetFocus方法.答案：N〖第3题〗『判断』(1.0分)TextBox与Label有许多共同特点,它们都能显示和输入文本.答案：N〖第4题〗『判断』(1.0分)已知窗的fillcolor=rgb(255,0,0)红,forecolor=rgb(0,255,0)绿,fillstyle=0(solid)语句circle(200,100),500,,,,2的输出结果是红边绿心的长椭圆.答案：N〖第5题〗『判断』(1.0分)全局变量用global或public关键字声明,且仅在通用声明处可以定义.答案：N〖第6题〗使用驱动器列表框、目录列表框和文件列表框构成一个文件管理系统时,三者之间可以实现自动同步,即当在驱动器列表框改变驱动器时,目录列表框和文件列表框的内容立即同跟着变.答案：N〖第7题〗将焦点主动设置到指定的控件或窗体上,应采用Setfocus方法.答案：Y〖第8题〗定时将文本框中的数据保存到磁盘,应用于选用Timer计时器控件.答案：Y〖第9题〗事件过程由某个用户事件或系统事件触发执行,它不能被其它过程调用.答案：N〖第10题〗在框架控件内的几个单选按钮中,只能有一个单选按钮的Value属性为True.答案：Y〖第1题〗『单项选择』(1.0分)函数Len(Str(Val("123.4")))的值为().A:11B:5C:6D:8答案：C***6***〖第2题〗『单项选择』(1.0分)下列关于控件画法的叙述错误的是().A:单击一次工具箱中的控件图标,只能在窗体上画出一个相应的控件B:按住CTRL键后单击一次工具箱中的控件图标,可以在窗体上画出多个相同类型的控件C:双击工具箱中的控件图标,所画控件的大小和位置是固定的D:不用工具箱中的控件工具,不可以在窗体上画出图形对象,但可以写入文字字符答案：D〖第3题〗『单项选择』(1.0分)可视化编程的最大优点是().A:具有标准工具箱B:一个工程文件由若干个窗体文件组成C:不需要编写大量代码来描述图形对象D:所见即所得答案：C***1***〖第4题〗『单项选择』(1.0分)文本框中选定的内容,由下列()属性反映.A:TextB:CaptionC:SeltextD:sellenght答案：C〖第5题〗『单项选择』(1.0分)用键盘的光标键选中某一菜单项,并按回车将触发菜单的()的事件.A:KeyPressB:KeyDownC:ClickD:KeyUp答案：C〖第6题〗『单项选择』(1.0分)在窗体Form1的Click事件过程中有以下语句:Label1.Caption="Visual Basic"若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为(). A:"Label"、"Label"B:"Label1"、"Visual Basic"C:"Label1"、"Label1"D:"Caption"、"Label"答案：C〖第7题〗『单项选择』(1.0分)删除字符串前导和尾随空格的函数是().A:Ltrim()B:Rtrim( )C:Trim()D:Lcase答案：C〖第8题〗『单项选择』(1.0分)骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为().A:int(rnd*6+1)B:int(rnd*6)C:int(rnd*7)D:int(rnd(6)+1)答案：A〖第9题〗『单项选择』(1.0分)Line(100,100)-Step(400,400)将在窗体()画一直线. A:(200,200)到(400,400)B:(100,100)到(300,300)C:(100,100)到(500,500)D:(100,100)到(400,400)答案：C***8***〖第10题〗『单项选择』(1.0分)为了把焦点移到某个指定的控件,所使用的方法是(). A:SetFocusB:VisibleC:RefreshD:GetFocus答案：A〖第11题〗『单项选择』(1.0分)下列哪个变量的取法是不正确的().A:TNameB:T_TempC:T32D:T32#答案：D〖第12题〗『单项选择』(1.0分)要在命令按钮控件上显示图像应().A:设置Picture属性B:实现不了C:先将Type设置为1,然后再设置Picture属性D:以上都不对答案：C〖第13题〗『单项选择』(1.0分)下列的逻辑表达式中不正确的是().A:A<B AND C=DB:X<Y<ZC:1>2 AND 3>1D:X>Y AND 1=2答案：B〖第14题〗『单项选择』(1.0分)函数InStr("VB程序设计教程","程序")的值为(). A:1B:2C:3D:4答案：C〖第15题〗『单项选择』(1.0分)将命令按钮Command1设置为不可见,应修改该命令按钮的()属性. A:VisibleB:ValueC:CaptionD:Enabled答案：A〖第16题〗『单项选择』(1.0分)将通用对话框类型,设置为字体对话框,可修改该控件的()属性. A:fontB:filenameC:filterD:action答案：D〖第17题〗『单项选择』(1.0分)假设变量BOOLVAR是一个逻辑型变量,则下面正确的赋值语句是(). A:BOOLVAR='TRUE'B:BOOLVAR=.TRUE.C:BOOLVAR=#TRUE#D:BOOLVAR=3<4答案：D〖第18题〗如果要设置窗体的标题栏,应选择以下那种属性(). A:NameB:CaptionC:TipsD:Text答案：B〖第19题〗在VB中,下列不能作为存放对象的容器是().A:窗体B:框架C:图形框D:图象框答案：D〖第20题〗『单项选择』(1.0分)OPTIONEXPLICIT语句不可以放在().A:窗体模块的声明段中B:标准模块的声明段中C:类模块的声明段中D:任何事件过程中答案：D〖第1题〗『程序填空』(9.0分)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'题目：从键盘输入学生分数，统计学生总人数和各分数段人数，' 即优秀（90-100）、良好（80-89）、中等（70-79）、' 及格（60-69）、不及格（60以下）的人数。

'-------------------------------------------------------Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = "请输入分数（-1结束）"msgtitile = "输入数据"score = Val(InputBox(msg, msgtitle))'**********SPACE**********While 【?】total = total + 1'**********SPACE**********Select Case 【?】Case Is >= 90n1 = n1 + 1Case Is >= 80n2 = n2 + 1Case Is >= 70n3 = n3 + 1Case Is >= 60n4 = n4 + 1Case Elsen5 = n5 + 1'**********SPACE**********【?】score = Val(InputBox(msg, msgtitle))WendPrint n1, n2, n3, n4, n5,totalEnd Sub答案：1). score >=0 ★And★ score <= 100 或 0<=score ★And★ score <= 100 或 0<=scor...2). score3). End Select〖〖第第22题题〗『〗『程序填空程序填空』』((99..00分分))'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'题目：本程序求3~100之间的所有素数（质数）并统计个数；' 同时将这些素数从小到大依次写入顺序文件 dataout.txt；' 素数的个数显示在窗体Form1上。

'请在【】处填入正确的内容'-------------------------------------------------------'Private Sub Command1_Click()Dim count As Integer, flag As BooleanDim t1 As Integer, t2 As Integer'**********SPACE**********Open App.Path & "\dataout.txt" For Output As 【?】count = 0For t1 = 3 To 100'**********SPACE**********flag = 【?】For t2 = 2 To Int(Sqr(t1))If t1 Mod t2 = 0 Then flag = FalseNext t2If flag Then'**********SPACE**********count = 【?】Write #1, t1End IfNext t1Form1.Print "素数个数"; countClose #1End Sub答案：1). #12). True3). count + 1 或 1 + count〖第1题〗『程序设计』(6.0分)'------------------------------------------------- '【程序设计】'------------------------------------------------- '题目：求两个数m,n的最大公约数p和最小公倍数q'------------------------------------------------- '注意：请在指定的事件内编写代码。