vb程序阅读题与填空题
VB等级考试题目
----3----
Loop
对
错
第9题：Dim关键字可用来声明过程级变量，但不能用来声明模块级变量。
参考答案：错
对
错
参考答案：A
A、字符串
B、浮点数
C、整数
D、长整数
C、Dim A As Integer:Dim B%
D、Dim A%,Dim B%
第2题：设计动画时通常用定时器控件______属性来控制动画速度。
参考答案：A
参考答案：A
A、Enable
B、Load
C、KeyPress
D、Click
第4题：输入对话框（InputBox）的返回值的类型是______ 。
D、单击某表项再按回车键
第6题：变量的类型可以用类型声明符隐式声明，下列______符号是用来声明单精度浮点型的？
参考答案：A
A、!
B、%
对
错
第4题：Sub过程名在过程中必须被赋值。
参考答案：错
对
错
参考答案：B
A、Redim a As Integer
B、Static a As Integer
C、Public a As Integer
参考答案：错
对
错
第8题：若要新建一个磁盘上的顺序文件，可用OUTPUT、在Select Case情况语句中，各个分支（即Case 表达式）的先后顺序无关。
参考答案：错
对
错
第5题：______可以改变目录列表框的Path属性。
参考答案：B
A、单击某表项
VB经典填空题
《VB》经典填空题1、可以通过菜单中的命令退出Visual Basic,也可用快捷键。
2、快捷键CTRL+O的功能相当于执行菜单中的命令；或者相当于单击工具栏上的按钮。
3、工程文件的扩展名为，窗体文件的扩展名为。
4、属性窗口分为4个部分，这4个部分分别是、、、。
5、一个控件在窗体上的位置由和属性决定，其大小由和属性决定。
6、为了选择多个控件，可以按住键，然后单击每个控件。
7、在用Visual Basic 开发应用程序时，一般需要、、 3步。
8、在Visual Basic 中，字符串常量要用括起来，日期/时间型常量要用括起来。
9、为了使文本框同时具有水平和垂直滚动条，应先把属性设置为True,然后再把属性设置为3。
10、为了使标签覆盖背景，应把属性设置为1。
11、为了使标签中的内容居中显示,应把属性设置为2。
12、若要把C盘根目录下的图形文件ab.jpg装入图片框Picture1中，应使用的语句是：13、属性决定了标签内显示的内容。
14、假定在图片框Picture1中装入了一个图形文件，为了清除该图形（注意：清除图形，而不是删除图片框），应使用的语句是：15、当拖动滚动条中的滚动块时，将触发滚动条的事件。
16、为了使标签能自动调整大小以显示全部文本内容，应把标签的属性设置为True17、为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的属性设置为18、窗体、图片框或图像框中的图形通过对象的属性设置。
19、计时器事件之间的间隔通过属性设置。
20、有时候需要暂时关闭计时器，可以通过设置属性来实现。
21、可以同时删除字符串前导和尾随空格的函数是。
22、当某一按钮的属性设置为False 时，该按钮不可见。
23、属性用于设置或返回文本框中的文本。
24、要使文本框中的文本以多行显示，应将其属性设置为true.25、若要使文本框具有水平滚动条，应将其属性的值设为1。
26、要使标签透明，可将其backstyle属性的值设为27、滚动条的属性表示滚动框在滚动条中的当前位置。
vb程序填空题
三、填空题1、【程序说明】下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。
Private Sub Form_Click()Dim n As Integer, a As Integer, b As Integer, c As IntegerDim x As IntegerFor a =0 to 9 '个位数数码For b = 0 To 9 '十位数数码For c = ----1----If a<>b And b<>c And a<>c Thenx =a+10*(b+10*c)n = ----2--------3----If n mod 15 = 0 Then PrintEnd IfNext c,b,aPrint "总共有这样的三位数"; n; "个"End Sub1、1 to 92、n+1或1+n3、print x;2、【程序说明】简单窗体是密码检验程序。
程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。
密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。
Private Sub Command1_Click() '确定按钮Static n As Integer---const-1----mypwd As String = "123456" '预设密码为自定义常量n = n + 1Label2.Visible = TrueIf ---__ text1.text=mypwd____ ---- ThenLabel2.Caption = "密码正确"ElseIf n < 3 ThenLabel2.Caption = "密码错误！"Text1.Text = ""Else--end--3----End IfEnd IfEnd Sub1、CONST2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text13、End3、【程序说明】在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。
VB练习题2
1.项目文件的扩展名是（）A．.vb B．.sln C..exe D．.vbproj2.集成开发环境有两类窗口：浮动和固定，下面的（）窗口不是浮动窗口。
A．工具箱B．属性 C.即时D．窗体3.要使窗体的标题为“演示实例”，应修改窗体的（）属性。
A．Caption B．Tip C．Item D．Text4.在中，下面属于方法的是（）。
A.FocusB.SelectedTextC.LostFocusD.Keypress5.一条语句要在下一行继续写，可用（）符号作为续行符。
A.+B.-C.空格和_D....6.若要使命令按钮不可操作，要对（）属性进行设置。
A.EnabledB.VisibleC.BackColorD.Text7.在集成环境中创建应用程序时，除了工具箱窗口、窗体窗口和属性窗口外，必不可少的窗口是（）A．窗体布局窗口B．立即窗口C．代码窗口D．监视窗口8.当运行程序时，系统自动执行启动窗体的（）事件过程A．Load B．Click C．Unload D．GotFocus 9.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（）A．文本框没有内容B．文本框的MultiLine属性为False C．文本框的MultiLine属性为True D．文本框的Locked属性为True10.若要使标签控件显示时不要覆盖窗体的背景图案，要对（）属性进行设置A．BackColor B．BorderStyle C．ForeColor D．BackStyle 11.数据类型为Long的类型标识符为（）。
A．%B．&C．!D．#12.下面（）是日期型常量。
A．“5/17/12”B．5/17/12C．#5/17/12#D．(5/17/12)13.下面的（）是合法的单精度型变量。
A.num!B.sum%C.char!D.mm#14.下面的（）是合法变量名。
A.X_yzB.123abcC.IntegerD.X-Y15.Rnd函数不可能为下列的（）值。
10套VB程序填空
（第3套）1327、在Text1中输入一个整数，单击“判断”按钮，在Label1中显示“正数”、“零”或者“负数”！Private Sub Command1_Click()Dim a As Integer a = Val(①) If a = 0 Then Label1.Caption = "零"ElseIf a > 0 ThenLabel1.Caption = "正数"ElseLabel1.Caption = "②"End IfEnd Sub（第6套）1328、公鸡5文钱一只，母鸡3文钱一只，3只小鸡1文钱。
如果用100文钱买100只鸡，可以买公鸡、母鸡和小鸡各多少只？'完善下面的程序，单击“计算”按钮时，在Label 中显示公鸡、母鸡、小鸡的数量！ Private Sub Command1_Click()Dim i As IntegerDim j As Integer Dim k As Integer For i = 0 To ① '第一空 For j = 0 To 33 k = ② - j '第二空If 5 * i + 3 * j + k / 3 = ③ Then '第三空Label1 = "小鸡=" & kLabel2 = "母鸡=" & jLabel3 = "公鸡=" & iEnd IfNext jNext iEnd Sub（第4套）1329、完善程序，输入时间秒，转换成时、分、秒形式！Private Sub Command1_Click()Dim a, b, c, d As DoubleDim h As Stringa = Val(Text1.Text)b = ① '转换小时c = ② '转换分钟d = (a Mod 3600) Mod 60 '转换秒h = b & "小时" & c & "分钟" ③Text2.Text = hEnd Sub（第1套）1330、在左边的文本框中输入一个100以内的正整数（包括100），单击"判断"按钮，在右边的文本框显示是"奇数"还是"偶数";'输入大于100的整数则显示"输入的整数不能超过100"！Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If ① ThenText2.Text = "输入的整数不能超过100"ElseIf ② = 0 ThenText2.Text = "偶数"ElseText2.Text = "奇数"End IfEnd Sub（第8套）1331、完善程序，找出100以内的偶数(包括100)中能被3整除的正整数，并求出它们的和！'单击“求和”按钮时，在文本框中输出和！Private Sub Command1_Click()Dim x As Integerx = 0For i = 0 To 100 Step ① '第一空If ② Then '第二空③ '第三空End IfNext iText1.Text = xEnd Sub（第10套）1332、（1）在窗体form1中添加一个名位“label1”的控件，并显示文字“输入英寸长度”（2）在窗体form1中添加一个名为“command1”的按钮，并在按钮上显示文字“换算后的厘米长度”（3）在窗体form1中添加一个名为“text1”的文本框，并在文本框中显示内容“text1”（4）在窗体form1中添加一个名为“text2”的文本框，并在文本框中显示内容“text2”（5）完善程序，使之实现如下功能：在上面的文本框text1中输入一个正整数，单击“换算后的厘米长度”按钮，在下面的文本框text2中输出换算后的长度（注：1英寸=2.54厘米）Dim a As Singlea = Val(Text1.Text)Text2.Text = a ①End Sub（第4套）1333、'求1到100之间所有偶数之和与所有奇数之和!Private Sub Command1_Click()Dim s1 As Single, s2 As Single, i As Integers1 = 0s2 = 0For i = 1 To 100If ① = 1 Then '第一空s1 = s1 + iElse② '第二空End IfNext iText1.Text = ③ '第三空Text2.Text = ④ '第四空End Sub（第9套）1334、①在窗体form1中添加一个名为“command1”的按钮，并在按钮上显示文字“画图”②完善程序，单击“画图”按钮，使其能输出如下图形Private Sub Command1_Click()Dim i, j As IntegerFor i = 3 To ① Step ② ' 第一空Print Space(i); '打印空格For j = 1 To 10Print ③ '第二空Next jPrintNext iEnd Sub（第6套）1335、输入3个整数，输出最小值Private Sub Form_Load()Dim x As IntegerDim min As IntegerDim i As Integermin = InputBox("请输入数据", "输入3个数")For i = 1 To ① '第一空x = InputBox("请输入数据", "输入3个数")If ② Then '第二空min = xEnd IfNext iText1.Text = ③ '第三空End Sub（第5套）1336、'"五一"节时，某商场推出促销活动，购物总金额达到100元可以打9折，达到200元可以打8折，100元以下不打折！'完善程序，使之实现如下功能：在第一个文本框中输入购物总金额，单击"计算"按钮时，在第二个文本框中输出实际支付金额！Private Sub Command1_Click()Dim a As SingleDim b As Single① = Val(Text1.Text)If a ② 200 Thenb = a * 0.8③ a >= 100 Thenb = a * 0.9Elseb = aEnd IfText2.Text = bEnd Sub（第8套）1987、实现功能：单击按钮后打印如下所示的图案。
vb填空题[1]
![vb填空题[1]](https://img.taocdn.com/s3/m/fe38b56fdd36a32d737581d0.png)
1、写出用随机函数产生一个200至300之间整数的VB表达式【1】.答案：200★+★Int(★Rnd*100★) 或 200★+★Int(★100*Rnd★)2、已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为【1】.答案：DE3、VB提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动的在列表框边上加一个【1】.答案：垂直滚动条或滚动条4、想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加一些特殊的设置,也就是在字母之前加上【1】.答案： &5、列表框(ListBox)显示【1】,用户可以从中选择一个或多个项目.答案：项目列表或列表6、设置控件背景颜色的属性名称是【1】.答案：backcolor7、如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(6, 3 To 5)声明的数组有【1】个元素.答案：218、定时器控件的Interval属性值是指时间间隔,单位为毫秒;当每隔此间隔的时间,定时器会触发一次【1】事件.答案：Timer9、写出清除标签Label1的显示信息的语句为【1】.答案：="" 或 Label1="" 或 =""10、写出清除图片框的文字或图形信息的语句【1】.答案：或 cls11、滚动条控件有水平滚动条和【1】滚动条.答案：垂直12、文本框中所显示的内容是它的【1】属性的值.答案：Text13、要使命令按钮cmdEnd可以以快捷键E 访问,应设置属性【1】.答案：Caption 14、当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【1】属性设置成空白.答案：Text15、如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】.答案：退出(&X)16、所有控件都具有的共同属性是【1】属性.答案：name17、Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案：Picture118、使用Scale方法建立窗体Form1的用户坐标系,其中窗体左上角坐标为(-200,250),右下角坐标为(300,-100),具体形式为【1】.答案： (-200,250)-(300,-100)19、如果在模块的声明段中有Option Base 1语句,则在该模块中使用Dim a(3 To 5,6)声明的数组有【1】个元素.答案：1820、把"Visual Basic程序设计"添加到列表框lstBooks的语句为【1】.答案： "Visual Basic程序设计"21、如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义【1】.答案：public★mystring★as★string*15 22、若要在字符串asdgewl中取dge,则使用函数【1】实现.答案：Mid$(asdgewl$,2,3) 或Mid(asdgewl,2,3)23、欲使在自己设计VB程序运行过程中,不中止本程序的运行,同时又可调用系统中已有的应用程序c:\windows\,可在程序代码窗口必要的地方添加语句【1】.答案：shell("c:\windows\") 或shell("")24、设置计时器控件只能触发【1】事件.答案： timer25、要使鼠标停留在按钮上显示特殊的鼠标形状,应设置的属性值是【1】.答案：mousepointer26、使用Circle方法在窗体Form1上以(15,15)为圆心,10为半径画圆,具体形式为【1】.答案： (15,15),1027、使用Move方法把图形框Picture1的左上角移动到距窗体顶部100Twip,距窗体左边框200Twip,同时图形框缩小50%,具体形式为【1】.答案： 200,100,sqr(2),sqr(2)28、对象是既包含【1】又包含对数据进行操作的方法,并将其封装起来的一个逻辑实体.答案：数据29、拖动滚动条中的滚动框将会产生Scroll 和【1】事件.答案： Change30、以图片框Pic1的中心位置为圆心,以700为半径在Pic1上画一个圆的方法是【1】.2,2),70031、设置计时器对象触发事件的时间间隔用【1】属性.答案： interval32、对象具有属性和【1】.答案：方法33、打开"工程窗口"的方法之一是按下【1】组合键.答案： CTRL+R34、列表框控件不支持Click事件,但支持【1】事件.答案：dblclick35、Visual Basic 中的文本框中要使该框不允许多行输入,应设置【1】属性为false.答案： MultiLine36、如果要在单击钮时执行一段代码,则应将这段代码写在【1】事件过程中.答案： click37、将焦点定位于命令按钮Command1之上的语句为【1】.答案：或 SetFocus38、滚动条控件主要支持两个事件,它们是scroll和【1】事件.答案： change 39、文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：随机文件或随机40、由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.答案： 041、循环语句FOR K=1 TO 10 STEP –1控制的循环次数为【1】.答案： 042、由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】 .答案： 043、VB中,变量的声明可分为两种方法:【1】数组和动态数组.答案：静态44、Option Base 1的作用是确定数组的下界为【1】. 答案： 145、VB中,变量的声明可分为两种方法:隐式声明和【1】.答案：显式声明46、一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式【1】.答案：a<>0★and★b^2-4*a*c>=047、在VB 中,设 Single型变量 XYZ 的值为,若要将其转换成字符串,应使用的类型转换函数是【1】.答案： STR 或 CSTR48、由Dim a (10) As single定义的数组占用【1】字节的内存空间.答案： 4449、在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是【1】.答案： VAL 或 Cint50、在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的【1】属性的值设置为True.答案： MultiLine51、大于X 的最小整数的VB表示形式为【1】.答案： Int(x)+1 或 Int(x)★+★152、一个工程可以包括多种类型的文件,其中扩展名为.bas 的文件表示【1】文件. 答案： 标准模块 或 模块 53、在VB 中,变量名最长可达【1】个字符. 答案： 255 54、在VB 中,若要改变一个窗体的标题,应在属性窗口中改变这个窗体的【1】属性的值. 答案： Caption 55、在控件之中,【1】不能从工具箱中被删除. 答案： 内部控件 或 标准控件 56、在VB 中,若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用【1】语句. 答案： Option Explicit 57、一般情况下,控件有两个属性项的缺省值是相同的,这两个属性项是name 和【1】. 答案：caption 58、一个工程可以包括多种类型的文件,其中ActiveX 控件的文件扩展名为【1】. 答案： OCX 59、在利用Visual Basic 设计应用程序时,一般会遇到三类错误:语法错误、执行错误和【1】. 答案：逻辑错误 60、要使一个按钮无效,则可把它的Enable 属性设为【1】. 答案：False 61、在VB 中,窗体由属性定义外观,由【1】定义行为,由事件定义其与用户的交互. 答案：方法 62、一个工程可以包括多种类型的文件,其中,扩展名为.vbp 的文件表示【1】文件. 答案：工程 63、一个工程可以包括多种类型的文件,其中,扩展名为.frm 的文件表示【1】文件. 答案： 窗体 64、要使同一类型控件组成一个控件数组,必须要求【1】. 答案： Name 相同 或 名称相同 65、要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True. 答案：Default 66、在VB 中,若要重新定义一个动态数组的元素个数,应当使用【1】语句对其进行重新定义. 答案：ReDim 67、在控件之中,【1】单独保存在.OCX 文件中,在必要时可以加入到工具箱中. 答案：ACTIVEX 控件 68、VB 中的变量按其作用分为全局变量,模块变量,【1】. 答案： 局部变量 69、在一条Dim 语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer, 则strVar 、intVar 与sngVar 的数据类型分别是Variant 、Variant 和【1】. 答案： Integer 70、设x 为大于零的实数,则大于x 的最小奇数的Visual Basic 表达式是【1】. 答案： IIF(int(x) mod 2=0,int(x)+2,int(x)+1) 71、说明变量类型有隐含类型说明和【1】两种方法. 答案： 强制类型 或 强制类型说明 72、表达式(-3) Mod 8的值为【1】. 答案：–3 73、设X$ ="abc123456"则"a"+str$(val(right(X$,4)))的值是【1】. 答案：a3456 74、设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为【1】. 答案：False 75、String(3, "abc")的结果为【1】. 答案： aaa 76、VB 的工作模式可分为三种:"设计"、"运行"以及"【1】". 答案： 中断 77、VB 的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符. 答案： 连接 78、Integer 类型的变量占用【1】字节空间. 答案： 2 79、表达式81\7 MOD 2^2 的值是【1】. 答案： 3 80、设x 为一个两位数,将x 个位数和十位数交换后所得两位数VB 的表达式是【1】. 答案：(x mod 10)★*★10★+★int(x/10) 81、求x 与y 之积除以z 的余数的VB 表达式为【1】.答案：x*y★Mod★z82、变量min&表示【1】类型的变量.答案：长整型83、A和B同为正整数或同为负整数的VB 表达式为【1】.答案：A=INT(A)★AND★ B=INT(B)★ AND★A*B>084、Val("")的值是多少【1】.答案：85、表达式"[A]"Like "[A]"的值为【1】.答案： False86、sst="ABC12DE",则Val(sst)=【1】.答案： 087、VB表达式9^2 MOD 45 \2 *3 的值【1】.答案：488、表达式 32\7 MOD 3^2 的值是【1】.答案： 489、默认情况下,所有未经显示声明的变量均视为 Variant 类型,如果要强制变量的声明,应在模块的声明段使用【1】语句.答案： Option Explicit90、征兵的条件:男性(sex)年龄(age)在18—20岁之间,身高(size)在1.65米以上;或者女性年龄在16—18岁之间,身高在以上,列出逻辑表达式【1】.答案：(sex and age>=18 and age<=20 and size>= ) or (notsex and age>=16 and age<=18 and size>= )91、把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.答案： False92、a 和 b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】.答案： a=1★xor★b=193、设x=2,y=4,a=4,b=6,表达式 (a>x Xor b<x) OR x<y IMP y<b 的结果为【1】.答案： True94、把整型数1赋给一个逻辑型变量,则逻辑变量的值为【1】.答案： True95、如果:I=12:J=3:I=int+I\J+13/3 MOD 5,则I值是【1】.答案： -196、如果:I=11:J=3:I=int+I\J+13/3 MOD 5,则I值是【1】.答案：-297、把条件1<=X<12写成VB关系表达式为【1】.答案：x>=1 and x<12 或 x<12 and x>=1 98、声明单精度常量g(重力加速度)代表可写成【1】.答案：const g= 或 const single g= 100、X=2:Y=8:PRINT X+Y=10的结果是【1】.答案：True101、声明单精度常量P1代表的语句为【1】.答案：Const PI= 或 Const pi As Single = 102、VB 的基本表达式包括算术表达式、关系表达式和【1】表达式.答案：逻辑103、表达式93\7 MOD 2^3的值是【1】.答案： 5104、的连接运算符包括【1】运算符和【2】运算符两种.答案：（1). & 或 + （2). & 或+105、表达式 1 and 0的值【1】.答案： False106、变量min@表示【1】类型的变量.答案：货币数据变量或货币107、当x=2时,语句if x=2 then Print x=2 的结果值是【1】.答案： True108、设x为大于零的实数,则大于x的最小偶数的Visual Basic表达式是【1】.答案：iif(int(x) mod 2=0,int(x)+2,int(x)+1)109、声明定长为10个字符变量Sstr的语句为【1】.答案：Dim Sstr as String*10 或 Sstr as String*10110、表达式(-3) And 8 的值为【1】.答案： True111、Print "x=" & (2=4) 的结果为【1】.答案： x=False。
VB填空题
填空题一（题数：2道，共：10分，得分：分）1、(选修)下面程序代码结构包含了循环结构和_______结构，程序最终结果是s等于_______，t等于______。
PrivateSubCommand1_Click()Dim t,s As Integert=0s=0Do Until t>10If t Mod 3=0Thens=s+tEnd If#t=t+2LoopPrint s,tEnd Sub系统答案：选择，6，12//三种程序结构：顺序结构、选择结构、循环结构2、(选修)数学表达式转换为VB表达式为“_____(a*b)/(6*_____+_____(a-b))”。
)系统答案：sqr，a*a$%$a^2，abs填空题二（题数：2道，共：10分，得分：分）1、(选修)有如下VB程序：Private Sub form_load()n=InputBox("请输入一个正整数：","输入")s=1For i=1To ns=s*i>Next iMsgBox n+"!"+"="+Str(s),0,"阶乘计算"End Sub当n=4时，程序运行后输出的结果是___________________。
系统答案：24$%$4!=24//str()函数将数值型转换为字符串型，+号此处表示字符串的连接，所以需要数据类型转换。
2、(选修)下图是计算“0到100之间偶数之和”的算法流程图，SUM用于累加求和，请将其补充完整：注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“a or b”表达式中的空格要保留。
(系统答案：SUM=SUM+i$%$SUM=i+SUM，i=i+2$%$i=2+i填空题三（题数：2道，共：10分，得分：分）1、(选修)有如下VB程序，功能是用递归法求斐波那契数列1，1，2，3，5，8，13，…第10项的值。
VB自编程序填空题
一、程序填空题1、编写一个字符串反转函数invert，如b=”abcde”，则invert（b）等于”edcba”。
function invert（s as string）as stringdim k,slen as integerdim newstr as stringnewstr=””_________for k=slen to 1 step -1newstr=newstr+__________next k__________end function2、下面程序的功能是判断输入的正整数n是否为素数。
Private sub command1_click()Dim k,n as integerN=val(inputbox(“请输入正整数n”))For k=2 to int(sqr(n))If _________then exit forNext kIf ________ thenPrint str(n)+”是素数”ElsePrint str(n)+”不是素数”End ifEnd sub3、程序的界面如图，现要求完成以下功能：1、当盘驱动器列表框drive1的当前盘符发生改变时，目录列表框dir1显示相应驱动器的目录结构；2、当双击目录列表框的某个项目时，文件列表框file1显示该项目对应文件夹中的文件。
Private sub dir1_change()______________End subPrivate sub drive1_change()_______________End sub4、程序完成在窗体上画一条对角线（从右上角至左下角），并在窗体中心画一个半径为窗体高度四分之一的红色圆环。
(该窗体的scaletop和scaleleft都为0)Private sub form_clickDim x1,y2,r as integerx1=____________y2=form1.scaleheightr=y2/4line (x1,0)-(0,y2)_________________________End sub5、随机生成10个10至50二位整数，并用选择法按从小到大的顺序排列。
VB程序填空题
1、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，并输出判断结果。
程序中有三处错误，请更正。
程序如下：Private Sub Command1_Click()Dim a As SingleDim py As Stringa=Val(Text1)If a>0 Then py="正数"If a=0 Then py="零"If a<=0 Then py="负数"=aEnd Sub①_________________________②___________________________③_____________________2、完善程序，使其能输出：1-2+3-4+5-6+...+99-100的值。
程序如下：Private Sub Command1_Click()s=_____For i=1 To _____s=s+((-1)^(______))*iNext iPrint sEnd Sub3、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。
编写程序，求方程的根，要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。
程序如下：Private Sub Command1_Click()Dim a,b,c,d As SingleDim x1,x2 As Singlea=Valb=Valc=Vald=b^2-4*a*cIf d________ Thenx1=(-b+Sqr(d))/(2*a)x2=(-b-Sqr(d))/(2*a)=x1=x2_______=______End IfEnd Sub4、如果下面程序执行后输出的结果是132，请将程序补充完整：Private Sub Command1_Click()i = 12: s = 1Do While _________________s = s * ii = i - 1LoopMsgBox (s)END Sub5、下面的程序是求7!（7!=1*2*3...*6*7）的值，并在默认窗口输出这个值。
VB题目
25.C语言程序的三种基本结构是（ ）
A) 顺序结构，选择结构，循环结构
B) 递归结构，循环结构，转移结构
C) 嵌套结构，递归结构，顺序结构
D) 循环结构，转移结构，顺序接构
26.下面程序的输出是（ ）
C) scanf(“a=b=%d”,&a,&b) D)scanf(“%5.2f,&f)
3.设a=6，b=4，则表达式b*=a+3的值为（ ）
A）3 B）18 C）27 D）36
4.若给定表达式（m）？a++：a--，则其中表达式m和（ ）等价。
A）m=0 B）m！=0 C）m==0 D）m=1
5. 下列程序的输出是（ ）
main()
{ int a=011;
printf(“%d\n”,++a);
}
A)12 B)11 C)10 D)9
6.正确的C语言自定义标识符是（ ）。
Int x=2;double y;y=(int)(float)x;
4．若a,b和c均是int型变量，则执行下面表达式后，a的值为 4 ，b的值是 5 ，c的值是 6 。
A=(b=4)+(c=2)
5．若x和n均是int型变量，且x和n的初值均为5，则执行下面表达式x 的值为 7 ，n的值为 8 。
的值为 1 。
2．C源程序的基本单位是 2 。
3．经过下述赋值后，变量x的数据类型是 3 。
8．在C语言中的实型变量分为两种类型，它们是 11 和 12 。
9．若有定义：int a=2,b=3;float x=3.5,y=2.5;则下面表达式的值为 13 。
VB程序设计试题及答案(一)
VB程序设计试题及答案（一)一、单选题1. VB6.0是一种面向 B 的编程环境。
（A）机器（B）对象(C）过程（D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。
（A) Forml。
Caption=“欢迎使用VB”（B) Forml。
Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D）Forml.Caption=”欢迎使用VB”3。
若要使命令按钮不可操作,要对 A 属性进行设置。
(A）EnabIed （B)Visible(C）Backcolor (D)Caption4。
如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
（A）Change (B）LostFocus（C) KeyPress （D）GotFocus5。
下面 A 是合法的变量名。
(A）X_yz (B）123ab。
（C) integer (D）X-Y6. 以下关系表达式中,其值为False的是 A 。
（A) "ABC">"AbC”（B）"女"〉"男”（C）”BASIC”=UCase（"basic）(D) ”123”<”23”7。
为了给x、y、z三个变量赋初值1,下面正确的赋值语句是 A .(A) x=1:y=1：z=1 （B) x=1,y=1，z=1(C）x=y=z=1 (D）xyz=18。
VB提供了结构化程序设计的三种基本结构，三种基本结构是 D 。
（A）递归结构、选择结构、循环结构（B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D）选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A）If sex="男" And age=4O And InStr(duty，"教授"）〉O Then n=n+l （B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l（C）If sex=”男” And age=4O And Right（duty，2）="教授" Then n=n+l (D）If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
VB答案(选择+填空+程序设计)
一、单选共300题（共计300分）滚动条的( )属性用于指定用户单击滚动条的滚动箭头时,Value属性值的改变量. A:ValueB:LargeChangeC:ChangeD:SmallChange答案：D运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时,将触发文本框的()事件.A:CLICKB:DBLCLICKC:GOTFOCUSD:CHANGE答案：D要获得用户在组合框输入的内容,应利用的组合框的属性是( ).A:ListB:ListIndexC:SelectedD:Text答案：D输入对话框InputBox的返回值的类型是 .A:长整数B:字符串C:浮点数D:整数案：B要使得标签能自动扩充以满足字体大小则可对其()属性进行设置. A:alignmentB:usemnemonicC:autosizeD:tag答案：C假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是(). A:BOOLVAR='TRUE'B:BOOLVAR=.TRUE.C:BOOLVAR=#TRUE#D:BOOLVAR=3<4答案：D运算符"\"两边的操作数若类型不同,则先再运算.A:四舍五入为Byte类型B:取整为Byte类型C:四舍五入为整型D:取整为Integer类型答案：CVisual Basic程序设计时常用的Print、CLS属于( )A:属性B:对象C:方法D:事件答案：C当文本框的属性设置为True时,在运行时文本框不能编辑. A:VisibleB:EnabledC:LockedD:MultiLine答案：C要使标签所在处透明显示背景,应把其Backstyle属性设置为(). A:0B:1C:2D:3答案：AVisual Basic中,实现参数的传值方式的关键字是A:DimB:ByRefC:ReDim语句Print "5*5" 的显示结果是 .A:25B:"5*5"C:出现错误提示D:5*5答案：D若要求从文本框中输入密码时在文本框中只显示*号,则应当在此文本框的属性窗口中设置( ) A:Text属性值为*B:Caption属性值为*C:password属性值为空D:Passwordchar属性值为*答案：D在下列关于通用对话框的叙述中,错误的是( ).A:当Action属性值为3时,显示字体对话框B:CommonDialogl.ShowFont显示字体对话框C:在"打开"或"另存为"对话框中,FileName属性返回所选的文件名及其路径D:在"打开"或"另存为"对话框中,用户选择的文件名可以经FileTitle属性返回答案：AList1.Clear中的Clear是( ).A:属性D:对象答案：C以下不具有Picture属性对象是().A:窗体B:图片框C:图像框D:文本框答案：D设有如下数组定义语句: Dim s(3) as integer 则下列给数组元素赋值的错误语句是().A:S(2)=5*5-3*3B:s(3)=100C:S(3)=val(inputbox( "输入整数"))D:s(3)=array(0,1,2,3)答案：D简单组合框的style值为().A:0B:1C:2D:3答案：B以下()程序段可以实施X、Y变量值的变换.A:Y=X:X=YB:Z=X:Y=Z:X=YC:Z=X:X=Y:Y=ZD:Z=X:W=Y:Y=Z:X=Y答案：C表达式(7\3+1)*(18\5-1)的值是().A:8.76B:7.8C:6D:6.67答案：C下列对象中没有焦点属性的是().A:命令按钮控件B:窗口控件C:文本框控件D:单选框控件答案：B下列关于Select Case的叙述中,错误的是 .A:Case "abc","ABC" 表示判断Is是否和"abc"、"ABC"两个字符串中的一个相同B:Case "X" 表示判断Is是否为大写字母XC:Case -7,0,100 表示判断Is是否等于字符串"-7,0,100"D:Case 10 To 100 表示判断Is是否介于10与100之间答案：C设a=6,则执行x=IIf(a>5,-1,0)后,x的值为().A:5B:6C:0D:-1答案：D有一如下过程:Sub fact(n As Integer, result As Long)result = 1For i = 1 To nresult = result * iNext iEnd Sub在窗体上画一个名称为Command1的命令按钮,并编写如下事件过程: Private Sub Command1_Click()Dim res As Longfact 5, resPrint resEnd Sub程序运行后,单击命令按钮,则输出的结果是A:120B:15C:121D:100答案：AVisualBasic的编程机制是().A:可视化B:面向对象C:面向图形D:事件驱动答案：D在窗体上添加一个命令按钮,并写如下代码Private Sub Command1_Click()stra = "AbcD":strb = "hIJK"strc = LCase(stra)strd = UCase(strb)Print strc; strdEnd Sub运行后,单击命令按钮,显示的结果是 .A:abcdHIJKB:aBCdHijKC:ABCDHIJKD:AbcDhIJK答案：A声明符号常量应该用关键字().A:StaticB:ConstC:PrivateD:V26/ariant答案：B在VB中过()属性来设置字体颜色.A:FontColorB:ForeColorC:BackColorD:ShowColor答案：B要清除窗体A上已经在图片框P1中打印的字符串而不清除图片框中的图像,应使用语句( ). A:P1.Print""B:P1.picture=LoadPicture("")C:A.P1.ClsD:P1.piture""答案：CSub过程与Function过程最根本的区别是_______.A:Sub过程可以直接使用过程名调用,而Function过程不可以B:Function过程可以有参数,而Sub过程不可以C:两种过程参数传递方式不同D:Sub过程的过程名不能返回值,而Function过程能通过过程名返回值答案：D为达到把a、b中的值交换后输出的目的,编程如下:Private Sub Command1_Click()a% = 10: b% = 20Call swap(a, b)Print a, bEnd SubPrivate Sub swap(ByVal a As Integer, ByVal b As Integer)c = a: a = b: b = cEnd Sub在运行时发现输出结果错了,需要修改.下面列出的错误原因和修改方案中正确的是_________. A:输出语句错误,应改为:"Print "a", "b""B:调用swap过程的语句错误,应改为"Call swap a,b"C:过程的形式参数有错,应改为:"swap(ByRef a As Integer,ByRef b As Integer)"D:swap中3条赋值语句的顺序是错误的,应改为"a=b:b=c:c=a"答案：C在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Command1_Click()Dim ss = Array(9, 8, 7, 6, 5, 4, 3, 2, 1, 0)For i = 4 To 1 Step -2Print s(10 - i * 2);Next i程序运行后,单击命令按钮,则输出的结果是().A:8 4B:4 8C:8 6 4 2D:7 3答案：A删除字符串前导和尾随空格的函数是().A:Ltrim()B:Rtrim( )C:Trim()D:Lcase答案：C要把一个命令按钮设置成无效,应设置其哪一属性值(). A:VisibleB:EnabledC:DefaultD:Cancel答案：B下面语句中用来定义窗体或标准模块数组的是().A:DimB:ReDimC:Static答案：A下列关于Select Case之测试表达式的叙述中,错误的是 . A:可以是浮点类型B:只能是变量名C:可以是字符型D:可以是整型答案：B下列选项中,与List1.Text等价的表达式是( ).A:List1.List(List1.ListIndex-1)B:List1.List(List1.ListIndex+1)C:List1.List(List1.ListCount-1)D:List1.List(List1.ListIndex)答案：D语句listl.removeitem 1 将删除list.listindext等于()的项目.. A:0B:2C:3D:1答案：D执行X=7.835 :y=Int(x*100+0.5)/100 后结果是 .A:7.84B:7.8C:7.83D:7.835答案：AVisual Basic的过程有三种,它们是A:属性过程、通用过程和函数过程B:事件过程、通用过程和函数过程C:事件过程、函数过程和子程序过程D:通用过程、子程序过程和函数过程答案：C组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由()属性决定.A:StyleB:BoderStyleC:FillStyleD:DrawStyle答案：A使用Function语句定义一个函数过程,其返回值的类型为_______. A:只能是符号常量B:是除数组之外的简单数据类型C:可在调用时由运行过程决定D:由函数定义时As子句声明答案：D列表框控件中的列表内容是通过()属性设置的.A:NameB:CaptionC:ListD:Text答案：C工具栏中的"启动"按钮的作用是().A:运行一个应用程序B:运行一个窗体C:工程管理窗口D:打开被选中对象的代码窗口答案：A在窗体Form1的Click事件过程中有以下语句:Label1.Caption="Visual Basic"若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为(). A:"Label"、"Label"B:"Label1"、"Visual Basic"C:"Label1"、"Label1"D:"Caption"、"Label"答案：C要使得窗体在出现之前就完成相关的程序设置可在()事件中进行编程.A:linkopenB:KeyPressC:loadD:click答案：C图像框(Image)的何项属性设置为true时,可使图形自动调整大小,填满整个图像框().A:WidthB:PictureC:NameD:Stretch答案：D每建立一个窗体,工程管理器窗口中就会增加一个().A:工程文件B:窗体文件C:程序模块文件D:类模块文件答案：B表达式X+1>X是().A:算术表达式B:非法表达式C:字符表达式D:关系表达式要在垂直位置上移动控件,应利用控件的()属性.A:LeftB:WidthC:TopD:Height答案：C任何控件都具有的属性是().A:TEXTB:CAPTIONC:NAMED:FORECOLOR答案：C下列选项中,不属于列表框方法的是( ).A:AddItemB:DelItemC:ClearD:RemoveItem答案：B若i的初值为8,则下列循环语句的循环次数为次. Do While i<=17i=i+2A:4次B:3次C:6次D:5次答案：D下列不能用commondialog 控件调用的对话框是(). A:open/saveB:helpC:fontD:search答案：D一个菜单项是不是一个分隔条,由()属性决定.A:Name(名称)B:CaptionC:EnabledD:Visible答案：B选中复选框控件时,value属性的值,可以是().A:TrueB:falseC:0D:1Interger类型的变量可存的的最大整数是().A:250B:256C:32768D:32767答案：D获取字符串a 最右边5个字符的函数是 . A:RightStr(a,5)B:RightTrin(a,5)C:Last(a,5)D:Right(a,5)答案：DVB认为下面()组变量是同一个变量.A:A1和a1B:SUM和SUMMARYC:AVER和AVERAGED:A1和A_1答案：A下列控件中,没有Caption属性的是( ).A:框架B:复选框D:单选按钮答案：C要在图片框P1中打印字符串"HowAreYou",应使用语句(). A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"答案：C如果要给字体加删除线,可以选择下列那种属性().A:FontNameB:FontSizeC:FontStrikethruD:FontUnderLine答案：C下面哪些控件不会影响到界面设计效果().A:LabelB:TextC:CommonDialogD:Frame答案：C要改变控件的宽度,应修改该控件的()属性.A:TopB:WidthC:LeftD:Height答案：B变量未赋值时,数值型变量的值为().A:0B:空C:1D:无任何值答案：A设组合框Combo1中有3个项目,则以下能删除最后一项的语句是(). A:Combo1.RemoveItem TextB:Combo1.RemoveItem 2C:Combo1.RemoveItem 3D:Combo1.RemoveItem Combo1.Listcount答案：B用ReDim语句定义的数组是().A:多维数组B:永久数组C:临时数组D:静态数组答案：C只能用来显示字符信息的控件是( ).A:文本框B:标签C:图片框D:图像框答案：B以下4个选项中,属性窗口未包含的是 .A:属性列表B:工具箱C:对象列表D:信息栏答案：B窗体的Caption属性的作用是().A:确定窗体的名称B:确定窗体的标题C:确定窗体的边界类型D:确定窗体的字体答案：B启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A:工程1B:窗体1C:工程D:窗体答案：A若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性. A:BACKCOLORB:BORDERSTYLEC:FORECOLORD:BACKSTYLE答案：D以下不允许用户在程序运行时输入文字的控件是().A:标签框B:文本框C:下拉式组合框D:简单组合框答案：A引用列表框的最后一项应使用().A:List1.List(List1.ListCount-1)B:List1.List(List1.ListCount)C:List1.List(ListCount)D:List1.List(ListCount-1)答案：AInt( Rnd * 100 ) 表示的是范围内的整数.A:[1,100]B:[1,99]C:[0,99]D:[0,100]答案：C表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(). A:4^5B:3*4C:x+1D:SIN答案：C确定一个控件在窗体上的位置的属性是( ).A:Width和HeightB:Width或HeightC:Top和LeftD:Top或Left答案：C双击窗体的任何地方,可以打开的窗口是().A:代码窗口B:属性窗口C:工程管理窗口D:以上3个选项都不对答案：A下面()控件不具有Caption属性.A:标签框B:单选钮C:命令按钮D:文本框答案：D如果设计时在属性窗口将命令按钮的()属性设置为False,则运行时按钮从窗体上消失.A:VisibleB:EnabledC:DisabledPictureD:Default答案：A如果要在菜单中添加一个分隔线,则应将其Caption属性设置为(). A:=B:*C:&D:-答案：D下列()是窗体的扩展名.A:frmB:basC:clsD:dll答案：A定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分B:秒C:毫秒D:微秒答案：C在设计应用程序时,通过____窗口可以查看到应用程序工程中的所有组成部分. A:代码窗口B:窗体设计窗口C:属性窗口D:工程资源管理器窗口答案：DCls方法可以清除窗体或图片框中的()内容.A:在设计阶段使用Picture设置的背景位图B:在设计阶段放置的控件C:在运行阶段产生的图形和文字D:以上全部内容答案：C为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为().A:5B:500C:300D:5000答案：DMSGBOX函数中有4个参数,其中必须写明的参数是().A:指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:所有参数都是可选的答案：C与传统的程序设计语言相比,Visual Basic 最突出的特点是 . A:子过程和函数功能的设计B:事件驱动运行机制C:调试技术D:结构化程序设计答案：B单击滚动条的滚动箭头时,产生的事件是().A:ClickB:ScrollC:ChangeD:Move命令钮标题热字的下划线,可通过( )符号来设置.A:\<B:&C:_D:\>答案：B下列语句中,属于合法的Visual basic 语句是().A:Option Base 4B:Option Base 2C:Option Base 1D:Option Base 3答案：C在列表框中当前被选中的列表项的序号是由下列哪个属性表示(). A:ListB:IndexC:ListIndexD:TabIndex答案：C用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:Checked答案：C下列()是日期型常量.A:"2/1/02"B:37258C:#2/1/02#D:|2/1/02|答案：CClear方法适用于() 控件.A:图片框B:窗体C:复选框D:组合框答案：D欲使某命令按钮失效,应修改命令按钮的()属性.A:VisibleB:CaptionC:EnableD:Enabled答案：D将通用对话框类型设置为"另存为"对话框,应修改( )属性.C:ActionD:Font答案：C若要把"XXX"添加到列表框List1中的第三项,则可执行语句( ). A:List1.AddItem "XXX", 3B:List1.AddItem 3,"XXX"C:List1.AddItem "XXX", 2D:List1.AddItem 2,"XXX"答案：C下列哪一种文件打开方式是以顺序文件方式打开文件并作写操作(). A:Open "c:\file1.dat"For Output as #1B:Open "c:\file1.dat" For Input as #1C:Open "c:\file1.dat" For Append as #1D:Open "c:\file1.dat" For Write as #1答案：A下面()对象在运行时一定不可见.A:LineB:TimerC:TextD:Option答案：B()对象不能作为控件的容器.A:FormB:PictureBoxC:ShapeD:Frame答案：C为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是( ).A:ValueB:DefaultC:CancelD:Enabled答案：C下列选项中不属于事件的是 .A:ShowB:KeyUpC:LoadD:Dblclick答案：A能够改变窗体边框线类型的属性是().A:FontStyleB:BorderStyleC:BackStyleD:Border答案：B标签框文本的对齐方式由( )属性来决定.A:AlignB:AlignmentC:AutosizeD:BackStyle答案：B在参数传递过程中,使用关键字_______来修饰参数,可以使之按值传递. A:ByValB:ByRefC:ValueD:reference答案：A要想返回文本框中输入的内容则可利用其()属性进行编程.A:captionB:textC:nameD:righttoleft答案：B当一个工程含有多个窗体时,其中的启动窗体是( ).A:在"工程属性"对话框中指定的窗体B:第一个添加的窗体C:启动 Visual Basic 时建立的窗体D:最后一个添加的窗体答案：A如下语句不能定义一个10×10的数组的是().A:Option Base 1:Dim s(10, 10)B:Dim s(2 To 11, -4 To 5)C:Dim s(10, 10) As IntegerD:Dim s(9, 9)答案：C若要设置文本框最大可接收的字符数,可通过( )属性来实现. A:MultiLineB:LengthC:MaxD:MaxLength答案：D数组Dim arr(-1 to 4,2 to 4,3) 的元素个数是().A:60B:36C:30D:72答案：D以下有关对象属性的说法正确的是( ).A:对象所有的属性都罗列在属性窗口列表中B:不同对象不可能有同名属性C:不同对象的同名属性的取值一定相同D:对象的某些属性既可以在属性窗口中设置,也可以通过程序代码设置或改变答案：Dvb 中的坐标系最小刻度为().A:缇B:象素C:厘米D:一个标准字符宽度答案：A如果要在命令按钮上显示图形文件,应设置命令按钮的().A:Style属性和Graphics属性B:Style属性和Picture属性C:Picture属性D:Graphics属性答案：B组合框控件是将()组合成一个控件.A:列表框控件和文本框控件B:标签控件和列表框控件C:标签控件和文本框控件D:复选框控件和选项按钮控件答案：A计时器的interval属性为0时,表示().A:计时器失效B:相隔0秒C:相隔0 毫秒D:计时器的enable属性为false答案：A清除列表框的所有选项应选择下列哪种方法().A:ClearB:ClsC:ClearItemD:RemoveItem答案：A以下叙述错误的是( ).A:下拉式菜单和弹出式菜单都用菜单编辑器建立B:如果把一个菜单项的Enabled属性设置为False,则菜单项不可见. C:内缩符号由4个点组成,它表明菜单项所在的层次.D:除分隔线外,所有菜单项都能接收Click事件.答案：B在Visual Basic代码中,将多个语句合并在一行上的并行符是() A:撇号(')B:冒号(:)C:感叹号(!)D:问号(?)答案：B工程文件的扩展名为 .A:.basB:.vbpC:.frxD:.frm答案：B将Visual Basic编制的程序保存在磁盘上,至少会产生何种文件 .A:.doc与.txtB:.vbp与.frmC:.com与.exeD:.bat与.frm答案：B为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A:ValueB:DefaultC:CancelD:Enabled答案：B决定控件上文字的字体、字形、大小及效果的属性是().A:TEXTB:CAPTIONC:NAMED:FONT答案：D一、判断共204题在Visual Basic 中Dim a ,b,c as integer和Dim a as integer, b as integer,c as integer相同.答案：N有的对象属性既可在属性窗口中设定又可在程序代码中设定.答案：Y所有的控件在程序运行以后都是可见的.答案：NSingle 和Double型用于保存浮点数,在VB中定义单精度浮点8位,双浮点16位.答案：N时钟控件的属性Interval值为0时,表示屏蔽计时器.答案：Y有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y在过程中用Dim和Static定义的变量都是局部变量答案：Y对象是基本的运行实体,它既包括了数据(属性).也包括作用于对象的操作(方法)和对象的响应动作(事件).答案：Y事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是事件过程由控件属性决定,而Sub过程是由户自定义.答案：Y图片框的属性Enabled设置为FALSE, 图片框上的控件仍可响应用户操作.答案：N声明形参处缺省传递方式声明,则为按值传递(ByVal).答案：NVariant是一种数据类型,因此只能存放象其它数据类型一样,无特殊值.答案：NVB若同一个工程有许多窗体,可以指定任一窗体为启始窗体.答案：Y定时将文本框中的数据保存到磁盘,应用于选用Timer计时器控件.答案：Y过程中的静态变量是局部变量,当过程再次被执行时,它的值是上一次过程调用后的值.答案：Y在VB中,函数 Fix(-3.6) 的返回值是–4.答案：N可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y如果一个菜单项的Visible属性为False,则它的子菜单也不会显示.答案：YVB规定窗体文件的扩展名是 .vbp.答案：N当需要在同一窗体中建立几组相互独立的单选钮时,就要用框架将每一组单选钮框起来.答案：Y在打开一个Visual Basic工程进行修改后,要另存为一个版本,只需单击"工程另存为…"就行,因为系统将同时保存其他文件.答案：Y利用Private Const 声明的符号常量,在代码中不可以再赋值.答案：Y如果在过程调用时使用按地址传递参数(byref),则在被调过程中不可以改变实参的值.答案：N用通用对话框控件显示"字体"对话框前,必须先设置Flags属性,否则将发生"不存在字体"的错误.答案：Y用Cls方法能清除窗体或图片框图中用Picture属性设置的图形.答案：NDo/Loop While结构中的循环体,至少被执行一次.答案：Y要使定时器控件起作用,其属性Interval不可以设置为0.答案：Y对于文件系统控件,当驱动器控件Drive1中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应改变,可以在Drive1中的Change事件中使用如下命令:Dir1.Path=Drive1.Drive.答案：Y事件过程由某个用户事件或系统事件触发执行,它不能被其它过程调用.答案：NFor/Next语句中,循环控制变量只能是整型变量.答案：N关系表达式是用来比较两个数据的大小关系的,结果为逻辑值.答案：Y面向对象程序设计是一种以对象为基础,由事件驱动对象执行的设计方法.答案：YVisual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角,如果要把坐标原点放在其它位置,则需使用自定义坐标系统.答案：Y在框架控件内的几个单选按钮中,只能有一个单选按钮的Value属性为True.答案：Y设置框架时,可先在窗体上画好框架,再往框架内添置控件;也可以先设计控件,再建立框架,然后将已有控件拖动到框架中.答案：N在程序中Name属性是作为对象的标识而引用,不会显示在窗体上,而控件上显示的内容由Caption属性决定.答案：N由Visual Basic语言编写的应用程序有解释和编译两种执行方式.答案：Y在MsgBox 函数中 prompt 参数是必须的.答案：Y文件按照数据编码方式可以分为ASCII码文件和二进制文件.答案：Y在表达式中,运算符两端的数据类型要求一致.答案：Y计时器(Timer)控件的Interval属性的单位是毫秒,即若将此属性值设为10,则每0.01秒产生一次Timer事件.答案：Y数组控件形成之后,对于每一个控件的名称是相同的.答案：Y若要新建一个磁盘上的顺序文件,可用output,append方式打开文件.答案：Y清除combo1对象的内容是combo1.clear.答案：YDo/Loop Until结构的循环,是"先判断、后执行(循环体)"的循环结构.答案：N在盘驱动器列表框Drive1的Change事件过程中,代码Dir1.Path=Drive1.Drive 的作用是:当Drive1的驱动器改变时,Dir1的目录列表随不同驱动器的作相应改变.答案：Y命令 Picture1.Circle(500,800),800 能够在图片框Picture 1 中画出的图形是圆心在 (500,800)的一个圆.答案：Y用DIM定义数值变量时,该数值变量自动赋初值为0.答案：Y在面向对象的程序设计中,对象是指可以访问的实体.答案：Y通常访问数组内容需要使用循环结构.答案：Y在VB 6.0中,如果要使窗体上的多个控件具有相同的尺寸,在选择了这些控件之后,应执行VB"格式"菜单中的命令.答案：Y用关键字Public声明的过程可以被其他模块调用.答案：YVB支持弹出菜单,所谓"弹出菜单"是指单击鼠标后打开的菜单.答案：N用dim语句声明的局部变量能保存上一次过程调用后的值.答案：N"菜单编辑器"中至少要填"名称"和"标题"这两个框,才能真确完成菜单栏的设计.答案：Y在命令按钮的Click事件过程中,exit与end等效.答案：N在逻辑运算符Not、Or、And中,运算优先级由高到低依次为Not、And、Or.答案：YVisual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言.答案：Y设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C 的值是 False.答案：Y"事件过程"是用来完成事件发生后所要执行的程序代码.答案：Y某一过程中的静态变量在过程结束后,静态变量及其值可以在其它过程中使用.答案：N如果一个列表框一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2.答案：YActiveX控件是扩展名为*.ocx的独立文件,使用时需用"工程"/"部件"载入或移去.答案：Y要设置一个图片按钮,除了设置按钮的Picture属性外,还应该将按钮的Style属性设置为1.答案：Y使用单选钮控件数组时,它们响应同一个Click事件,由Index参数值来区分不同的按钮.答案：Y组合框兼有文本框和列表框两者的功能,用户可以通过键入文本或选择列表中的项目来进行选择. 答案：Y图象框中的Stretch 属性为 true 时,其作用是图形自动调整大小以适应图象控件.答案：Y函数MsgBox的前3个参数分别表示默认按钮、按钮样式以及图标样式.答案：N在单行If语句中,关键字End If是必不可少的.答案：N创建数组控件的方法之一是选定控件后通过复制、粘贴的方式.答案：YFunction函数有参数传递,并且一定有返回值.答案：Y计算机在处理数据时必须将其装入内存,在高级语言中通过内存单元名来访问其中的数据,命名的内存单元就是常量或变量.答案：Y单击"启动"菜单项将窗体装入内存时,一定触发窗体的load事件.答案：YFor/Next循环正常(未执行Exit For)结束后,控制变量的当前值等于终值.答案：N多文档界面是指在一个父窗口下面可以同时打开多个子窗口.子窗口归属于父窗口,当父窗口关闭时,所有子窗口全部关闭.答案：YListl.clear是清除Listl的全部列表项,所以Clear是对象的方法.答案：Y在标准模块的声明部分中用Public声明的变量的有效范围是其所在的工程.答案：Y函数InputBox的前3个参数分别是输入对话框的提示信息、标题以及默认值.答案：Y将焦点主动设置到指定的控件或窗体上,应采用Setfocus方法.答案：YVisual_basic是合法的变量名.答案：Y填空共141题文本框中所显示的内容是它的【1】属性的值.答案 Text如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义【1】.答案：public mystring as string*15如果:I=11:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【1】.答案：-2新建工程时系统会自动将窗体标题设置为【1】.答案：Form1如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】. 答案：退出(&X)拖动滚动条中的滚动框将会产生Scroll和【1】事件.答案：Change语句Print Not 10>15 And 8<5+2的输出结果为【1】.答案：FALSE对象具有属性和【1】.答案：方法当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【1】属性设置成空白.答案：Text把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：False要使同一类型控件组成一个控件数组,必须要求【1】.答案：Name 相同=或=名称相同滚动条控件有水平滚动条和【1】滚动条.答案：垂直Val("123.55ab456")的值是多少【1】.答案：123.55VB提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动的在列表框边上加一个【1】.答案：垂直滚动条=或=滚动条把整型数1赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：True运行时,若需要命令按钮为灰色,即不被击活,在设计时可以通过【1】属性来实现.答案：enabled列表框(ListBox)显示【1】,用户可以从中选择一个或多个项目.答案：项目列表=或==列表Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案：Picture1求x与y之积除以z的余数的VB表达式为【1】.答案 x*y Mod z已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为【1】. 答案：DE文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：随机文件=或=随机显示弹出式菜单的方法是【1】.答案：PopupMenu要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.答案：DefaultVB的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符. 答案：连接设置计时器控件只能触发【1】事件.答案：timerVisualBasic6.0用于开发【1】环境下的应用程序.答案：WINDOWS一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示【1】文件.答案：窗体VB6.0的连接运算符包括【1】运算符和【2】运算符两种.答案：& 或+答案2 & 或 +。
VB复习资料
VB综合练习一．选择题1.要改变控件的宽度，应修改该控件的（B）属性。
A、TOPB、widthC、LeftD、Height2.将命令按钮Command1设置为不可见，应修改该命令按钮的（A）属性。
A、VisibleB、ValueC、CaptionD、Enabled3．VB程序设计的完整步骤是（ C ）。
（A）可视化程序设计（B）代码程序设计（C）可视化程序设计和代码程序设计（D）界面设计4.（D ）对象具有clear方法。
A、图片框B、窗体C、复选框D、列表框5．要求改变窗体的标题时，应当在属性窗口中改变（ A ）的属性。
（A）Caption ( B )Name ( C )Text ( D )Label6．窗体能响应的事件是（ C ）。
（A）ActiveForm ( B )Drive ( C )Load ( D )Change7．下列变量命名正确的是（ B ）。
（A）basic+1 ( B )myfile ( C )p1age@2 ( D )cmd..18.由Fo r K=10 TO 0 step 3：next K循环语句控件的循环次数是（B ）A、12B、0C、-11D、-109.下列数据类型中，占用内存最大值是（D ）A、Boolean 2B、Byte1C、integer2D、Single410．在事件中，Private 表示（ B ）。
（A）此过程可以被其它的过程调用（B）此过程只可以被本窗体模块中的其它过程调用（C）此过程不可以被任何其它的过程调用（D）此过程只可以被本工程的其它过程调用11．当执行以下的过程时，Lb1Result 的标签框内将显示（）。
Private Sub cmdIt_Click( )Dim I,RR=0For I=1 to 5 Step 1R=R+INext iLb1Result.Caption=Str$(R)End Sub( A )字符串15 （B）整数15 （C ）字符串5 （D）整数512．若要求从文本框中输入密码时在文本框中只显示$号，则应在此文本框的属性窗口中设置（ A ）。
VB填空题及答案
二、填空题：（每空1分，共20分） 程序代码基础部分：1．Visual Basic 中的变量按其作用分为__ 、__ 、__ 。
全局变量、模块变量（或窗体级变量）、局部变量（过程级变量）2．声明单精度常量PI 代表3.14159的语句为__ __ __ _。
Const PI!=3.14159或Const PI As Single = 3.14159 3．声明定长为10个字符变量Str v 的语句为： 。
Dim Strv as String*10 4．把条件为1≤X ≤5 写成Visual Basic 表达式为： 。
x>=1 and x<=5 5．把条件1≤X<12写成Visual Basic 关系表达式为__ 。
x>=1 and x<126．数学表达式（2 π r+e -5）lnx 对应的Visual Basic 表达式是：__ 。
（2*3.14*r+exp(-5))*Log （x ） 7．数学表达式c)-b)(s -a)(s -s(s 对应的Visual Basic 表达式是： __ 。
sqr （s*（s-a ）*（s-b ）*（s-c ））8．数学表达式ba x e r++-ln )2(8π对应的Visual Basic 表达式是： 。
（2*3.14*r+exp(-8)）*log(x)/(a+b)9．数学表达式5+(a+b)2对应的Visual Basic 表达式是 。
5+(a+b)^210．数学表达式2a （7+b ）对应的Visual Basic 表达式是 。
2*a*（7+b ）11．数学表达式C ×A B对应的Visual Basic 表达式是 。
C*A^B12．写出 Visual Basic 表达式 (Abs(a*b-c^3))^3 对应的数学表达式的形式 。
│ab-c 3│313．写出 Visual Basic 表达式 x^2+3*x*y/(2-y) 对应的数学表达式的形式 。
VB填空题题库
VB填空题题库1) 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______（提示：不能出现符号#）。
答案：122) 语句a%=3.14156:Print a%的输出结果是______。
答案：33) 以下循环的执行次数是_____。
K=0Do While k<=10k=k+1Loop答案：114) Fix(5.8)的值是______答案：55) 下列程序段的执行后输出的结果为_____。
I=4:A=5DoI=I+1:A=A+2Loop Until I>=7Print "A=";A答案：A=116) 表达式3/6*5的值是_______。
答案：2.57) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。
If a<b Thend=a:a=b:b=dEndIfIf a<c Thend=a:a=c:c=dEndIfIf_____Thend=b:b=c:c=dEndIfPrint a,b,c答案：b<c8) 在Select case 结构中应至少包含一个______子句。
答案：CASE9) 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。
答案：赋值10) 有如下Sub过程:Sub ind(a As Integer)Static x As Integerx = x+aPrint x;End Sub以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。
Private Sub Command1_Click()Ind(2)End Sub答案：211) 逻辑常量值为TRUE或_______。
答案：FALSE12) 货币类型的数据小数点的位置是固定的，精确到小数点后_____位。
答案：413) 表达式（2+8*3）/2的值是______。
答案：1314) 以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。
vb程序设计书习题和参考答案
b = "cdef"
e = Right(a, 3)
f = Mid(b, 2, 3)
If e < f Then Print e + f Else Print f + e
End Sub
程序3.请写出单击窗体后，窗体上的显示结果。
Private Sub Form_Click()
Dim i As Integer, j As Integer
2．用Dim c(2 to 5) As Integer语句定义的数组占用个字节的内存空间。
A、4 B、8 C、6 D、10
3．以下是VB合法的数组元素。
A、x9 B、x[9] C、x(9) D、x{9}
4．设有数组声明语句：Dim a(2,3 to 4) As Integer
以上语句所定义的数组a为维数组，共有个元素，第一维下标从到，第二维下标从到。
6.窗体模块的文件扩展名是
A、.exe B、.bas C、.frx D、frm
7
A、FontName B、FontSize C、FontBold D、FontItalic
8.设置窗体的字号用
A、FontName B、FontSize C、FontBold D、FontItalic
2．编程，输入x值，按下式计算并输出y值。
3．计算下式的和，变量x与n的数值用输入对话框输入。
4．用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。
习题四
一、选择题
1．窗体通用部分的语句“Option Base1”，决定本窗体中数组下标界。
A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Array答案：D2. 下面哪个语句用于在Visual Basic中声明一个变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在Visual Basic中，以下哪个是正确的循环结构？A. LoopB. WhileC. DoD. Repeat答案：C4. 以下哪个属性用于设置控件的可见性？A. VisibleB. ShowC. HideD. Display答案：A5. Visual Basic中的事件通常与哪个关键字一起使用？A. SubB. FunctionC. EventD. Procedure答案：A6. 在Visual Basic中，以下哪个不是控件的属性？A. NameB. CaptionC. TypeD. Left答案：C7. 下列哪个不是Visual Basic的内置函数？A. LenB. UBoundC. SqrtD. Max答案：D8. 在Visual Basic中，以下哪个不是数组的声明方式？A. Dim arr(1 To 10)B. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Variant答案：D9. 在Visual Basic中，以下哪个不是条件语句？A. IfB. Select CaseC. WhileD. Do答案：C10. Visual Basic中，以下哪个不是错误处理的关键字？A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. On Error Exit Sub答案：D二、填空题（每题2分，共10分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
vb程序阅读题与填空题
VB程序阅读题与程序填空题综合练习1、阅读下面程序，当单击窗体之后，窗体上输出的是。
Private Sub Form_Click( )Dim i As Integer, j As IntegerDim k As Integerk=0For i = 0 To 10 Step 3For j = 1 To 10If j > = 5 Then i = i +4: Exit Forj = j + 1k = k + 1NextIf i > 8 Then Exit ForNextPrint kEnd Sub2、阅读下面的事件过程。
单击窗体后，在文本框Text1和Text2中显示的内容分别是和；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是和。
Private Sub Form_Click( )Dim x As Integer, y As Integerx = 1 : y = 0Do While x < 3y = y + x 'A语句x = x + 1 'B语句LoopText1.Text = xText2.Text = yEnd Sub3、下面程序段中，k循环共执行次，在窗体上显示的结果是。
Dim b As Integer, k As Integerb = 1For k =1 To 5b = b * kIf b > = 15 ThenExit ForElsek = k + 1End IfNext kPrint k, b4、以下是按钮cmdl的Click事件过程，求1~100之间的所有质数。
质数的个数显示在窗体上，在划线处填上缺少的内容。
Private Sub cmdl_Click( )Dim intNum As Integer, int1 As Integer, int2 As IntegerintNum = 0For int1 =For int2 = 2 To int1 \2If (int1 Mod int2) = 0 ThenintNum=1End IfNextIfsNum = sNum + 1End IfNextPrintEnd Sub5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。
VB语言程序设计试题库
VB 程序设计一、判断题1. 同一Form 窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。
（ X ）2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（）3. 单选按钮与复选框对象的 Value 属性类型不同，且只能取值 True 和False。
（√）4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。
（）5. 图片框的Move 方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。
（√）6. “A=B=C”是一个合法的 Visual Basic 语句。
（）7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（）8. Visual Basic 程序的运行可以从 Main （）过程启动，也可以从某个窗体启动。
（√）9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。
（）10. 对于文件系统控件，当驱动器控件 Drivel 中的驱动器符改变时，文件夹列表控件 Dir1 中显示的文件夹也作相应的改变，可以在Drive1 中的Change 事件中使用如下命令。
Dir1. Path＝ Drive1. Drive（√）11. 滚动条控件可作为用户输入数据的一种方法。
（√）12. 单选按钮控件和复选框控件都具有 Value 属性，它们的作用完全相同。
（）13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
（√）14. Visual Basic 提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√）15．注释语句 REM 可自成一语句。
（√）16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress （）17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。
VB试题及答案
VB试题及答案（二）一、填空题1. 在Visual Basic6.0中，按变量作用域的不同可将变量分为全局变量和局部变量两种；声明静态变量的关键字为 Static ;2. 在Viual Basic6.0中，程序结构有顺序、选择、循环 3种结构。
3. 控制控件是否可见的属性为 Visible ；控制控件是否可用的属性为 Enabled ；控件的位置是由 Left 和 Top 属性来确定的；控件的大小是由 Width 和 Height 属性来确定；控件上所显示的文本是由 Caption 属性来设定的；4. 与鼠标有关的事件包括 Click 、 DblClick 、MouseDown 、 MouseUp MouseMove ，其中 Click 事件在单击控件时被激发， MouseDown 事件在鼠标键被按下时被激发， MouseUp 事件在鼠标被松开时被激发。
5. 与键盘有关的事件包括 KeyPress 、 KeyDown 、 KeyUp ，其中 KeyPress 事件在单击键盘键时被激发， KeyDown 事件在按下键盘键时被激发， KeyUp 事件在松开键盘键时被激发。
6. 向列表框和组合框中添加列表时，可使用 AddItem 方法；删除选定的列表，可使用 RemoveItem 方法；删除全部列表项，可使用 Clear 方法。
7. 定时器控件能够响应的唯一事件为 Timer ，并且该事件被激发的时间间隔由 Interval 属性来给定。
8. 弹出式菜单一般不直接显示在窗体上，因此菜单的 Visible 属性一般设为False。
要显示弹出式菜单可以用 PopupMenu 方法。
9. 工具栏一般显示在菜单栏下面，由命令按钮组成；状态栏一般显示在窗体的底部，由窗格（Panels）组成。
10. 在图片框绘图之前，除了要建立好坐标系之外，还必须设置好线条的类型、线条的宽度、绘图的模式、填充的样式和填充的颜色，其中线条类型由 DrawStyle 属性来设置，线条宽度 DrawWidth 属性来设置，绘图模式由 DrawMode 属性来设置，填充样式由 FillStyle 属性来设置。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB程序阅读题与程序填空题综合练习1、阅读下面程序，当单击窗体之后，窗体上输出的是。
Private Sub Form_Click( )Dim i As Integer, j As IntegerDim k As Integerk=0For i = 0 To 10 Step 3For j = 1 To 10If j > = 5 Then i = i +4: Exit Forj = j + 1k = k + 1NextIf i > 8 Then Exit ForNextPrint kEnd Sub2、阅读下面的事件过程。
单击窗体后，在文本框Text1和Text2中显示的内容分别是和；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是和。
Private Sub Form_Click( )Dim x As Integer, y As Integerx = 1 : y = 0Do While x < 3y = y + x 'A语句x = x + 1 'B语句LoopText1.Text = xText2.Text = yEnd Sub3、下面程序段中，k循环共执行次，在窗体上显示的结果是。
Dim b As Integer, k As Integerb = 1For k =1 To 5b = b * kIf b > = 15 ThenExit ForElsek = k + 1End IfNext kPrint k, b4、以下是按钮cmdl的Click事件过程，求1~100之间的所有质数。
质数的个数显示在窗体上，在划线处填上缺少的内容。
Private Sub cmdl_Click( )Dim intNum As Integer, int1 As Integer, int2 As IntegerintNum = 0For int1 =For int2 = 2 To int1 \2If (int1 Mod int2) = 0 ThenintNum=1End IfNextIfsNum = sNum + 1End IfNextPrintEnd Sub5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。
请在画线处中填入适当的内容。
Private Sub CmdExit_ ( )End Sub6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。
在画线处填入正确的内容。
Private Sub Comandl_Click( )Dim int1 As Integerint1 =val (txt1.Text)Select Case int1Casetxt2.Text = "值为0"Casetxt2.Text = "值在1和10之间（包括1和10）"Casetxt2.Text = "值大于10"Case Elsetxt2.Text = "值小于0"End SelectEnd Sub四、读程序题，写出程序运行结果。
1．运行结果：Private Sub Form_Click()For I = 1 To 9For j = 1 To 30 - 3 * IPrint " ";Next jFor k = 1 To IPrint k;Next kFor k = I - 1 To 1 Step -1Print k;Next kPrintNext IEnd Sub2．运行结果：Private Sub Command1_Click() Static S As IntegerDim i As IntegerS = 1For i = 1 To 5S = S * iNext iPrint SEnd Sub3．运行结果：For X = 5 To 1 Step –1 For Y = 1 To 6 - XPrint Tab(Y + 5); "*";Next YPrintNext X4．运行结果：S = 0: T = 0: U = 0For X = 1 To 3For Y = 1 To XFor Z = Y To 3S = S + 1Next ZT = T + 1Next YU = U + 1Next XPrint S; T; U5．运行结果：Private Sub Command1_Click() Dim b As Integera = 3.6b = 3.6Text1.Text = aText2.Text = bEnd Sub2．以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。
Private Sub Command_Click()X = Val(Text1.Text)If （1）ThenPrint XElse（2） （3）（4） End IfEnd Sub 五、编程题 1．设计一个计算程序。
该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成．程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。
单击退出按钮则退出。
Private Sub Command1_Click() Text1.Text = [1] Text2. [2] = ""[2] [3] .Text = ""[3]End SubPrivate Sub Command2_Click() If Text1. [4]= " " Or Text2.Text = [5] Or Text3.Text = " " Then [4] MsgBox "成绩输入不全！" [5]ElseText4.Text = ( [6 ] + Val(Text2.Text)[6] + Val(Text3.Text)) / [7 ][7][8 ][8]End SubPrivate Sub Command3_Click()命令按钮1command1命令按钮2command2命令按钮3command3文本框1（text1）文本框2（text2）文本框3（text3）文本框4（text4）Unload [9] [9] [10] Sub [10]3．设计一个欢迎程序。
该程序用户界面如图所示。
要求程序运行后，用户选中粗体复选框时“欢迎您！”几个字的字体变成粗体，用户选中斜体复选框时“欢迎您！”几个字的字体变成斜体。
若取消选中，则恢复原字体。
按结束，则退出。
4．任给3个数，求其中间数，写出程序代码。
三、阅读程序题1．阅读下列程序并写出程序运行结果Private Sub Form_Click()Dim s As Long, f As Long, n As Integer, i As Integer n = 3For i = 1 To nf = f + is = s + fNextPrint "s="; sEnd Sub写出程序运行时单击窗体后，窗体Form1上的输出结果。
运行结果：2．阅读下列程序并写出程序运行结果Private Sub Command1_Click()x = 0Do While x < 100x = (x + 2) * (x + 4)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub文件框Text3的结果是：运行结果：3．阅读下列程序并写出程序运行结果Private Sub Command1_Click()Dim Sum1 As Integer, Sum2 As IntegerSum1 = 0: Sum2 = 1For I = 1 To 4For J = 1 To ISum2 = Sum2 * JNext JSum1 = Sum1 + Sum2Next IPrint Sum1End Sub写出程序运行时单击命令按纽后，窗体上的输出结果。
运行结果：4.阅读下列程序并写出程序运行结果Private Sub Command1_Click()Dim x As IntegerStatic s As Integerx = Val(InputBox("请输入一个正整数If x < 6 Thens = s * xElses = s + xEnd IfText1.Text = "s=" & Str(s)End Sub程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text15．阅读下列程序并写出程序运行结果Private Sub Form_Click()Dim A(1 To 3) As StringDim c As Integer,j As IntegerA(1) = “2”A(2) = “4”A(3) = “6”c=0For j=1 to 3c = c + Val(A(j))Next jPrint cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果：运行结果：Array 7．阅读下列程序并写出程序运行结果Sub test(i As Integer)i = i + 1End SubPrivate Sub Form_Click()Dim x As Integerx = 4Print "x="; xCall test(x)Print "x="; xEnd Sub8.阅读下列程序并写出程序运行结果Private Sub Form_Click()a = 1:b = 1Print "A="; a; ",B="; bCall mult(a)Print "A="; a; ",B="; bEnd SubPrivate Sub mult(x)x = 2 * xb = 3 * bEnd Sub9.阅读下列程序并写出程序运行结果Private Sub Form_Click()Dim i As Integer, a As Integerk = 0For i = 1 To 6If i > 3 Thena = a + 4Elsea = a + 1End IfNext iPrint i, aEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。