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

《五套二级VB考试模拟试题.doc》由会员分享，可在线阅读，更多相关《五套二级VB考试模拟试题.doc（36页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、HC. TIMERD. INTERVAL7. Visual Basic代码中用到“水平滚动条”的“CHANGE”事件的同时，也会用到 事件。A. CLICKB. LOADC. SCROLLD. MOUSEMOVE8. 结束当前打印作业的方法为 。A. ENDDOCB. KILLDOCC. NEWPAGED. END9. 打开“API VIEWER外接程序”应使用 菜单。A. 视图B. 外接程序C. 工具D. 工程10. 以下 控件不属于DATA控件绑定的内部控件。A. CHECKBOXB. TEXTBOXC. LABELD. TIMER11. MOUSEPOINTER属性取值 ，可设置鼠标的自

3、定义图标。A. 3B. 8C. 15D. 9912. 以下 不属于表达式Chr(Int(89 + Rnd * 5)的生成范围。A. B. C. AD. 13. 以下代码，循环执行 次。Dim nFor n=1 To 50 Step 5 Txtresult.Text=Str(n)NextA. 12B. 10C. 50D. 1114. 以下各种高级语言中， 不是面向对象的程序设计语言。A. VISUAL C+B. PASCALC. DELPHID. VISUAL BASIC15. 下列命令中 可实现对随机文件的读操作。A. WRITEB. GETC. INPUTD. PUT16. Visual B

4、asic中“剪贴板”对象的名称为 。A. COPYB. CLIPBOARDC. CLIPD. BOARD二、填空题1. 通过数据控件Data1连接C:vb6Students.mdb数据库，则需设置Connect为 ，DatabaseName为 。2.“计时器”控件常用的两个属性为 、 。3. Shape控件的 属性取值为 时，形状为“圆”。4. 代数式9e6ln6的Visual Basic表达式为 。5. 表达式CHR(ASC(*)的值为 。6. 以下代码执行的循环次数为 。Dim numNum=200Do Txtresult.text=Str(num) Num=num+1Loop While

5、 num y . And. x yB. x y zC. x y And zD. x y And y z7. 数组声明Dim X(5, -2 to 3, 2)共有 个元素。A. 50B. 60C. 90D. 1088. 数据类型中的变体型可以包括数值型、日期型、对象型和字符型等数据，此外，它还含4个特殊的数据： 和Empty。 A. Null、Error、ObjectB. Null、Error、Nothing C. Null、Error、TypeD. Null、Error、Data9. 从函数子过程退出，并返回到主调过程，可使用语句 。 A. ExitB. ReturnC. Exit SubD.

6、 Exit Function10. 下列命令中 可实现对顺序文件的写操作。 A. PrintB. Line InputC. InputD. Put11. 在Visual Basic 中要将一个窗体从内存中释放，应该使用以下语句中的 。 A. CloseB. HideC. StopD. UnLoad12. 设置窗体中鼠标指针的形状可通过 属性来进行。 A. IconB. MouseIconC. MousePointerD. Picture13. 引用列表框List1最后一个数据项应使用 。 A. List1.List(List1.ListCount)B. List1.List(List1.Lis

7、tCount-1)C. List1.List(ListCount)D. List1.List(ListCount-1)14. Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，可通过以下 属性。 A. Enabled = False或Interval = 0B. Visible= False或Interval = 0 C. Enabled = False或Visible = FalseD. Enabled = False且Interval = 015 代数式Ln(1+tg2x)所对应的Visual Basic表达式是 。 A. Log(1+tan(x)2)B.

8、 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个字符，需要通过代码 和Text1.SelLength = 来实现。 4. 选择通用对话框的 方法，可打开另存为对话框。 5. 对于窗体上的菜单按钮，如果不允许显示，应通过 属性进行设置。 6. 对于正

9、在使用的动态数组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（15）个1到5的数字，按数字降序排序后，将连续出现的数字用压缩形式显示。例如，连续3个数字4，则显示3*4，参见图1。图1Private Sub Command1_Click()C

10、onst 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) = t Next i For i = 1 To N Print a(i); Next i Print: Print 压缩显示; i = 1 Do While i = N 相同元素压缩显

11、示 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为转换结果。Public Sub DTOH(ByVal D As Integer, h As String)Dim t As Integer, c As String, r As In

12、tegerh = 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_Click() Dim i, a, b, c As Integer Text1.Text = The munber of 水仙花 n = 0 For i = 100 To 999 a

13、= 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, Text1.Text Close filenumEnd Sub2. 程序参考答案：（1）Form1：Private Sub Combo1_DblClick() List1.AddIte

14、m 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) Ne

15、xt For i = 1 To 10 a(i) = Next List1.AddItem str NextEnd SubPrivate Sub mntExit_Click() EndEnd SubPrivate Sub mntWindows2_Click() Form1.Hide Load Form2 Form2.ShowEnd Sub（2）Form2：Private Sub Command1_Click() Dim x0, y0, x, y, r, a Picture1.ScaleMode = 3 Picture1.AutoRedraw = True Picture1.Width = Pic

16、ture1.Height Picture1.Scale (-3.14159, -3.14159)-(3.14159, 3.14159) a = Picture1.ScaleWidth / 2x0 = 0y0 = 0 For s= 0 To 2 * 3.14159 Step 0.001 x = a * sin(3 * s) * sin(2 * s) y = a * sin(3 * s) * cos(2 * s) Picture1.Line (x0, y0)-(x,y)x0=xy0=y Next sEnd SubPrivate Sub Command2_Click() Unload Me Load

17、 Form1 Form1.Show End SubVB模拟试卷三一、单选题1. 下列 不是Visual Basic的对象。A. 命令按钮B. 变量C. 正文框D. 窗体2. 下列 方法可在程序执行时移动对象。A. LINEB. MOVEC. CIRCLED. PSET3. 在 情况下，“FORM_MOUSEMOVE()”过程会执行。A. 单击窗体可用区域B. 放开鼠标按键时C. 在窗体可用区域中移动鼠标D. 按下鼠标右键4. 在 情况下，“FORM_DRAGDROP()”过程会执行。A. 拖拽对象并放开鼠标按键时B. 移动鼠标时C. 拖拽对象到窗体外时D. 按下鼠标左键5. COMMONDIA

18、LOG1.ACTION=4代码，打开 对话框。A. OPENB. 另存为C. 字型D. 打印机6. 属性是缩放图片的大小。A. AUTOSIZEB. STRETCHC. VISIBLED. ENABLE7.“POINT”方法的作用是 。A. 绘制点B. 绘制线C. 显示象素色彩D. 绘制圆8. 打印窗体使用 方法。A. POINTB. PAINTPICTUREC. PRINTFORMD. PSET9. 下列程序代码，以 方式传递数据。Function Result(ByVal MyData)End FunctionA. ByVal（数值）B. By reference（参考）C. 条件不足，视

19、程序代码而定D. 递归10. 以下语句执行的结果为 。Private Sub Form_Click() Static Sum As Integer For I=1 To 100 Sum=Sum+I Next I Print SumEnd SubA. 5000B. 5050C. 1200D. 506511. ActiveX控件的扩展名为 。A. FRMB. VBPC. OCXD. VBA12. ListBox和ComboBox的STYLE属性的取值种类为 。A. 2，2B. 2，3C. 3，2D. 3，313. ToolBar控件通常和 控件一起使用创建工具栏。A. DBGRIDB. LISTB

20、OXC. TEXTD. IMAGELIST14. 以下代码实现 功能。FillStyle = 0Circle (600, 1000), 800, , , , 3A. 圆B. 实心椭圆C. 空心椭圆D. 椭圆15. 不属于打印字体属性。A. FontItalicB. FontUnderlineC. FontTransparentD. FontColor16. 控件的功能类似与资源浏览器，也可访问WEB页。A. WINSOCKB. WEBBROWSERC. DATAD. PROGRESSBAR二、填空题1. 激活属性窗口，可按 键。2. 代数式8e3ln2的Visual Basic表达式为 。3.

21、 窗体中有三个命令按钮和两个文本框，要将焦点定位到第二个文本框，必须设置该控件的 属性为 。4. 通过数据控件Data1连接C:vb6Parts.mdb数据库，则需设置Connect为 ，DatabaseName为 。5. Timer定时器控件的 属性以 为单位。6. Listbox控件和ComboBox控件相同的重要方法是 、 、 。7. ProgressBar控件的进度显示方式为分段，应设置 属性数值为 。8. 语句FOR N=1 TO 50 STEP 3的循环次数为 。9. 设置通用对话框的 属性为 ，可打开颜色对话框。10. 控件只能使用无声的AVI动画； 控件可以播放有声的.avi文

22、件。三、程序填空1. 编写代码用于实现以下功能：建立并输出一个1010的矩阵，该矩阵对角线元素为1，其余元素均为0。Private Sub Form_Click()Dim mat(10, 10)For I=1 to 10 For j=1 to 10 If (1) Then (2) Else (3) End If Next jNext IFor I=1 to 10 For j=1 to 10 (4) Next j PrintNext IEnd Sub2. 编写程序，打印如下所示的“数字金字塔”：11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 6 7 8 9 8 7 6

23、 5 4 3 2 1Private Sub Form_Click() For I=1 to 9 For j=1 to 30-3*I (1) Next j For k=1 to I (2) Next k For (3) Print k Next k Print Next IEnd Sub3. 用随机数模拟旋转的硬币，正面用字母F表示，反面用字母B表示。Private Sub Form_Click() N=InputBox(请输入模拟次数) F=0 B=0 Randomize Print Print 模拟次数为：; n For I=1 to n If (1) Then Print B (2) El

24、se (3) (4) If ( (f+b) Mod 20 )=0 then Print End If End IfNext IPrintPrint (5) End Sub四、编程题1. 编写程序，如图1所示实现相应功能。所用控件：标签、文本框、命令按钮、垂直滚动条（MAX：1000；MIN：1）。垂直滚动条在11000之间变化，标签显示相应数值，单击“数字和”按钮，在文本框中显示从1+2+3+的和。单击“结束”按钮，退出程序运行。2. 编写程序，如图2所示实现相应功能。所用控件：标签、水平滚动条、命令按钮、SHAPE形状。水平滚动条滚动改变图形线条宽度。单击“结束”按钮退出程序。 图1 图2VB模拟试卷三参考答案一、单选题1. B2. B3. C4. A5. C6. B7. C8. C9. A10. B11. C12. B13. D14. B15. D16. B二、填空题1. F42. 8*Exp(3)*Log(2)3. TABINDEX04. ACCESSC:vb6Parts.mdb5. INTERVAL毫秒6. ADDITEMREMOVEITEMCLEAR7. SCROLLING08. 1