重庆市计算机等级二级VB历年真题A-1二级Visual Basic 语言笔试试题(A)一、单项选择题（每题 1 分，共20分）1. 执行X = 7 And 3 : Y = 7 Or 3后，比较结果：(A)X = Y (B) X > Y (C) X < Y (D) 发生错误2. 执行 X = 7 Mod 3 : Y = 7 \ 3后，比较结果：(A)X = Y (B) X > Y (C) X < Y (D) 发生错误3. 下列常数或表达式中数值最大的为：(A) &H200-1 (B) &HFF+256 (C) 512 (D) &H100+2554．下列表达式中数值最小的为：(A) –7 / 3 (B) Fix ( -7 / 3 ) (C) -Int (7 / 3 ) (D) Int ( -7 / 3 ) 5．执行 Print Int ( 12.34567 * 1000 ) / 1000 后，显示的结果为：(A)12.000 (B)12.34 (C)12.345 (D)12.34566. 从A$ = "Windows Application",中取出 "Application" 子字符串所用到的函数是：(A)Left$ (A$, 10) (B)Right (A$, 10)(C)Mid$ (A$, 9, 10) (D)Mid$(A$, 9)7. 如要将一个数值变量A中的数值在标签Label1上显示，正确的语句是：(A) = A (B)Label1.Tag = A(C)Label1.Caption = A (D)Label1.Top = A8. 如要将一个字符串变量A中的字符串在标签Label1上显示，正确的语句是：(A) = A (B)Label1.Tag = A(C)Label1.Caption = A (D)Label1.Top = A9. 如要读出文本框Text1上显示的字符串，正确的语句是：(A)X$ = (B)X$ = Text1.Tag(C)X$ = Text1.Font (D)X$ = Text1.Text10．按下鼠标左键或右键，将能够区分鼠标的左、右键的事件是：(A)Click (B)DblClick (C)MouseDown (D)DragDrop11. 命令按钮Command1表面可以显示在Picture属性中的图片，必须设置命令按钮的：(A)Command1.Apearance = Flat (B)Command1.Visible = True(C)Command1.Style = Graphical (D)Command1.Enable = True12．命令按钮Command1的Picture, DownPicture和DisabledPicture属性都已装入图形，当命令按钮的Enable = False时，在命令按钮表面显示的图形为：(A)DownPicture 属性中的图形 (B)DisabledPicture属性中的图形(C)Picture属性中的图形 (D)Picture属性中的图形，但呈现为灰色13. 将命令按钮Command1表面显示的图片复制到图片框Picture1中的语句是：(A)Picture1=Command1.Picture (D)Picture1.Picture =Command1.DownPicture(C)Picture1.Picture =Command1 (B)Picture1=Command1.DisablePicrure14. 将到图片框Picture1中的图片复制到命令按钮Command1表面显示的语句是：(A)Command1=Picture1.Picture (B)Command1.DisablePicrure=Picture1 (C)Command1.Picture =Picture1 (D)Command1.DownPicture=Picture1.Picture15．在二个图片框中各有一组单选按钮OptionButton，其作用为：( A)两组单选按钮中只有一个能被选中(B)因有两组单选按钮，无一可被选中(C)两组单选按钮中各有一个能被选中(D)两组单选按钮中各有一个以上的能被选中16．在二个图片框中各有一组复选框CheckBox，其作用为：(A)两组复选框中只有一个能被选中 (B)因有两组复选框，无一可被选中(C)两组复选框中各有一个能被选中 (D)两组复选框中各有多个能被选中17. 图片框的FillStyle 属性为Solid，用Line方法绘制矩形框，若省略F选项，填充的色彩为图片框的：(A)BackColor属性 (B)FillColor属性(C)ForeColor 属性 (D)固定为黑色18. 图片框的FillStyle 属性为Solid，在用Line方法绘制矩形框时，若省略色彩选项，矩形框的边界色彩为：(A)BackColor属性 (B)FillColor属性(C)ForeColor 属性 (D)固定为黑色19. 定时器Timer控件触发Timer事件触发过程的时间间隔为：(A)每秒触发一次 (B)每隔Interval属性中设定的时间间隔触发一次(C)每毫秒触发一次 (D)每隔由Windows系统设定的时间间隔触发一次20．以顺序输出（写文件）模式打开文件 "Test.Dat" 的语句是：(A)Open "Test.Dat" For Output As #1(B)Open "Test.Dat" For Input As #2(C)Open "Test.Dat" For Binary As #3(D)Open "Test.Dat" For Random As #4 Len = 16二、多项选择题: (每题1分, 共10分)1．绝对值小于4的表达式有：(A)7\2 (B)-7\2 (C)Int(7/2) (D)Int(-7/2) (E)Fix(-7/2)2．在VB中，呈现灰色的色彩表示法有：(A)&H808080 (B)&H80C080 (C)QBColor(7)(D)RGB(128,128,128) (E)RGB(128,255,128)3. 整数A > B, 产生一个大于等于B且小于A的随机整数的表达式为：(A)Int((A-B)*Rnd+1) (B)Int((A-B +1)*Rnd+B) (C)A+Int((A-B -1)*Rnd)(D)Int((A-B) *Rnd+B)`(E)B+Int((A-B)*Rnd)4. 具有标题Caption属性的控件有：(A)标签 Label (B)窗体 Form (C)框架 Frame(D)图片框 PictureBox (E)命令按钮CommandButton5．在其表面可以显示图形的控件有：(A)图象框Image (B)复选框 CheckBox (C)单选按钮OptionButton(D)图片框 PictureBox (E)命令按钮CommandButton6. 控件的MousePoint属性上可将光标的形状设置为：(A)Arrow (B) Cross (C)I-Beam (D)Up Arrow (E)HourGlass7．在键盘上按空格键，并立即松开，被触发的事件有：(A)KeyUp (B)KeyDown (C)KeyPress (D)Click (E)DbClick8．在控件上按下鼠标右键, 并立即松开，被触发的事件有：(A)Click事件 (B)DbClick事件(C)MouseDown事件 (D)MouseMove事件 (E)MouseUp事件9. 一个控件数组中的控件必须符合的条件是：(A)数组中的每个控件类型相同 (B)数组中的每个控件的名称相同(C)数组中的每个控件的大小都必须相同 (D)数组中的每个控件的位置都必须相同(E)数组中的每个控件的索引（Index）属性相同10．VB的工程菜单(Project)中部件(Components)菜单项中有很多功能强大的外部控件：(A)通用对话框CommonDialog (B)高级文本框RichTextBox(C)日历Calender (D)Internet浏览器WebBrowsers(E)接收和发送E-Mail的控件MAPISession和MAPIMessages三、判断分析 (每题1分, 共10分)(下列各小题的叙述是否正确，如正确，请选择“?”；如错，请选择“?”。
)1．在VB中，未经声明的变量的数据类型为Variant通用型。
2．已经声明，但未经赋值的数值变量的初值为0。
3．已经声明，但未经赋值的字符串变量的初值为长度为1的空格。
4．控件Frame具有容器功能，可将其他控件放置在Frame控件内。
5．标签控件Label中的内容在运行时可以通过键盘直接修改。
6．文本框控件TextBox中的内容在运行时可以通过键盘直接修改。
7．命令按钮的表面可以显示文字或图形。
8．若一控件的Enabled = False，Visible = True，则在运行时该控件可见，但不响应操作。
9．若一控件的Visible=False，Enabled= True，则在运行时该控件不可见，但可响应操作。
10.由于定时器Timer控件在运行时是不可看的，因此定时器控件不可能有事件触发过程。
四、填空题: (每空2分, 共20分)1．单击命令按钮Command1之后，在窗体上显示10个数值范围为10 - 100的随机数。
Private Sub Command1_Click ( )For k = 1 To _①__A = Int (__②__ * Rnd ) + ____③____Print ANext kEnd Sub2．在窗体上绘制一闭合图形的操作是：在闭合图形的起点按下鼠标左键，拖动鼠标画出图形，放开鼠标左键自动画出到起点的连线，完成闭合，结束绘制。
Private Sub Form_MouseDown(Button%, Shift%, X!, Y!)Tag = Y * 10000 + X____④____ (X, Y)End SubPrivate Sub Form_MouseMove(Button%, Shift%, X!, Y!)If ____⑤____ = 1 Then Line -(x, y)End SubPrivate Sub Form_MouseUp(Button%, Shift%, X!, Y!)X0 = Tag ____⑹____ 10000: Y0 = Tag ____⑦____10000Line (X, Y)-(X0, Y0)End Sub3．滚动条数组HScroll1(1)、HScroll1(2)、HScroll1(3) 分别调节图片框Picture1背景色的红、绿、蓝分量。