上海海事大学VB题库 改错
VB改错题(答案)
1.程序的功能是：单击命令按钮“输出”，在图片框Picture1中输出费波那契数列的前20项项值，要求按区输出，每行输出4个项值。
程序中有两处错误，请修改程序并运行，直到得出正确结果。
注意：程序中的修改行就在注释行：'**********found*************' '请不要删除该行'的下面，请不要修改程序中的其他部分。
最后把修改后的文件按原来文件名存盘。
第1个出错位置：For i=3 to 20第2个出错位置：If i Mod 4=0 then Picture1.PrintPrivate Sub Command1_Click()Dim f(40) As LongDim i As IntegerPicture1.Clsf(1) = 0f(2) = 1Picture1.Print f(1), f(2),'**********found*************' '请不要删除该行'For i = 1 To 40For i=3 to 20f(i) = f(i - 1) + f(i - 2)Picture1.Print f(i),'**********found*************' '请不要删除该行'If i Mod 4 = 0 Then Picture.PrintIf i mod 4=0 then picture1.printNext iEnd Sub2. 程序的功能是：程序运行时，单击“输出”按钮，产生10个[0，99]之间的随机整数存入数组A中，并按照相反的顺序输出在窗体上。
程序中有两处错误，请修改程序并运行，直到得出正确结果。
第1个出错位置：A(i)=Int(Rnd*100+0) p50第2个出错位置：Print A(11-i);Private Sub Command1_Click()RandomizeDim A(10), I As IntegerForm1.ClsFor I = 1 To 10'*********found******** '请不要删除该行A(I) = Int(Rnd * 99) A(i)=Int(Rnd*100+0)Print A(I);Next IPrintFor I = 1 To 10'*********found******** '请不要删除该行Print A(I); Print A(11-i) (注意答案中间无;)Next IEnd Sub3. 在考生文件夹下有一个工程文件Modi1.vbp，相应的窗体文件为Modi1.frm，此外还有一个名为Modiin.dat的文本文件，其内容如下：32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37程序运行后，单击窗体，将把文件Modiin.dat中的数据输入到二维数组Mat中，在窗体上按5行5列的矩阵形式显示出来，然后交换矩阵第一行和第三行的数据，并在窗体上输出交换后的矩阵。
VB程序设计例题-程序改错程序填空程序设计
'以下程序段用于输出杨辉三角:结果样式如图1'Private Sub Form_Click()Const n = 10Dim arr(n, n) As IntegerFor I = 1 To narr(I, I) = 1'**********SPACE**********【arr(I, 1) = 1】Next IFor I = 3 To nFor j = 2 To I - 1'**********SPACE**********arr(i, j) =arr(i-1,j-1)+arr(i-1,j)Next jNext IFor I = 1 To nFor j = 1 To I'**********SPACE**********【print arr(I,j)】Next jPrintNext IEnd SubOption Explicit'------------------------------------------------'【程序改错】'------------------------------------------------'题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!，' 当x〉1或x〈-1时，函数值为0。
当n〈=0时，输入数' 据错误。
X、N都是由用户输入。
'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Command1_Click()Dim s As SingleDim n As Integer, x As Single, k As Integern = Val(InputBox("Please input a integer value:"))x = Val(InputBox("Please input a single value:"))If n <= 0 Thenk = MsgBox("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入")Exit SubEnd Ifs = Sum(x, n)Print sEnd SubFunction Sum(x As Single, n As Integer)Dim i As Integer, ss As Longss = 1Sum = 0If x > 1 Or x < -1 Then'**********FOUND**********Exit Do 改为Exit FunctionElse'**********FOUND**********For i = 2 To n 改为For i = 2 To n+1ss = ss * i'**********FOUND**********Sum = x ^ (i - 1) / ss 改为Sum =sum+ x ^ (i - 1) / ssNext iEnd IfEnd FunctionOption Explicit'------------------------------------------------'【程序改错】'------------------------------------------------'题目:编程将一个数从已经有序（设从小到大排序）的数组' 中删除，使数组还继续保持有序而且其余元素按照下' 标连续存放。
vb程序改错
1.在考生文件夹下有一个工程文件Modi.vbp，相应的窗体文件为Modi.frm。
其功能是：产生30个[0,90]的随机整数，放入一个数组中，然后输出其中的最大值。
程序运行后，单击命令按钮，可求出数组中的最大值，并在窗体上显示。
运行界面请参阅附图。
在窗体的代码窗口中，已给出了部分程序，程序中有两处错误，请修改程序并运行，直到得出正确结果。
注意：程序中的修改位置就在注释行：’**********found*************’’请不要删除该行’的下面一行中，请不要改动程序中的其他部分。
最后把修改后的文件按原来文件名存盘，提交程序改错题文档。
VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 2100ClientLeft = 1905ClientTop = 1875ClientWidth = 3660LinkTopic = "Form1"ScaleHeight = 2100ScaleWidth = 3660Begin mandButton Command1Caption = "输出最大值"Height = 375Left = 960TabIndex = 0Top = 1320Width = 1575EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption Base 1Private Sub Command1_Click()Dim arrN(30) As IntegerDim Max As IntegerRandomizeForm1.ClsFor i = 1 To 30’**********found*************’’请不要删除该行’arrN(i) = Int(Rnd * 51) 91Print Format(arrN(i),"@@@@@@");If i Mod 6 =0 Then PrintNext i’**********found*************’’请不要删除该行’Max = arrN(0) 1For i = 2 To 30If Max<arrN(i) ThenMax = arrN(i)End IfNext iPrint "Max=";Max2. 在考生文件夹下有一个工程文件Modi.vbp，相应的窗体文件为Modi.frm。
上海市计算机VB二级题目B卷
1.表达式12 + 8 Mod 5 \ 3 - 1中最先计算的是____________。
A.12+8B.8 MOD 5 C 5 \ 3 D 3 -12.设a=16，b=28，则以下表达式的值为“真”的是____________。
A. a-b>0B. a<b or b<0C. Not (a<0 or b>0)D. a * b<4403.下列可作为Visual Basic 变量名的是____________。
A. a#bcB. DOC. 6dD. Dowhile4.以下符号常量声明中，错误的是____________。
A. Const X!=sin(0)B. Const M!=2*365C. Const C$=""D. Const N%=1005.在菜单编辑器中，若菜单项前面有符号“....”，表示该菜单项是____________。
A. 子菜单项B.主菜单项C. 下拉式菜单D.弹出式菜单6. 在VB开发集成环境中，如果工具箱消失了，可在____________主菜单中选择“工具箱”菜单项使其重现。
A. 视图B.窗口C.文件D.编辑7. 执行了Text1.Text= Now()-1语句后，Text1内显示____________。
A. 今天的日期和当前的时间B. 昨天的日期和当前时间C.明天的日期和当前时间D.语法出错8.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是____________。
bol.Remveitemtextbol.Removeitem2bol.Removeitemcombol.ListcountD.combol.Removeitem 39.下列语句中，能够删除文本框Text1中被选定内容的是____________。
A. Text1.Text=""B.Text1.Sellength=0C.Text1.Seltext=""D.Text1.Selstart=010. 以下关于窗体Name属性的叙述中正确的是____________。
VB程序改错40题含答案-推荐下载
Const n = 8 Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox("请输入一个 0 - 255 之间的正整数：")) Print x For m = 1 To n a(m) = x Mod 2 x=x/2 Next m s="" For m = n To 0 Step -1
'【程序改错】
'题目：下面程序可输出如下图形：
'
'
'
'
'
*
***
*****
*******
*********
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer
End Sub
答案：
End If
If A <= B Then nTemp = B B=C C = nTemp
End If
Print "The integers in order is"; A; B; C
=======(答案 1)=======
If A <= B Then
上海海事大学VB题库
Open App.Path & "\out.txt" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub
Private Sub Form_Click()
Private Sub YZJ(i As Single)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\out.txt" For Output As #OUT
Print #OUT, i
' 将所有的换法的数目存入变量N中
'-------------------------------------------------
'注意：请在指定的事件内编写代码。
'-------------------------------------------------
'注意：请在指定的事件内编写代码。
'-------------------------------------------------
Dim m As Long
'******** Program *************
Dim i%, p%
For i = 10 To 15
p = i * (i + 1) * (i + 2)
' (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，
' 并将结果输出到窗体上。
' 将结果存入变量M中
VB上机改错题主要错类型
上机改错题主要错类型
1.语句位置错
a.变量初始值应在循环内部而放在外部或应在循环外部而放在
内部；
b.Do循环中，循环控制变量获得增量的语句位置；
c.对于多过程使用的模块级变量或数组没有放在模块通用声明
处说明，而放在过程内说明。
2.类型说明错
a.应当用Long时，用Integer，造成溢出；
b.应用String时用了Integer，造成类型不匹配或Integer与Single
的错用。
c.Public与Private的错用。
3.循环退出语句错
Exit For、Exit Function 或Exit Sub 的错用。
4．循环参数错
如循环的初值，终值或步长的错误常用引起数组的下标越界问题。
5．过程参数错
a. 传址与传值的错用；
b. 调用过程时实参用错。
6．表达式错误
a. 关系运算符的错用，（如<与> 的错用）;
b. 逻辑运算符的错用(如And 与Or的错用)；
c. 表达式中操作数的类型转换问题，
如将数值转换为字符串时会产生前导空格，应当使用Trim( )函数去掉前导空格。
7．数组使用错误
a. 动态数组使用错误，如少Preserve 参数；
b. 数组下标使用错误。
上海海事大学VB题库
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.caption="" 或Label1="" 或Label1.Caption=""10、写出清除图片框的文字或图形信息的语句【1】.答案：Picture1.cls 或cls11、滚动条控件有水平滚动条和【1】滚动条.答案：垂直12、文本框中所显示的内容是它的【1】属性的值.答案：Text13、要使命令按钮cmdEnd可以以快捷键E访问,应设置属性【1】.答案：Caption14、当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【1】属性设置成空白.答案：Text15、如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】.答案：退出(&X)16、所有控件都具有的共同属性是【1】属性.答案：name17、Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案：Picture118、使用Scale方法建立窗体Form1的用户坐标系,其中窗体左上角坐标为(-200,250),右下角坐标为(300,-100),具体形式为【1】.答案：form1.scale (-200,250)-(300,-100)19、如果在模块的声明段中有Option Base 1语句,则在该模块中使用Dim a(3 To 5,6)声明的数组有【1】个元素.答案：1820、把"Visual Basic程序设计"添加到列表框lstBooks的语句为【1】.答案：lstBooks.AddItem "Visual Basic程序设计"21、如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义【1】.答案：public★mystring★as★string*1522、若要在字符串asdgewl中取dge,则使用函数【1】实现.答案：Mid$(asdgewl$,2,3) 或Mid(asdgewl,2,3)23、欲使在自己设计VB程序运行过程中,不中止本程序的运行,同时又可调用系统中已有的应用程序c:\windows\Calc.exe,可在程序代码窗口必要的地方添加语句【1】.答案：shell("c:\windows\Calc.exe") 或shell("calc.exe")24、设置计时器控件只能触发【1】事件.答案：timer25、要使鼠标停留在按钮上显示特殊的鼠标形状,应设置的属性值是【1】.答案：mousepointer26、使用Circle方法在窗体Form1上以(15,15)为圆心,10为半径画圆,具体形式为【1】.答案：form1.circle (15,15),1027、使用Move方法把图形框Picture1的左上角移动到距窗体顶部100Twip,距窗体左边框200Twip,同时图形框缩小50%,具体形式为【1】.答案：Picture1.move 200,100,picture1.width/sqr(2),picture1.height/sqr(2)28、对象是既包含【1】又包含对数据进行操作的方法,并将其封装起来的一个逻辑实体.答案：数据29、拖动滚动条中的滚动框将会产生Scroll和【1】事件.答案：Change30、以图片框Pic1的中心位置为圆心,以700为半径在Pic1上画一个圆的方法是【1】.pic1.Circle (pic1.width/2,pic1.height/2),70031、设置计时器对象触发事件的时间间隔用【1】属性.答案：interval32、对象具有属性和【1】.答案：方法33、打开"工程窗口"的方法之一是按下【1】组合键.答案：CTRL+R34、列表框控件不支持Click事件,但支持【1】事件.答案：dblclick35、Visual Basic 中的文本框中要使该框不允许多行输入,应设置【1】属性为false. 答案：MultiLine36、如果要在单击钮时执行一段代码,则应将这段代码写在【1】事件过程中.答案：click37、将焦点定位于命令按钮Command1之上的语句为【1】.答案：Command1.SetFocus 或SetFocus38、滚动条控件主要支持两个事件,它们是scroll和【1】事件.答案：change39、文件按照存取方式及其组成结构可以分为顺序文件和【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 6.0中,设Single型变量XYZ 的值为123.45,若要将其转换成字符串,应使用的类型转换函数是【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 6.0中,变量名最长可达【1】个字符. 答案：25554、在VB中,若要改变一个窗体的标题,应在属性窗口中改变这个窗体的【1】属性的值. 答案：Caption55、在控件之中,【1】不能从工具箱中被删除.答案：内部控件或标准控件56、在VB中,若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用【1】语句.答案：Option Explicit57、一般情况下,控件有两个属性项的缺省值是相同的,这两个属性项是name和【1】.答案：caption58、一个工程可以包括多种类型的文件,其中ActiveX控件的文件扩展名为【1】.答案：OCX59、在利用Visual Basic设计应用程序时,一般会遇到三类错误:语法错误、执行错误和【1】. 答案：逻辑错误60、要使一个按钮无效,则可把它的Enable属性设为【1】.答案：False61、在VB中,窗体由属性定义外观,由【1】定义行为,由事件定义其与用户的交互.答案：方法62、一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示【1】文件.答案：工程63、一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示【1】文件.答案：窗体64、要使同一类型控件组成一个控件数组,必须要求【1】.答案：Name 相同或名称相同65、要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.答案：Default66、在VB中,若要重新定义一个动态数组的元素个数,应当使用【1】语句对其进行重新定义.答案：ReDim67、在控件之中,【1】单独保存在.OCX文件中,在必要时可以加入到工具箱中.答案：ACTIVEX控件68、VB中的变量按其作用分为全局变量,模块变量,【1】.答案：局部变量69、在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer,则strVar、intVar与sngVar的数据类型分别是Variant、Variant和【1】.答案：Integer70、设x为大于零的实数,则大于x的最小奇数的Visual Basic表达式是【1】.答案：IIF(int(x) mod 2=0,int(x)+2,int(x)+1)71、说明变量类型有隐含类型说明和【1】两种方法.答案：强制类型或强制类型说明72、表达式(-3) Mod 8的值为【1】.答案：–373、设X$ ="abc123456"则"a"+str$(val(right(X$,4)))的值是【1】.答案：a345674、设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为【1】.答案：False75、String(3, "abc")的结果为【1】.答案：aaa76、VB 的工作模式可分为三种:"设计"、"运行"以及"【1】".答案：中断77、VB的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符. 答案：连接78、Integer类型的变量占用【1】字节空间.答案： 279、表达式81\7 MOD 2^2 的值是【1】.答案： 380、设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("123.55ab456")的值是多少【1】.答案：123.5585、表达式"[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.60以上,列出逻辑表达式【1】.答案：(sex and age>=18 and age<=20 and size>=1.65 ) or (notsex and age>=16 and age<=18 and size>=1.60 )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(-8.6)+I\J+13/3 MOD 5,则I值是【1】.答案：-196、如果:I=11:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【1】.答案：-297、把条件1<=X<12写成VB关系表达式为【1】.答案：x>=1 and x<12 或x<12 and x>=198、声明单精度常量g(重力加速度)代表9.8可写成【1】.答案：const g=9.8 或const single g=9.8100、X=2:Y=8:PRINT X+Y=10的结果是【1】.答案：True101、声明单精度常量P1代表3.14159的语句为【1】.答案：Const PI=3.14159 或Const pi As Single = 3.14159102、VB 6.0的基本表达式包括算术表达式、关系表达式和【1】表达式.答案：逻辑103、表达式93\7 MOD 2^3的值是【1】.答案： 5104、VB6.0的连接运算符包括【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=False1．（1）在设计时,为了把窗体上的某个控件变为活动的,应执行双击该控件。
vb改错
3001题:程序功能：求s=1+3+5+7+...直到s>2000为止。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
原程序：Private Sub Command1_Click()Dim i As Integer, s As Longs = 0i = 1Do Until s < 2000s = s + ii = i + 1LoopPrint sEnd Sub答案：20253002题:程序功能：求s=1+3+5+7+...直到s>3000为止。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
原程序：Private Sub Command1_Click()Dim i As Integer, s As Longs = 0i = 1Do Until s < 3000s = s + ii = i + 1LoopPrint sEnd Sub答案：30253003题:程序功能：计算s=2!+4!+8!。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
原程序：Private Sub Command1_Click()Dim k As Integer, i As IntegerDim s As Long, t As Longs = 0i = 1Do While i <= 3t = 1k = 1While k <= 2 * it = t * kk = k + 1Wends = s + ti = i + 1WendPrint sEnd Sub答案：403463004题:程序功能：计算s=2!+4!+6!+8!。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
原程序：Private Sub Command1_Click()Dim k As Integer, i As IntegerDim s As Long, t As Longs = 0i = 1Do While i <= 3t = 1k = 1While k <= 2 ^it = t * kk = k + 1Wends = s + ti = i + 1WendPrint sEnd Sub答案：410663005题:程序功能：求200到400间，能被３整除但不能被７整除的数的个数。
选择题VB(上海海事)
1、以下不属于VisualBasic系统的文件类型是().A:.frm B:.bat C:.vbg D:.vbp答案：B2、下列关于控件画法的叙述错误的是(). A:单击一次工具箱中的控件图标,只能在窗体上画出一个相应的控件B:按住CTRL键后单击一次工具箱中的控件图标,可以在窗体上画出多个相同类型的控件C:双击工具箱中的控件图标,所画控件的大小和位置是固定的D:不用工具箱中的控件工具,不可以在窗体上画出图形对象,但可以写入文字字符答案：D3、要改变控件的宽度,应修改该控件的()属性.A:Top B:Width C:Left D:Height答案：B4、以下()对象不具有Clear方法.A:列表框B:组合框C:剪贴板D:图片框答案：D5、工具栏中的"启动"按钮的作用是().A:运行一个应用程序B:运行一个窗体C:工程管理窗口D:打开被选中对象的代码窗口答案：A6、下面()是日期型常量.A:"12/19/99" B:12/19/99C:#12/19/99# D:{12/19/99}答案：C7、下列字符串常量中,最大的是(). A:"北京" B:"上海" C:"天津" D:"广州" 答案：C8、在窗体Form1的Click事件过程中有以下语句:Label1.Caption="Visual Basic"若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为(). A:"Label"、"Label" B:"Label1"、"Visual Basic"C:"Label1"、"Label1" D:"Caption"、"Label"答案：C9、要使文本框中显示密码符有效,必须首先设置()属性.A:Text B:MultiLineC:Locked D:Enabled10、一个对象可以执行的动作和可被对象识别的动作分别称为().A:事件、方法B:方法、事件C:属性、方法D:过程、事件答案：A11、下列语句中正确的是().A:txt1.text+txt2.text=txt3.textB:=cmdokC:12label.caption=1234D:a=inputbox(hello)答案：D12、改变控件在窗体中的左右位置应修改该控件的()属性.A:Top B:LeftC:Width D:Right答案：B13、要把一个命令按钮设置成无效,应设置其哪一属性值().A:Visible B:EnabledC:Default D:Cancel答案：B14、启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A:工程1 B:窗体1C:工程D:窗体答案：A15、控件是().A:建立对象的工具B:设置对象属性的工具C:编写程序的编辑器D:建立图形界面的编辑窗口答案：A16、英文缩写OLE的含义是().A:面向对象程序设计B:对象链接C:对象嵌入D:对象链接与嵌入答案：D17、下面哪些控件不会影响到界面设计效果().A:Label B:TextC:CommonDialog D:Frame答案：C18、不能通过()来删除列表框中的选项. A:List属性B:Removeltem方法C:Clear方法D:Test属性答案：D19、以下这段在FORM的CLICK事件中的程序运行后的结果是().CurrentX=1500CurrentY=500Line-(3000,2000)Line-(1500,2000)Line-(1500,500)A:三条直线B:矩形C:三角形D:等腰直角三角形答案：D20、要将一个组合框设置为简单组合框(SimpleCombo),则应将其Style属性设置为().A:0 B:1 C:2 D:3答案：B21、在文本框中欲使掩码符(如*)起作用,必须设置MultiLine属性值为().A:False B:TrueC:-1 D:1答案：A22、简单组合框的style值为().A:0 B:1 C:2 D:3答案：B23、以下不允许用户在程序运行时输入文字的控件是().A:标签框B:文本框C:下拉式组合框D:简单组合框答案：A24、以下()程序段可以实施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答案：C25、下列各种窗体事件中,不能由用户触发的事件是().A:Load事件和Unload事件B:Click事件和Unload事件C:Click事件和Dbclick事件D:Load事件和Initialize事件答案：D26、下列关于设置控件属性的叙述正确的是().A:用户必须设置属性值B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置D:不同控件的属性项都完全一样答案：C27、定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分B:秒C:毫秒D:微秒答案：C28、清除列表框的所有选项应选择下列哪种方法().A:Clear B:ClsC:ClearItem D:RemoveItem答案：A29、下列()是日期型常量.A:"2/1/02" B:37258C:#2/1/02# D:|2/1/02|答案：C30、标签控件最重要的属性是().A:caption B:text C:name D:width答案：A31、退出VisualBasic的快捷键是().A:Ctrl+Q B:Shift+QC:Alt+Q D:Ctrl+Alt+Q答案：C32、组合框控件是将()组合成一个控件. A:列表框控件和文本框控件B:标签控件和列表框控件C:标签控件和文本框控件D:复选框控件和选项按钮控件答案：A33、文本框中选定的内容,由下列()属性反映. A:Text B:Caption C:Seltext D:sellenght 答案：C34、以下控件中不属于容器的是().A:Form控件B:PictureBoxC:Image D:Frame答案：C35、除了系统默认的工具箱布局外,在VisualBasic中还可以通过()方法来定义选项卡组织安排控件.A:在工具箱单击鼠标右键,执行快捷菜单中的"添加选项卡"命令B:执行"文件"菜单中的"添加工程"命令C:执行"工程"菜单中的"添加窗体"命令D:执行"工程"菜单中的"部件"命令答案：A36、以下声明语句中错误的是().A:Constvar1=123 B:Dimvar2=ABCC:DefInt a-z D:Staticvar3AsInteger答案：B37、要在窗体上显示图片,需设置窗体的()属性.A:Caption B:IconC:Picture D:ControlBox答案：C38、下面哪些控件不会影响到界面设计效果().A:定时器B:文本框C:标签D:Line控件答案：A39、组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由()属性决定. A:Style B:BoderStyleC:FillStyle D:DrawStyle40、在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示()事件过程模板.A:Form_Click B:Form_LoadC:Form1_Click D:Form1_Load答案：B41、设组合框Combo1中有3个项目,则以下能删除最后一项的语句是(). A:Combo1.RemoveItemTextB:Combo1.RemoveItem2C:Combo1.RemoveItem3D:Combo1.RemoveItemCombo1.Listcount答案：B42、当用户改变滚动条的value 属性时将激发滚动条的()事件.A:change B:scrollC:change 和scroll D:gotfocus答案：A43、如果要改变窗体的标题,则需要设置的属性是().A:Caption B:NameC:BackColor D:BorderStyle答案：A44、双击窗体的任何地方,可以打开的窗口是().A:代码窗口B:属性窗口C:工程管理窗口D:以上3个选项都不对答案：A45、如果在图片框上使用绘图方法绘制一个实心圆,则图片框的()属性决定了该圆的颜色.A:BackColor B:ForeColorC:FillColor D:DrawStyle答案：C46、下列赋值语句正确的是().A:Text1.text=Text.text+Text2.textB:=+ C:Text1.Caption=Text1.Caption+Text2.Captio nD:Text1.Enable=Text1.Enable+Text2.Enable 答案：A47、用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.A:Hide B:CheckedC:Visible D:Enabled答案：C48、运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时,将触发文本框的()事件.A:CLICK B:DBLCLICKC:GOTFOCUS D:CHANGE答案：D49、如果要设置窗体的标题栏,应选择以下那种属性().A:Name B:CaptionC:Tips D:Text答案：B50、若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性.A:BACKCOLOR B:BORDERSTYLE C:FORECOLOR D:BACKSTYLE答案：D51、下列的逻辑表达式中不正确的是(). A:A<B AND C=D B:X<Y<ZC:1>2 AND 3>1 D:X>Y AND 1=2答案：B52、在一个语句行内写多条语句时,语句之间应该用()分隔.A:逗号B:分号C:顿号D:冒号答案：D53、下列哪一种文件打开方式是以顺序文件方式打开文件并作写操作().A:Open "c:\file1.dat"For Output as #1 B:Open "c:\file1.dat" For Input as #1C:Open "c:\file1.dat" For Append as #1 D:Open "c:\file1.dat" For Write as #1答案：A54、将命令按钮Command1设置为不可见,应修改该命令按钮的()属性.A:Visible B:Value C:Caption D:Enabled 答案：A55、为使文本框显示滚动条,必须首先设置的属性是().A:Mulitiline B:Autosize ]C:Alignment D:Scrollbars答案：A56、工程资源管理器窗口中包含的文件类型有()种.A:2 B:3 C:4 D:5答案：C57、列表框控件中的列表内容是通过()属性设置的.A:Name B:Caption C:List D:Text答案：C58、下列哪个变量的取法是不正确的(). A:TName B:T_Temp C:T32 D:T32#答案：D59、要使文本框中的文本显示掩码(密码)符,在属性设置时,首先必须设置()属性为False. A:Text B:Enabled C:Visible D:Multiline 答案：D60、下列各项变量中,哪一项所占的内存空间最多().A:dim x as currency x=99B:dim st1 as string st1='good'C:dim st2 as string st2='goodbye'D:dim d as data d='1898/09/12'答案：C61、将CommonDialog通用对话框的类型设置为字体对话框,可设置该控件的()属性.A:Font B:Filter C:flags D:Action答案：D62、单击滚动条的滚动箭头时,产生的事件是().A:Click B:Scroll C:Change D:Move答案：C63、当事件能被触发时,()就会对该事件作出响应.A:对象B:程序C:控件D:窗体答案：A64、不具有输入数据功能的控件是()控件. A:文本框B:选项按钮C:列表框D:窗体答案：D65、将焦点主动设置到指定的控件或窗体上,应采用()方法.A:SetData B:SetFocusC:SetText D:GetGata答案：B66、以下叙述中错误的是().A:打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件B:保存VisualBasic程序时,应分别保存窗体文件及工程文件C:VisualBasic应用程序只能以解释方式执行D:事件可以由用户引发,也可以由系统引发答案：C67、要使得窗体一开始运行就充满整个屏幕则须设置()属性.A:borderstyle B:appearanceC:windowstate D:drawmode答案：C68、以下叙述中错误的是().A:双击鼠标可以触发DblClick事件B:窗体或控件的事件的名称可以由编程人员确定C:移动鼠标时,会触发MouseMove事件D:控件的名称可以由编程人员设定答案：B69、为了在按下回车键时执行某个按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A:Value B:Cancle C:Enable D:Default 答案：D70、在列表框中当前被选中的列表项的序号是由下列哪个属性表示().A:List B:Index C:ListIndex D:TabIndex 答案：C71、要获得当前驱动器应使用驱动器列表框的哪个属性().A:Path B:Drive C:Dir D:Patten答案：B72、在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中()窗口是用来显示代码中正在调试的语句所产生的信息, 或显示直接在该窗口中键入的命令所请求的信息.A:立即B:监视C:本地D:中断答案：A73、程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是().A:MouseDown B:MouseUpC:Load D:Click答案：C74、计时器的interval属性为0时,表示(). A:计时器失效B:相隔0秒C:相隔0 毫秒D:计时器的enable属性为false答案：A75、在程序代码中修改滚动条的value 属性时将激发滚动条的()事件. A:change B:scrollC:dragdrop D:gotfocus答案：A76、为了防止用户随意将光标置于控件上,应().A:将控件的TABINDEX属性设置为0B:将控件的TABSTOP属性设置为TRUE C:将控件的TABSTOP属性设置为FALSE D:将控件的ENABLED属性设置为FALSE 答案：D77、在中断状态下可以运行代码,也可以在运行状态中作为输出结果的窗口称为().A:本地窗口B:立即窗口C:观察窗口D:栈窗口答案：B78、下列可缩放图片的属性是().A:autosize B:pictureC:stretch D:OleDrawMode答案：C79、如果设计时在属性窗口将命令按钮的()属性设置为False,则运行时按钮从窗体上消失.A:Visible B:EnabledC:DisabledPicture D:Default答案：A80、可以用作其它控件容器的控件有(). A:窗体控件,列表控件,图像控件B:窗体控件,文本框控件,框架控件C:窗体控件,框架控件,图片框控件D:窗体控件,标签控件,图片控件答案：C81、在文件列表框的实现文件的多重选择,应修改该控件的()属性.A:filename B:pattemC:path D:multiselect答案：D82、设置列表框选中的文本用()属性.A:selected B:captionC:text D:list答案：D83、可视化编程的最大优点是().A:具有标准工具箱B:一个工程文件由若干个窗体文件组成C:不需要编写大量代码来描述图形对象D:所见即所得答案：C84、重新定义图片框控件的坐标系统,可采用该图片框的()方法.A:Scale B:ScaleXC:ScaleY D:SetFocus答案：A85、如果要给字体加删除线,可以选择下列那种属性().A:FontName B:FontSizeC:FontStrikethru D:FontUnderLine答案：C86、下列()是窗体的扩展名.A:frm B:bas C:cls D:dll答案：A87、将CommandDialog1通用对话框以打开对话框打开,可选以下()方法.A:showopen B:showcolorC:showsave D:showfont答案：A88、将命令按钮Command1设置为缺省的活动按钮可修改该控制件的()属性.A:Enabled B:ValueC:Default D:Cancel答案：C89、以下叙述中错误的是().A:在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B:以.BAS为扩展名的文件是标准模块文件C:窗体文件包含该窗体及其控件的属性D:一个工程中可以含有多个标准模块文件答案：A90、下列叙述正确的是().A:对象是包含数据又包含对象数据进行操作的方法的物理实体B:对象的属性只能在属性窗口中设置C:不同的对象能识别不同的事件D:事件过程都要由用户点击对象来触发答案：C91、将通用对话框类型,设置为字体对话框,可修改该控件的()属性.A:font B:filenameC:filter D:action 答案：D92、下列哪个变量的取法是不正确的(). A:sTme B:T_Temp C:T12% D:T_12答案：C93、要在命令按钮控件上显示图像应(). A:设置Picture属性B:实现不了C:先将Type设置为1,然后再设置Picture属性D:以上都不对答案：C94、货币型数据需()字节.A:2 B:4 C:6 D:8答案：D95、要使得窗体在出现之前就完成相关的程序设置可在()事件中进行编程.A:linkopen B:KeyPress C:load D:click 答案：C96、定义货币类型数据应该用关键字(). A:SINGLE B:DOUBLEC:CURRENCY D:BOOLEAN答案：C97、要在垂直位置上移动控件,应利用控件的()属性.A:Left B:Width C:Top D:Height答案：C98、以下关于焦点的叙述中,错误的是(). A:如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据B:当文本框失去焦点时,触发LostFocus事件C:当文本框的Enabled属性为False时,其Tab 顺序不起作用D:可以用TabIndex属性改变Tab顺序答案：A99、声明符号常量应该用关键字().A:Static B:ConstC:Private D:V26/ariant答案：B100、将通用对话框CommandDialog1的类型设置成另存为对话框,可调用该控件的()方法.A:ShowOpen B:ShowSaveC:ShowColor D:ShowFont答案：B101、改变控件在窗体中的上下位置应修改控件的()属性.A:Top B:Left C:Wide D:Height答案：A102、在Visual Basic环境中,请问标准模块的扩展名是().A:frm B:bas C:cls D:vbp答案：B103、设计动画通常使用时钟控件()来控制动画速度.A:Enabled B:IntervalC:Timer D:Move答案：B104、如果要在命令按钮上显示图形文件,应设置命令按钮的().A:Style属性和Graphics属性B:Style属性和Picture属性C:Picture属性D:Graphics属性答案：B105、要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值().A:Caption B:TextC:Name D:AutoSize答案：A106、假设变量BOOLV AR是一个布尔型变量,则下面正确的赋值语句是().A:BOOLVAR='TRUE'B:BOOLV AR=.TRUE.C:BOOLV AR=#TRUE#D:BOOLVAR=3<4答案：D107、下列数据类型中,占用内存最大的是(). A:Boolean B:ByteC:Integer D:Single答案：D108、要使标签所在处透明显示背景,应把其Backstyle属性设置为().A:0 B:1 C:2 D:3答案：A109、下面()对象在运行时一定不可见.A:Line B:Timer C:Text D:Option 答案：B110、以下叙述中错误的是().A:VisualBasic是事件驱动型可视化编程工具B:VisualBasic应用程序不具有明显开始和结束语句C:VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D:VisualBasic中控件的某些属性只能在运行时设置答案：C111、欲使某命令按钮失效,应修改命令按钮的()属性.A:Visible B:CaptionC:Enable D:Enabled答案：D112、能够改变窗体边框线类型的属性是(). A:FontStyle B:BorderStyleC:BackStyle D:Border答案：B113、下列可以打开立即窗口的操作是(). A:Ctrl+D B:Ctrl+EC:Ctrl+F D:Ctrl+G答案：D114、下面()控件不具有Caption属性.A:标签框B:单选钮C:命令按钮D:文本框答案：D115、一个菜单项是不是一个分隔条,由()属性决定.A:Name(名称) B:CaptionC:Enabled D:Visible答案：B116、组合框的类型由Style属性决定,简单组合框的Style属性值应为().A:0 B:1 C:2 D:3答案：B117、欲使标签的内容自动换行,必须设置属性().A:AutoSize B:AlignmentC:left D:WordWrap答案：D118、为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval 属性值设置为().A:5 B:500 C:300 D:5000答案：D119、要使文本框获得输入焦点,则应采用文本框控件的哪个方法().A:GodFocus B:LostFocusC:KeyPress D:SetFocus答案：D120、决定控件上文字的字体、字形、大小及效果的属性是().A:TEXT B:CAPTIONC:NAME D:FONT答案：D121、下列不能打开属性窗口的操作是(). A:执行"视图"菜单中的"属性窗口"命令B:按F4键C:按Ctrl+TD:单击工具栏上的"属性窗口"按钮答案：C122、引用列表框的最后一项应使用().A:List1.List(List1.ListCount-1)B:List1.List(List1.ListCount)C:List1.List(ListCount)D:List1.List(ListCount-1)答案：A123、要使得标签能自动扩充以满足字体大小则可对其()属性进行设置.A:alignment B:usemnemonicC:autosize D:tag答案：C124、下列对变量的定义中,不能定义A为变体变量的是().A:DIM A AS DOUBLEB:DIM A AS VARIANTC:DIM;A D:A=24答案：A125每建立一个窗体,工程管理器窗口中就会增加一个().A:工程文件B:窗体文件C:程序模块文件D:类模块文件答案：B126、事件的名称().A:都要由用户定义B:有的由用户定义,有的由系统定义C:都是由系统预先定义D:是不固定的答案：C127、骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为().A:int(rnd*6+1) B:int(rnd*6)C:int(rnd*7) D:int(rnd(6)+1)答案：A128、设a=10,b=5,c=1,执行语句Printa>b>c 后,窗体上显示的是().A:True B:False C:1 D:出错信息答案：B129、为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应将列表框的Multiselect属性设置为().A:0 B:1 C:2 D:3答案：C130、控件内的对齐方式()属性决定.A:Alignment B:WordWrapC:AtuoSize D:Style答案：A131、执行下面的程序段后,x的值为().x=5For i=1 To 20 Step 2x=x+i\5Next iA:21 B:22 C:23 D:24答案：A132、列关于窗体上控件的基本操作错误的是().A:按一次DEL键只能删除一个控件B:按下一次DEL键可以同时删除多个控件C:按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件D:按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件答案：A133、要使标签中显示的文本靠右显示,则应将其Alignment属性设置为().A:0 B:1 C:2 D:3答案：B134、在窗体上建立了多个控件,如TEXT、LABEL1、COMMAND1,若要使程序一运行焦点就定位在COMMAND1控件上,应将COMMAND1控件的()设置为0.A:INDEX B:TABINDEXC:TABSTOP D:ENABLED答案：B135、在VB中过()属性来设置字体颜色. A:FontColor B:ForeColorC:BackColor D:ShowColor答案：B136、如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是().A:如果工程中含有SubMain过程,则程序一定首先执行该过程B:不能把标准模块设置为启动模块C:用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体D:任何时刻最多只有一个窗体是活动窗体答案：A137、图像框(Image)的何项属性设置为true 时,可使图形自动调整大小,填满整个图像框().A:Width B:PictureC:Name D:Stretch答案：D138为了把焦点移到某个指定的控件,所使用的方法是().A:SetFocus B:VisibleC:Refresh D:GetFocus答案：A139、如果没有在列表框中选择项目,且列表框的MultiSelect属性值为默认值(0~None),则执行语名List1.RemoveItemList1.ListIndex的结果是().A:删除列表框的最后一项B:删除列表框的第一项C:出错D:删除列表框中的最后添加的一项答案：C140、要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性().A:Dir B:PathC:Drive D:FileName答案：D141、组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时,Style属性值应为(). A:0 B:1 C:2 D:3答案：C142、要想返回文本框中输入的内容则可利用其()属性进行编程.A:caption B:textC:name D:righttoleft答案：B143、下列方法中可用于列表框动态添加数据的是().A:add B:additemC:addlist D:removeitem答案：B144、任何控件都具有的属性是().A:TEXT B:CAPTIONC:NAME D:FORECOLOR答案：C145、如果要在菜单中添加一个分隔线,则应将其Caption属性设置为().A:= B:* C:& D:-答案：D146、下列说法正确的是().A:对象属性只能在"属性窗口"中设置B:一个新的工程可以在"工程窗口"中建立C:必须先建立一个工程,才能开始设计应用程序D:只能在"代码窗口"中编写程序代码答案：C147、每个窗体对应一个窗体文件,窗体文件的扩展名是().A:.bas B:.cls C:.frm D:.vbp答案：C148、删除字符串前导和尾随空格的函数是().A:Ltrim() B:Rtrim( ) C:Trim() D:Lcase 答案：C149、下列关于属性设置的叙述错误的是(). A:一个控件具有什么属性是VB预先设计好的,用户不能改变B:一个控件具有什么属性是VB预先设计好的,用户可以改变C:一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置D:一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值答案：A150、要使一个标签透明且不具有边框,则应().A:将其BackStyle属性设置为0,BorderStyle 属性设置为0B:将其BackStyle属性设置为0,BorderStyle 属性设置为1C:将其BackStyle属性设置为1,BorderStyle 属性设置为0D:将其BackStyle属性设置为1,BorderStyle 属性设置为1答案：B151、激活主菜单的按键是().A:F1或Ctrl键B:Ctrl键或Atl键C:F10或Ctrl键D:F10或Atl键答案：B152、下列()属性可返回目录列表框的路径. A:path B:drive C:pathroad D:initdir答案：A153、激活属性窗口使用的键是().A:F2 B:F3 C:F4 D:F5答案：C154、应用程序设计完成后,应将程序保存,保存的过程是().A:只保存窗体文件即可B:只保存工程文件即可C:先保存工程文件,之后保存窗体文件D:先保存窗体文件(或标准模块文件),之后还要保存工程文件答案：D155、下列表达式中,其值为0的是().A:7/9 B:7 mod 15 C:7\9 D:15 mod 9 答案：C156、已知A?B?C中C最小,则判断A?B?C 可否构成三角形三条边长的逻辑表达式是().A:A>=B And B>=C And C>0B:A+C>B And B+C>A And C>0C:(A+C)>=C And A-C <=C) And C>0D:A+B>C And A-B>C And C>0答案：B157、要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为(). A:0 B:1 C:2 D:3答案：D158、为了在运行时能显示窗体左上角的控制框(系统菜单),必须().A:把窗体的Contro1Box属性设置为Fale,其他属性任意B:把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5C:把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值D:把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值答案：B159、Clear方法适用于() 控件.A:图片框B:窗体C:复选框D:组合框答案：D160、为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A:Value B:DefaultC:Cancel D:Enabled答案：B161常用控件的Style属性值是().A:字符常量B:逻辑常量C:数值常量D:日期常量答案：C162、如果TAB函数的参数小于1,则打印位置在第()列.A:0 B:1 C:2 D:3答案：B163、选中复选框控件时,value属性的值,可以是().A:True B:false C:0 D:1答案：D164、如果在图片框上使用绘图方法绘制一个圆,则图片框的()属性不会对该圆的外观产生影响.A:BackColor B:ForeColorC:DrawWidth D:DrawStyle答案：B165、下列对象中没有焦点属性的是().A:命令按钮控件B:窗口控件C:文本框控件D:单选框控件答案：B166、文本框控件中将Text的内容全部显示为所定义的字符的属性项是().A:PasswordChar B:需要编程来实现C:Password D:以上都不是答案：A167、要使标签能透出窗体的背景,必须设置()属性.A:BackStyle B:BorderStyleC:Appearance D:BackColor答案：A168、形状控件所显示的图形不可能是(). A:圆B:椭圆C:圆角正方形D:等边三角形答案：D169、在文件列表框中设定"文件列表"中显示文件类型应修改该控件的()属性.A:Pattern B:PathC:Filename D:Name答案：A170、下列可调整图片框的大小以适合图片的属性是().A:stretch B:autosizeC:picture D:oledropmode答案：B171、运行下面的程序: CLSLINE (100,100)-(200,50)LINE - (150,150)LINE -(100,100)屏幕上显示的是().A:三条放射形直线B:四条放射形直线C:矩形D:三角形答案：D172、要使一个图片框控件能自动地附着在窗体的一条边上,应设置它的()属性.A:Picture B:AlignmentC:Border D:Align答案：D173、下列数据类型中,占用内存最小的是(). A:Boolean B:Byte C:Integer D:Single 答案：B174、以下不具有Picture属性对象是().A:窗体B:图片框C:图像框D:文本框答案：D175、单击滚动条两端的任一个滚动箭头,将触发该滚动条的()事件.A:Scroll B:KeyDownC:Change D:Dragover答案：C176、设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是().A:cmdc B:cmdb C:cmdA D:Command1 答案：C177、在VB中,下列不能作为存放对象的容器是().A:窗体B:框架C:图形框D:图象框答案：D178、下列不能用commondialog 控件调用的对话框是().A:open/save B:help C:font D:search 答案：D179、Cls方法可以清除窗体或图片框中的()内容.A:在设计阶段使用Picture设置的背景位图B:在设计阶段放置的控件C:在运行阶段产生的图形和文字D:以上全部内容答案：C180、循环结构For I%= -1 to –17 Step –2 共执行()次.A:5 B:6 C:8 D:9答案：D181、()属性决定了按Tab键时焦点在各个控件之间移动的顺序.A:Index B:TabStopC:Tablndex D:SetFocus答案：C182由For k=35 to 0 step 3:next k循环语句控制的循环次数是().A:0 B:12 C:-11 D:-10答案：A183、由For k=10 to 0 step 3:next k循环语句控制的循环次数是().A:12 B:0 C:-11 D:-10答案：B。
VB程序改错40题
第57题（1.0分）题号:465'------------------------------------------------'【程序改错】'------------------------------------------------'题目：用InputBox函数输入一个字符串，编写程序按与' 输入的字符相反的次序用Msgbox函数输出这个字' 符串。
如输入字符串为"abcdefgh"，则输出为"h' gfedcba"，输出效果如图1。
'------------------------------------------------ Option ExplicitPrivate Sub Command1_Click()Dim pristr As String, outstr As StringDim i As Integerpristr = InputBox("please input a string")'**********FOUND**********For i = 0 To Len(pristr)'**********FOUND**********outstr = outstr + Mid(pristr, Len(pristr) - i) Next i'**********FOUND**********MsgBox outstr, , "The Output Result "End Sub答案：=======(答案1)=======For i = 0 To Len(pristr) - 1=========或=========For i = 0 To -1+Len(pristr)=======(答案2)=======outstr = outstr + Mid(pristr, Len(pristr) - i, 1)=========或=========outstr = Mid(pristr, Len(pristr) - i, 1)+outstr=======(答案3)=======MsgBox outstr, vbQuestion, "The Output Result "第59题（1.0分）题号:147'------------------------------------------------'【程序改错】'------------------------------------------------'题目：下面的程序用来产生并输出图示的杨辉三角。
VB改错填空答案
属性设置：将Timer1的interVal属性设置为：10000，Timer2的interVal属性设置为：1000Timer1_Timerelse*原语句Label1.Visible=False改为Label1.Visible=TrueTimer2_Timer*原语句Label2.Caption = Timer()改为 Label2.Caption = Time()填空Tk248.Frm( 1 ) Val(m) ( 2 ) m Mod n改错Gc315.Frm属性设置：将Timer1的interVal属性设置为：0C1_Click*原语句Timer1.Enabled = False 改为 Timer1.InterVal=100Timer1_Timer*原语句If P1.Top > P2.Top + P2.Left Then 改为 If P1.Top > P2.Top + P2.Height Then填空Tk315.Frm( 1 ) Finish ( 2 ) <改错Gc316.Frm属性设置：将File1的Pattern属性设置为：*.bmp，将Image1的Stretch属性设置为：TrueDir1_Change*原语句 File1.Path = Dir1.Drive 改为 File1.Path = Dir1.PathFile1_Click*原语句 Image1.Picture = fname 改为 Image1.Picture = LoadPicture(fname)填空Tk316.Frm( 1 ) a(j - 1) + a(j) ( 2 ) Picture1.Print改错Gc317.Frm属性设置：将Timer1的InterVal属性设置为：100，将Label1的Caption属性设置为：上机测试Command2_Click*原语句 Timer1.Timer 改为 Timer1_TimerTimer1_Timer*原语句 ElseIf Label1.Left > 0 Then 改为 ElseIf Label1.Left < 0 Then填空Tk317.Frm( 1 ) Len(Text1.Text) ( 2 ) a(j) + 1改错Gc318.Frm属性设置：将Hscroll1的Max、Min属性分别设置为：20、10Command1_Click*原语句RGB(Text1.Text, Text2.Text, Text3.Text) 改为RGB(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))HScroll1_Change()*原语句Label1.FontSize = HScroll1 改为 Label1.FontSize = HScroll1.Value填空Tk318.Frm( 1 ) i = 1 To 9 ( 2 ) Data(i) > Data(j)改错Gc319.Frm属性设置：将Form1的WindowState属性设置为：2，Command1的Caption 属性设置为：开始计算Command1_Click*原语句If j > 10 Then Exit Do 改为 If j = 10 Then Exit Do*原语句i = i - 1 改为 i = i + 1填空Tk319.Frm( 1 ) 5 ( 2 ) i属性设置：将Option3的Caption属性设置为： *,将Option3的ToolTipText属性设置为：乘法Option1_Click*原语句Text3.Text = Text1.Text + Text2.Text 改为Text3.Text = val(Text1.Text) + Val(Text2.Text) Option3_Click*原语句Text3.Text = Integer(Text1.Text * Text2.Text) 改为Text3.Text = Int (Text1.Text * Text2.Text)填空Tk320.Frm( 1 ) b ^ 2 - 4 * a * c ( 2 )ElseIf d = 0改错Gc334.Frm属性设置：将Text1的Text属性设置为：空值,将Command1的Caotion属性设置为：增加List1_Click*原语句List2.AddItem List1.ListIndex 改为List2.AddItem List1.TextList2_Click*原语句List2.RemoveItem List2.List(List2.ListIndex) 改为List2.RemoveItem List2.ListIndex填空Tk334.Frm( 1 ) s(Max) < s(j) ( 2 )s(n) = Text1.Text改错Gc335.Frm属性设置：将Timer1的InterVal属性设置为：1000,将窗体的Caotion属性设置为：倒计时程序Timer1_Timer*原语句Text1.Text = Format(Now, "SS:HH:MM")改为Text1.Text = Format(Now, "HH:MM:SS")Timer2_Timer*原语句Timer1.Interval = 0 改为Timer1.Enabled = False填空Tk335.Frm( 1 )Num(i) = Int(Rnd * 91 + 10) ( 2 )IsPrime(Num(i))改错Gc372.FrmSub swap1过程*原语句swap1(x As Integer, y As Integer)改为swap1(ByVal x As Integer, ByVal y As Integer) Sub swap2过程*原语句t = m: n = m: n = t 改为t = m: m = n: n = t填空Tk372.Frm( 1 )fibo(i); ( 2 )fibo(n - 1) + fibo(n - 2)改错Gc373.FrmForm_Click*原语句Else下面的nCount = nCount + 1 改为nCount = 1*原语句第二个End If 改为 Next n填空Tk373.Frm( 1 )a1 ( 2 )ncount -1改错Gc402.FrmForm_Click*原语句For i = 1 To n 改为For i = 1 To n-1*原语句sum = 1 / kk 改为 sum = sum + 1 / kk填空Tk402.Frm( 1 )Rnd*201+300 ( 2 )s = s + a(i)改错Gc403.FrmCommand1_Click*原语句((a + c>b) And (b>0)) Or ((c + b>a) 改为((a + c>b) And (b > 0)) And ((c + b>a)*原语句Abs(s * (s - a) * (s - b) * (s - c)) 改为 Sqr(s * (s - a) * (s - b) * (s - c))填空Tk403.Frm( 1 ) ss = Str( i ) ( 2 )a^3 + b^3 + c^3 = i属性设置：将Label1的BorderStyle属性设置为：1,将时钟的InterVal属性设置为：500Command2_Click*原语句Timer1.Enabled = True 改为Timer1.Enabled = FalseTimer1_Timer*原语句Label1.Caption = Timer() 改为 Label1.Caption = Time()填空Tk457.Frm( 1 ) n - i ( 2 )i < n改错Gc458.FrmC1_Click*原语句If x > 100 And x < 0 Then 改为If x > 100 Or x < 0 Then*原语句Label3.Caption = "该生成绩" 改为 Label3.Caption = Strtemp填空Tk458.Frm( 1 ) S ( 2 )result改错Gc481.FrmForm_Click*原语句f(i) = f(i) + f(i - 1) 改为f(i) = f(i-2) + f(i - 1)*原语句If (i Mod 5) = 5 Then 改为 If (i Mod 5) = 0 Then填空Tk481.Frm属性设置：将Command1的Caption属性设置为：计算机,将窗体的Caption属性设置为：等级考试( 1 ) Form1.Caption ( 2 )temp改错Gc482.Frm属性设置：将Text1、Text2的Text属性设置为：空值；Command1、Command2的Caption属性分别设置为：华氏转摄氏、摄氏转华氏Command1_Click*原语句F = Text1.Value 改为F = Text1.TextCommand2_Click*原语句C = Text2.Value 改为 C = Text2.Text填空Tk482.Frm( 1 ) i ( 2 )0改错Gc509.Frm属性设置：Command1、Command2的Caption属性分别设置为：计算&S、结束&XCommand1_Click*原语句If Text1.Text = "" Then 改为If Text1.Text <> "" ThenCommand2_Click*原语句Exit 改为 End填空Tk509.Frm( 1 ) 100 ( 2 )True改错Gc510.Frm属性设置：Command1、Command2的Caption属性分别设置为：计算&S、结束&XCommand1_Click*原语句If Text1.Text = "" Then 改为If Text1.Text <> "" ThenCommand2_Click*原语句Exit 改为 End填空Tk510.Frm( 1 ) b^2 – 4 * a * c ( 2 )Sqr(abs(d))属性设置：Command1、Command2的Caption属性分别设置为：定义坐标系统&S、绘正弦曲线&X Command1_Click*原语句Form1.Scale (-8, 2)+(8, -2) 改为Form1.Scale (-8, 2)-(8, -2)Command2_Click*原语句x = 1: y = Sin(i) 改为 x = i: y = Sin(i)填空Tk535.Frm( 1 ) num Mod 6 = 2 And num Mod 5 = 3 ( 2 )Text1.SetFocus改错Gc536.FrmForm_Click*原语句arr(i) = 20 + 80 * Rnd(-1) 改为arr(i) = 20 + 80 * Rnd(1)*原语句s = s + arr(1) 改为 s = s + arr(i)填空Tk536.Frm( 1 ) a ^ 2 + b ^ 2 = c ^ 2 ( 2 )Text1.Text = n改错Gc561.FrmForm_Click*原语句sum = 0 改为sum = 1*原语句sum = 1 / kk 改为 sum = sum + kk填空Tk561.Frm( 1 ) rnd * 201 + 100 ( 2 )s + a(i)改错Gc562.Frm属性设置：Command1、Command2的Caption属性分别设置为：运行、清理Command1_Click*原语句List1.List i & "=" & Sqr(i) & "^2" 改为List1.AddItem Sqr(i) & "^2" Command2_Click*原语句Text1.Focus 改为 Text1.SetFocus填空Tk562.Frm( 1 ) P(I) + P(J) + P(K) = N ( 2 )Idx = Idx + 1改错Gc587.Frm属性设置：Command1的Caption属性设为：开始计数；Timer1的Interval属性设为：1000C1_Click*原语句 Timer1.Enabled = True 改为 T1.Enabled = TrueT1_Click*原语句Text1.Text = Text1.Text + 10 改为 Text1.Text = Text1.Text + 1填空Tk587.Frm( 1 ) 32 ( 2 )String(1, Asc(b) + n)改错Gc588.FrmCommand1_Click*原语句 Item = 0 改为 Item = 1*原语句 Sum = Sum + Item 改为 Sum = Sum + I/Item填空Tk588.Frm( 1 ) End ( 2 )Text1.Text = ""改错Gc613.Frm属性设置：Form1的Caption属性设为：个人爱好；Command11的Caption属性设为：显示Command1_Click*原语句 If Check2.Value = 0 改为 If Check2.Value = 1Command2_Click*原语句 Then s = Check3.Caption 改为 Then s = s + Check3.Caption填空Tk613.Frm( 1 ) x >= 0 ( 2 )x < aminCommand1_Click*原语句 n = 1 改为 n = 0*原语句Text1 = s 改为 Text1 = n填空Tk614.Frm( 1 ) i+1 ( 2 ) s改错Gc639.Frm属性设置：Forma1的Caption属性设为“书籍采购计划”，Command1、Command2的Nmame属性设为：cmdAdd 和cmdDeleteCommAdd_Click*原语句 lstBook.AddItem = txtBook.Text 改为 lstBook.AddItem txtBook.TextCmdDelete_Click*原语句If lstBook.ListIndex = -1 Then 改为 If lstBook.ListIndex > -1 Then填空Tk639.Frm( 1 ) Rnd * 4 + 1 ( 2 )"S(" & I & ")=" & S(I)改错Gc640.FrmCommand1_Click*原语句 s = s + i 改为 s = s + i^2或 s = s + i*iCommand2_Click*原语句Release Me 改为 Unload Me填空Tk640.Frm( 1 ) f * i ( 2 ) Unload改错Gc666.Frm属性设置：Form1的Caption属性设为：加法器；Label1的Caption属性设为：+Command1_Click*原语句 Timer1.Enabled = True 改为 T1.Enabled = TrueCommand2_Click*原语句Text3 = Text1 + Text2 改为 Text3 = Val(Text1) + Text2填空Tk666.Frm( 1 ) i \ 100 ( 2 )i - hundred * 100 - ten * 10改错Gc667.FrmCommand1_Click*原语句 m = 1 改为 m = 0*原语句n = n + m 改为 n = n + 1填空Tk667.Frm( 1 ) P * j ( 2 )S + P改错Gc692.Frm属性设置：Form1的Caption属性设为：字幕滚动；Command11的Caption属性设为：手动Command1_Click*原语句 Form1.Timer1.Enabled = True 改为 Form1.Timer1.Enabled = FalseCommand2_Click*原语句Else下面的 Form1.Timer1.Enabled = False 改为 Form1.Timer1.Enabled = True填空Tk692.Frm( 1 ) TOTAL = 0 ( 2 )Sqr(L * (L - A) * (L - B) * (L - C))改错Gc693.FrmCommand1_Click*原语句sum = sum + 1 / item 改为 sum = sum + i / item*原语句Text1.Text1 = Str(sum) 改为 Text1.Text = Str(sum)填空Tk693.Frm( 1 ) a(i) ( 2 )i = 5 To 1 Step -1属性设置：Form1的Caption属性设为：字幕放大；Timer1的InterVal属性设为：200 Command1_Click*原语句 Timer1.Enabled = False 改为Timer1.Enabled = True*原语句 Timer1.Enabled = True 改为Timer1.Enabled = False填空Tk728.Frm( 1 ) n + 1 ( 2 )n - 1改错Gc729.FrmCommand1_Click*原语句item = item + j 改为 item = item * j*原语句sum = item 改为 sum = sum + item填空Tk729.Frm( 1 ) For i=0 to 1000 step 2 ( 2 ) Str(sum)改错Gc756.Frm属性设置：Command1的Name、Caption、Left和Top属性分别设为：cmd1、移动、0、0 Command1_Click*原语句cmd1.Left = Left + 100 改为 cmd1.Left = cmd1.Left + 100*原语句Top = cmd1.Top + 100 改为 cmd1.Top = cmd1.Top + 100填空Tk56.Frm( 1 ) Val(Txt1.Text) ( 2 ) num * rmb改错Gc757.Frm属性设置：Command1_Click*原语句Item = 0 改为 Item = 1*原语句 Sum = Sum + Item 改为 Sum = Sum + 1 / Item填空Tk757.Frm( 1 ) b^2 – 4 * a * c ( 2 ) b / (2 * a)改错Gc784.Frm属性设置：Command1的Name、Caption属性分别设置为Cmd1、开始计时Private Sub Form_Load()*原语句 Timer1.Interval = 100 改为 Timer1.Interval = 1000Private Sub Timer1_Timer()*原语句 Label2(0).Caption = Timer1 改为 Label2(0).Caption = Time填空Tk784.Frm( 1 ) x ( 2 )Form1.Text1.ForeColor改错Gc785.FrmCommand1_Click*原语句Item = 0 改为 Item = 1*原语句 Sum = Sum + Item 改为 Sum = Sum + i / Item填空Tk785.Frm( 1 ) s + i^2 ( 2 ) End。
VB程序改错40题含答案
【程序改错】题目：该程序实现将输入的 0 - 255 之间的正整数转换成二进制数Option ExplicitPrivate Sub Form_Click()Const n = 8Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox("请输入一个 0 - 255 之间的正整数："))Print xFor m = 1 To na(m) = x Mod 2x = x / 2Next ms = " "For m = n To 0 Step -1s = Str(a(m))Next mPrint sEnd Sub答案：=======(答案1)=======For m = 0 To n=======(答案2)=======x= x \ 2=========或=========x= int(x/2)=======(答案3)=======s = s + Str(a(m))第3题（1.0分）题号:463'【程序改错】'题目：以下程序功能是输入三个数，由大到小排序。
Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click()Dim nTemp As IntegerA = Val(InputBox("Please input first integer", "输入正整数"))B = Val(InputBox("Please input second integer", "输入正整数"))C = Val(InputBox("Please input third integer", "输入正整数"))If A <= C ThennTemp = AA = BB = nTempEnd IfIf B <= C ThennTemp = AA = CC = nTempEnd IfIf A <= B ThennTemp = BB = CC = nTempEnd IfPrint "The integers in order is"; A; B; CEnd Sub答案：=======(答案1)=======If A <= B Then=========或=========If B >= A Then=======(答案2)=======If A <= C Then=========或=========If C >= A Then=======(答案3)=======If B <= C Then=========或=========If C >= B Then第4题（1.0分）题号:127'【程序改错】'题目：下面程序可输出如下图形：' *' ***' *****' *******' *********'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4m = 1s = "*"For i = 5 To 1 Step -1Print Spc(n)For j = 1 To 2 * m - 1Print s;Next jPrintn = n + 1m = m - 1Next iEnd Sub答案：=======(答案1)=======Print Spc(n);=========或=========Print Spc(i);=========或=========? Spc(n);=========或=========? Spc(i);=======(答案2)=======n = n - 1=========或=========n = - 1+n=======(答案3)=======m = m + 1第5题（1.0分）题号:469'【程序改错】'题目：已知一个函数f(x)=1000*sin(x)，利用绘图方法' 在图片框中显示其图形。
vb题库-填空题(上海海事)教学内容
v b题库-填空题(上海海事)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.caption="" 或 Label1="" 或 Label1.Caption=""10、写出清除图片框的文字或图形信息的语句【1】.答案：Picture1.cls 或 cls11、滚动条控件有水平滚动条和【1】滚动条.答案：垂直12、文本框中所显示的内容是它的【1】属性的值.答案：Text13、要使命令按钮cmdEnd可以以快捷键E访问,应设置属性【1】.答案：Caption14、当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【1】属性设置成空白.答案：Text15、如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】.答案：退出(&X)16、所有控件都具有的共同属性是【1】属性.答案：name17、Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案：Picture118、使用Scale方法建立窗体Form1的用户坐标系,其中窗体左上角坐标为(-200,250),右下角坐标为(300,-100),具体形式为【1】.答案：form1.scale (-200,250)-(300,-100)19、如果在模块的声明段中有Option Base 1语句,则在该模块中使用Dim a(3 To 5,6)声明的数组有【1】个元素.答案：1820、把"Visual Basic程序设计"添加到列表框lstBooks的语句为【1】.答案： lstBooks.AddItem "Visual Basic程序设计"21、如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义【1】.答案：public★mystring★as★string*1522、若要在字符串asdgewl中取dge,则使用函数【1】实现.答案：Mid$(asdgewl$,2,3) 或 Mid(asdgewl,2,3)23、欲使在自己设计VB程序运行过程中,不中止本程序的运行,同时又可调用系统中已有的应用程序c:\windows\Calc.exe,可在程序代码窗口必要的地方添加语句【1】.答案：shell("c:\windows\Calc.exe") 或 shell("calc.exe")24、设置计时器控件只能触发【1】事件.答案： timer25、要使鼠标停留在按钮上显示特殊的鼠标形状,应设置的属性值是【1】.答案：mousepointer26、使用Circle方法在窗体Form1上以(15,15)为圆心,10为半径画圆,具体形式为【1】.答案： form1.circle (15,15),1027、使用Move方法把图形框Picture1的左上角移动到距窗体顶部100Twip,距窗体左边框200Twip,同时图形框缩小50%,具体形式为【1】.答案：Picture1.move 200,100,picture1.width/sqr(2),picture1.height/sqr(2)28、对象是既包含【1】又包含对数据进行操作的方法,并将其封装起来的一个逻辑实体.答案：数据29、拖动滚动条中的滚动框将会产生Scroll和【1】事件.答案： Change30、以图片框Pic1的中心位置为圆心,以700为半径在Pic1上画一个圆的方法是【1】.pic1.Circle (pic1.width/2,pic1.height/2),70031、设置计时器对象触发事件的时间间隔用【1】属性.答案： interval32、对象具有属性和【1】.答案：方法33、打开"工程窗口"的方法之一是按下【1】组合键.答案： CTRL+R34、列表框控件不支持Click事件,但支持【1】事件.答案：dblclick35、Visual Basic 中的文本框中要使该框不允许多行输入,应设置【1】属性为false.答案： MultiLine36、如果要在单击钮时执行一段代码,则应将这段代码写在【1】事件过程中.答案： click37、将焦点定位于命令按钮Command1之上的语句为【1】.答案：Command1.SetFocus 或 SetFocus38、滚动条控件主要支持两个事件,它们是scroll和【1】事件.答案： change39、文件按照存取方式及其组成结构可以分为顺序文件和【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 6.0中,设 Single型变量 XYZ 的值为123.45,若要将其转换成字符串,应使用的类型转换函数是【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 6.0中,变量名最长可达【1】个字符. 答案： 25554、在VB中,若要改变一个窗体的标题,应在属性窗口中改变这个窗体的【1】属性的值. 答案： Caption55、在控件之中,【1】不能从工具箱中被删除.答案：内部控件或标准控件56、在VB中,若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用【1】语句.答案： Option Explicit57、一般情况下,控件有两个属性项的缺省值是相同的,这两个属性项是name和【1】.答案：caption58、一个工程可以包括多种类型的文件,其中ActiveX控件的文件扩展名为【1】. 答案： OCX59、在利用Visual Basic设计应用程序时,一般会遇到三类错误:语法错误、执行错误和【1】. 答案：逻辑错误60、要使一个按钮无效,则可把它的Enable属性设为【1】.答案：False61、在VB中,窗体由属性定义外观,由【1】定义行为,由事件定义其与用户的交互.答案：方法62、一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示【1】文件.答案：工程63、一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示【1】文件.答案：窗体64、要使同一类型控件组成一个控件数组,必须要求【1】.答案： Name 相同或名称相同65、要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.答案：Default66、在VB中,若要重新定义一个动态数组的元素个数,应当使用【1】语句对其进行重新定义.答案：ReDim67、在控件之中,【1】单独保存在.OCX文件中,在必要时可以加入到工具箱中. 答案：ACTIVEX控件68、VB中的变量按其作用分为全局变量,模块变量,【1】.答案：局部变量69、在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer,则strVar、intVar与sngVar的数据类型分别是Variant、Variant和【1】.答案： Integer70、设x为大于零的实数,则大于x的最小奇数的Visual Basic表达式是【1】. 答案： IIF(int(x) mod 2=0,int(x)+2,int(x)+1)71、说明变量类型有隐含类型说明和【1】两种方法.答案：强制类型或强制类型说明72、表达式(-3) Mod 8的值为【1】.答案：–373、设X$ ="abc123456"则"a"+str$(val(right(X$,4)))的值是【1】.答案：a345674、设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为【1】. 答案：False75、String(3, "abc")的结果为【1】.答案： aaa76、VB 的工作模式可分为三种:"设计"、"运行"以及"【1】".答案：中断77、VB的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符.答案：连接78、Integer类型的变量占用【1】字节空间.答案： 279、表达式81\7 MOD 2^2 的值是【1】.答案： 380、设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("123.55ab456")的值是多少【1】.答案：123.5585、表达式"[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.60以上,列出逻辑表达式【1】.答案：(sex and age>=18 and age<=20 and size>=1.65 ) or (notsex and age>=16 and age<=18 and size>=1.60 )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(-8.6)+I\J+13/3 MOD 5,则I值是【1】.96、如果:I=11:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【1】.答案：-297、把条件1<=X<12写成VB关系表达式为【1】.答案：x>=1 and x<12 或 x<12 and x>=198、声明单精度常量g(重力加速度)代表9.8可写成【1】.答案：const g=9.8 或 const single g=9.8100、X=2:Y=8:PRINT X+Y=10的结果是【1】.答案：True101、声明单精度常量P1代表3.14159的语句为【1】.答案：Const PI=3.14159 或 Const pi As Single = 3.14159102、VB 6.0的基本表达式包括算术表达式、关系表达式和【1】表达式. 答案：逻辑103、表达式93\7 MOD 2^3的值是【1】.答案： 5104、VB6.0的连接运算符包括【1】运算符和【2】运算符两种.答案：（1). & 或 + （2). & 或 +105、表达式 1 and 0的值【1】.答案： False106、变量min@表示【1】类型的变量.答案：货币数据变量或货币107、当x=2时,语句if x=2 then Print x=2 的结果值是【1】.108、设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期末考试复习题(有详细解答过程)
第1单元 Visual Basic 程序设计概述1、以下＿＿＿＿为标准模块程序文件的扩展名。
A 、.basB 、.clsC 、.frmD 、.res 2、以下说法正确的是＿＿＿＿。
A ．窗体文件的扩展名为.frmB ．一个窗体可对应多个窗体文件C ．Visual Basic 中的一个工程只包含一个窗体D ．Visual Basic 中的一个工程最多可以包含256个窗体文件 3、Visual Basic 菜单中的“新建工程”命令是＿＿＿＿。
A ．可以直接执行的命令B ．通过对话框执行的命令C ．位于“编辑”菜单下D ．快捷键为Ctrl+D 4、运行程序的快捷键为＿＿＿＿。
A ．F10B ．F4C ．F5D ．Ctrl 5、以下说法不正确的是＿＿＿＿。
A ．标准模块附属于窗体B ．标准模块由程序代码组成C ．标准模块也称程序模块文件，扩展名为.basD ．标准模块用来声明全局变量和定义一些通用的过程 6、以下可用于启动Visual Basic 的方法是＿＿。
A ．打开“我的电脑”找到存放Visual Basic 系统文件的硬盘及文件夹双击VB6.0EXE 图标B ．执行“开始”菜单中的“运行”命令，输入 Visual Basic 可执行文件的路径及文件名C ．利用“开始”菜单中的“程序”命令方式D ．以上选项均正确7、以下为纯代码文件的是＿＿＿＿。
A 、工程文件B 、窗体文件C 、标准模块文件D 、资源文件 8、以下说法不正确的是＿＿＿＿。
A ．Visual Basic 是面向过程的编程语言 B ．Visual Basic 是一种可视化编程工具 C ．Visual Basic 是结构化程序设计语言 D ．Visual Basic 采用事件驱动编程机制 9、Visual Basic 的窗体设计器主要是用来＿。
A ．建立用户界面B ．设计窗体的布局C ．编写程序源代码D ．添加图形、图像、数据等控件 12、以下为窗体文件扩展名的是：_______。
上海海事大学VB题库-程序填空
程序填空〖第1题〗『程序填空』(1分)(题号:59)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------' 功能：输入一个数,若大于0,则显示"+"；若小于0，' 则显示"-"；若等于"0",则显示"零"。
'-------------------------------------------------------Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x'**********SPACE**********【?】Label1.Caption = "+"Case Is < 0'**********SPACE**********【?】'**********SPACE**********【?】Label1.Caption = "零"End SelectEnd Sub答案：1). Case Is > 02). Label1.Caption = "-"3). Case 0 或Case Else 或Case Is = 0〖第2题〗『程序填空』(1分)(题号:60)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：输入任何一个英文字母x,' 若x的值为"a","c","d-f" ,则显示x的大写字母；' 若x的值为"m","o","p-z",则显示x的小写字母；' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。
版上海海事大学VB题库——改错
改错〖第1题〗『程序改错』(5分)(题号:132)'------------------------------------------------'【程序改错】'------------------------------------------------'题目:求s=2!+4!+6!+8!,阶乘的计算用Function过程' fact实现'------------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()dim i as integer,s as Long'**********FOUND**********For i = 2 To 8s = s + fact(i)Next iPrint sEnd Sub'**********FOUND**********Public Function fact( )dim t as Longdim i as integert = 1For i = 1 To nt = t * iNext I'**********FOUND**********fact=iEnd Function答案:1)、For i = 2 To 8 Step 22)、Public Function fact(ByVal n As Integer) 或Public Function fact(n As Integer) 或Public Function fact(n%) 或Public Function fact(n) 或Public Function fact(ByVal n%) 或Public Function fact(ByVal n)3)、fact = t〖第1题〗『程序改错』(5分)(题号:132)'------------------------------------------------'【程序改错】'------------------------------------------------'题目:求s=2!+4!+6!+8!,阶乘的计算用Function过程' fact实现'------------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()dim i as integer,s as Long'**********FOUND**********For i = 2 To 8s = s + fact(i)Next iPrint sEnd Sub'**********FOUND**********Public Function fact( )dim t as Longdim i as integert = 1For i = 1 To nt = t * iNext I'**********FOUND**********fact=iEnd Function答案:1)、For i = 2 To 8 Step 22)、Public Function fact(ByVal n As Integer) 或Public Function fact(n As Integer) 或Public Function fact(n%) 或Public Function fact(n) 或Public Function fact(ByVal n%) 或Public Function fact(ByVal n)3)、fact = t〖第1题〗『程序改错』(5分)(题号:493)'------------------------------------------------'【程序改错】'------------------------------------------------'题目:给定年号与月份,判断该年就是否闰年,并根据给出的' 月份来判断就是什么季节与该月有多少天？' (闰年的条件就是:年号能被4整除但不能被100整除,' 或者能被400整除。
VB程序填空改错设计题库全汇编
1.'功能：以下程序段用于计算n的阶乘：n！。
（1！=1）2. 已知某城市一年的交通事故车辆报废情况，编程序计算该城市的交通事故一年损失金额。
3. 下面的程序用"冒泡"法将数组a中的10个整数按从小到大排列，请将程序补充完整。
4. '程序运行界面。
键盘输入3个数，将它们按由大到小的顺序输出，-1为结束标志。
5. '在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为'"体育"、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题'为"显示"。
要求程序运行后，如果选中某个复选框，则当单击'"显示"命令按钮时，则显示相应的信息。
例如，如果选中"体育"'和"音乐"复选框，则单击"显示"命令按钮后，在窗体上显示'"我的爱好是体育音乐"（如图1所示）；而如果选中"体育"、'"音乐"和"美术"复选框，则单击"显示"按钮后，在窗体上显示"'我的爱好是体育音乐美术"。
6. 窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。
' 判断密码是否正确，并显示相应提示在加载窗体时设置密码框最大长度为8，密码显示字符为“*”7. 下面的程序用于求三个数中最大数8. 要求输入若干学生的成绩，计算平均分和高于平均分的人数，并将这两个数据放入数组的最后。
9. 求A,B,C三个数的最大值。
10. 该程序通过For循环计算一个表达式的值，这个表达式是1/2+2/3+3/4+4/511. 用户单击命令按钮后，程序将文本框Text1中的文本反转显示，同时在文本框Text2中显示文本框Text1中字符串的个数12. 功能：单击“插入数据”按钮后，输入一个整型数据，该数据会被插入到一个有序的数组a(1 to 10)中,插入该数据后数组还是有序的。
【word版】上海海事大学VB题库——改错
改错［（第1题》『程序改错」（5分）（题号：132）【程序改错】'题目：求s二2!+4X6!+8!,阶乘的计算用Function过程'fact实现'注意：不可增加或删除程序行，也不可以更改程序结构J _____________________ ___ _____________________________ _ ___________________________________ Private Sub Form_Click()dim i as integer,s as Long'**********F0UND**********For i = 2 To 8s = s + fact (i)Next iPrint sEnd Sub'**********F0UND**********Public Function fact()dim t as Longdim i as integert = 1For i = 1 To nt = t * iNext I'**********F0UND**********fact=iEnd Function答案：1). For i = 2 To 8 Step 22). Public Function fact(ByVai n As Integer) 或Public Function Integer) 或Public Function fact(n%) 或Public Function fact(n) Function fact(ByVai n%) 或Public Function fact(ByVai n)3). fact = tK第1题》『程序改错」(5分)(题号:132)【程序改错】'题目:求s二2!+4!+6!+8!,阶乘的计算用Function 11程'fact实现'注意：不可增加或删除程序行，也不可以更改程序结构Private Sub Form_Click() fact(n As 或Publicdim i as integer, s as Long'**********F0UND**********For i = 2 To 8s = s + fact (i)Next iPrint sEnd Sub':fc*********F0UND**********Public Function fact()dim t as Longdim i as integert = 1For i = 1 To nt = t * iNext I'**********F0UND**********fact=iEnd Function答案：1). For i = 2 To 8 Step 22). Public Function fact(ByVai n As Integer) 或Public Function fact(n As Integer) 或Public Function fact(n%) 或Public Function fact(n) 或Public Function fact(ByVai n%) 或Public Function fact(ByVai n)3). fact = tK第1题》『程序改错」(5分)(题号:493)【程序改错】'题目：给左年号与月份，判断该年是否闰年,并根据给出的 '月份来判断是什么季节和该月有多少天'（闰年的条件是：年号能被4整除但不能被100整除，'或者能被400整除°） '注意：不可增加或删除程序行，也不可以更改程序结构Private Sub Form_Click()Dim Year As Integer, Month As IntegerYear = InputBox(/z输入年号：")Month = InputBox(/z输入月份：“)'**********F0UND**********If Year Mod 4 = 0 And Year Mod 100 <> 0 And Year Mod 400 <> 0 Then'**********FO UND**********flag = 0MsgBox "闰年"Elseflag = 0MsgBox "非闰年"End If'**********FO UND**********Select Case flagCase 1MsgBox "该月有31天，春季"Case 2If flag 二1 Then MsgBox "该月有29 天，春季"Else MsgBox 〃该月有28 天，春季"Case 3MsgBox "该月有31天,春季"Case 4MsgBox "该月有30天,夏季"Case 5MsgBox "该月有31天,夏季"Case 6MsgBox "该月有30天,夏季"Case 7MsgBox该月有31天，秋季"Case 8MsgBox "该月有31天，秋季"Case 9MsgBox "该月有30天，秋季"Case 10MsgBox "该月有31天，冬季"Case 11MsgBox "该月有30天，冬季"Case 12MsgBox该月有31天，冬季"End SelectEnd Sub答案：1） . If Year Mod 4 = 0 And Year Mod 100 <> 0 Or Year Mod 400 = 0 Then 或If YearMod 400 = 0 Or Year Mod 4 = 0 And Year Mod 100 <> 0 Then2） . Flag = 13） . Select Case MonthK第2题』『程序改错」（5分）（题号:119）【程序改错】'题目：在下面的程序段中过程pd可以判断任意三个数能'否构成三角形的三边，利用该过程的判泄结果,'对能构成三角形的讣算其而积，构不成的显示"'不能构成三角形〃 '注意：不可增加或删除程序行，也不可以更改程序结构Option ExplicitPrivate Sub Form_Click()':fc*********FOUND**********Dim x%, y%, z%, s%, b As Boolean, h As SingleX = InputBox C请输入三角形的边长")y = InputBox C请输入三角形的边长")z = InputBox C请输入三角形的边长")b = pd(x, y, z)h = (x + y + z) / 2'客*********FOUND**********If Not b Thens = Sqr (h * (h - x) * (h - y) * (h - z))Print "三角形而积是"；sElsePrint "不能构成三角形"End IfEnd Sub'**********FOUND**********Public Function pd() As BooleanIf x > 0 And y > 0 And z > 0 And x + y > z And x + z > y And y + z > x Then pd = TrueElsepd = FalseEnd IfEnd Function答案：1). Dim ★矗★,z%*, ! ★,As Boolean^, ★h As Single 或Dim ★x%^,★ z%*, as Singled,As Boolean*, As Single2). If b Then 或If b=true Then3). Public Function pd(x%, y%, z%) As Boolean 或Public Function pd(x, y, z) As Boolean 或Public Function pd(x as Integer, y as Integer, z as Integer) As Boolean K第3题］］『程序改错」(5分)(题号:134)【程序改错】'题目：程序功能根拯输入的学习成绩,分别显示优秀'（90分以上），良好（75分以上），及格（60分以上） '，不及格几个等级.'注意：不可增加或删除程序行，也不可以更改程序结构Private Sub Formed ick()CisDim i As Integeri二InputBox C请输入学习成绩")Select Case I':fc*********FOUND**********Case 0<I<100MsgBox 〃成绩应该在0—100之间"'**********FOUND**********Case 90Print "优秀”Case 75 To 90Print ?，良好"Case 60 To 75Print "及格"'**********FOUND**********CaseMsgBox "不及格"，vbCriticalEnd SelectEnd Sub答案：1). Case ★! > 100 ★or* i < 0 或Case ★100 < i★orik* i〈0 或Case ★! > 100 ★or* 0>i 或Case ★100 < i ★or* 0>i2). Case 90 To 1003). Case elseK第4题』『程序改错〕(5分)(题号:481)【程序改错】'题目：下而程序的功能是将一个整数转化为数值字符串， '列如123,转化为"+123",-123转化为“-123”'注意：不可增加或删除程序行，也不可以更改程序结构9 _____________________________ _________________________________________________________________________________Private Function NtoC(ByVai n As Single)Dim sign As Boolean, i%, a%, count%, temp%(100)Dim strc As Stringsign = False'**********F0UND**********If n < 0 Then sign = Falsen = Abs(n)Do Wh:ile n > 0'客*********F0UND**********a = n / 10n = n \ 10'**********FO UND**********count = 1temp(count) = aLoopIf sign Then strc = 〃- " Else strc =For i = count To 1 Step -1strc = strc + Chr(Asc("0") + temp(i))Next iNtoC = strcEnd FunctionPrivate Sub Commandl_Click()Print NtoC(-123)End Sub答案：1). If n 〈0 Then sign = True2). a = n Mod 103). count = count + 1 或count = 1 + count K第1题』『程序改错」(5分)(题号:132)【程序改错】'题目:求s=2!+4!+6!+8!,阶乘的计算用Function 程'fact实现'注意：不可增加或删除程序行，也不可以更改程序结构Private Sub Form_Click() dim i as integer, s as Long '**********F0UND********** For i = 2 To 8s = s + fact (i)Next iPrint sEnd Sub'**********F0UND********** Public Function fact() dim t as Longdim i as integert = 1For i = 1 To nt = t * iNext I'客*********FOUND**********fact=iEnd Function答案：1). For i = 2 To 8 Step 22). Public Function fact(ByVai n As Integer) 或Public Function fact(n AsInteger)或Public Function fact(n%) 或Public Function fact(n) 或Public Function fact(ByVai n%)或Public Function fact(ByVai n)3). feet = t。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Case 4 MsgBox "该月有30天，夏季"
Case 5
MsgBox "该月有39;
fact 实现
'-----------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------
Private Sub Form_Click() dim i as integer,s as Long '**********FOUND********** For i = 2 To 8
答案： 1). For i = 2 To 8 Step 2 2). Public Function fact(ByVal n As Integer) 或 Public Function fact(n As Integer) 或
Public Function fact(n%) 或 Public Function fact(n) 或 Public Function fact(ByVal n%) 或 Public Function fact(ByVal n)
答案： 1). For i = 2 To 8 Step 2 2). Public Function fact(ByVal n As Integer) 或 Public Function fact(n As Integer) 或
Public Function fact(n%) 或 Public Function fact(n) 或 Public Function fact(ByVal n%) 或 Public Function fact(ByVal n)
3). fact = t
〖第 1 题〗『程序改错』(5 分)(题号:132)
'-----------------------------------------------'【程序改错】 '------------------------------------------------
'题目：求 s=2!+4!+6!+8!，阶乘的计算用 Function 过程
3). fact = t
〖第1题〗『程序改错』(5分)(题号:493)
'-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:给定年号与月份，判断该年是否闰年,并根据给出的 ' 月份来判断是什么季节和该月有多少天？ ' （闰年的条件是：年号能被4整除但不能被100整除， ' 或者能被400整除。） '-----------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click()
改错 〖第 1 题〗『程序改错』(5 分)(题号:132)
'-----------------------------------------------'【程序改错】 '------------------------------------------------
'题目：求 s=2!+4!+6!+8!，阶乘的计算用 Function 过程
s = s + fact(i) Next i Print s End Sub '**********FOUND********** Public Function fact( ) dim t as Long dim i as integer t=1 For i = 1 To n t=t*i Next I '**********FOUND********** fact=i End Function
Dim Year As Integer, Month As Integer
Year = InputBox("输入年号：")
Month = InputBox("输入月份：")
'**********FOUND********** If Year Mod 4 = 0 And Year Mod 100 <> 0 And Year Mod 400 <> 0 Then
'
fact 实现
'-----------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------
Private Sub Form_Click() dim i as integer,s as Long '**********FOUND********** For i = 2 To 8
'**********FOUND********** flag = 0
MsgBox "闰年"
Else
flag = 0
MsgBox "非闰年"
End If
'**********FOUND********** Select Case flag
Case 1 MsgBox "该月有31天，春季"
Case 2 If flag = 1 Then MsgBox "该月有29天，春季" Else MsgBox "该月有28天，春季"
s = s + fact(i) Next i Print s End Sub '**********FOUND********** Public Function fact( ) dim t as Long dim i as integer t=1 For i = 1 To n t=t*i Next I '**********FOUND********** fact=i End Function