第一文秘网 > 会议发言

VB程序试卷

作者：jnscsh 时间：2020-07-10 14:17:55 浏览次数：次

　试卷一

　1．将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后，将该可执行文件到其他机器上不能运行的主要原因是______

　______。

　A、该可执行文件有病毒

　B、运行的机器上无VB系统

　C、缺少.frm窗体文件

　D、以上原因都不对

　2．执行VB工程时第一次出现的窗体称启动窗体，关于该窗体的叙述不正确的是____

　_。

　A、若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体

　B、启动窗体和其他窗体一样可以隐藏和关闭

　C、启动窗体一般作为用户工作的界面，不可更改

　D、启动窗体可进行设置，设置方法是执行“工程”菜单中的“属性”

　3．用来设置粗体字的属性是_

　____。

　A、FontBold B、FontItalic C、FontSize D、FontName 4．要使一个标签透明且具有边框，则应__

　___。

　A、将其BackStyle属性设置为1，BorderStyle属性设置为1 B、将其BackStyle属性设置为0，BorderStyle属性设置为1 C、将其BackStyle属性设置为0，BorderStyle属性设置为0 D、将其BackStyle属性设置为1，BorderStyle属性设置为0 5.

　当一个CheckBox控件的Value属性为2时，表示该控件__

　___。

　A、未选中 B、以被选中 C、当前不可用 D、未知

　设X=2.0,Y=8.0,Z=6.0,L=True,则下列VB表达式中值为True的是_______

　_____。

　A、Y+X>=Z+X AND NOT L B、NOT(Z+X>Y) AND L C、NOT L OR(L=Y+X=Z) D、X+Z>Y AND L 7.

　在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符_______

　_________，表示下一行是当前行的继续。

　A、直接回车

　B、一个空格加一个下划字符(_)

　C、一个下划字符(_)

　D、一个空格加一个连字符(-) 8. 在程序中将变量Inta、Bl、St、D分别定义为Integer类型、Boolean类型、String类型和Date类型，下列赋值语句中，正确的是___A___。

　A、Bl=#True#

　B、D=#10/05/01#

　C、Inta= "333" + "22"

　D、St=5+ "abc"

　9. 在一个语句行内写多条语句时，语句之间应该用_____D______分隔。

　A、逗号

　B、顿号

　C、分号

　D、冒号

　10. 下列循环能正常结束循环的是__D___。

　A、i=5 Do i=i+1 Loop Until i<0 B、i=6 Do i=i-2 Loop Until i=1 C、i=1 Do i=i+2 Loop Until i=10 D、i=10 Do i=i+1 Loop Until i>0 11. 下面的语句或方法，错误的有个___C_____（其中m和n都为Integer型变量）。

　①dim Arry(m,n) As Integer ②n = 32764 + 5 ③Print A = A + B;A+B ④ChDrive "C:" A、1 B、3 C、2 D、4 12. 当发生Command1_Click事件后，程序输出结果是___C_____。

　Option Base 1 Private Sub Command1_Click() Dim a(4, 4) As Integer,i As Integer,s As Integer s=0 For i=1 To 4

　 For j=1 To 4

　 a(i, j) = (i-1)*4+j*2

　 Next j Next i For i = 1 To 4

　 s=s+a(i, i) Next I Print s End Sub A、30 B、32 C、44 D、28 13. 在窗体上画一个命令按钮，然后编写如下事件过程：

　Option Base 1 Private Sub Command1_Click() Dim a As Variant a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)*j j = j * 10 Next i Print s End Sub 运行程序，单击命令按钮，其输出结果是____A___。

　A、1234 B、12 C、4321 D、34 14. 设有下列程序代码，在单击命令按钮时的输出结果是___D_____。

　Sub SS (ByVal x, ByRef y, z) x=x+1 y=y+1 z=z+1 End Sub Private Sub Command1_Click ( ) A=1: B=2 :C=3 Call SS (A,B,C) Print A,B,C End Sub A、2 2 4 B、1 2 3 C、1 3 3 D、1 3 4

　 15. 在窗体模块的通用声明段中声明变量时，不能使用____C________关键字。

　A、Dim

　B、Private

　C、Static

　D、Public

　16. 856. 窗体中添加一个命令按钮，程序运行后，输出结果为____B B_____ 。

　Private Sub test(x,y,z) x = x+1: y = y + 2: z = z + 3 Print "Sub="; x; y; z End Sub Private Sub Command1_Click( ) a1 = 10: b1 = 17: c1 = 41 Call test(a1,b1+2,(c1)) Print "Main="; a1; b1; c1 End Sub A、Sub=12 11 41 Main=10 11 41 B、Sub=11 21 44 Main=11 17 41 C、Sub=10 17 41 Main=11 17 44 D、Sub=10 17 41 Main=11 17 44 17. 如下程序，运行的结果是_____C_______。

　Public Function pi!(x!, n%) If n = 0 Then pi = 1 ElseIf n Mod 2 = 1 Then pi = x * pi(x, n \ 2) Else pi = pi(x, n \ 2) \ x End If End Function Private Sub Command1_Click() Print pi(3, 7) End Sub A、7 B、18 C、27 D、14 18. 在调用Sub过程或Function过程时，采用_______C_________传送相应过程的变量名、数组名、常数或表达式。

　A、形式参数

　B、对象参数

　C、实际参数

　D、数组参数

　 19. 要想在过程调用后返回两个结果，下面的过程定义语句合法的是__D_____。

　A、Sub Procl ( ByVal n , ByVal m) B、Sub Procl ( ByVal n , m) C、Sub Procl ( n , ByVal m) D、Sub Procl ( n , m) 20. 通用过程可以完成一项指定任务，必须由______A____调用才行。

　A、应用程序 B、定时器 C、系统引发 D、Sub Main

　21. 窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为_______B___。

　Private Sub fun( ) Static a As Integer a=a+2 Print a; End Sub Private Sub Command1_Click( ) Dim m As Integer For m=1 To 3 Call fun Next m End Sub A、0 0 0 B、2 4 6 C、2 2 2 D、2 4 8 22. 设有下列程序代码，在单击命令按钮时的输出结果是__A______。

　Sub SS (ByVal x, ByRef y, z) x=x+1 y=y+1 z=z+1 End Sub Private Sub Command1_Click ( ) A=1: B=2 :C=3 Call SS (A,B,C) Print A,B,C End Sub A、1 3 4 B、2 2 4 C、1 3 3 D、1 2 3 23. 按文件的组织方式分有_______A_____。

　A、ASCII文件和二进制文件

　 B、顺序文件和随机文件 C、程序文件和数据文件 D、磁盘文件和打印文件 24. 语句Open “Mjq.Txt” For Input As #Freefile 表示___A_____。

　A、打开一顺序文件"Mjq.Txt"，为读数据做准备 B、打开一随机文件"Mjq.Txt"，为写数据做准备 C、打开一二进制文件"Mjq.Txt"，为读数据做准备 D、打开一随机文件"Mjq.Txt"，为读数据做准备 25. 有一个充满氢气的球，如果人不小心松开手抓的引线，它就会飞走；如果用针刺穿它，它则会爆破。此处红色一种属性，飞是一种__ 方法 ___。

　针刺是一种__ 事件 ___，爆破是一种___ 方法 __。

　26. 列表框的__

　Sorted

　___属性决定列表框中项目在程序运行期间是否按字母顺序排列，如果该属性为True，则按字母顺序排列显示，False则按项目加入的先后顺序排列显示。

　27. 表示"A+B+C大于等于255，或A与B分别大于90且C大于80"的VB表达式的__

　A+B+C>=255 Or A>90 And B>90 And C>80 __.

　28. 2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为_

　2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y). 29. 执行下面的程序，击窗体后在窗体上显示的第一行结果是__

　___，第三行结果是_

　____。

　Private Sub Form_click() Dim mystr, mystr1, mysrr2 As String mystr1 = "B" For i = 1 To 3 mystr2 = LCase(mystr1) mystr1 = mystr1 & mystr2 mystr = mysre & mystr1 Print mystr mystr1 = Chr(Asc(mystr1) + i) Next i 30. 以下程序运行后，si、sj、sk的结果分别是__

　0 1

　___，i、j、k的结果分别是_

　____。

　Private Sub Command1_Click() si=0:sj=0 For i=1 To 3 For j=1 To i sk=0 For k= j To 3 sk=sk+1 Next k sj=sj+1 Next j sj=si+1 Next i 31. Private Sub Command1_Click()

　 Dim sa(3, 3) As String * 1, i As Integer, j As Integer Dim s As String, k As Integer s = "JPLETAXBD" k = 1 For i = 1 To 3 For j = 1 To 3 sa(i, j) = Mid(s, k, 1) Pic1.Print sa(i, j); " "; k = k + 1 Next j Pic1.Print Next i For i = 1 To 3 For j = 1 To 3 k = (Asc(sa(i, j)) - Asc("A") + i + j) Mod 26 【参考答案】

　32. 在窗体上画一个名称为Command1的命令按钮，再画两个名城分别为Label1、Label2的标签，然后编写如下程序代码：

　Private x As Integer Private Sub Command1_Click() x=5: y=3 Call proc(x,y) Label1.Caption=x Label2.Caption=y End Sub Private Sub proc(Byval a As Integer,Byval b As Integer) x=a*a y=a-b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是___25_______,_____3_____ 33. Dim p As Integer,x As Long,flag As Boolean flag=False x=InputBox("请输入一个正整数") If__

　prime(x)

　___Then Print Str(x)+"是素数！" Else Print Str(x)+"不是素数！" End If End Sub Private Function prime(n As Long)As Boolean Dim t As Long prime=True t=2

　 Do While prime And t<=(n/2) If n Mod t=0 Then prime=__

　FALSE

　___ Else t=t+1 End If Loop

　一．[ [ 题目] ] 已知：买一只公鸡需5元，买一只母鸡需3元，买三只小鸡需1元。要用100元买100只鸡，公鸡母鸡和小鸡各有多少只？

　【编程要求】

　1、单击"计算"按钮，则将计算结果显示在列表框List1中；单击"清除"按钮，则清除列表框的内容；单击"退出"按钮，程序停止运行。

　2、界面应与给出的参考界面相似，不得增加或减少控件。

　【参考代码】

　For x = 1 To 20

　 For y = 1 To 33

　 z = 100 - x - y

　 If 5 * x + 3 * y + z / 3 = 100 Then List1.AddItem Str(x) + "

　 " + Str(y) + "

　 " + Str(z)

　 Next y Next x 二．[ [ 题目] ] 顺序查找：给定一个数，在一个两位随机数数组中查找与此数相同的元素（该数组大小为10个元素）。

　如果找到与给定数值相同的元素后输出该元素在数组中的位置；找不到则输出相应的提示信息。

　[ [ 编程要求] ]

　程序中有一个过程，过程名为search，该过程的功能是返回查找的数在数组中的位置，如果找不到返回-1。

　完成此函数的功能

　【参考代码】

　 Dim i As Integer

　 L = UBound(b)

　 For i = 1 To L

　 If b(i) = n Then

　 search = i

　 Exit Function

　 End If

　 Next i

　 search = -1

　试卷二二 1.能被对象所识别的动作与可执行的活动分别称为对象的__C___。

　A、方法、事件 B、过程、方法 C、事件、方法 D、事件、属性 2. 将命令按钮的_D____属性设置为True，当用户按下【Esc】键时可以激发对应命令按钮的Click事件。

　A、Default

　B、Enable

　C、Name

　D、Cancel

　3. 在用菜单编辑器设计菜单时，必须输入的项有__B___。

　A、索引 B、名称 C、标题 D、快捷键

　 4. 在以下有关对象属性的叙述中，不正确的是__A___。

　A、一个对象的所有属性都可在属性窗口的列表中进行设置。

　B、一个对象的属性可分为外观、行为等若干类。

　C、属性窗口中的属性列表既可按字母序也可按类别排列。

　D、不同属性可能具有不同的数据类型。

　5. 以下不属于标签属性的是__a___。

　A、Index B、Value C、Caption D、Font 6. 在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其中__b___ 一定可以将Hello显示在当前窗体上。

　A、Form2.Print

　"Hello"

　B、Me.Print

　"Hello"

　C、Form1.Print

　"Hello" D、Debug.Print

　"Hello"

　7. 下面_____a_______是不合法的单精度常数。

　A、100.0D+2 B、100! C、100.0 D、1E+2 8.Mys1、Mys2均为字符串型变量，Mys1="ABCDEFGHIJKL"，Mys2="g"，则下面关系表达式中结果为 True的是_______b_________。

　A、Len(Mys1)<>2*Instr(Mys1,”F”) B、Chr(65)+Right(Msy1,5)=”AHIJKL” C、Instr(Left(Mys1,6),”C”)+60>Asc(Ucase(Mys2)) D、Mid(Mys1,7,1)>Mys2 9. 与数学表达式 (ab/3cd) 对应，VB的不正确表达式是____a________。

　A、a*b/3*c*d B、a*b/3/c/d C、a*b/(3*c*d) D、a/3*b/c/d 10. 下面______b______是合法的单精度型变量。

　A、sum% B、num! C、xinte$ D、mm 11. 在Form_Click事件中执行下列语句后错误的结果是___d_____。

　A、Print Format(12345.6, "+##,##0.0%")的输出结果是+1,234,560.0% B、Print Format(12345.6, "$###,##0.00")的输出结果是$12,345.60

　C、Print Format(12345.6,"000,000.00")的输出结果是012，345.60

　 D、Print Format(12345.6, "0.00E+00")的输出结果是0.12E+05

　12. 在窗体上添加一个命令按钮，名为Command1，一文本框，名为Text1,则执行如下事件过程后，文本框中的输出为__b___。

　Private Sub Command1_Click( )

　For i = 1 To 4

　 x = 3

　 For j = 1 To 3

　For k = 1 To 3

　 x = x+3

　Next k

　 Next j

　Next i

　Text1.Text=Str(x) End Sub A、18 B、30 C、12 D、6 13. 计算机算法可以分为两大类：一类是__d___算法，另一类是_____算法。

　A、计算机辅助设计、财务 B、排序、查找 C、步骤管理、通信 D、数值计算、非数值计算 14. 下列程序段的输出结果是_____d_______。

　Dim i As Integer Dim a(8) As Integer y = 18: i = 0 Do

　a(i) = y Mod 2

　i = i + 1

　y = y \ 2 Loop Until y< 1 For j = i - 1 To 0 Step -1

　Print a(j) Next j A、0 0 1 1 0 B、1 0 0 0 C、1 0 1 0 0 D、1 0 0 1 0 15. 下面关于动态数组的叙述中，不正确的是_____b_____。

　A、用ReDim语句重新定义动态数组时，不能改变数组的数据类型，除非是Variant变量所包含的数组 B、用ReDim Preserve重新定义的动态数组，当前存储在数组中的值全部丢失，重新定义的数组

　被赋予该类型变量的初始值 C、用数组说明语句定义一个不指明大小的数组，VB就将它视为一个动态数组 D、在重新定义动态数组时，变量不可以出现在维界表达式中 16.以下有关数组的说明中，错误的是___d_____。

　A、在过程中，不能用Private语句定义数组。

　B、数组重新定维后，原有的数组元素内容将不予保留。

　C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。

　D、根据数组说明的方式，可将数组分为动态数组和静态数组。

　17.

　在窗体上画一个命令按钮，然后编写如下事件过程：

　Option Base 1 Private Sub Command1_Click( ) Dim a As Variant a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)*j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是____a_________。

　A、1234 B、34 C、12 D、4321 18. 下列有关数组的说法中，不正确的是___c_____。

　A、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组 B、形参数组的类型可以是定长符串类型 C、可以使用Erase语句释放所有数组所占据的存储储空间 D、在窗体模块中不可以定义全局数据组 19. 在同一个工程中，在窗体Form1通用段声明Public a As Boolean，则在窗体Form2的事件过程中__a___访问该变量。

　A、Print Form1.a B、Print Form.a C、不可以 D、Print a 20. 以下有关变量作用域的说明中，错误的是__a_____。

　A、只有在标准模块中用Public语句说明的变量才是全局变量。

　B、在标准模块的通用声明处可用Private语句说明模块级变量。

　C、在窗体的通用声明处可用Private语句说明窗体级变量。

　D、在过程中不能使用Public语句说明全局变量。

　21. 在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有___b_____个。

　①Public A(5) As Integer ②Public N As Integer

　 ③Public St As String ④Private b() As Integer A、4 B、3 C、2 D、1 22. 单击一次命令按钮后，下列程序代码的执行结果为___a____ Private Sub proc(a() As Integer)

　Static i As Integer

　 Do a(i) = a(i) + a(i + 1)

　 i= i + 1

　Loop While i < 2

　End Sub Private Sub Command1_Click()

　Dim m As Integer, i As Integer, x(10) As Integer

　 For i = 0 To 4

　 x(i) = i + 1

　Next i

　For i = 1 To 2

　 Call proc(x)

　Next i

　 For i = 0 To 4

　Print x(i)

　Next i End Sub A、3 5 7 4 5

　B、3 4 7 5 6

　C、1 2 3 4 5

　D、1 2 3 5 7

　23. 已知整型数组a(12)，若要在过程调用后返回其元素最大值的下标，下面的过程定义语句合法的是___a____。

　A、Private Function mx(a() As Integer) As Integer B、Private Function mx(ByVal a(12) As Integer) As Integer C、Private Function mx(a(12) As Integer) As Integer D、Private Function mx(ByVal a() As Integer) As Integer 24.若整型实参x、y的值分别为48、28，则引用以下function过程的返回值是____d____。

　Private Function f(ByVal m%, ByVal n%) As Integer Do r = m Mod n m = n n = r Loop While r <> 0 f = m End Function

　 A、都不是 B、2 C、1 D、4 25. 名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是____b____。

　A、Private Sub sort(A( , )As Integer) B、Private Sub sort(A( )As Integer) C、Private Sub sort(A(10)As Integer) D、Private Sub sort(By Val A( ) As Integer) 26. 通用过程可以完成一项指定任务，必须由_____d_____调用才行。

　A、定时器

　B、Sub Main C、系统引发 D、应用程序 27. 如下程序，运行的结果是____c________。

　A、驱动器列表框、图片框、文件列表框 B、驱动器列表框、目录列表框、组合框 C、文本框、目录列表框、文件列表框 D、驱动器列表框、目录列表框、文件列表框

　29. 当文本框中的内容改变时，将会发生__ Change ___事件。

　30. 能正确产生[1,30]之间的随机整数的表达式是__ Int(Rnd()*30)+1 ___。

　31. 语句Print 12;Tab;24的执行结果是__ 12

　24 ___.

　32. 若一个数的各个因子之和正好等于该数本身，则该数称为完数。如6的因子为1、2、3，其和为6，则6为完数，完成程序。

　Private sub form_click() dim a ,b ,c , i as integer

　 for

　a=2 to 100 __ c=1 ___ for b=2 to a-1 if

　__ a mod b=0 ___then c=b+c end if next b if

　c =a

　then print a end if next a End sub 33. 下列程序的功能是输出如下数列的前20项，按每行5个数的形式输出。

　1，1，2，3，5，8，13,...... Dim a As Integer,b As Integer Dim i As Integer a=1:b=1:i=3 Print a,b, Do While(i<=20) c=a+b t=b b=a+b ___ a=t __ Print c, If_ i Mod 5=0 ____Then Print End If __ i=i+1 ___ Loop 34. 以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值. __ dim x() ___ as integer private sub command1_click() redim _ x(1 to 20) ____ for i=1 to 20 x(i)=1 print x(i) next i end sub 35. 执行下面的程序，单击按钮 Command1 ，窗体上显示的结果中 I 的值是__10___， J 的值是__1___， K 的值是__38___。

　Option Explicit

　Private Sub Command1_Click() Dim i As Integer, j As Integer Dim k As Integer

　 i =2: j = 1 k = fun(i, fun(i, j)) + i + j Print "i="; i; "j="; j; "k="; k End Sub Function fun(a As Integer, ByVal b As Integer) As Integer a = a + b b = a + b fun = a + b End Function 36. 执行下面的程序，在窗体上显示的输出结果的第二行是__ 4 9 13 __，第三行是__19.5___。

　Option Explicit Dim a As Integer, b As Integer Private Sub Command1_Click( ) Dim c As Integer a = 1: b = 3: c = 5 Print fun(c) print a;b;c Print fun(c) End Sub Private Function fun(x As Integer)As Single fun = a + b + x/2 a = a + b b = a + x x = b + a End Function 一．[ [ 题目] ] 编写程序统计字符串中各个字符出现的个数（不分大小写）。

　【编程要求】

　1、单击"运行"按钮，从文本框中读取字符串，将统计结果显示在列表框list1中；单击"清除"按钮，则清除列表框和文本框的内容；单击"结束"按钮，程序停止运行。

　2、界面应与给出的参考界面相似，不得增加或减少控件； 3、运行程序，并输入gfjdakfhakk进行检验。

　【参考代码】

　 x = UCase(Text1)

　 For i = 1 To Len(x)

　 n = Asc(Mid(x, i, 1)) - 64

　 a(n) = a(n) + 1

　 Next i

　 For i = 1 To 26

　 If a(i) <> 0 Then

　 List1.AddItem Chr(i + 64) & ":" & a(i)

　 End If

　 Next i 二.

　题目] ] 编写程序，求n！，并显示前7项结果。

　[ [ 编程要求] ]

　1、按"执行"按钮，则开始运行程序，按图示格式将前7项阶乘显示在列表框list1中。

　1、按"清除"按钮，则将列表框list1中的内容清空。按"结束"按钮，结束程序的执行。

　2、程序中有一个函数过程，该过程的功能是使用递归函数求任意一个数的阶乘。

　【参考代码】

　If n = 0 Or n = 1 Then

　fact = 1

　Else

　fact = n * fact(n - 1)

　End If

　试卷三 1.VisualBasic是一种面向___d__的程序设计语言。

　A、过程 B、用户 C、工程 D、对象

　2. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是____b________。

　A、立即窗口

　B、代码窗口

　C、窗体布局窗口

　D、监视窗口

　3.只有当一个对象的__b___和_____属性为True时，它才能获得焦点。

　A、Enabled; Caption B、Enabled; Visible C、Visible; Name D、Visible; Caption 4.

　窗体Form1的名称属性是frm，它的Load事件过程名是__d___。

　A、frm_Load B、Me_CmdOK C、Form-Load D、Form_Load 5. 使用__b___方法，可取得列表框中的项数。

　A、RemoveItem B、ListCount C、AddItem D、Clear 6. Picture控件AutoSize属性设置为__d___，在运行时当往图片框加载或复制图片时，VB会自动扩展该控件到恰好显示整个图片为止。

　A、False

　B、3

　C、无

　D、True

　7. 下列不正确的变量名是___a_____。

　 A、Arry@ B、Text C、Command D、Form 8. 在程序中分别将变量Inta、Bl、St、D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是___a_____。

　A、Bl=#True# B、Inta=4.6 C、D=#10/05/01# D、St=5 & 123.5 9. 如果将布尔常量False赋值给一个整形变量，则整型变量的值为_____a_______。

　A、0 B、-1 C、False D、True 10. 表达式16/4-2^5*8/4 MOD 5/2的值为______d______。

　A、2 B、14 C、20 D、4 11. 以下_b____程序段可以实施X，Y变量值的变换. A、Y=X:X=Y

　B、Z=X:X=Y:Y=Z

　C、Z=X:Y=Z:X=Y

　D、Z=X:W=Y:Y=Z:X=Y

　12. 下列程序的输出结果是_____b_______。

　Dim i As Integer, k As Integer

　Dim a(10) As Integer, p(3) As Integer

　k = 5 For i = 0 To 9

　 a(i) = i

　Next i

　For i = 0 To 2

　 p(i) = a(i * (i + 1))

　Next i

　For i = 0 To 2

　 k = k + p(i) * 2

　Next I

　Print k A、23 B、21 C、22 D、17

　 13. 在Cmdl_C1ick事件中有效的地址传递的调用语句是____b____。

　Public Sub Fl(n%)

　n =3*n+4 End Sub Private Sub Cmdl_Click() Dim n%, m%

　n=3 :m=4 …"调用F1语句 End Sub A、F1 m+5 B、F1 m C、F1 n+m D、F1 5 14. 如下程序，运行的结果是_____a_______。

　Public Function pi!(x!, n%) If n = 0 Then pi = 1 ElseIf n Mod 2 = 1 Then pi = x * pi(x, n \ 2) Else pi = pi(x, n \ 2) \ x End If End Function Private Sub Command1_Click() Print pi(3, 7) End Sub

　A、27

　B、14 C、18 D、7 15. KILL语句在VB语言中的功能是____a________。

　A、删除磁盘上的文件 B、清屏幕 C、清病毒 D、清内存 16. 改变目录列表框（DirListBox）控制的Path属性的途径可以有___c_____。

　①单击目录列表框某一项。

　②程序代码中改变目录列表框的Path属性值。

　③双击目录列表框某一项。

　④在程序中用ChDir命令设置当前工作目录。

　A、①②③④ B、②③④ C、①② D、②③ 17. Visual Basic有三种运行模式，分别是___ 设计模式 __、运行模式和中断模式，其中___

　中断模式 __模式可以监视表达式和变量的值。

　18. 能正确产生[1,30]之间的随机整数的表达式是__ Int(Rnd()*30)+1 ___。

　19. A的绝对值大于等于B同时不等于C的表达式是__ abs(a)>=b and abs(a)<>c ___. 20. 本程序用于验证一个自然数N的立方等于N个连续奇数之和，其中最大的奇数P=N*（N+1）-1 例如，43=19+17+13，最大奇数为19。

　当程序执行后，分别给对话框输入4和6时，问计算结果分别为__ 4 13 ___和_ 6 31 ____。

　Private Sub Command1_Click( ) Dim s As String n = InputBox("输入一个自然数") num = n * n * n p = n * (n + 1)-1 x = p k = 1 Do Until x = num p = p-2 x = x + p k = k + 1 Loop Print Print k; p End Sub 21. 输入一串数字字母混合的字符串，将其中数字挑出来，并且在相应的数字之间用"*"分开，如"a12bc34d5"输出的结果为"[12*34*5]"，请将下列程序补充完整。

　Private Sub Command1_Click( ) Dim st As String, i As Integer, flag As Boolean st = InputBox("输入数字字母混合的字符串") i = 1 Print "["; Do While i <= Len(st) If Mid(st, i, 1)>"0" And Mid(st, i, 1)<"9" Then Print Mid(st, i, 1); flag = True ElseIf flag = True Then ___ Print "*"; __ flag = False End If i = i + 1 Loop ___ Print "]" __ 22. 执行下面程序后，A(1，3)的值是___6__，A(2，2)的值是__8___，A(3，1)的值是__14___。

　Option Explicit Option Base 0

　 Private Sub Form_Click( ) Dim A(3,3)As Integer,I As Integer Dim k As Integer,m As Integer m=16 For k=6 To 0 Step -1 If k>=2 Then For I=0 To 5-k A(k-2+I,I)=m m=m-1 Next I Else For I=0 To k A(k-I,3-I)=m m=m-1 Next I End If Next k For k=0 To 3 For I=0 To 3 Print A(k,I); Next I Print Next k End Sub 23. 运行下面程序，单击窗体后在窗体上显示的第一行结果是__3___；第二行结果是___2__。

　Private Function Digit(n As Integer, k As Integer) As Integer Digit = 0 Do While k > 0 Digit = n Mod 10 n = n \ 10 k = k - 1 Loop End Function Private Sub Form_Click() Print Digit(1234, 2) Print Digit(1234, 3) 24. 执行下面的程序，在窗体上显示的输出结果的第二行是__ 4 9 13 ___，第三行是_ 19.5 ____。

　Option Explicit Dim a As Integer, b As Integer Private Sub Command1_Click( ) Dim c As Integer a = 1: b = 3: c = 5 Print fun(c) print a;b;c

　 Print fun(c) End Sub Private Function fun(x As Integer)As Single fun = a + b + x/2 a = a + b b = a + x x = b + a End Function 25.

　[ [ 题目] ] 求100以内的所有的完数。所谓完数是指所有因子(含1，不含本身)之和等于它本身的数。例如：6=1+2+3 【编程要求】

　1、单击"计算"按钮，则将计算结果显示在列表框List1中；单击"清除"按钮，则清除列表框中的内容；单击"结束"按钮，程序停止运行。

　2、界面应与给出的参考界面相似，不得增加或减少控件。

　【参考代码】

　 sum = 0

　 For x = 2 To 100

　 For i = 1 To x - 1

　 If x Mod i = 0 Then sum = sum + i

　 Next i

　 If sum = x Then List1.AddItem CStr(x)

　 sum = 0

　 Next x

　===============

　【考生代码】

　 Dim j As Integer

　 For i = 1 To 100

　 x = 0

　 For j = 1 To i - 1

　If i Mod j = 0 Then

　x = x + j

　End If

　 If x = i Then

　 List1.AddItem (i)

　 End If

　 Next 26.

　[ [ 题目] ] 随机生成一个由两位随机整数构成的5行5列的矩阵，求该矩阵中所有不靠边元素之和。

　[ [ 编程要求] ]

　程序中有一个过程sum()，该过程的功能是求一个数组的不靠边元素之和。

　完成此函数的功能

　【参考代码】

　 Dim i As Integer, j As Integer

　 For i = LBound(b) + 1 To UBound(b) - 1

　 For j = LBound(b) + 1 To UBound(b) - 1

　 sum = sum + b(i, j)

　 Next j

　 Next i

　===============

　【考生代码】

　Dim i As Integer, j As Integer For i = LBound(b, 1) To UBound(b, 1)

　 For j = LBound(b, 2) To UBound(b, 2)

　 If i = LBound(b, 1) Or i = UBound(b, 2) Or j = LBound(b, 2) Or j = UBound(b, 2) Then

　 sum = sum + b(i, j)

　 End If

　 Next Next

推荐访问:试卷程序 VB

[VB程序试卷]相关文章

[VB程序试卷]推荐范本

[VB程序试卷]头条范本