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

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

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

     

    1.以下程序段:

     

    Private Sub Form_Load( )

     

    Dim Nop As Integer, Op As String * 1

     

    Num1 = 3

     

    Num2 = 2

     

    Nop = val(Inputbox("请输入1-4之间的整数"))

     

    Select Case Nop

     

    Case 1

     

    Op = "+"

     

    Result = Num1 + Num2

     

    Case 2

     

    Op = "-"

     

    Result = Num1 - Num2

     

    Case 3

     

    Op = "×"

     

    Result = Num1 * Num2

     

    Case 4

     

    Op = "÷"

     

    Result = Num1 / Num2

     

    End Select

     

    Label1= Num1 & Op & Num2 & "=" & Result

     

    End Sub

     

    窗体运行后,输入2,则label1的标题显示结果为(B)()

     

    A.3+2=5

     

    B.3-2=1

     

    C.3×2=6

     

    D.3÷2=1.5

     

    2.以下程序段:

     

    Private Sub Form_Load( )

     

    Dim Nop As Integer, Op As String * 1

     

    Num1 = 3

     

    Num2 = 2

     

    Nop = val(Inputbox("请输入1-4之间的整数"))

     

    Select Case Nop

     

    Case 1

     

    Op = "+"

     

    Result = Num1 + Num2

     

    Case 2

     

    Op = "-"

     

    Result = Num1 - Num2

     

    Case 3

     

    Op = "×"

     

    Result = Num1 * Num2

     

    Case 4

     

    Op = "÷"

     

    Result = Num1 / Num2

     

    End Select

     

    Label1= Num1 & Op & Num2 & "=" & Result

     

    End Sub

     

    窗体运行后,输入3,则label1的标题显示结果为(C)()

     

    A.3+2=5

     

    B.3-2=1

     

    C.3×2=6

     

    D.3÷2=1.5

     

    3.以下程序段:

     

    Private Sub Form_Load( )

     

    Dim Nop As Integer, Op As String * 1

     

    Num1 = 3

     

    Num2 = 2

     

    Nop = val(Inputbox("请输入1-4之间的整数"))

     

    Select Case Nop

     

    Case 1

     

    Op = "+"

     

    Result = Num1 + Num2

     

    Case 2

     

    Op = "-"

     

    Result = Num1 - Num2

     

    Case 3

     

    Op = "×"

     

    Result = Num1 * Num2

     

    Case 4

     

    Op = "÷"

     

    Result = Num1 / Num2

     

    End Select

     

    Label1= Num1 & Op & Num2 & "=" & Result

     

    End Sub

     

    窗体运行后,输入4,则label1的标题显示结果为(D)()

     

    A.3+2=5

     

    B.3-2=1

     

    C.3×2=6

     

    D.3÷2=1.5

     

    4.以下程序段的作用是(A)()

     

    Private Sub Picture1_Click( )

     

    Dim asci As Integer, i As Integer

     

    i = 0

     

    For asci = 32 To 126

     

    Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;

     

    i = i + 1

     

    If i = 7 Then i = 0: Picture1.Print

     

    Next asci

     

    A.打印ASCII码表,一行7个表达式

     

    B.打印九九乘法表,一行7个表达式

     

    C.打印ASCII码表,一行8个表达式

     

    D.以上说法都不正确

     

    5.我国现在人口有13亿,按人口增长0.8%计算,多少年后我国人口将超过26亿。

     

    Private Sub Command1_Click( )

     

    Dim x, n

     

    x = Val(Text1)

     

    n = 0

     

    Do While x<26

     

    x = x * (1 + 0.008)

     

    n = n + 1

     

    Loop

     

    Text2 = Str(n)

     

    End Sub

     

    6.以下程序的作用是(B)()

     

    For i = 1 To 9

     

    For j = 1 To 9

     

    se = i & "×" & j & "=" & i * j

     

    Picture1.Print Tab((j - 1) * 9 + 1); se;

     

    Next j

     

    Picture1.Print

     

    Next i

     

    A.打印ASCII码表

     

    B.打印九九乘法表

     

    C.打印加法表

     

    D.以上说法都不正确

     

    7.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。

     

    Private Sub Form_Click( )

     

    Dim I%, n&, t!, e!

     

    E = 0 ' 存放累加和结果

     

    I = 0 ' 计数器

     

    n = 1 ' 存放阶乘的值

     

    t = 1 ' 级数第I项值

     

    Do While t>0.00001

     

    e = e + t

     

    I = I + 1

     

    n = n * I

     

    t = 1 / n

     

    Loop

     

    Print "计算了 "; I; " 项的和是 "; e

     

    End Sub

     

    8.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。

     

    Private Sub Form_Click( )

     

    Dim I%, n&, t!, e!

     

    E = 0 ' 存放累加和结果

     

    I = 0 ' 计数器

     

    n = 1 ' 存放阶乘的值

     

    t = 1 ' 级数第I项值

     

    Do While t>0.00001

     

    e = e + t

     

    I = I + 1

     

    n = n * I

     

    t = 1 / n

     

    Loop

     

    Print "计算了 "; I; " 项的和是 "; e

     

    End Sub

     

    9.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。

     

    Private Sub Form_Click( )

     

    Dim I%, n&, t!, e!

     

    E = 0 ' 存放累加和结果

     

    I = 0 ' 计数器

     

    n = 1 ' 存放阶乘的值

     

    t = 1 ' 级数第I项值

     

    Do While t>0.00001

     

    e = e + t

     

    I = I + 1

     

    n = n * I

     

    t = 1 / n

     

    Loop

     

    Print "计算了 "; I; "项的和是"; e

     

    End Sub

     

    10.以下程序是求最大公约数和最小公倍数的程序。

     

    Private Sub Form_Click( )

     

    Dim m1, n1, m, n, r As Integer

     

    n1 = InputBox("输入自然数n", "输入数")

     

    m1 = InputBox("输入自然数m", "输入数")

     

    n = n1

     

    m = m1

     

    If m < n Then

     

    t = m: m = n: n = t

     

    End If

     

    r = m Mod n

     

    Do While (r<>0)

     

    m = n

     

    n = r

     

    r = m Mod n

     

    Loop

     

    Print "最大公约数=", n

     

    Print "最小公倍数= ", m1 * n1 / n

     

    End Sub

    相关推荐:

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

    2018年12月计算机二级C++考前冲刺练习题及答案(3)

    专题汇总

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