VB复习提纲

  • 格式:doc
  • 大小:81.00 KB
  • 文档页数:12

VB复习提纲1,掌握常用对象有那些和这些对象对应的主要属性,作用,方法即常用事件(第二章)2,熟练掌握:第三章3,1)顺序结构:①赋值语句②输入语句③输出语句④Format格式输出函数(了解一下)2)选择结构:①单分支结构②双分支结构③多分支结构④If语句的嵌套⑤Select Case语句⑥IIf函数3)循环结构:①For循环语句②Do……Loop③循环嵌套(第四章)4,1)数组的基本操作2)列表框和其主要属性,方法3)组合框和其主要属性(第五章)5,1)单选按钮2)复选框3)框架4)滚动条5)ProgressBar控件6)图形框7)图像框8)定时器(第七章)6,掌握文件类型:顺序文件,随机文件(第八章)一、一些常见问题代码的编写1、求随机10个整数的最大值、最小值、平均值以及和Private Sub Form_click()Dim i As Integer, s As Integer, aver As Single, max As Integer, min As Integer Dim a(10) As Integermin = 100: max = 0Print "10个数为:"For i = 1 To 10a(i) = Int(Rnd * 90) + 10If max < a(i) Then max = a(i)If min > a(i) Then min = a(i)s = s + a(i)Print a(i);Next iaver = s / (i - 1)PrintPrint "10个数的最大值为:"; maxPrint "10个数的最小值为:"; minPrint "10个数的和为:"; sPrint "10个数的平均值为:"; averEnd Sub2、求水仙花数Private Sub Form_click()Dim i As Integer, s As Integer, x As Integer, st As String For x = 100 To 999st = CStr(x): s = 0For i = 1 To Len(st)s = s + Val(Mid(st, i, 1)) ^ Len(st)Next iIf s = x Then Print xNext xEnd Sub3、百元买百鸡问题Private Sub Form_click()Dim x As Integer, y As Integer, z As IntegerFor x = 1 To 20For y = 1 To 33z = 100 - x - yIf 5 * x + 3 * y + z / 2 = 100 Then Print x, y, z Next yNext xEnd Sub4、求各位数字之和Private Sub Form_click()Dim x As Integer, i As Integerx = Val(Text1)For i = 1 To Len(CStr(x))s = s + Val(Mid(CStr(x), i, 1))Next iPrint x; "的各位数字之和为:"; sEnd Sub5、求最小公倍数Private Sub Form_click()Dim m As Integer, n As Integer, Lcm As Longm = Val(Text1)n = Val(Text2)Lcm = mDo Until Lcm Mod n = 0Lcm = Lcm + mLoopPrint m; "和"; n; "的最小公倍数为:"; LcmEnd Sub6、求逆序数Private Sub Form_click()Dim x As Integer, p As Integer, k As Integer, nx As Integer x = Val(Text1)p = 10 ^ (Len(CStr(x)) - 1)Do While x <> 0k = x Mod 10nx = nx + k * pp = p \ 10x = x \ 10LoopText2 = nxEnd Sub7、求质因子问题Private Sub Form_click()Dim x As Integer, i As Integer, k As IntegerDim pfac() As Integerx = Val(Text1)Text2 = Str(x) + "="i = 2Do While x <> 1If x Mod i = 0 Thenk = k + 1ReDim Preserve pfac(k)pfac(k) = ix = x \ iElsei = i + 1End IfLoopFor i = 1 To UBound(pfac) - 1Text2 = Text2 + Str(pfac(i)) + "*"Next iText2 = Text2 + Str(pfac(i)) + "*"End Sub8、素数Private Function p(x As Integer) As BooleanDim i As IntegerFor i = 2 To x - 1If x Mod i = 0 Then Exit FunctionNext ip = TrueEnd Function2、求最大公约数过程Private Function Gcd(ByVal m As Integer, ByVal n As Integer) As Integer Dim r As Integerr = m Mod nDo Until r = 0m = nn = rr = m Mod nLoopGcd = mEnd Function3、冒泡排序过程Private Sub sort(a() As Integer)Dim i As Integer, j As Integer, Switch As BooleanFor i = 1 To 9Switch = FalseFor j = 1 To 10 - iIf a(j) > a(j + 1) Thent = a(j): a(j) = a(j + 1): a(j + 1) = tSwitch = TrueEnd IfNext jIf Not Switch Then Exit ForNext iEnd Sub4、顺序查找过程Private Function find(x As Integer, a() As Integer) As IntegerDim i As IntegerFor i = 1 To UBound(a)If a(i) = x Then Exit ForNext ifind = iEnd Function5、判断回文数过程Private Function rever(x As Integer) As BooleanDim i As Integer, s As Strings = CStr(x)For i = 1 To Len(s) / 2If Mid(s, i, 1) <> Mid(s, Len(s) - i + 1, 1) Then Exit FunctionNext irever = TrueEnd Function6、递归函数求阶乘Private Function fact(n As Integer) As LongIf n = 0 Or n = 1 Thenfact = 1Elsefact = n * fact(n - 1)End IfEnd Function7、递归函数求Fibonacci数列Private Function fib(n As Integer) As LongIf n = 1 Or n = 2 Thenfib = 1Elsefib = fib(n - 1) + fib(n - 2)End IfEnd FunctionVB期末考试练习题一、填空题1.VB中若要产生一消息框,可用__(1)__函数来实现。

Msgbox2.常量是指在程序运行过程中,(2) 的量其值不能改变3.整数类型数据分别包括整型和(3) 数据。

长整型4、在VB集成开发环境中,运行应用程序的方法有三种:一是_(4)__;二是_(5)_;__(7)_方法来实现。

Setfocus 6.列表框(ListBox控件)显示(8) ,用户可从中选择一个或多个项目。

项目列表7.框架(Frame进行分组,以便于用户识别,_(10)__。

属性9、在模块文件中的声明部分用Global或__(11)__关键字声明的变量为全局变量。

Public10、在模块文件中的声明部分用__(12)__或__(13)__定义的变量为模块级变量。

Dim Private11.计时器控件通过定期激活Timer事件,使得Timer控件(18)就执行一次Timer事件中的代码。

每隔一个时间段12.要获得滚动条的当前位置,可以访问通过(19)属性来实现。

Value值二、选择题1.工程文件的扩展名是()。

A.vbg B.vbp C.vbw D.vbl 2、用于从字符串左边截取字符的函数是()A、Ltrim( )B、Trim( )C、Left( )D、Instr( )3、可获得当前系统日期的函数是()A、Date( )B、Time( )C、IsDate( )D、Year( )4、退出For循环可使用的语句为()A、Exit ForB、Exit DoC、End ForD、End Do5、窗体的标题栏显示内容由窗体对象的()属性决定。

A、BackColorB、BackStyleC、TextD、Caption6、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是A、工程资源管理器窗口B、工具箱窗口C、代码窗口D、属性窗口7、设a=“Visual Basic”,下面使b=“Visual”的语句是A、b=Left(a,8,12) B、b=Mid(a,8,5) C、b=Rigth(a,6) D、b=Left(a,6)8、若要使命令按钮不可用,则可设置其()属性为False来实现。

A、ValueB、CancelC、EnabledD、Default9、以下叙述中正确的是()A、窗体的Name属性指定窗体的名称,用来标识一个窗体B、窗体的Name属性的值是显示在窗体标题栏中的文本C、可以在运行期间改变对象的Name属性的值D、对象的Name属性值可以为空10、图像框或图片框中显示的图形文件,由它们的()属性值决定。