VB程序设计语言模拟试卷二(共7页).doc

《VB程序设计语言模拟试卷二(共7页).doc》由会员分享，可在线阅读，更多相关《VB程序设计语言模拟试卷二(共7页).doc（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上Visual Basic程序设计语言模拟试卷二一、单选题（15分，每小题1分）1. 类是对象的抽象，对象则是类的具体化。Visual Basic集成开发环境中的工具箱中各类图标对应的是 ，而在窗体上建立的控件对应的是 。A. 对象，类B. 对象，实体C. 类，对象D. 实体，类2. Visual Basic程序设计语言中，响应对象的外部动作称为 ，而对象可以执行的动作或对象本身的行为则称为 。A. 过程，事件B. 属性，方法C. 方法，事件D. 事件，方法3. 表达式123+100+100的值是 。 A. B. 323C. D. 4. 设Current X=400，C

2、urrentY=200，执行指令“Line(300, 500), , BF”后，CurrentY = 。 A. 500B. 700C. 400D. 3005. 按照Visual Basic默认规定，数组声明Dim c(3, 4, 2 to 5)共有个元素。 A. 36B. 80C. 60D. 486. 声明一个长度为256个字节的字符串变量mstr ，应使用 。 A. Dim mstrB. Dim mstr(256) As String C. Dim mstr As String * 256D. Dim mstr As String2567. 数据类型中的数值数据类型可以包括：Integer、

3、 、Currency和Byte。 A. Double、Long、SingleB. Double、Long、Data C. Double、Single、ObjectD. Double、Long、Variant8. 从子过程退出，并返回到主调过程，可使用语句 。 A. ExitB. ReturnC. Exit SubD. Stop Sub9. 下列命令中 可实现对随机文件的读操作。 A.WriteB. GetC. InputD. Put10. 在Visual Basic中将一个窗体从内存中释放时，允许用户进行控制，一般应该在 事件中编程处理。A. LostFocusB. QueryUnloadC.

4、 ClickD. UnLoad11. 设置窗体标题栏上的图标可通过 属性来实现。 A. IconB. ImageC. MouseIconD. Picture12. 引用组合框ComBo1最后一个数据项应使用 。 A. Combo1.List(Combo1.ListCount)B. Combo1.List(Combo1.ListCount - 1) C. Combo1.List(ListCount)D. Combo1.List(ListCount-1)13. Timer控件可用于后台进程中，可在Timer事件内编程，要触发Timer事件，必须通过以下 属性。A. Enabled、Interval

5、B. Visible、Interval C. Enabled、VisibleD. Tag、Interval14. 下列说法正确的是 。 A. Move属性用于移动窗体或控件，并可改变其大小 B. Move属性用于移动窗体或控件，但不可改变其大小 C. Move方法用于移动窗体或控件，但不可改变其大小 D. Move方法用于移动窗体或控件，并可改变其大小 15. 代数式所对应的Visual Basic表达式是 。A. Exp(-2.3) + Sqr(x * x + y *y) / Abs(x + y)B. Exp (-2.3) + Sqr(x * x + y *y) / Abs(x + y)C.

6、 Exp(-2.3) + Sqr(x * 2 + y *2) / Abs(x + y)D. Exp(-2.3) + Sqr(x 2 + y 2 / Abs (x + y)二、填空题（20分，每小题2分）1. 窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到命令按钮Command1上，则在设计时需要将Command1控件的 属性设置为 。2. 当单击垂直滚动条的箭头时，要使滑块的移动量为15，则需通过 属性来控制。3. 当焦点进入文本框Text1时，要自动选定文本框第1到第6个位置上的6个字符，则需要通过代码 和Text1.SelLength = 来实现。4. 对通用对话框选

7、择 方法，可显示“打开”对话框。5. 对于窗体上的命令按钮，如果不允许进行操作，应通过 属性进行设置。6. 对于正在使用的动态数组C()，要增加1个单元，则应使用语句 。7. 格式输出函数Format(1234.56, #,#0.000) 的显示结果为 。8. 为了使一个Picture控件能自动根据装入的图片调整大小，应设置该控件的 属性为True。9. 要使装入到列表框中的数据项能自动排序，应设置该控件的 属性为True。10. 在Visual Basic中要为对象变量赋值的关键字是 。三、程序填空（20分，每小格2分）1. 本程序随机产生N(15) 个A到J的大写字母，按字母降序排序后，将

8、连续出现的字母用压缩形式显示。例如，连续5个H字母显示为5*H，参见图1。数组a()用于存放随机产生的字母。图1Private Sub Command1_Click() Const N = 15 Dim a(1 To N) As String * 1, c Dim count%, i%, j%, k% For i = 1 To Na(i) = Chr(Int( (1) ) Print a(i); Next i Print For i = 1 To N - 1选择法排序 k = i For j = (2) If a(j) a(k) Then (3) Next j c = a(i) : a(i)

9、= a(k) : a(k) = c Next i For i = 1 To N输出排序结果 Print a(i); ; Next i Print i = 1 Do While i = N压缩显示相同元素 count = 1 If i N Then j = i + 1 Do While a(i) = a(j) count = (4) If j = A Then d = (2) - Asc(A) + 10 Else d = d * 16 + Val(c) End If Next i If f = - Then d = (3) (4) End FunctionCommand1_Click事件用于调用

10、HTOD函数，将输入到文本框Text1中的十六进制字符串转换成十进制整数，并显示转换结果。例如，Text1中的值为“-ab”，转换结果显示(-ab)16=(-171)10。Private Sub Command1_Click() Dim x As Integer x = (5) Print ( & Text1 & ) & 16= ( & x & )10End Sub四、编程题（45分）1. 打开软盘根目录上的c1.vbp工程，补充程序，当单击命令按钮时，可在文本框显示出十位数为5且能被5整除的四位数的个数，并将统计结果以随机文件形式存入A:c1.dat文件中。（10分）2. 编一个完整程序，要

11、求如下（35分）：（1）参见图2、图3，在Form1窗体上放置一个列表框，并用你的姓名和准考证号在窗体上建立两项菜单，在准考证号菜单下有名为“应用”与“结束”的两个子菜单；在Form2窗体上放置一个图形框，建立可通过鼠标右键弹出的菜单（快捷菜单），含有“画图”和“返回”两个菜单项，Form2窗体的标题为你的准考证号。（8分） 图2 图3（2）当单击“姓名”菜单，利用随机函数自动在列表框产生10个长度在210之间小写字母的字符串，每个字符串的组成字母左右对称。（10分）（3）单击“准考证”菜单的“应用”菜单项，打开Form2窗体；单击“结束”菜单项时，停止程序的运行。（5分）（4）单击Form2

12、窗体上的“画图”菜单，用Pset方法绘制参数方程x = r Cos4Cos，y = r Cos4Sin在02之间的图形，其中r为半径，取图形框的高度（或宽度）的一半；当单击“返回”按钮，回到Form1窗体。（7分） （5）Form1窗体、Form2窗体以及工程文件名分别设置为C21.FRM、C22.FRM和C2.VBP，保存在软盘根目录下，并且通过“文件|生成.exe”命令将工程生成C2.exe文件保存在软盘根目录下。（5分）Visual Basic程序设计模拟试卷二参考答案一、单选题1. C2. D3. A4. A5. B6. C7. A8. C9. B10. B11. A12. B13.

13、A14. A15.A二、填空题1. Tabindex02. Smallchange3. Text1.SelStart = 064. ShowOpen5. Enabled6. ReDim C( Ubound ( C ) + 1 )7. 1,234.5608. AutoSize9. Sorted10. Set三、程序填空1.（1）Rnd * 10 + 65（2）i + 1 To N（3）k=j（4）count + 1（5）i + count2.（1）1 To Len(thsr)（2）d * 16 + Asc(c)（3）-d（4）HTOD = d（5）HTOD(Text1)四、编程题1. 程序参考答

14、案：Private Sub Command1_Click() Dim i, a, b, c, d As Integer Text1.Text = The munber of 题意要求 n = 0 For i = 1000 To 9999 a = i 1000 b = i 100 - a * 10 c = i 10 - a * 100 - b * 10 d = i - a * 1000 - b * 100 - c * 10 If (c = 5 And (d = 0 Or d = 5) Then n = n + 1 End If Next Text1.Text = n filenum = Free

15、File Open a: a1.dat For Output As filenum Print #filenum, Text1.Text Close filenumEnd Sub2. 程序参考答案：（1）Form1：Private Sub Combo1_DblClick() List1.AddItem Combo1.SelText Combo1.Text = End SubPrivate Sub Combo1_KeyPress(KeyAscii As Integer) If Combo1.Text And KeyAscii = 13 Then Combo1.AddItem Combo1.Tex

16、t Combo1.Text = End IfEnd 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 + 97 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

17、= 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 x, y, r, a Picture1.ScaleMode = 3 Picture1.AutoRedraw = True Picture1.Width = Picture1.Height Picture1.Scale (-3.14159, -3.14159)-(3.14159, 3.14159) r = Picture1.ScaleWidth / 2 For a = 0 To 2 * 3.14159 Step 0.001 x = r * Cos(4 * a) * Cos(a) y = r * Cos(4 * a) * Sin(a) Picture1.PSet (x, y) Next aEnd SubPrivate Sub Command2_Click() Unload Me Load Form1 Form1.ShowEnd Sub专心-专注-专业