VB习题整合版(1).docx

尽力帮大家了。如有错误，尽请谅解。函数InStr（“vb程序设计教程”，“程序”）的值是多少 3BA CCDABDBADDCBBBCC表示滚动条控件取值范围最大值的属性是(A)。A、MaxB、LargeChangeC、ValueD、Max-Min菜单控件只有一个事件（B）A、MouseUpB、ClickC、DBClickD、KeyPressCADA2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（D）属性为False。A、Txet B、Enabled C、Visible D、Multline19、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C)。A、MouseDownB、MouseUp C、LoadD、Click54、要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句(B)。 A、Option Base 0B、Option ExplicitC、Option Base 1D、Option Compare100、InputBox函数返回值的类型为(B)。 A、数值B、字符串C、变体D、数值或字符串（视输入的数据而定102、数组声明语句Dim a(2 to 3, -2 to 2,3 to 5)中，数组a包含元素的个数为(C)。 A、120B、75C、30D、13132、假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用(D)语句。 A、List1.AddItem 3, China B、List1.AddItem China, List1.List1Count-1C、List1.AddItem China, 3D、List1.AddItem China9.下列数据类型中，占用内存最大值是（D）A、Boolwan B、Byte C、Lnteger D、Single8、Visual Basic 6.0集成环境的主窗口中不包括（C）。A、标题栏B、菜单栏C、状态栏D、工具栏11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、EnabledB、VisibleC、BackColorD、Caption55、下列可作为Visual Basic变量名的是(D)。 A、A#AB、4AC、?xyD、constA/Filename110、数组声明语句Dim a(0 to 3, -2 to 2,0 to 5)中，数组a包含元素的个数为(A)。 A、120B、75C、60D、13136、下列控件中，没有Caption属性的是(B)。 A、框架B、列表框C、复选框D、单选按钮137、引用列表框（List1）最后一个数据项应使用的表达式是（C） A、List1.List(List1.ListCount)B、List1.List(ListCount) C、List1.List(List1.ListCount-1)D、List1.List(ListCount-1)6组合框有三种风格，由Style属性所决定，其中为简单组合框时，Style属性值应为（B）A、0 B、1 C、2 D、3(响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。 结果存入变量S中-Private Sub Form_Click()Dim s As Integers = 0* Program *For i = 1! To 5!s = s + iNext iPrint s*End*题目：编写程序计算以下累加和的结果“1-2+3-4+5-6+7-20=”，并把结果通过窗体打印出来。-PrivateSubForm_Click()Dimi%,s%i为循环变量，s保存累加和的结果*Program*Fori=1To20Step1s=s+(-1)(i+1)*iNextiPrints*End*wwjtsEndSub题目2：(事件)双击窗体。(响应)求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中 Dim i% For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next i Print sum=; sum*End*题目3：将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？将组合数存入变量OUT中。Private Sub Form_Load() Show Dim out As Integer* Program * Dim a As Integer, b As Integer, c As Integer Print 5a, 1a, 0.5a For a = 1 To 19 For b = 1 To (1000 - 50 * a) 10 c = (1000 - 100 * a - 10 * b) 5 If a + b + c = 100 Then Print a, b, c Next b, a*End*题目5： (事件)单击窗体。 (响应)求sum=1+1+2+3+5+8+13+.+144的和,请将sum结果值输出到窗体上。使用 do.loop语句完成程序 输出sum 应为 376-Private Sub Form_Click() Dim sum As Long* Program *Dim i As IntegerDim s1 As IntegerDim s2 As Integeri = 1s1 = 1: s2 = 1Sum = Sum + s1 + s2Do If s2 = 144 Then Exit Do End If s1 = s1 + s2 s2 = s1 + s2 Sum = Sum + s1 + s2 LoopPrint Sum* End *题目6：程序运行时，单击窗体，弹出如图1所示对话框，在对话框中输入一个整数，系统判断是奇数或者偶数，若为奇数则显示如图3中所示结果，若偶数如图2中显示结果。Private Sub Form_Click()Dim x As Integer *Program* Dim i% x% = Val(InputBox(请输入一个整数) If x / 2 = i Then Print x=; x, x是一个偶数 Else Print x=; x, x是一个奇数 End If * End *题目7：单击窗体，在窗体上打印出1-100范围内是能被7整除的数的和，并在窗体上显示结果。 i = 1 s = 0 For i = 1 To 100 Step 1 If i Mod 7 = 0 Then s = s + i End If Next i Print s=; s*End*题目8：编写程序求101112+111213+151617的结果，并将结果输出到窗体上。将结果存入变量M中Dim x%, y%, z%For x = 10 To 15 Step 1 y = x + 1 z = y + 1m = m + x * y * zNext xPrint m=; m*End*题目9：(事件)双击窗体。响应)求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中-* Program *For i = 1 To 100 If i Mod 2 0 Then sum = sum + i End IfNext iPrint sum=; sum* End *题目10： 求1000以内的水仙花数（水仙花数一个三位数，其各位数的立方和等于该数本身，公式如图1所示）。 要求将水仙花数保存到数组a()中，并打印到窗体上。请用For循环结构实现*Program*Dim i%, x%, y%, z%, k%For i = 100 To 999 x = i 100 y = (i Mod 100) 10 z = i Mod 10 If i = x 3 + y 3 + z 3 Then a(k) = i k = k + 1 End IfNext iFor i = 0 To k - 1 Print a(i)Next i* End *题目11：有一根长度为200米的钢材，要将它截取为两种规格的短料，两种规格的长度分别为a米、b米。每种至少两段。编写函数fun，函数的功能是:求出分割成两种规格后剩余残料r最少的值，并显示。如：a为31、b为41时，则显示15。要求使用For语句来实现*Program* Dim x, y As Integer Static N% N = 200 x = N a y = N b Dim i%, j%, min% min = a For i = 1 To x For j = 1 To y If (N - a * i - b * j) 0 Then min = N - a * i - b * j End If Next j Next i For i = 1 To x For j = 1 To y If (N - a * i - b * j) = min Then Print Print 当2段分别是 ; a & 和 & b & 时, Print 段数分别是 & i & 和 & j & 时 Print 剩余残料的最小值是; min End If Next j Next i* End *题目12：编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/21/41/6.1/2m例如：若m=9，则应输出：1.41448412698413* Program *Dim i%fun = 0For i = 1 To m fun = fun + 1 / (2 * i)Next i* End *题目13： 随机产生100个学生的计算机课程的成绩。统计各分数段的人数，即09、1019、2029、3039、4049、5059、6069、7079、8089、90100，请输出统计结果*Program* Dim a%, i%, x1%, x2%, x3%, x4%, x5%, x6%, x7%, x8%, x9%, x10% For a = 1 To 100 i = Int(Rnd * 101) If i = 0 And i = 10 And i = 20 And i = 30 And i = 40 And i = 50 And i = 60 And i = 70 And i = 80 And i = 90: Print 优秀Case Is = 80: Print 良好Case Is = 70: Print 中等Case Is = 60: Print 及格Case Else Print 不及格End Select* End *题目15： (事件)单击窗体。 (响应)求1-100中为5或7的倍数的和。请将结果输出到窗体上,并存入所给变量SUM中。 使用while.wend语句完成程序* Program * While (i% 10 -3) s = s + 1 / n n = n + 2WendPrint s* End *题目17：用迭代法求某个数的平方根。 已知求平方根的迭代公式如图：算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一 迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x； 再以新值作为初值，即：x1x0,重新按原来的方法求x1,重复这一过和 直到|x1-x0| 0.00001 Fsqrt = x1* End *End FunctionPrivate Sub Form_Load() Show Print Fsqrt(45) * Program *题目18：(事件)双击窗体。 (响应)写程序解决百钱买百鸡问题：公鸡3元1只，母鸡5元1只，小鸡一元3只，怎样用100元买100只鸡。把结果输出到窗体上。将答案数存放在变量N中。For i = 1 To 100 3 For j = 1 To 100 5 If (100 - i * 3 - j * 5) * 3 + j + i = 100 Then n = n + 1 Print i; Print j; Print 100 - i - j End If Next jNext i Print 可以实现的方案数有 & n & 种* End *题目19：(事件)单击窗体。 (响应)求100到500之间奇数的和，将结果输出在窗体上并存入变量SUM中。 使用do.loop until语句完成程序* Program * Dim k As Integer k = 101 Do s = s + k k = k + 2 Loop Until (k 500) Print s* End *题目20：编写求前n项级数和的程序。求和公式参见已给出的参考图122所示。 1）在文本框Text1中输入x值1，文本框Text2中输入n值5，按“计算”按钮(Command1)，则开始计算并在列表框List1中显示S1，S2，Sn；按“清除”按钮(Command2)，则将两个文本框及列表框清空，焦点置于Text1上；按“退出”按钮(Command3)，结束程序运行； 2）程序中应定义一个名为fact的函数过程，用于计算阶乘值。【代码书写要求】 1)列表框、文本框、命令按钮的名称必须使用系统默认的名称，如List1，Text1，Command1等，否则扣分。 2）窗体设计界面参见已给出的参考界面。*Program*Private Sub Command1_Click() Const pi = 3.14159265 Dim k As Integer, x As Single, n As Integer Dim t As Single, s As Single t 存放通项值，s 存放累加和 x = Val(Text1.Text) n = Val(Text2.Text) For k = 1 To n t = (-1) k * (pi / 2) (2 * k) * x (4 * k + 1) / (fact(2 * k) * (4 * k + 1) s = s + t List1.AddItem S( & k & )= & s Next kEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = List1.Clear Text1.SetFocusEnd SubPrivate Sub Command3_Click() EndEnd SubPublic Function fact(n As Integer) As Long If n = 1 Then fact = 1 Else fact = n * fact(n - 1) End If *End*题目21：有一个三位数，减去七能被七除尽，减去八能被八除尽，减去九能被九除尽，当单击窗体时计算并将结果保存到变量r中，同时在窗体中输出这个数是多少。 *Program*For i = 100 To 999 If i Mod 7 = 0 And i Mod 8 = 0 And i Mod 9 = 0 Then r = i Print r End IfNext iDim flag As Boolean Do While (Not flag) r = Int(Rnd * 900 + 100) If r Mod 7 = 0 And r Mod 8 = 0 And r Mod 9 = 0 Then Print r flag = True End If Loop* End *题目22： (事件)单击按钮。(响应)随机产生N个两位正整数（N由输入对话框输入，且N0），求出其中的最大数和最小数，并在标签框Label1上显示最大数与最 小数的差。-注意：请在指定的事件内编写代码。-Dim x, t, s As IntegerDim n As String* Program * Dim i As Long, sum s = InputBox(输入一个正整数：, , 10) For i = 1 To s Randomize n = Int(Rnd * 100) + 1 Print n; If n Mod 2 = 0 Then sum = sum + n Next Label1.Caption = 偶数之和： & sum* End *题目23：(事件)单击窗体。(响应)求200300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中-Private Sub Form_Click()Dim sum As Integersum = 0* Program *For i = 200 To 300 If i Mod 3 = 0 And i Mod 7 = 0 Then sum = sum + i End IfNext iPrint sum=; sum*End*题目24：编写程序实现以下功能：在文本框中输入用户名“小红”，密码框中输入“2011VBKS”，单击“确定”按钮（如图1），如果输入数据正确，则弹出信息框“欢迎参加VB考试!”（如图2），输入数据不正确，则弹出警告框“输入数据有误！请重新输入”如图3。 Private Sub Command1_Click()a=Text1.Textb= Text2.TextIf a = 小红 And b = 2011VBKS Then :Y=MsgBox (欢迎参加VB考试