文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

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

马六甲海峡

马六甲海峡

2024-04-18 04:03

关注

     2018上半年计算机二级VB考试已经结束,编程学习网小编为大家准备了2018年9月计算机二级VB考试试题及答案,供大家参考学习。 

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

  A.Width和Height

  B.Width或Height

  C.Top和Left

  D.Top或Left

  2.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click( )

  Text1.Text = "Visual"

  Me.Text1 = "Basic"

  Text1 = "Program"

  End Sub

  程序运行后,如果单击命令按钮,则在文本框中显示的是(C)(单)

  A.Visual

  B.Basic

  C.Program

  D.出错

  3.以下关系表达式中,其值为False的是(A)(单)

  A."ABC">"AbC"

  B."the"<>"they"

  C."VISUAL"=UCase("Visual")

  D."Integer">"Int"

  4.语句Print int(5/4*6\\5) Mod 2的输出结果是(B)(单)

  A.0

  B.1

  C.2

  D.3

  5.在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:

  Private Sub Command1_Click( )

  strText = InputBox("请输入")

  Text1.Text = strText

  End Sub

  Private Sub Text1_Change( )

  Label1.Caption = Right(Trim(Text1.Text), 3)

  End Sub

  程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是(D)(单)

  A.空

  B.abcdef

  C.abc

  D.def

  6.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click( )

  x = -5

  If x >0 Then

  y = x ^ 2

  Else

  y = x

  End If

  Print y

  End Sub

  程序运行后,单击命令按钮,窗体上显示的是(A)(单)

  A.-5

  B.25

  C.1

  D.-1

  7.一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Pubilc X As

  Integer,在Model1中有语句Pubilc Y As Integer,则以下叙述中正确的是(A)(单)

  A.变量X、Y的作用域相同

  B.Y的作用域是Model1

  C.在Form1的任何地方中可以直接使用Y

  D.在Form2中可以直接使用X和Y

  8.在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是(A)(单)

  A.Drive1_Change

  B.Drive1_Click

  C.Dir1_Click

  D.Dir1_KeyPress

  9.在窗体上画一个命令按钮(其NAME属性为Command1),然后编写如下代码:

  Option Base 1

  Private Sub Command1_Click( )

  Dim a

  s = 0

  a = Array(1, 2, 3, 4)

  For I = 4 To 1 Step -1

  s = s + a(I)

  Next I

  Print s

  End Sub

  运行上面的程序,单击命令按钮,其输出结果是(D)(单)

  A.4321

  B.1234

  C.34

  D.10

  10.在窗体上画一个名称为Text1的文本框,编写以下代码:

  Private Sub Text1_KeyPress(KeyAscii As Integer)

  If KeyAscii < 65  Or  KeyAscii> 90 Then

  msgBox "请输入大写字母"

  KeyAscii = 0

  End If

  End Sub

  以下能说明该事件过程正确是(A)(单)

  A.要求文本框只能接收大写字母的输入

  B.要求文本框只能接收小写字母的输入

  C.要求文本框只能接收数字的输入

  D.要求文本框只能接收65到90之间的数值的输入

  11.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  If n\\2 = n/2 Then

  f = f1(n)

  Else

  f = f2(n)

  End If

  Print f; n

  End Sub

  Public Function f1(ByRef x)

  x=x*x

  f1=x+x

  End Function

  Public Function f2(ByVal x)

  x=x*x

  f2=x+x+x

  End Function

  程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)

  A.72 36

  B.108 36

  C.72 6

  D.27 3

  12.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click( )

  c = "1234"

  For i = 1 To 4

  c1 = Trim(Str( ))

  Print c1

  Next i

  End Sub

  程序运行后,单击命令按钮,要求在窗体上显示如下内容

  1

  12

  123

  1234

  则在下划线处应填入的内容为(B)(单)

  A.Right(c1,i)

  B.Left(c1,i)

  C.Mid(c1,i,1)

  D.Mid(c1,i,i)

  13.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  For i = 2 To n

  For j = 2 To sqr(i)

  If i Mod j = 0 Then Exit For

  Next j

  If j >Sqr(i) Then Print i

  Next i

  End Sub

  该事件过程的功能是(C)(单)

  A.输出n以内的奇数

  B.输出n以内的偶数

  C.输出n以内的素数

  D.输出n以内能被j整除的数

  14.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:

  Private Function f(m As Integer)

  If m Mod 2 = 0 Then

  f = m

  Else

  f = 1

  End If

  End Function

  Private Sub Command1_Click( )

  Dim i As Integer

  s = 0

  For i = 1 To 5

  s = s + f(i)

  Next

  Print s

  End Sub

  程序运行后,单击命令按钮,在窗体上显示的是(C)(单)

  A.11

  B.10

  C.9

  D.8

  15.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click( )

  Dim array1(10, 10) As Integer

  Dim i As Integer, j As Integer

  For i = 1 To 3

  For j = 2 To 4

  array1(i, j) = i + j

  Next j

  Next i

  Text1.Text = array1(2, 3) + array1(3, 4)

  End Sub

  程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)

  A.15

  B.14

  C.13

  D.12

  16.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

  17.在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。

  Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button=2 Then

  popupmenu mnuEdit

  End If

  End Sub

  18.在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序,请填空。

  Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button=2 Then

  【popupmenu】 mnuEdit

  End If

  19.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的【Interval】属性设置为500。

  20.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的Interval属性设置为【500】。

     想要报考2018年计算机等级考试的朋友现在就可以开始备考了,可以报名编程学习网计算机等级学院,编程学习网计算机等级学院含有计算机等级考试各科目赠送:辅导教材、历年真题、作业题、在线模拟测试题库,还有老师专属答疑指导等,帮助大家顺利通过考试。

 >>>>>>点击进入计算机等级考试专题

 

      返回目录:2018年9月计算机二级VB考试巩固练习及答案汇总

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     813人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     354人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     318人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     435人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     224人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-考试认证-考试信息-考试时间
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯