• 即有分期副总裁刘铮解读《中国新时代蓝领消费与成长白皮书》 2018-11-26
  • 回复@老老保老张工:计划不要批准?那不还是你自己做主?有必要走形式么? 2018-11-26
  • 广东省人大开展学习贯彻习近平总书记重要讲话精神专题集中学习研讨 2018-11-26
  • 我相信“交警雨中护送高考生”是真,“交警雨中护送高考生”反被该高考生家长投诉是假。 2018-11-26
  • 河北十一选五历史开奖:2018年12月计算机二级VB考前提分练习题(2)

    全国计算机等级考试NCRE考试网 鲤鱼小编 更新时间:2018-11-27

    2018年12月计算机二级考试就要来临了,鲤鱼网为各位考生准备了计算机二级VB考前提分练习题(2),请大家自行练习。祝愿大家都能考出好成绩!

     

    1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:

     

    Private Sub Command1_Click( )

     

    n = Val(Text1.Text)

     

    If n\2 = n/2 Then

     

    f = f1(n)

     

    Else

     

    f = f2(n)

     

    End If

     

    Print f; n

     

    End Sub

     

    Public Function f1(ByRef x)

     

    x=x*x

     

    f1=x+x

     

    End Function

     

    Public Function f2(ByVal x)

     

    x=x*x

     

    f2=x+x+x

     

    End Function

     

    程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)()

     

    A.72 36

     

    B.108 36

     

    C.72 6

     

    D.27 3

     

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

     

    Private Sub Command1_Click( )

     

    c = "1234"

     

    For i = 1 To 4

     

    c1 = Trim(Str( ))

     

    Printc1

     

    Next i

     

    End Sub

     

    程序运行后,单击命令按钮,要求在窗体上显示如下内容

     

    1

     

    12

     

    123

     

    1234

     

    则在下划线处应填入的内容为(B)()

     

    A.Right(c1,i)

     

    B.Left(c1,i)

     

    C.Mid(c1,i,1)

     

    D.Mid(c1,i,i)

     

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

     

    Private Sub Command1_Click( )

     

    n = Val(Text1.Text)

     

    For i = 2 To n

     

    For j = 2 To sqr(i)

     

    If i Mod j = 0 Then Exit For

     

    Next j

     

    If j >Sqr(i) Then Print i

     

    Next i

     

    End Sub

     

    该事件过程的功能是(C)()

     

    A.输出n以内的奇数

     

    B.输出n以内的偶数

     

    C.输出n以内的素数

     

    D.输出n以内能被j整除的数

     

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

     

    Private Function f(m As Integer)

     

    If m Mod 2 = 0 Then

     

    f = m

     

    Else

     

    f = 1

     

    End If

     

    End Function

     

    Private Sub Command1_Click( )

     

    Dim i As Integer

     

    s = 0

     

    For i = 1 To 5

     

    s = s + f(i)

     

    Next

     

    Print s

     

    End Sub

     

    程序运行后,单击命令按钮,在窗体上显示的是(C)()

     

    A.11

     

    B.10

     

    C.9

     

    D.8

     

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

     

    Private Sub Command1_Click( )

     

    Dim array1(10, 10) As Integer

     

    Dim i As Integer, j As Integer

     

    For i = 1 To 3

     

    For j = 2 To 4

     

    array1(i, j) = i + j

     

    Next j

     

    Next i

     

    Text1.Text = array1(2, 3) + array1(3, 4)

     

    End Sub

     

    程序运行后,单击命令按钮,在文本框中显示的值是(D)()

     

    A.15

     

    B.14

     

    C.13

     

    D.12

     

    6.Visual Basic应用程序中标准??槲募睦┱姑恰?/span>BAS.BAS(注意不要写点)。

     

    7.在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。

     

    Private Sub Form_ mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)

     

    If Button=2 Then

     

    popupmenu mnuEdit

     

    End If

     

    End Sub

     

    8.在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序,请填空。

     

    Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

     

    If Button=2 Then

     

    popupmenumnuEdit

     

    End If

     

    9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的【Interval】属性设置为500。

     

    10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的Interval属性设置为【500】。

    相关推荐:

    2018年12月计算机二级MSOffice考前冲刺题(4)

    2018年12月计算机二级MSOffice考前冲刺题(5)

    专题汇总

  • 即有分期副总裁刘铮解读《中国新时代蓝领消费与成长白皮书》 2018-11-26
  • 回复@老老保老张工:计划不要批准?那不还是你自己做主?有必要走形式么? 2018-11-26
  • 广东省人大开展学习贯彻习近平总书记重要讲话精神专题集中学习研讨 2018-11-26
  • 我相信“交警雨中护送高考生”是真,“交警雨中护送高考生”反被该高考生家长投诉是假。 2018-11-26