2022年VB程序练习资料.docx
2022年VB程序练习资料 如下二维数组声明语句，_B_正确。 A、Dim a(n，n) As Integer B、Dim a(3，4) As Integer C、Dim a(34) As Integer D、Dim a3，4 As Integer 下列语句可以用来正确地声明一个动态数组的是_B_。 A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(1 to n) D、Dim A(,) As Integer 如下二维数组声明语句，_C_正确。 A、Dim a(34) As Integer B、Dim a(n，n) As Integer C、Dim a(3，4) As Integer D、Dim a3，4 As Integer 下列语句中的语句可以用来正确地声明一个动态数组。A A、Dim A() As Integer B、Private A(n) As Integer C、Dim A(,) As Integer D、Dim A(1 to n) 下面关于动态数组的叙述中，不正确的是_B_。 A、用ReDim语句重新定义动态数组时，不能变更数组的数据类型，除非是Variant变量所包含的数组 B、用ReDim Preserve重新定义的动态数组，当前存储在数组中的值全部丢失，重新定义的数组被给予该类型变量的初始值 C、用数组说明语句定义一个不指明大小的数组，VB就将它视为一个动态数组 D、在重新定义动态数组时，变量不行以出现在维界表达式中 若希望在离开某过程后，还能保存该过程中局部变量的值，则应运用_D_关键字在该过程中定义局部变量。 A、Dim B、Private C、Public D、Static 在调用Sub或Function过程时，采纳_A_传送相应过程的变量名、数组名、常数或表达式。 A、实际参数 B、形式参数 C、对象参数 D、数组参数 给出下列程序代码，在单击吩咐按钮时的输出结果是_B_。 Private Sub Command1_Click ( ) Dim x As Integer, y As Integer x=1:y=1 For n=1 TO 3 z=FirstFunc (x, y) Print n, z , Next n End Sub Private Function FirstFunc (x As Integer, y As Integer) As Integer Dim n As Integer Do While n <= 4 x=x+y n=n+1 Loop FirstFunc=x End Function A、1 2 3 4 5 6 B、1 6 2 11 3 16 C、2 1 3 1 3 3 D、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 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 下列程序 Private Sub Command1_Click( ) a=InputBox(请输入) b=InputBox(请输入) Print a+b End Sub 运行时输入3和4输出的结果是 _D_ 。 A、7 B、3+4 C、出错 D、34 在窗体Form1上，有一个列表框控件List1，在窗体的Click事务中有如下代码: Private Sub Form_Click() Dim k As Integer Dim entry As String, item As String entry = EDCBA For k = Len(entry) To 1 Step -1 item = LCase(Mid(entry, k, 1) k List1.AddItem item Next k End Sub 运行此程序，单击窗体,列表框第4行为_A_。 A、d2 B、b2 C、b4 D、d3 执行以下语句后，a的值为_A_。 Dim a As Integer a=1 Do Until a=101 a=a+2 Loop A、溢出 B、101 C、101 D、101 计算机算法可以分为两大类：一类是_D_算法，另一类是_算法。 A、计算机协助设计、财务 B、排序、查找 C、步骤管理、通信 D、数值计算、非数值计算 下列程序段的执行结果为_C_。 x = Int(69 - 60) * Rnd + 60) Select Case x Case Is >= 90 Print 优秀 Case 80 To 89 Print 良好 Case 60 To 79 Print 合格 Case Else Print 不合格 End Select A、优秀 B、良好 C、合格 D、不合格 表达式Len(123程序设计ABC)的值是_A_。 A、10 B、20 C、17 D、14 下列说法正确的是_A_。 A、a$=Visual,b$=Basic,则a$ b$ 和a$ + b$结果都是VisualBasic B、(7-3<=4) Xor (1>-1) Or (7=5)的结果是True C、设i=1,x=2,y=2,则x<2 Or Not y>0 And (x-y)/i<>0的结果是True D、(Not True Or True) And (True Or False) 的结果是False 表达式16/4-25*8/4 MOD 5/2的值为_D_。 A、2 B、14 C、20 D、4 数学关系3<=x<10表示成正确的VB表达式为_C_。 A、x>=3 OR x<10 B、3<=x AND <10 C、3<=x AND x<10 D、3<=x<0 下列没有类型说明符的变量是_B_。 A、货币型 B、日期型 C、字符串型 D、长整型 要使文本框能显示多行文字，则需设定它的_C_属性为True。 A、PasswordChar B、Seleted C、MultiLine D、Caption 确定控件上文字的字体、字型、大小、效果的属性是_B_。 A、Name B、Font C、Text D、Caption 以下不属于标签属性的是_B_。 A、Index B、Value C、Caption D、Font 在设计列表框时，若实现输入多行文字的目的，应运用_C_键实现文本的换行。 A、Alt+Enter B、Enter C、Ctrl+Enter D、Ctrl+Shift+Enter 要使一个标签透亮且具有边框，则应_B_。 A、将其BackStyle属性设置为1，BorderStyle属性设置为1 B、将其BackStyle属性设置为0，BorderStyle属性设置为1 C、将其BackStyle属性设置为0，BorderStyle属性设置为0 D、将其 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、UNIX B、Windows C、DOS D、DOS 和 Windows 题目 计算公式1 217351311-+ + + + + =nS L的和,当第 n 项的值<10 -5 时结束。 【参考代码】 sum = 0 n = 1 x = 1 Do While x >= 0.0001 sum = sum + x n = n + 1 x = 1 / (2 * n - 1) Loop Text1.Text = sum = 【考生代码】 sum = 0 n = 1 x = 1 Do While x >= 0.0001 sum = sum + x n = n + 1 x = 1 / (2 * n - 1) Loop Text1.Text = sum 题目 编写程序，求出给定正整数的全部质因子，并将质因子全部输出。如：342有质因子2，3，3，19。 【编程要求】 【参考代码】 Do If x Mod i = 0 Then n = n + 1 ReDim Preserve a(n) a(n) = i x = x i i = 2 Else i = i + 1 End If Loop Until x = 1 = 【考生代码】 Do If x Mod i = 0 Then n = n + 1 ReDim Preserve a(n) a(n) = i x = x i i = 2 Else i = i + 1 End If Loop Until x = 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 = 【考生代码】 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 第10页 共10页第 10 页 共 10 页第 10 页 共 10 页第 10 页 共 10 页第 10 页 共 10 页第 10 页 共 10 页第 10 页 共 10 页第 10 页 共 10 页第 10 页 共 10 页第 10 页 共 10 页第 10 页 共 10 页
