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

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

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

     

    1.以下程序段运行的结果为(B)()

     

    Private Sub Form_Click( )

     

    MyDate = #7/21/1997#

     

    Print Format(MyDate, "m/d/yy")

     

    Print Format(MyDate,"yyyymdd")

     

    End Sub

     

    A.7/21/97 1997721

     

    B.7-21-97 1997721

     

    C.97/7/21 1997721

     

    D.7/21/97 97721

     

    2.以下程序段运行的结果为(B)()

     

    Private Sub Form_Click( )

     

    MyTime = #9:21:30 PM#

     

    MyDate = #7/21/1997#

     

    Print Tab(2); Format(MyDate, "mmmm-yy")

     

    Print Tab(2); Format(MyTime, "hh:mm:ss A/P")

     

    End Sub

     

    A.July-97 9:21:30 P

     

    B.July-97 09:21:30 P

     

    C.07-97 9:21:30 P

     

    D.July-97 9:21:30

     

    3.以下程序段运行的结果为(C)()

     

    Private Sub Form_Click( )

     

    MyDate = #7/21/1997#

     

    Print Format(MyDate, "dddd,mmmm,dd,yyyy")

     

    End Sub

     

    A.21,07,1997

     

    B.21,07,21,1997

     

    C.Monday,July,21,1997

     

    D.Monday,07,21,1997

     

    4.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

     

    Private Sub Text1_LostFocus( )

     

    If Not IsNumeric(Text1) Then

     

    MsgBox "帐号有非数字字符错误"

     

    Text1.Text = ""

     

    Text1.SetFocus

     

    else

     

    MsgBox "帐号正确"

     

    End If

     

    End Sub

     

    当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为(B)()

     

    A.显示对话框,提示信息为"帐号正确"

     

    B.显示对话框,提示信息为"帐号有非数字字符错误"

     

    C.程序出错

     

    D.没有任何提示

     

    5.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

     

    Private Sub Text1_LostFocus( )

     

    If Not IsNumeric(Text1) Then

     

    MsgBox "帐号有非数字字符错误"

     

    Text1.Text = ""

     

    Text1.SetFocus

     

    else

     

    MsgBox "帐号正确"

     

    End If

     

    End Sub

     

    当在text1文本框中输入数字123456之后,单击命令按钮,结果为(A)()

     

    A.显示对话框,提示信息为"帐号正确"

     

    B.显示对话框,提示信息为"帐号有非数字字符错误"

     

    C.程序出错

     

    D.没有任何提示

     

    6.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

     

    Private Sub Command1_Click( )

     

    Dim I As Integer

     

    If Text1.Text <> "Gong" Then

     

    I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")

     

    If I <> 4 Then

     

    End

     

    Else

     

    Text1.Text = ""

     

    Text1.SetFocus

     

    End If

     

    Else

     

    MsgBox "密码帐号正确!"

     

    End If

     

    End Sub

     

    若在text1中输入字符串"Gong",则程序运行结果为(A)()

     

    A.显示对话框,提示"密码帐号正确!"

     

    B.显示对话框,提示"密码错误"

     

    C.程序出错

     

    D.没有任何提示

     

    7.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

     

    Private Sub Command1_Click( )

     

    Dim I As Integer

     

    If Text1.Text <> "Gong" Then

     

    I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")

     

    If I <>4 Then

     

    End

     

    Else

     

    Text1.Text = ""

     

    Text1.SetFocus

     

    End If

     

    Else

     

    MsgBox "密码帐号正确!"

     

    End If

     

    End Sub

     

    若在text1中输入字符串"gong",则程序运行结果为(B)()

     

    A.显示对话框,提示"密码帐号正确!"

     

    B.显示对话框,提示"密码错误"

     

    C.程序出错

     

    D.没有任何提示

     

    8.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

     

    Private Sub Command1_Click( )

     

    Dim I As Integer

     

    If Text1.Text <> "Gong" Then

     

    I = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")

     

    If I <> 4 Then

     

    End

     

    Else

     

    Text1.Text = ""

     

    Text1.SetFocus

     

    End If

     

    Else

     

    MsgBox "密码帐号正确!"

     

    End If

     

    End Sub

     

    若在text1中输入字符串"123",显示"密码错误"对话框,关于此对话框描述正确的是(A)()

     

    A.显示对话框中有“重试”按钮

     

    B.显示对话框中有“确定”按钮

     

    C.显示对话框中有“是”按钮

     

    D.以上说法都不正确

     

    9.在窗体中建立三个文本框,名称分别为text1、text2text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:

     

    Private Sub Command1_Click( )

     

    Dim x!, y!, z!, t!

     

    x = Text1

     

    y = Text2

     

    z = Text3

     

    If x < y Then

     

    t = x

     

    x = y

     

    y = t

     

    End If

     

    If y < z Then

     

    t = y

     

    y = z

     

    z = t

     

    If x< y Then

     

    t = x

     

    x = y

     

    y = t

     

    End If

     

    End If

     

    Label1.Caption = x & "," & y & "," & z

     

    End Sub

     

    当在文本框text1、text2 text3 中分别输入5、38,则标签显示的结果为(C)()

     

    A.3,5,8

     

    B.5,3,8 C.8,5,3

     

    D.3.8.5

     

    10.以下程序段:

     

    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

     

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

     

    A.3+2=5

     

    B.3-2=1

     

    C.3×2=6

     

    D.3÷2=1.5

     

    11.以下程序段:

     

    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

     

    12.以下程序段:

     

    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

     

    13.以下程序段:

     

    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

     

    14.以下程序段的作用是(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.以上说法都不正确

     

    15.我国现在人口有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

     

    16.以下程序的作用是(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.以上说法都不正确

     

    17.求自然数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

     

    18.求自然数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

     

    19.求自然数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

     

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

     

    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考前冲刺题(5)

    2018年12月计算机二级VB考前提分练习题(2)

    专题汇总

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