湖南省高校计算机等级考试模拟试题Visual Basic部分

湖南省高校计算机等级考试模拟试题

Visual Basic部分

 

一、单项选题

1、 从功能上讲，Visual Basic 6.0有3种版本，下列不属于这3种版本的是(  ) 。

A、学习版       B、标准版       C、专业版       D、企业版

 

 

2、为了同时改变一个活动控件的高度和宽度，正确的操作是（ ）。

A、 拖拉控件4个角上的某个小方块

B、 只能拖拉位于控件右下角的小方块

C、 只能拖拉位于控件左下角的小方块

D、 不能同时改变控件的高度和宽度

 

3、VB把开发一个应用程序视为一项工程，用创建工程的方法来创建一个应用程序，并利用（）窗口来管理工程。

    A、工程资源管理器               B、属性

C、窗体                         D、窗体布局

 

4、下列哪个是“面向对象的程序设计”的缩写。

A、OLE          B、OOP           C、OCX         D、ODBC

 

5、不属于VB三种工作模式的是（ ）：

A、设计模式      B、运行模式        C、调试模式     D、中断模式

 

6、关于VB中程序运行的方式，以下说法正确的是（ ）。

A、 只能使用解释运行模式

B、 只能使用编译运行模式

C、 既不能使用解释运行模式，也不能使用编译运行模式

D、 既能使用解释运行模式，又能使用编译运行模式

 

7、在VB6.0的集成开发环境中调试程序时，用户可直接在（ ）窗口中用Print方式或直接在程序中用Debug.print方法显示表达式的值。

    A、代码                         B、属性

C、窗体                         D、立即

 

8、一个VB工程中工程文件的扩展名是（ ）。

A、.vbp           B、.frm             C、.frx          D、.bas

 

9、下列关于VB6.0的安装，说法错误的是（ ）。

A、 有三种安装方式：典型安装、自定义安装和最小安装

B、 VB6.0可从Visual Studio6.0产品的第一张盘上安装

C、 VB6.0的联机帮助文件会随VB6.0系统而自动安装

D、 系统安装好后，可根据需要添加或删除某些组件

 

10、下列语句有语法错误的是（ ）。

A、a＝5         B、b＝a         C、b=“a”      D、5=a

 

11、执行下面的语句后，所产生的信息框的标题是（ ）。

a=MsgBox(“aaaa”,5 ,”bbbb”)

A、bbbb         B、aaaa         C、空           D、5

 

12、假定Picture1,Form1，text1，label1分别为图片框、窗体、文本框、标签的名称，程序代码如下，单击图片框时，清除下列哪个对象的内容（）。

Private Sub Picture1_Click()

Cls

End Sub

A、Picture1         B、text1            C、Form1        D、Label1

 

13、语句x=inputbox(“please input a number”,”input”,3)的作用为（）。

A、 此句含有语法错误，无法判断

B、 显示一个输入框，其默认值为3

C、 用于信息输出

D、 显示一个对话框，可以同时输入3个值

 

14、下列语句中，（ ）语句可以使窗体移动到（200,40），并将高度设置为3000，宽度为6000。

A、 Command1.Move 200,40,6000,3000

B、 Move 200,40,6000,3000

C、 Move 40,200,6000,3000

D、 Move 200,40,3000,6000

 

15、StrReverse（”abcD”）的值为（）。

A、dCBA     B、dcba         C、Dcba         D、DABC

   

16、关于逻辑型数据，下列说法错误的是（ ）。

A、 逻辑型数据只有两种可能值：True或者False

B、 当把逻辑值转换为数值时False转为0，True转为1

C、 当把其他类型数据转换为逻辑数据时，非0数转换为True，0转换为False

D、 逻辑型数据以2个字节存储

 

17、产生大于等于10且小于20的随机整数的表达式为（）。

    A、Int(Rnd(10)＋10)             B、Int(Rnd*10+10)

    C、Int(Rnd*10+11)               D、Int(Rnd*20-10)

 

18、数学式子sin25^。 写成VB表达式是（ ）。

A、sin25        B、sin(25)      C、sin(25^。)     D、sin(25*3.14/180)

 

19、“＋”用作字符串连接符时，下列说法正确的是（ ）。

A、 连接符两旁的操作符只能为数值型

B、  连接符两旁的操作符只能为字符型

C、  连接符两旁的操作符既可为数值型，也可为字符型

D、 连接符两旁的操作符既不能为数值型，也不能为字符型

 

20、“&”用作字符串连接符时，下列说法正确的是（ ）。

A、连接符两旁的操作符只能为数值型

B、连接符两旁的操作符只能为字符型

C、连接符两旁的操作符既可为数值型，也可为字符型

D、连接符两旁的操作符既不能为数值型，也不能为字符型

 

21、在标准模块的声明部分中，下列语句的作用为（ ）。

Option Explicit

A、 一个可执行语句，无特殊作用

B、 规定此模块中的任何变量都需要先声明再使用

C、 表明此模块为标准模块

D、 无特殊作用，可删除

 

22、对于定义Dim my1,my2,my3 as single，以下说法中正确的为（）。

A、 my1，my2与my3都被定义为单精度型

B、 my1被定义为变体类型，my2,my3被定义为单精度型

C、 my1,my2被定义为变体类型，my3被定义为单精度型

D、 my1，my2，my3都被定义为变体类型

 

23、若要使标签成为透明，可通过设置（ ）属性来实现。

A. BackCOlor        B. BackStyle            C. BorderStyle          D. ForeColor

 

24、运行时，若要获得文本框中所选定的文本，可通访问（ ）属性来实现。

A. SelStart      B. SelLength            C. Text             D. SelText

 

25、户在组合框中所输入的数据，可通过访问组合框对象的（ ）属性来获得。

A. Text          B. List             C. List index           D. ListCount

 

26、要将文本框中的字体设为“粗体”，可设置（）的属性为True。

A. FontBold      B. BackItalic           C. FontName         D. FontSize

27、要将文本框前景颜色设为蓝色，可设置（ ）的属性为vbBlue。

A. ForColor      B. BackColor            C. BackStyle            D. BorderStyle

28、本框的双击事件是（ ）。

A. Value         B. DblClick( )          C. Name             D. Click( )

 

29、若要将命令按钮设置为默认按钮，可设置（ ）属性为True来实现。

A. Cancel            B. Value                C. Enabled          D.Default

 

30、标签的边框由（ ）属性的设置来决定。

A. BackCOlor     B. BackStyle            C. BorderStyle          D. AutoSize

 

31、要使标签的大小自动与所显示的文本相适应，可通过设置（ ）属性的值为True来实现。

A. AutoSize      B. Alignment            C. Apperance            D. Visible

 

32、本框中内容的对齐方式，由（ ）属性值决定。

A. Text          B. Name             C. Caption          D. Alignment

 

33、若要设置文本框最大可接收的字符数，可通设置（ ）属性值来实现。

A. Mulltline     B. Length               C. Min              D. MaxLenght

 

34、要求向文本框输入密码时，只在文本框中显示&号，则应当在此文本框的属性窗口中设置（）。

A. Text属性值为 &　                 B. Caption属性值为 &　

C. password属性值为空　                 D. Passwordchar属性值为 &

 

35、要获得垂直滚动条Vscrollbar控件所能表示的最大值，可通过调用该控件的（）属性来实现。

A. Value         B. Max              C. Min              D.LargeCHange

 

36、要获得滚动条的当前值，可通过访问（ ）属性来实现。

A. Text          B. Value                C. Max              D.Min

 

37、要设置定时器的定时间隔设为10秒，应将（ ）属性值设为10000。

A. Interval      B. Value                C. Enabled          D. Text

 

38、图片框(PictureBox)中显示的图形，由对象的（ ）属性决定。

A. Picture           B. Image                C. Icon             D. LoadPic

 

39、要将图片"D:/PIC/CAR.JPG"载入到当前的图片框(PictureBox)中，应用（ ）命令。

A. LoadFile      B. LoadPicture      C. LoadPic          D. LoadJPG

 

40、要获得当前列表项的数目，可通过访问（ ）属性来实现。

A. Columns       B. Text             C. ListIndex            D. ListCount

 

41、检查框（复选框）的当前状态可通过（ ）属性来访问。

A. Value         B. Checked          C. Selected         D. Caption

 

42、打开通用对话框的“另存为”对话框的方法是（ ）

A. ShowOpen      B. ShowSave         C. ShowColor            D. ShowFont

       

43、以下（ ）可从通用对话框的“打开”对话框中返回用户选择的文件名。

A. FileName     B. Path             C. FontName         D. Color

 

44、语句：dim student(10,5,4) 定义的是一个（ ）维数组。

   A. 1                     B. 2                    C. 3                    D. 4

  

45、语句：dim S(-1 to 5) 定义的数组有（ ）个元素。

A. 7                      B. 6                    C. 5                    D. 4

  

46、已知Eng(1)=90，Math(1)=80，Comp(1)=95，Total(1)= Eng(1)+Math(1)+Comp(1)，则Total(1)=（ ）。

   A. 265                   B. 90               C. 80               D. 95

  

47、下面的数组定义语句正确的是（ ）。

   A. Dim a[3,4]            B. Dim a[3;4]               C. Dim a(3,4)           D. Dim a(3;4)

  

48、用于遍历对象集合所有元素的语句是（）。

   A. Do while…Loop        B. For Each…Next       C. While… Wend     D. For… Next

  

49、有以下数组声明语句：Option Base 1: Dim A(3,2 to 4)，则数组A有（ ）个元素。

   A. 3                 B. 4                        C. 12               D. 9

    

50、已知一命令按钮的单击事件的代码如下，第一次单击该按钮输出的值为2，第三次单击该按钮输出的值为（）。

Private Sub Command1_Click()

Static Stu(3) As Integer

For i = 2 To 3

    Stu(i) = Stu(i) + i

Next i

Print Stu(2);

End Sub

   A. 2                 B. 4                        C. 6                    D. 8

  

51、已知在“通用”代码有以下语句：

        Dim tt( ) as Integer

   则，在某一事件代码中使用（  ）是正确的。

   A. Redim tt(3,4) as boolean                    B. Redim  tt(4) as String        C. Redim tt(10)                                D. Redim tt( )

  

52、以下过程是窗体Form1的（ ）事件。

Prviate Sub Form_Click( )

……

End Sub

    A. 单击                 B. 双击             C. 装载             D. 按键

 

53、在以下事件过程中，Private表示（ ）。

　A. 此过程可以被任何其它过程调用

　B. 此过程只可以被本窗体模块中的其它过程调用

　C. 此过程不可以被任何其它过程调用

　D. 此过程不可以被本工程中的任何过程调用

　Private Sub txtName_Change()

…… 

　End Sub

 

54、在以下事件过程中，Public表示（ ）。

　A. 此过程不可以被本模块中的过程调用

　B. 此过程只可以被本窗体模块中的其它过程调用

　C. 此过程不可以被任何其它过程调用

　D. 此过程不可以被本工程中的任何模块调用

　  Public Sub txtName_Change()
　　        …… 
　      End Sub

 

55、在子过程中的任意位置要退出当前子过程，应用（ ）命令。

    A. End Function         B. Exit             C. Exit Function        D. Exit Sub

 

56、以下定义的函数（ ）是按“传值”方式传递参数的。

A. Public Function Sum(x,y) 

B. Public Function Sum(ByVal x, ByVal y)

C. Public Function Sum(x as Integer,y as Integer)   

D. Public Function Sum(x%, y%)

 

57、以下函数的定义中，（ ）是错误的。

A. Public Function Sum(x ; y)   

B. Public Function Sum(ByVal x, ByVal y)

C. Public Function Sum(x as Integer,y as Integer)   

D. Public Function Sum(x%, y%)

 

58、以下递归函数中，正确的是（ ）。

A.  Public  Function  Fn(n as Integer)

        If  n=0 Then Fn=1 Else Fn=Fn*n

    End  Function   

B.  Public  Function  Fn(n as Integer)

        If  n=0 Then Fn=1 Else Fn=Fn(n)*n

    End  Function

C.  Public  Function  Fn(n as Integer)

        If  n=0 Then Fn=1 Else Fn=Fn(n-1)*n

    End  Function

D.  Public  Function  Fn(n as Integer)

        If  n=0 Then Fn=1 Else Fn=Fn(n+1)*n

    End  Function

 

59、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。

Public Function Fun(x, y)

  Fun = 1

  For i = 1 To y

     Fun = Fun * x

  Next i

End Function

Private Sub Command1_Click()

  Print Fun(3, 4)

End Sub

A. 3                B. 4                    C. 81               D. 256

 

60、已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（ ）。

Private Sub Command1_Click()

  Text1.Text ="湖南省" & "计算机" + "等级考试"

  Text1.ForeColor = vbRed

  Text1.BackColor = vbGreen

  Text1.FontBold = True

End Sub

A. 湖南省计算机等级考试

B. 计算机

C. 等级考试

D. 计算机等级考试

 

61、VB提供的三种访问文件的模式中，不包括（ ）。

A. 顺序文件      B. 数据库文件           C. 随机文件         D. 二进制文件

 

62、以下VB语句中，（ ）的功能是复制指定文件。

A. Kill          B. FileCopy             C. Name             D. MkDir

 

63、以下是Command1的单击事件，单击Command1后，在当前目录下创建了一个名为a.txt的文件，该文件内容为（）。

Private Sub Command1_Click()

Open "a.txt" For Output As #1

Print #1, "计算机"；"等级考试"

Close #1

End Sub

A. 等级考试      B. 计算机等级考试       C. 计算机           D. 计算机；等级考试

 

64、已知一名为“Student.txt”的文件，其内容如下：

张小三，98，87，99

李四明，77，88，93

陈大光，89，56，65

        则以下程序段执行的结果为（）。

Private Sub Command1_Click()

  Open "student.txt" For Input As #1

  While (Not EOF(1))

    Input #1, Nam, Chn, Eng, Cmp

    Sum = Chn + Eng + Cmp

    Print Sum;

  Wend

  Close #1

End Sub

A. 284  258  210   

B. 98  87  99

C. 77  88  93

D. 89  56  65

 

65、以下关于while-wend循环的说法中正确的为（ ）。

A、 与do while-loop循环完全一致

B、 不能用do while-loop循环来代替

C、 其循环中不能使用exit while 退出循环

D、 while-wend不能实现所有循环要求

 

66、For语句的格式如下，下列说法错误的是（ ）。

    for <循环变量>=<初值> to <终值> [step <步长>]

        [<循环体>]

        [exit for]

    next [<循环变量>]

A、 步长只能为正数，不能为负数

B、 步长为1时，可略去不写

C、 初值、终值和步长都是数值表达式

D、 next后的循环变量与for语句中的循环变量必须相同

 

67、要控制窗体启动时，在屏幕上的位置，可通过（ ）属性来设置。

A. Top 和 Left   B. Left 和 Right    C. StartUpPosition          D. WindowState

 

68、窗体中的鼠标指针形状，可以通过（ ）属性来设置。

A. MouseIcon     B. MousePointer C. Picture                  D. Icon

 

69、若要将窗体隐藏起来，实现的方法为（ ）。

A. Unload            B. Cls          C. WindowState          D. Hide

 

70、在窗体中利用Print方法输出文本信息时，信息的输出位置由（ ）属性设置。

A. Left          B. Top          C. x,y                  D. CurrentX,CurrentY

 

71、当窗体的大小被调整时，将会发生的事件有（ ）

A. Move          B. Resize           C. Paint                    D. Click

 

72、若要将一普通窗体设置为MDI窗体的子窗体，应将（ ）属性值设为True。

A. Enabled       B. Visible          C. MdiChild             D. Moveable

 

73、关闭MDI窗体时，会触发的事件是（ ）。

A. Load          B.Click         C. Resize                   D. QueryUnload

 

74、菜单设计器中，要将当前菜单项下移一个位置，应按（ ）按钮。

A. “左箭头”    B. “右箭头”   C. “上箭头”           D. “下箭头”

 

75、活弹出式菜单的命令是（ ）。

A. Load          B. Show         C. SetFocus             D. PopupMenu

 

76、要将菜单项的某字母设置为热键，在菜单设计中，应在菜单项的标题的该字母前加（ ）字符。

A. /             B. @            C. &                        D. /

 

77、要想通过单击Form2上的Command1，从内存中清除Form2窗体，则可在Command1的单击事件中，使用（ ）命令。

A. Load Form2                    B. Form2.Show          

C. Unload Form2                  D. Form2.hide

 

78、要想通过单击Form2上的Command1，从屏幕（而非内存中）上清除Form2窗体，则可在Command1的单击事件中，使用（ ）命令。

A. Load Form2                    B. Form2.Show          

C. Unload Form2                  D. Form2.hide

 

79、要想通过Form2窗体中的过程调用Form1窗体中的Public 变量Stu，则可用（）方式实现。

A. Form1.Stu         B. Form2.Stu                C. Stu              D. Form2.Form1.Stu

 

80、若要在图片框中绘制一个椭圆，可使用（ ）方法来实现。

A. Circle            B. Line         C. Point            D.Pset

 

81、若要获得某一点的颜色值，可通过（ ）方法来实现。

A. Circle            B. Line         C. Point            D.Pset

 

82、以下关于VB中的图形坐标的度量单位的说法正确的是（ ）。

A. 只有一种单位：Twip           

B. 只有一种单位：Cm         

C. 只有一种单位：Point

D. 可以有多种单位

 

二、程序填空

【试题1】  出售金鱼的问题：商人将养的一缸金鱼分五次出售，第一次卖出全部的一半加二分之一条；第二次卖出余下的三分之一加三分之一条；第三次卖出余下的四分之一条；第四次卖出余下的五分之一加五分之一条；最后卖出余下的11条。问原来渔缸中共有几条鱼？

   Private Sub cmdSaleGoldFish_Click()

     Dim i, j, n, x As Integer

     n = 0

     i = 23

     Do

       x = i

       j = 1

       Do While j <= 4 And x >= 11

          If ((x + 1) Mod (j + 1) = 0) Then

             x = _____________________

          Else

             x = 0

            ___________________

          End If

          j = j + 1

       Loop

       If (j = 5 And x = 11) Then

           Print Tab(5); "开始金鱼数为："; i

           n = 1

       End If

       i = i + 2

     Loop While (n = 0)

   End Sub

【答案】59

【试题2】  在窗体上画一个命令按钮，其名称为Command1，程序如下，先填上相应的语句，然后程序运行，单击命令按钮，并输出结果。

   Function M(x As Long,y As Long)As Long

      M=IIf(x>y,x,____________)

   End Function

   Private Sub ____________________

     Dim a As Long,b As Long

     FontSize = 14: FontBold = True

     Print: Print: Print

     a=131421

     b=211314

     Print tab(5);M(a,b)

   End Sub

【答案】211314

【试题3】  设某四位数的各位数字的平方和等于100，共有多少个这种四位数？

   Private Sub cmdFourSqr_Click()

     Dim a, b, c, d, i, count As Integer

     count = 0

     i = 1111

     FontSize = 14: FontBold = True

     Print: Print: Print

     Do Until ________________

        a = i / 1000

        b = (i Mod 1000) / 100

        c = Int((i - a * 1000 - b * 100) / 10)

        d = i Mod 10

        If 100 = a ^ 2 + b ^ 2 + c ^ 2 + d ^ 2 Then ___________________

        i = i + 1

     Loop

     Print Tab(5); "满足条件的四位数数目为："; count

   End Sub

【答案】49

【试题4】  求方程51X-21Y=3，在|X|≤201，|Y|≤81内共有多少组整数解?

   Private Sub cmdIntegerRoot_Click()

     Dim count As Integer

     FontSize = 14: FontBold = True

     Print: Print: Print

     For x = -201 To 201

        For y = -81 To 81

            If _________________ Then count = count + 1

      Next ________________

      Print Tab(5); "符合条件的数的数目为："; count

   End Sub

【答案】10

【试题5】  用e^x ≈1＋x＋x^2/2!+x^3/3!+x^4/4!……+x^n/n!的公式求近似值，设x=9,n＝25；

Private Sub Form_click()

    '用e^x ≈1＋x＋x^2/2!+x^3/3!+x^4/4!……+x^n/n!

    Dim n As Integer, x As Integer

    Dim i As Integer

    Dim xpower As Single

    Dim y As Single

    x = Val(InputBox("请输入x："))

    n = Val(InputBox("请输入n："))

    y = 1

    factor = 1

    For i = 1 To n

        factor = factor * i

        xpower = x ^ i

        y = y + xpower / factor

    Next i

    Print "e^"; x; "="; y

End Sub

【答案】8103.059

【试题6】  已知菲波纳契数列{ X }中,X(1)=0,X(2)=1,X(n)=X(n-1)+X(n-2)，编程求数列前30个数中，所有质数的和。

Private Sub Form_Click()

    Dim s As Long

    Dim I As Integer

    Dim No(30) As Long

    No(1) = 0

    No(2) = 1

    No(3) = 1

    s = 2

    For I = 4 To 30

        No(I) = No(I - 1) + No(I - 2)

        j = 2: k = Int(No(I) / 2)

        Do While j <= k

            If No(I) Mod j = 0 Then Exit Do

            j = j + 1

        Loop

        If j > k Then s = s + No(I)

    Next I

    Print "前三十个菲波纳契数中质数和是："; s

End Sub

【答案】544830

【试题7】  求27090，21672，11352，8127的最大公约数。

Option Base 1

Private Function GreatestCommonDivisor(ByVal m As Long, ByVal n As Long) As Long

    Dim t As Long

    Dim r As Long

    If m < n Then t = m: m = n: n = t

    Do

        r = m Mod n

        m = n

        n = r

    Loop Until r = 0

    GreatestCommonDivisor = m

End Function

Private Sub Form_Click()

    Dim a, gcd&, i As Byte

    a = Array(27090, 21672, 11352, 8127)

    gcd = a(1)

    For i = 1 To UBound(a)

        gcd = GreatestCommonDivisor(gcd, a(i))

    Next

    Print gcd

End Sub

 

三、程序改错

VB二级改错题

1．下面程序是输出100-200之间的所有素数个数，程序中有两行有错误。改正错误，使它能输出正确的结果。

Private Sub Form_Click()

Number = 0

For x = 101 To 199 Step 2

 i = 2

 k = Int(x / 2)

 Do While i <= k

  If x Mod i = 0 Then Exit For

   i = i + 1

   Loop

  If i < k Then

   Number = Number + 1

  End If

  Next x

  Print Number

  End Sub

2．下面程序是解决猴子吃桃问题。猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。程序中有两行有错误。改正错误，使它能输出正确的结果。

Option Explicit

Private Sub Form_Click()

Dim day As Integer, sum As Integer

day = 10; sum = 1

Do While day > 0

 sum = sum * 2

 day = day - 1

 Loop

 Print sum

End Sub

3．一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。这样的另一个两位数有多少个。程序中有两行有错误（从键盘输入的两位数为46）改正错误，使它能输出正确的结果。

Option Explicit

Private Sub Form_Click()

Dim x As Integer, y As Integer，number as Integer

Dim xf As Integer, yf As Integer

Number = 0

Do

x = Val(InputBox("请输入一个2位正整数："))

Loop While (x < 9) Or (x > 99)

xf = (x Mod 10) * 10 + Int(y / 10)

For y = 10 To 99

yf = y Mod 10 + Int(y / 10)

If x + y = xf + yf Then

 Print x; "+"; y; "="; xf; "+"; yf; "="; x + y

 Number = Number + 1

 End If

Next y

 Print Number

End Sub

4．下面程序解决的问题是：已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求[100,300]之间能被其因子数目整除的数中最大的数。程序中有两行有错误。改正错误，使它能输出正确的结果。

Private Sub Command1_Click()

Dim N As Integer

Dim s As Integer

Dim i As Integer

For N = 300 To 100

s = 0

 For i = 1 To N

  If N Mod i = 0 Then

    s = s + 1

   End If

  Next i

  If s Mod N = 0 Then

   Print N

   Exit For

   End If

  Next N

End Sub

5． 下面程序的功能是求若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如：由于7396=86^2，且7+3+9+6=25=5^2，则称7396是“四位双平方数”。求所有“四位双平方数”中最小的一个“四位双平方数”。程序中有行两有错误。改正错误，使它能输出正确的结果。

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim d As Integer

Dim x As Integer

For x = 1000 To 9999

a = Int(x / 1000)

b = Int(x / 100) - a * 100

c = Int(x / 10) - a * 100 - b * 10

d = x - a * 1000 - b * 100 - c * 10

If Sqr(x) = Int(Sqr(x)) And Sqr(a + b + c + d) = Sqr(a + b + c + d) Then

 Print x

 Exit For

End If

Next x

End Sub

6．下面程序的功能是：用下面的公式求 的近似值，直到最后一项的绝对值小于指定的数（参数num）为止。程序中有两行有错误。改正错误，使它能输出正确的结果。

Private Sub Command1_Click()

Print Format(fun(0.0001), "#.####")

End Sub

 

Private Function fun(num As Single) As Single

Dim s As Integer, n As Integer

Dim pi As Single, t As Single

pi = 0: t = 1: s = 1: n = 1

While (t >= num)

 pi = pi + t

 n = n + 2

 s = -s

 t = s% n

 Wend

pi = pi * 4

fun = pi

End Function

7．下面程序的功能是：有这样一个三位数，其尾数不大于2。若将尾数移到首位后（其余二个数字次序不变，依次后推），新三位数将是原三位数的两倍多。求这三位数。程序中有错误，改正错误，使程序能输出正确的结果。

Private Sub Command1_Click()

Dim i%, j%, k%, n%, m%

For i = 1 To 9

For j = 0 To 9

For k = 1 To 9

n = 100 * i + 10 * k + j

m = 100 * k + 10 * j + i

If n >= 2 * m Or n <= 3 * m Then Print m

Next k

Next j

Next i

End Sub

 

四、程序设计

1.   编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是0~9之间的一位整数。

2.   问[100,200]之间有奇数个不同因子的整数共有多少个？

3.   求[500,2500]之间按递增顺序的素数中的第25大的素数。

4.   A,B,C三个正整数，当满足1/A^2+1/B^2=1/C^2关系时，称为倒勾股数。求130<A+B+C<150的倒勾股数有多少组。

5.   已知正整数A,B(假定A<B)，满足A*B=5432，求S=A+B的最小值。

6.   编写程序，求在四位数的偶数中，所有各位数字之和是6的倍数的数的和。

7.   编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，其第1位与第3位数字之和为12，第2位与第4位数字之积为24。

8.   编写程序，统计200~300之间的所有满足三个数字之积为24，三个数字之和为10的数的个数。

9.   求一正整数等差数列的前三项的和，该数列前四项之和是26、之积是880。

10.  从100米高度落下一球,每次落地后反弹高度为上一次下落高度的3/4,求该球第10次落地时,前后所经过的路径长度.

11.  当n=20时，求S=1+(1+2^0.5)+(1+2^0.5+3^0.5)+…+(1+2^0.5+3^0.5+…+n^0.5)的值。要求：按四舍五入的方式精确到小数点后第二位。

12.  已知Fibonacci数列：1,1,2,3,5,8,……,它可由下面公式表述：

        F(1)=1                   if n=1

        F(2)=1                   if n=2

        F(n)=F(n-1)+F(n-2)       if n>2

    试求F(2)+F(4)+F(6)+……+F(50)值。  

    提示： 最好使用递推法求解，因为使用递归调用很可能超出某些语言的递归深度。"

13.  求[500,1999]之间的十位数字为7的素数的个数。

14.  50个小学生按１至50序号顺时针围成一圈，做出局游戏，老师站在圈外逆时针从最后一个人数起，每数到5时，这人从圈里出来，继续数1,2,3,4,5,数到第5个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。

15.  编写程序，求共有几组I,j,k符合算式ijk+kji=1534,其中I,j,k是[0,9]之间的一个整数。

16.  已知A<B,且A，B为正整数, 求满足个条件A×B=716699且A+B最小的A值。

17.  已知24有8个正整数因子（即：1，2，3，4，6，8，12，24），而24正好能被其因子数8整除，求正整数[10，100]之间有多少个正整数能被其因子的个数整除。

18.  自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差17-8=9都是平方数，则称8和17是自然数对（8，17）。假定（A，B）与（B，A）是同一个自然数对且假定A>=B，求所有小于或等于100（即：A<=100,B<=100）的自然数对中A之和。

19.  当m的值为50时，计算下列公式的值： T=1-1/2-1/3-1/4-…-1/m  
要求：按四舍五入的方式精确到小数点后第四位。

20.  当m的值为50时，计算下列公式的值： T=1-1/2+1/3-1/4+…-1/m
要求：按四舍五入的方式精确到小数点后第四位。

21.  编程求取：从6开始的前6个同构数的和(若某数与其本身的平方数低位部分相等，则称之同构数，如：6，其平方数为36，则6为一个同构数)。

22.  猴吃桃：有一天小猴子摘下了若干个桃子，当即吃掉一半，还觉得不过瘾，又多吃了一个。第二天接着吃了剩下的桃子中的一半，仍不过瘾，又多吃了一个。以后每天都是吃尚存桃子的一半零一个。到第30天早上小猴子再去吃桃子时，看到只剩下一个桃子了。问小猴子第一天共摘下了多少个桃子。

23.  编写程序，求出9到499之间的所有非偶数非素数的数之和。

24.  在[100，999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？

25.  已知一个数列的前三项为0，0，1，以后各项都是其相邻的前三项之和，求该数列前30项之和。

26.  已知f(n)=f(n-1)+2f(n-2)-5f(n-3),f(0)=1,f(1)=2,f(2)=3,求f(0)+f(1)+…f(30)。

27.  取[100，900]之间相差为12的相邻素数对的个数。

28.  求1/2+2/3+3/5+5/8+……的前1000项的和(注：该数列从第二项开始，其分子等于前一项的分母，而其分母等于前一项分子与分母之和)。要求：按四舍五入的方式精确到小数点后第二位。

29.  编程序求1~55的平方根的和并输出结果。（保留小数点两位）

30.  编程序求出1~100所有整数的立方和并输出结果。

31.  编程序求出100到600之间同时满足除3余2和除5余3条件的数的个数。

32.  编程序求出1到8000之间的能被5整除的前若干个偶数之和，当和大于750时退出并输出结果。

33.  当k值为20时，求S的值。
(2^2/(1*3))+(4^2/(3*5))+(6^2/(5*7))+…+(2k)^2/((2k-1)(2k+1))

33.（按四舍五入的方式精确到小数点后第三位）

34.  S1=1，S2=1+3，S3=1+3+5，S4=1+3+5+7，…，SN=1+3+5+7+…+（2N-1），N为正整数。编程求S1+S2+S3+S4+…+SN的值<20000时的N的最大值。

35.  把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?

36.  编程求区间[500，2500]中按递增顺序第25个素数。

37.  编程求取：[121,140] 之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数. 例如:3^2+4^2=5^2, 因此5是弦数）

38.  编程求取：S=1/2+2/3+3/5+5/8+……的前30项的和（注：该级数从第二项开始，其分子是前一项的分母，其分母是前一项的分子与分母的和）。要求：按四舍五入的方式精确到小数点后第二位。

39.  编程求取：从6开始的前6个同构数的和(若某数与其本身的平方数低位部分相等，则称之同构数，如：6，其平方数为36，则6为一个同构数)。

40.  编程序求1~600能被11整除的个数。