VB程序设计期末复习资料

1、VB程序设计期末复习题、填空题1. 在VB 6.0中,变量名最长可达 个字符.答案：255解析：规定2. 男性（sex），年龄（age）在18 20岁之间，身高 （size）在1.65米以上，列出逻辑表达式。答案：sex and age>=18 and age<=20 and size>=1.65解析：规定3. 要使一个按钮设为默认按钮，应把此按钮的 属性的值设为True.答案：Default解析：规定4. 一个工程可以包括多种类型的文件，其中,扩展名为.vbp的文件表示 文件.答案：工程解析：规定5. VB 表达式 9A2 MOD 45 2 *3 的值 .答案：4解析：表达

2、式的计算，优先级6. 如果要使用命令按钮表面显示文字”退出（X）"（在字符X之下加下划线）,则其Caption属性设置为.答案：退出（&X）解析：规定7. 拖动滚动条中的滚动块将会产生Scroll和事件.答案：Cha nge解析：规定8. 在利用 Visual Basic设计应用程序时，一般会遇到三类错误：语法错误、执行错误和 。答案：逻辑错误解析：规定9.Optio n Base 1的作用是确定数组的下界为答案：1解析：规定10. 在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示应当将这个文本框的 属性的值设置为 True.答案：Multi

3、Li ne解析：规定11. 表达式817 MOD 2A2 的值是.答案：3解析：规定12. 由For k=35 to 0 step 3:next k循环语句控制的循环次数是 .答案：0解析：规定13. 把条件1<=X<12写成VB关系表达式为.答案：x>=1 and x<12 或 x<12 and x>=1解析：规定15. 如果要在单击按钮时执行一段代码,则应将这段代码写在 事件过程中.答案：click解析：规定16. 写出清除标签Label1的显示信息的语句为答案：Label1.captio n=""或 Label仁"&quo

4、t;或 Label1.Captio n=""解析：规定17. 如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义.答案： public mystri ng as stri ng*15解析：规定18. 将焦点定位于命令按钮Comma nd之上的语句为答案：Comma nd1.SetFocus 或 SetFocus解析：规定19. 滚动条控件有水平滚动条和 滚动条.答案：1) . 垂直解析：规定20. 把整型数1赋给一个逻辑型变量，则逻辑变量的值为.答案：True解析：规定21. 写出清除标签Labell的显示信息的语句为 .答案：Labe

5、ll.captio n=""或 Label仁""或 Labell.Captio n=""解析：规定22. 设置计时器对象触发事件的时间间隔用 属性.答案：in terval解析：规定23. VB中，变量的声明可分为两种方法： 数组和动态数组.答案：静态解析：规定24. 大于X的最小整数的 VB表示形式为答案：In t(x)+1或 In t(x) + 1解析：规定25. 文本框中所显示的内容是它的 属性的值.答案：Text解析：规定26. 设 a=2,b=3,c=4,d=5,贝U NOT a<=c OR 4*c=bA2 AND b

6、<> a+c的值为.答案：False解析：规定27. 设置计时器控件只能触发 事件.答案：timer解析：规定28. 文件按照存取方式及其组成结构可以分为顺序文件和.答案：随机文件解析：规定28. 声明单精度常量g(重力加速度)代表9.8可写成.答案：const g=9.8 或 const g as sin gle =9.8解析：规定29. 在一条 Dim语句中可以声明多个变量，如Dim strVar,intVar,sngVar As Integer,则strVar、intVar 与 sngVar 的数据类型分别是 Variant、Variant 和 .答案：In teger解析：

7、规定30. 如果在模块的声明段中有Option Base 0 语句,则在该模块中使用Dim a(6, 3 To 5) 声明的数组有 个元素.答案：21解析：规定31. 由 For k=35 to 0 step 3:next k 答案：0解析：初值超过终值循环语句控制的循环次数是.32. 表达式1 and 0 的值 答案：False解析：规定33. 一元两次方程 ax2+bx+c=0有实根的条件为 a 0,并且b2- 4ac>0,列出逻辑表达 式 .答案：a<>0 and bA2-4*a*c>=0解析：逻辑表达式的书写34. 变量min表示 类型的变量.答案：货币型解析：

8、数据类型35. 想拥有”快捷键”这项功能，必须在"菜单编辑器"中增加一些特殊的设置，也就是在字母之 前加上答案：&解析：规定、程序填空1. 以下程序段利用随机函数生成15个10-100之间的整数，然后用选择法将其从小到大排序。Private Sub Form_Click()Const n = 15Dim a(1 To n) As In tegerDim i As In teger, j As In teger, t As In teger, min As In tegerRan domizeFor i = 1 To nI*SPACE*a(i) =Next iFor

9、i = 1 To nPri nt a(i);Next iPrintFor i = 1 To n - 1I*SPACE*For j = i + 1 To nIf a(j) < a(t) The n t = jNext jI*SPACE*If Thenmin = a(i): a(i) = a(t): a(t) = min End IfNext iFor i = 1 To nPri nt a(i);Next iEnd Sub答案：1) . I nt( 91 * Rnd ) + 102) . t=i3) . t <> I或 t<i 或 i>t 或 not t=i 或 no

10、t i=t解析：键盘事件、消息框2. 在文本框内输入一串字符后，统计并显示各字母出现的次数不区分大小写字母。Private Sub Comma nd1_Click()Dim a(1 To 26) As Integer, c As String * 1I*SPACE* = Len( Text1)For I = 1 To 11I*SPACE*c =(Mid(Text1, I, 1)If c >= "a" And c <= "z" ThenI*SPACE*j = Asc(c)-a(j) = a(j) + 1End IfNext IPicture1.

11、ClsFor j = 1 To 26If a(j) > 0 The nPicture1.Pri nt" " Chr(j + 96); "=" a(j);End IfNext jEnd Sub答案：1) .11或 11%2) . LCase3) . 97解析：规定3. 本程序用于实现：从键盘接收一数字，判断其是否在数组中，如果在数组中则将其删除， 否则显示该数字不在数组中。（如果该数字在数组中有的话，假定该数字在数组中只有一个）Private Sub Form_Click()Dim a(10) As In teger, x As In tegerFo

12、r i = 1 To 10a(i) = In t(R nd * 90) + 10 Pri nt a(i);Next iPrintx = In putBox("请输入要删除的整数For i = 1 To 10I*SPACE*If a(i) = x The nNext iI*SPACE*If ThenFor k = i To 9I*SPACE*Next kPrint " 删除后的数组："For i = 1 To 9Pri nt a(i);Next iElsePrint "该数字不在数组中End IfEnd Sub答案：如果有两个数相同呢？1) . Exit

13、For2) . i<10或 10>i3) . a(k) = a( k + 1 )解析：规定4. 过程suixian可以判断某一个数字是否是水仙花数，利用该过程找出三位数中所有水仙花数。所谓"水仙花数”是指一个3位数，其各位数字立方和等于该数本身。Private Sub Form_Click()Dim i As In tegerFor i = 100 To 999I*SPACE*Next iEnd SubPublic Sub suixia n(x As In teger)Dim i%, j%, k%I*SPACE*i =j = (x - i * 100) 10k = x -

14、 i * 100 - j * 10I*SPACE*If End SubThe n Print x答案：1). suixia n (i)或 call suixia n (i)或 suixia n2). x 100或 in t(x/100)或 x = i*i*i3). x = i 人 3 + j 人 3 + k 人 3 解析：规定+ k *k*k5. 以下程序段用于计算若干个数字的最大公约数。Option Base 1Private Function gcd(ByVal m%, ByVal n%) As IntegerIf m < n The n t = m: m = n: n = tDor

15、 = m Mod nIf r = 0 The n Exit Dom = nLoopI*SPACE* = nEnd Fun cti onPrivate Sub Comma nd1_Click()Dim a() As In tegern = InputBox(" 输入 n")ReDim a(n)For i = 1 To na(i) = InputBox("输入数据")Next in1 = a(1)For i = 2 To nml = a(i)mn = gcd(m1, n1)If mn = 1 Then Exit For Else n1 = mnNext iI

16、*SPACE*Pri ntEnd Sub答案：1) . gcd2) . mn解析：规定三、程序改错1. 由输入对话框输入 n (设n为大于零且小于30的自然数)，计算sum表达式的值，并在标 签框Label1上显示。sum丄丄十1n (n 1)Opti on ExplicitPrivate Sub Form_Click()Dim n As In teger, sum As Double, k As In tegern = Val(l nputBox(" n=","请输入自然数n(n>0且n<30)")I*FOUND*Do While n &g

17、t; 0 Or n < 30请重输入")n = Val(l nputBox(" n=","Loop sum = 0 k = 0DoI*FOUND*k = sum + ksum = sum + 1 / (k * (k + 1)I*FOUND*Loop Until k > nLabel1.Capti on = "Sum=" + Str(sum)End Sub答案：1) . Do While n <= 0 Or n >= 30或 Do While n <= 0 Or n>= 302) . k = k +

18、1或 k = 1 + k3) . Loop Until k >= n或 Loop Until n <= k解析：2. 在下面的程序段中过程 pd 可以判断任意三个数能否构成三角形的三边，利用该过程的判 定结果，对能构成三角形的计算其面积，构不成的显示 " 不能构成三角形 "Option ExplicitPrivate Sub Form_Click()I*FOUND*Dim x%, y%, z%, s%, b As Boolean, h As Single x = InputBox(" 请输入三角形的边长 ") y = InputBox(&qu

19、ot; 请输入三角形的边长 ") z = InputBox(" 请输入三角形的边长 ") b = pd(x, y, z)h = (x + y + z) / 2I*FOUND*If Not b Then s = Sqr(h * (h - x) * (h - y) * (h - z) Print " 三角形面积是 " sElsePrint " 不能构成三角形End IfEnd SubI*FOUND*Public Function pd() As BooleanIf x > 0 And y > 0 And z > 0 An

20、d x + y > z And x + z > y And y + z > x Then pd = TrueElsepd = FalseEnd IfEnd Function答案：1) . Dim x% , y% , z% , s! , b As Boolean , h As Single 或 Dim x% , y% , z% s as Single , b As Boolean , h As Single2) . If b=not false Then 或 If b=true Then或 If b Then3) . Public Function pd(x%, y%, z%)

21、 As Boolean或 Public Function pd(x, y, z) AsBoolean 或 Public Function pd(x as Integer, y as Integer, z as Integer) As Boolean 解析：规定3. 以下程序段用于输出 100-300 的所有素数Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2 k = Int(Sqr(n)i =

22、 2I*FOUND*swit = 1I*FOUND*While swit = 0If n Mod i = 0 Thenswit = 1ElseI*FOUND*i = i - 1 End If WendIf swit = 0 ThenPrint n;End IfNext nEnd Sub答案：1) . swit=02) . While i <= k And swit = 03) . i= i + 1解析：规定或 While k>=i And swit = 04. 下面程序段将 7 个随机整数从小到大排序Option ExplicitPrivate Sub Form_Click()Di

23、m t%, m%, n%, w%, a(7) As IntegerFor m = 1 To 7a(m) = Int(10 + Rnd() * 90)Print a(m); " "Next mPrintFor m = 1 To 6 t = mI*FOUND*For n = 2 To 7I*FOUND*If a(t) > a(n) Then n = t Next nI*FOUND*If t = m Thenw = a(m) a(m) = a(t) a(t) = wEnd IfNext mFor m = 1 To 7Print a(m)Next mEnd Sub答案：1).

24、 For n = m + 1 To 72) . If a(t) > a(n) Then t = n或 If a(n) <a (t) Then t = n3) . If t <> m Then 或 If not t = m Then 解析：规定5. 编程求一个 m*n 矩阵中最大元素及其所在的行列号。Option ExplicitPrivate Sub Form_Click()Dim A() As Integer, max As IntegerDim M As Integer, N As IntegerDim i As Integer, j As IntegerDim col As Integer, row As IntegerM = InputBox("输入矩阵的行数： ")N = InputBox("输入矩阵的列数： ")ReDim A(1 To M, 1 To N) As IntegerFor i = 1 To MFor j = 1 To NA(M, N) = InputBox("输入数组元素 :")Next jNext i*FOUND*max = A(0, 0)I*For i = 1 To MFor j = 1 To NIf max < A(i, j