首页 - 网校 - 万题库 - 美好明天 - 直播 - 导航
您现在的位置: 考试吧 > 计算机等级考试 > 计算机二级考试 > VB > 模拟试题 > 正文

2018年9月计算机二级VB考试巩固练习及答案(9)

来源:考试吧 2018-07-05 14:25:47 要考试,上考试吧! 万题库
“2018年9月计算机二级VB考试巩固练习及答案(9)”供考生参考。更多计算机等级考试模拟试题等信息请访问考试吧计算机等级考试网。

  点击查看:2018年9月计算机二级VB考试巩固练习及答案汇总

  1.下列可以激活属性窗口的操作是(D)(单)

  A.用鼠标双击窗体的任何部位

  B.执行"文件"菜单中的"属性窗口"命令

  C.执行"编辑"菜单中的"属性窗口"命令

  D.按F4键

  2下列能打开工具箱窗口的操作是(A)(单)

  A.执行"视图"菜单中的"工具箱"命令

  B.按Alt键

  C.单击属性窗口上的"工具箱"按钮

  D.按Ctrl键

  3.假定已在一个窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置该窗体的Name属性,预先应执行的操作是(D)(单)

  A.单击窗体上有控件的地方

  B.单击任一个控件

  C.不执行任何操作

  D.双击窗体的标题栏

  4.为了把窗体上的某个控件变为活动的,应执行的操作是(B)(单)

  A.单击窗体的空白处

  B.单击该控件的内部

  C.双击该属性列表框

  D.双击窗体

  5.确定一个控件在窗体上的位置的属性是(D)(单)

  A.Width或Height

  B.Top和Height

  C.Top或Width

  D.Top和Left

  6.确定一个窗体或控件的大小的属性是(A)(单)

  A.Width或Height

  B.Top和Width

  C.Top或Left

  D.Top和Left

  7.为了同时改变一个活动控件的高度和宽度,正确的操作是(A)(单)

  A.拖拉位于控件左上角

  B.只能拖拉位于控件右下角

  C.只能拖拉位于控件左下角

  D.不能同时改变控件的高度和宽度

  8.面向对象的程序设计指满足(B)(单)

  A.虚拟化、结构化、动态化

  B.封装性、继承性、多态性

  C.对象的链接、动态链接、动态数据交换

  D.ODBC、DDE、OLE

  9.用户在屏幕上画出应用程序界面,并设置好对象的属性,系统便可以自动生成程序代码,这称为(A)(单)

  A.面向对象的程序设计

  B.结构化程序设计

  C.事件驱动的编程机制

  D.程序设计

  10.VB集成开发环境开发的应用程序不适宜的运行环境是(A)(单)

  A.WINDOS 32

  B.WINDOWS 9X

  C.WINDOWS NT

  D.WINDOWS 2000

  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年等考报考资讯
2018等考各科通关技巧
2018各科最新预测试卷
2018等考各科备考资料

微信搜索"考试吧"了解更多考试资讯、下载备考资料

  相关推荐:

  2018年全国计算机等级考试必做试题汇总(各科目)

  2018年全国计算机等级考试复习知识点汇总(各科目)

  2018全国计算机等级考试备考经验及应试技巧汇总

  历年真题汇总|考试吧策划:2018年计算机等级考试报考指南

0
收藏该文章
0
收藏该文章
文章搜索
万题库小程序
万题库小程序
·章节视频 ·章节练习
·免费真题 ·模考试题
微信扫码,立即获取!
扫码免费使用
版权声明:如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系800@exam8.com,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。
Copyright © 2004- 考试吧计算机等级考试网 出版物经营许可证新出发京批字第直170033号 
京ICP证060677 京ICP备05005269号 中国科学院研究生院权威支持(北京)
在线模拟试题
考证通关杀器
考试最新资讯
一次通关技巧