首页 - 网校 - 万题库 - 直播 - 雄鹰网校 - 团购 - 书城 - 模考 - 学习通 - 导航 -
首页网校万题库直播雄鹰网校团购书城模考论坛实用文档作文大全宝宝起名
2015中考
法律硕士
2015高考
MBA考试
2015考研
MPA考试
在职研
中科院
考研培训
专升本
自学考试 成人高考
四 六 级
GRE考试
攻硕英语
零起点日语
职称英语
口译笔译
申硕英语
零起点韩语
商务英语
日语等级
GMAT考试
公共英语
职称日语
新概念英语
专四专八
博思考试
零起点英语
托福考试
托业考试
零起点法语
雅思考试
成人英语三级
零起点德语
等级考试
华为认证
水平考试
Java认证
职称计算机 微软认证 思科认证 Oracle认证 Linux认证
公 务 员
导游考试
物 流 师
出版资格
单 证 员
报 关 员
外 销 员
价格鉴证
网络编辑
驾 驶 员
报检员
法律顾问
管理咨询
企业培训
社会工作者
银行从业
教师资格
营养师
保险从业
普 通 话
证券从业
跟 单 员
秘书资格
电子商务
期货考试
国际商务
心理咨询
营 销 师
司法考试
国际货运代理人
人力资源管理师
广告师职业水平
卫生资格 执业医师 执业药师 执业护士
会计从业资格
基金从业资格
统计从业资格
经济师
精算师
统计师
会计职称
法律顾问
ACCA考试
初级会计职称
资产评估师
高级经济师
注册会计师
高级会计师
美国注册会计师
审计师考试
国际内审师
注册税务师
理财规划师
一级建造师
安全工程师
设备监理师
公路监理师
公路造价师
二级建造师
招标师考试
物业管理师
电气工程师
建筑师考试
造价工程师
注册测绘师
质量工程师
岩土工程师
注册给排水
造价员考试
注册计量师
环保工程师
化工工程师
暖通工程师
咨询工程师
结构工程师
城市规划师
材料员考试
消防工程师
监理工程师
房地产估价
土地估价师
安全评价师
房地产经纪人
投资项目管理师
环境影响评价师
土地登记代理人
宝宝起名
缤纷校园
实用文档
入党申请
英语学习
思想汇报
作文大全
工作总结
求职招聘 论文下载 直播课堂
您现在的位置: 考试吧 > 计算机等级考试 > 计算机二级考试 > VB > 模拟试题 > 正文

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

来源:考试吧 2018-11-22 16:45:48 考试吧:中国教育培训第一门户 模拟考场
“2018年12月计算机二级VB考试冲刺练习题及答案(3)”供考生参考。更多计算机等级考试试题,请访问考试吧计算机等级考试网。

  点击查看:2018年12月计算机二级VB冲刺练习题及答案汇总

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

  Private Sub Form_Click( )

  MyDate = #7/21/1997#

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

  Print Format(MyDate,"yyyy年m月dd日")

  End Sub

  A.7/21/97 1997年7月21日

  B.7-21-97 1997年7月21日

  C.97/7/21 1997年7月21日

  D.7/21/97 97年7月21日

  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、text2和text3,还有一个名称为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、3和8,则标签显示的结果为(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年等考报考资讯
2018等考各科通关技巧
2018各科最新预测试卷
2018等考各科备考资料

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

  相关推荐:

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

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

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

文章搜索
版权声明:如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系800@exam8.com,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。
Copyright © 2004- 考试吧计算机等级考试网 All Rights Reserved 
中国科学院研究生院权威支持(北京)
在线模拟试题
考证通关杀器
考试最新资讯
一次通关技巧