五套二级VB考试模拟试题.docx

1、五套二级VB考试模拟试题VB模拟试卷一一、单选题1. Visual Basic变量命名不超过 个字符。A. 255 B. 256 C. 125 D. 1262. 跳出FOR NEXT循环程序，可使用语句 。A. EXIT B. END C. EXIT FOR D. EXIT DO3. 表达式169+196+200的值是 。A. 169196100 B. 565 C. 169396 D. 3652004. 窗体的BORDERSTYLE属性取值种类为 D 。A. 3 B. 4 C. 5 D. 65. 利用SHAPE控件可设置 B 种形状。A. 5 B. 6 C. 7 D. 86. 以下 是“计时器

2、”控件的重要属性。A. BACKCOLOR B. STRETCHC. TIMER D. INTERVAL7. Visual Basic代码中用到“水平滚动条”的“CHANGE”事件的同时，也会用到 事件。A. CLICK B. LOADC. SCROLL D. MOUSEMOVE8. 结束当前打印作业的方法为 B 。A. ENDDOC B. KILLDOCC. NEWPAGE D. END9. 打开“API VIEWER外接程序”应使用 B 菜单。A. 视图 B. 外接程序 C. 工具 D. 工程10. 以下 控件不属于DATA控件绑定的内部控件。A. CHECKBOX B. TEXTBOXC

3、. LABEL D. TIMER11. MOUSEPOINTER属性取值 D ，可设置鼠标的自定义图标。A. 3 B. 8 C. 15 D. 9912. 以下 不属于表达式Chr(Int(89 + Rnd * 5)的生成范围。A. B. C. A D. 13. 以下代码，循环执行 次。Dim nFor n=1 To 50 Step 5 Txtresult.Text=Str(n)NextA. 12 B. 10 C. 50 D. 1114. 以下各种高级语言中， B 不是面向对象的程序设计语言。A. VISUAL C+ B. PASCALC. DELPHI D. VISUAL BASIC15. 下

4、列命令中 B 可实现对随机文件的读操作。A. WRITE B. GETC. INPUT D. PUT16. Visual Basic中“剪贴板”对象的名称为 B 。A. COPY B. CLIPBOARDC. CLIP D. BOARD二、填空题1. 通过数据控件Data1连接C:vb6Students.mdb数据库，则需设置Connect为 ，DatabaseName为 。2.“计时器”控件常用的两个属性为 、 。3. Shape控件的 属性取值为 时，形状为“圆”。4. 代数式9e6ln6的Visual Basic表达式为 。5. 表达式CHR(ASC(*)的值为 。6. 以下代码执行的循

5、环次数为 。Dim numNum=200Do Txtresult.text=Str(num) Num=num+1Loop While num y . And. x y B. x y zC. x y And z D. x y And y z7. 数组声明Dim X(5, -2 to 3, 2)共有 个元素。A. 50 B. 60 C. 90 D. 1088. 数据类型中的变体型可以包括数值型、日期型、对象型和字符型等数据，此外，它还含4个特殊的数据： 和Empty。 A. Null、Error、Object B. Null、Error、Nothing C. Null、Error、Type D.

6、Null、Error、Data9. 从函数子过程退出，并返回到主调过程，可使用语句 。 A. Exit B. Return C. Exit Sub D. Exit Function10. 下列命令中 可实现对顺序文件的写操作。 A. Print B. Line Input C. Input D. Put11. 在Visual Basic 中要将一个窗体从内存中释放，应该使用以下语句中的 。 A. Close B. Hide C. Stop D. UnLoad12. 设置窗体中鼠标指针的形状可通过 属性来进行。 A. Icon B. MouseIcon C. MousePointer D. Pi

7、cture13. 引用列表框List1最后一个数据项应使用 。 A. List1.List(List1.ListCount) B. List1.List(List1.ListCount-1)C. List1.List(ListCount) D. List1.List(ListCount-1)14. Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，可通过以下 属性。 A. Enabled = False或Interval = 0 B. Visible= False或Interval = 0 C. Enabled = False或Visible = False

8、D. Enabled = False且Interval = 015 代数式Ln(1+tg2x)所对应的Visual Basic表达式是 。 A. Log(1+tan(x)2) B. Log(1+tg(x)2 C. Ln(1+tan(x)2) D. Ln(1+tg(x)2)二、填空题（20分，每小题2分）1. 窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本框Text1上，则在设计时需要将Text1控件的 属性设置为 。2. 当单击滚动条的箭头时，要使滑块的移动量为50，则需通过 属性来控制。3. 当焦点进入文本框Text1时，要自动选定文本框开始的5个字符，需要通过代码

9、 和Text1.SelLength = 来实现。 4. 选择通用对话框的 方法，可打开另存为对话框。 5. 对于窗体上的菜单按钮，如果不允许显示，应通过 属性进行设置。 6. 对于正在使用的动态数组d()，要增加2个单元，则应使用语句 。7. 格式输出函数Format(6543.21, #,#.000) 的显示结果为 。 8. 绘制圆心坐标为 (1000, 500)，半径为300的圆，其代码为 。 9. 在Visual Basic中声明静态变量的关键字是 。10. 表达式 Str(Int(-2.3)+Sgn(6)+Sqr(25) 的值为 。三、程序填空（20分，每格2分）1. 本程序随机产生N

10、（15）个1到5的数字，按数字降序排序后，将连续出现的数字用压缩形式显示。例如，连续3个数字4，则显示3*4，参见图1。图1Private Sub Command1_Click()Const N = 15Dim a%(1 To N)Dim c%, i%, j%, m%For i = 1 To Na(i) = Int( (1) )Print a(i);Next iPrint: Print 排序;For i = 1 To N - 1 选择法排序m = iFor j = (2) If a(j) = a(m) Then (3) Next j t = a(i) : a(i) = a(m) : a(m)

11、= t Next i For i = 1 To N Print a(i); Next i Print: Print 压缩显示; i = 1 Do While i = N 相同元素压缩显示 c= 1 If i N Then j = i + 1 Do While a(i) = a(j) (4) If j N Then j = j + 1 Else Exit Do Loop If c = 1 Then Print a(i); Else Print c; *; a(i); ; i = (5) LoopEnd Sub2. DTOH子过程是将十进制整数转换成十六进制整数，参数D为要转换的十进制整数，参数h

12、为转换结果。Public Sub DTOH(ByVal D As Integer, h As String)Dim t As Integer, c As String, r As Integerh = If D 0 Then t = -D Else (1) Do While (2) r = t (3) t = t16 If r 10 Then h = r & h Else h = (4) & h End IfLoopIf D 0（3）Mod 16（4）Chr (r + 55)（5）Call DTOH (Text1, hs)四、编程题1. 程序参考答案：Private Sub Command1_

13、Click() Dim i, a, b, c As Integer Text1.Text = The munber of 水仙花 n = 0 For i = 100 To 999 a = i 100 b = i 10 - a * 10 c = i - a * 100 - b * 10 If (i = a * a * a + b * b * b + c * c * c) Then n = n + 1 End If Next Text1.Text = n filenum = FreeFile Open a: a1.dat For Output As filenum Print #filenum,

14、Text1.Text Close filenumEnd Sub2. 程序参考答案：（1）Form1：Private Sub Combo1_DblClick() List1.AddItem Combo1.SelText Combo1.Text = End SubPrivate Sub mntDing_Click() Dim i, l, k As Integer Dim str As String Dim a(1 To 10) As String List1.Clear For k = 1 To 10 l = Rnd * 8 + 2 For i = 1 To l / 2+1 c = Rnd * 25 + 65 a(i) = Chr(c) a(l + 1 - i) = Chr(c) Next str = For i = 1 To l + 1 str = str & a(i) Next For i = 1 To 10 a(i) = Next List1.AddItem str NextEnd SubPrivate Sub mntExit_Click() EndEnd