计算机等级 > 二级考试 > Visual Basic > VB模拟试题 > 文章内容

全国计算机二级考试VB程序设计复习试题答案(11)

2016-6-18编辑:ljnbset

1. 要使窗体Form1显示出来,应使用( 【55】 )

 (A)Load Form1 (B)Form1 Load (C)Show.Form1 DForm1.Show

2. 在使用通用对话框之前要先将( 【56】 )添加到工具箱中。

 (A)Active X  (B)ComboBox  CCommonDialog  (D)Color

3. 用Open语句打开文件时,若省略For子句,则隐含打开文件的存取方式为( 【57】 )

 (A)Binary   BRandom   (C)Input   (D)OutPut

4. 设有以下循环结构

Do

循环体

Loop While <条件>

则以下叙述中错误的是

(A)“条件”可以是关系表达式、逻辑表达式或常数

(B)循环体中可以使用Exit Do语句

C)若条件”是一个为0的常数,则一次也不执行循环体

(D)如果“条件”总是为True,则不停地执行循环体

5. 要获得打开文件的长度(字节数)应用使用( 【58】 )函数。

 (A)FileLen   (B)Len    (C)Loc    DLof

6. 给文件改名的VB语句正确的是( 【59】 )

 (A)Name 原文件名 To 新文件名       (B)Rename 原文件名 To 新文件名

CName 原文件名 As 新文件名       (D)Rename 原文件名 As 新文件名

7. 在窗体上画一个名称为Command1的命令按钮,然后编写如下的事件过程:

Option Base 1

Private Sub Command1_Click( )

      Dim a(10) As Integer

      For i = 1 To 10

        a(i) = i

      Next

      Call Swap 【5】

      For i = 1 To 10

        Print a(i);

      Next

End Sub

Sub Swap(b() As Integer)

   n=【5】

   For i = 1 To n / 2

     t = b(i)

     b(i) = b(n)

     b(n) = t

     【5】

   Next

End Sub

上述程序的功能是,通过调用过程Swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。请填空。

8. 在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),然后编写如下几个事件过程:

Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval = 【5】

End Sub

Private Sub Form_Click()

Timer1.Enabled = 【6】

End Sub

Private Sub Timer1_Timer()

Label1.Caption = 【7】

End Sub

程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟变换一次(见图)。请填空。

 

9. 下面程序用选择法将数组a中的10个整数按升序排列。算法是:从数组中找出最小的值,将该数与第1个数交换,这样第1个数组元素是最小的数。再从第2个数开始,找出其后各数组元素中最小的数,将该数与第2个数交换位置,这样第2个数是次小的数。如此重复上述过程,即可将数组排序。请完善以下的程序:

  Option Base 1

  Private Sub Command1_Click( )

   Dim a (1 To 10 ) As Integer , i As Integer , j As Integer , k As Integer

   For i=1 To 10

    a ( i ) = Val ( InputBox ( “请输入第a( ” & i & “ ) 个数:”))

   Next i

   For i = 1 To 9

     【60】

    For j = i + 1 To 10

     If  a ( k )  【61】  a ( j )  Then k = j

    Next j

    Temp = a (i )  :  【62】 :  a ( k ) = Temp

   Next i

   For i = 1 To 10

    Print a ( i ) ,

   Next i

  End Sub

【60】(A)k = 0      (B)k = 1     Ck = i      (D)k = j

【61】(A)=        (B)< >      (C)<        D>

【62】(A)a (i) = a (j)  (B)a (j) = a (i)  (C)a (k) = a (i)  Da (i) = a (k)

10.   设有程序:

Option Base 1

Private Sub Command1_Click()

Dim arr1, Max as Integer

arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)

【12】 = arr1(1)

For i = 1 To 8

If arr1(i) > Max Then 【13】

Next i

Print "最大值是: "; Max

End Sub

以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。

全国计算机二级考试VB程序设计复习试题答案(10)

热点推荐

登录注册
触屏版电脑版网站地图