VB程序练习资料

如下二维数组声明语句，________B____正确。

A、Dim a(n，n) As IntegerB、Dim a(3，4) As IntegerC、Dim a(34) As IntegerD、Dim a[3，4] As Integer下列语句可以用来正确地声明一个动态数组的是___B__。

A、Private A(n) As IntegerB、Dim A() As IntegerC、Dim A(1 to n)D、Dim A(,) As Integer如下二维数组声明语句，______C__正确。

A、Dim a(34) As IntegerB、Dim a(n，n) As IntegerC、Dim a(3，4) As IntegerD、Dim a[3，4] As Integer下列语句中的语句可以用来正确地声明一个动态数组。

AA、Dim A() As IntegerB、Private A(n) As IntegerC、Dim A(,) As IntegerD、Dim A(1 to n)下面关于动态数组的叙述中，不正确的是__B________。

A、用ReDim语句重新定义动态数组时，不能改变数组的数据类型，除非是Variant变量所包含的数组B、用ReDim Preserve重新定义的动态数组，当前存储在数组中的值全部丢失，重新定义的数组被赋予该类型变量的初始值C、用数组说明语句定义一个不指明大小的数组，VB就将它视为一个动态数组D、在重新定义动态数组时，变量不可以出现在维界表达式中若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用__D______关键字在该过程中定义局部变量。

A、DimB、PrivateC、PublicD、Static在调用Sub或Function过程时，采用___A___传送相应过程的变量名、数组名、常数或表达式。

A、实际参数B、形式参数C、对象参数D、数组参数给出下列程序代码，在单击命令按钮时的输出结果是___B_____。

Private Sub Command1_Click ( )Dim x As Integer, y As Integerx=1:y=1For n=1 TO 3z=FirstFunc (x, y)Print n, z ,Next nEnd SubPrivate Function FirstFunc (x As Integer, y As Integer) As IntegerDim n As IntegerDo While n <= 4x=x+yn=n+1LoopFirstFunc=xEnd FunctionA、1 2 3 4 5 6B、1 6 2 11 3 16C、2 1 3 1 3 3D、2 6 1 3 11 16要想在过程调用后返回两个结果，下面的过程定义语句合法的是___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)窗体上画一个按钮，然后编写如下的事件代码。

在按钮上单击，输出为_____B_____。

Private Sub fun( )Static a As Integera=a+2Print a;End SubPrivate Sub Command1_Click( )Dim m As IntegerFor m=1 To 3Call funNext mEnd SubA、0 0 0B、2 4 6C、2 2 2D、2 4 8下列程序Private Sub Command1_Click( )a=InputBox("请输入")b=InputBox("请输入")Print a+bEnd Sub运行时输入3和4输出的结果是 __D___ 。

A、7B、3+4C、出错D、34在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码: Private Sub Form_Click()Dim k As IntegerDim entry As String, item As Stringentry = "EDCBA"For k = Len(entry) To 1 Step -1item = LCase(Mid(entry, k, 1)) & kList1.AddItem itemNext kEnd Sub运行此程序，单击窗体,列表框第4行为__A___。

A、d2B、b2C、b4D、d3执行以下语句后，a的值为__A___。

Dim a As Integera=1Do Until a=100a=a+2LoopA、溢出B、100C、99D、101计算机算法可以分为两大类：一类是___D__算法，另一类是_____算法。

A、计算机辅助设计、财务B、排序、查找C、步骤管理、通信D、数值计算、非数值计算下列程序段的执行结果为_C____。

x = Int((69 - 60) * Rnd + 60)Select Case xCase Is >= 90Print "优秀"Case 80 To 89Print "良好"Case 60 To 79Print "合格"Case ElsePrint "不合格"End SelectA、优秀B、良好C、合格D、不合格表达式Len("123程序设计ABC")的值是____A________。

A、10B、20C、17D、14下列说法正确的是__A______。

A、a$="Visual",b$="Basic",则a$ & b$ 和a$ + b$结果都是"VisualBasic"B、(7-3<=4) Xor (1>-1) Or (7=5)的结果是TrueC、设i=1,x=2,y=2,则x<2 Or Not y>0 And (x-y)/i<>0的结果是TrueD、(Not True Or True) And (True Or False) 的结果是False表达式16/4-2^5*8/4 MOD 5/2的值为_______D_____。

A、2B、14C、20D、4数学关系3<=x<10表示成正确的VB表达式为_____C_______。

A、x>=3 OR x<10B、3<=x AND <10C、3<=x AND x<10D、3<=x<0下列没有类型说明符的变量是_____B____。

A、货币型B、日期型C、字符串型D、长整型要使文本框能显示多行文字，则需设定它的_C____属性为True。

A、PasswordCharB、SeletedC、MultiLineD、Caption决定控件上文字的字体、字型、大小、效果的属性是_B____。

A、NameB、FontC、TextD、Caption以下不属于标签属性的是___B__。

A、IndexC 、CaptionD 、Font在设计列表框时，若实现输入多行文字的目的，应使用__C___键实现文本的换行。

A 、Alt+EnterB 、EnterC 、Ctrl+EnterD 、Ctrl+Shift+Enter要使一个标签透明且具有边框，则应___B__。

A 、将其BackStyle 属性设置为1，BorderStyle 属性设置为1B 、将其BackStyle 属性设置为0，BorderStyle 属性设置为1C 、将其BackStyle 属性设置为0，BorderStyle 属性设置为0D 、将其BackStyle 属性设置为1，BorderStyle 属性设置为0一只白色的足球踢进球门，则白色、足球、踢、进球门是___D_____。

A 、对象、属性、方法、事件B 、属性、对象、方法、事件C 、对象、属性、事件、方法D 、属性、对象、事件、方法以下关于事件的说法，正确的是_B____。

A 、用户可以根据需要建立新的事件B 、事件是由系统预先定义好的，能够被对象识别的动作C 、不同类型的对象所能识别的事件一定不相同D 、事件的名称是可以改变的，由用户预先定义VisualBasic 集成的主窗口中包括__D___。

A 、标题栏B 、工具栏C 、菜单栏D 、以上三者均有能被对象所识别的动作与可执行的活动分别称为对象的__C___。

A 、方法、事件B 、过程、方法C 、事件、方法D 、事件、属性VisualBasic 是用于开发__B___环境下的应用程序的工具。

A 、UNIXB 、WindowsC 、DOSD 、DOS 和Windows[题目] 计算公式1217151311-+++++=n S Λ的和,当第n 项的值<10-5时结束。

【参考代码】sum = 0x = 1Do While x >= 0.0001sum = sum + xn = n + 1x = 1 / (2 * n - 1)LoopText1.Text = sum===============【考生代码】sum = 0n = 1x = 1Do While x >= 0.0001sum = sum + xn = n + 1x = 1 / (2 * n - 1)LoopText1.Text = sum[题目]编写程序，求出给定正整数的所有质因子，并将质因子全部输出。

如：342有质因子2，3，3，19。

【编程要求】【参考代码】DoIf x Mod i = 0 Thenn = n + 1ReDim Preserve a(n)a(n) = ix = x \ ii = 2Elsei = i + 1End IfLoop Until x = 1===============【考生代码】DoIf x Mod i = 0 Thenn = n + 1ReDim Preserve a(n)a(n) = ix = x \ ii = 2Elsei = i + 1End IfLoop Until x = 1[题目]顺序查找：给定一个数，在一个两位随机数数组中查找与此数相同的元素（该数组大小为10个元素）。

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

[编程要求]【参考代码】Dim i As IntegerL = UBound(b)For i = 1 To LIf b(i) = n Thensearch = iExit FunctionEnd IfNext isearch = -1===============【考生代码】Dim i As IntegerL = UBound(b)For i = 1 To LIf b(i) = n Thensearch = iExit FunctionEnd IfNext isearch = -1。