• 关于开展对我市改革建言献策活动的启事 2019-05-23
  • [大笑]精神心理科医生在等你…… 2019-05-23
  • 壮阔东方潮奋进新时代 2019-05-22
  • 上饶市2018年新闻发言人“集体亮相” 共186名 2019-05-22
  • 日照港集团实现首季开门红 2019-05-12
  • 吃凉菜才是夏天的正经事 2019-05-12
  • 肖毅出席高速铁路项目对接座谈会 2019-05-06
  • 闸口上安家28年 他守护着乌伦古河 2019-05-06
  • 高清图集:习近平在山东考察 2019-04-29
  • 搭建“鹊桥”会“嫦娥”——长征四号丙运载火箭发动机研制侧记 2019-04-29
  • 5G标准出炉!与4G有啥不一样? 或1秒内下载1G电影 2019-04-25
  • 黄山风景区:“四位一体”救援,筑牢安全屏障 2019-04-02
  • 【波士通达奔驰车型报价】波士通达奔驰4S店车型价格 2019-04-01
  • 缓解高峰时段用水矛盾 亳州市区供水加压时段调整 2019-04-01
  • 科技创新奖:佳明VIRB 360运动相机 2019-03-28
  • 11选五玩法介绍: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)

    专题汇总

  • 关于开展对我市改革建言献策活动的启事 2019-05-23
  • [大笑]精神心理科医生在等你…… 2019-05-23
  • 壮阔东方潮奋进新时代 2019-05-22
  • 上饶市2018年新闻发言人“集体亮相” 共186名 2019-05-22
  • 日照港集团实现首季开门红 2019-05-12
  • 吃凉菜才是夏天的正经事 2019-05-12
  • 肖毅出席高速铁路项目对接座谈会 2019-05-06
  • 闸口上安家28年 他守护着乌伦古河 2019-05-06
  • 高清图集:习近平在山东考察 2019-04-29
  • 搭建“鹊桥”会“嫦娥”——长征四号丙运载火箭发动机研制侧记 2019-04-29
  • 5G标准出炉!与4G有啥不一样? 或1秒内下载1G电影 2019-04-25
  • 黄山风景区:“四位一体”救援,筑牢安全屏障 2019-04-02
  • 【波士通达奔驰车型报价】波士通达奔驰4S店车型价格 2019-04-01
  • 缓解高峰时段用水矛盾 亳州市区供水加压时段调整 2019-04-01
  • 科技创新奖:佳明VIRB 360运动相机 2019-03-28
  • 北京赛车大小规律 六合彩白小姐 北京赛车pk10大运 上海时时彩乐乐 北京赛车pk10预测 福彩3d出号走势图助手下载 足彩推荐 足彩胜负彩中奖 彩票投注器 pc蛋蛋幸运28预测群 天津时时彩合法吗 福彩3d今日开奖号码 排列3两码和走势图 中国体彩网6+1 福彩pk10赛车走势图 安徽时时彩走势图表