《Visual BASIC程序设计-VB试题及其答案（2004.6）.doc》由会员分享，可在线阅读，更多相关《Visual BASIC程序设计-VB试题及其答案（2004.6）.doc（12页珍藏版）》请在三一文库上搜索。
1、Visual Basic程序设计试题2004.7 院（系）： 班级： 学号： 姓名： 注意事项: 1本试卷共五大题，满分100分，考试时间120分钟。 2所有答案请答在答案栏上，答在其它地方无效。一填空题 （每题1分，共10分）1要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数（ Mid(“Visual BASIC 6.0”,8,5) ）。2产生从整数a到整数b之间的随机整数使用的表达式（ Int(b-a+1)*Rnd+a) ）。3将x四舍五入到百位（例如，若x=12374.52应舍入成12300），可使用表达式（ Int(x / 100 + 0.5) *
2、100 ）。4表达式：True Or Not 53 = 4的值为（ True ）。5表示条件“年份Year能被4整除，但不能被100整除”的逻辑表达式为（ Year Mod 4=0 And year Mod 1000 ）。6除了在设计阶段通过修改Picture属性装载图形外，还可以使用（ LoadPicture ）函数在运行程序时装载图形。7在程序运行期间，用户在文本框输入的内容，存放到文本框的（ Text ）属性中。8. 已知数组元素A(1)=4, A(2)=2, A(3)=1, A(4)=3，则A(A(1)+A(2)-A(4)的值为 ( 1 )。9当文本框的Text属性被修改时，会发生(
3、change )事件。10.假定在用户界面上有多个控件，要在程序中把光标设置在接受输入的控件上，应使用的方法是（ SetFocus ）。答案栏：1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 二单项选择题 （每题1.5分，共30分）1给定程序代码：Text1.text= Visual Basic程序设计 ，其中的Text1、text和 Visual Basic程序设计 分别表示（ c ）。a) 控件、属性值和属性 b) 控件、方法和属性c) 控件、属性和属性值 d) 事件、方法和属性2以下关于表达式的运算顺序，错误的说法是 ( c )。a) 函数运算最优先 b) 最后进行的是逻辑
4、运算c) 关系运算的优先级比算术运算的优先级高d) 取负运算的优先级比求幂运算的优先级低3s、t、r为字符串变量，它们的值分别是xyz、321和66，执行下列语句后，显示的结果为 （ d ）。 s = s + r: r = r + t: Print s;spc(2);ra) xyz66 387 b) xyz66 387c) xyz66 66321 d) xyz66 66321 4. 假设A1，A2，A3是布尔变量，其值依次为：True，True，False，下列表达式的值为 False的是 （ c ）。 a) A1 And A2 Or A3 b) True Or Not（7 3 y Then
5、Print xy b) If x Then t = t * xc) If x Mod 3=2 Then ? xd) If x10 y=x+1 End Selectb) Select Case x Case 1, 3, 5 y=2*x-1 Case Is x =1 Y=2*x+1End Selectc) Select Case x Case Is 0 y=Sqr(x)+1 End Select d) Select Case xCase x=1 And x10y=x*x+1End Select7设有程序段：Dim k%k=3Do until k=0k=k-1Loop下面对上述循环语句描述正确的是（
6、 c ）。a) 循环体1次也不执行 b) 循环体执行1次c) 循环体执行3次 d) 循环体执行无限次8. 关于循环语句的说法，正确的是 ( c )。a) Do While Loop是先执行循环体再判断条件是否成立b) Do Until Loop是先执行循环体再判断条件是否成立c) Do Loop While 是先执行循环体再判断条件是否成立d) Do Loop Until 是先判断条件再决定是否执行循环体9下面程序段中循环语句的循环次数是（b ）。For x=7 To 1 Step -3 Print xNext xa) 0b) 3c) 4d) 710使用文本框Text1接受用户输入的口令时，可
7、使用以下选项( c )，屏蔽在文本框中输入的内容。 a) Text1.Value = * b) Text1.Text = *c) Text1.PasswordChar = * d) Text1.Caption = *11要把窗体缩小为其大小的一半（非最大化状态下），可使用以下（ b ） 语句。 a) Form1 = Form1/2 b) Form1.Width = Form1.Width / 2 : Form1.Height = Form1.Height / 2c) Form1.Left = Form1.Left / 2: Form1.Top = Form1.Top / 2 d) Form1.
8、Size = Form1.Size / 212. 列表框不具有的属性是( d )。a) Name b) Textc) Sortedd) Value13复选框的Value属性值为2时，表示( c )。 a)没有选择该复选框 b)选中该复选框 c)该复选框被禁止使用 d)该复选框获得焦点14下列控件中（ d ）不能接受GotFocus和LostFocus事件。a) 命令按钮b) 组合框c) 复选按钮d) 计时器15设置计时器的时间间隔可以通过（ d ）属性来实现。a) Value b) Text c) Maxd) InterVal16设有数组说明语句：Dimb（-To 1，-1 To），则数组b中
9、元素的个数是（a ）。a) 12 b) 15 c) 16 d) 2017. 下列关于数组和记录的说法 ( a ) 是不正确的。a) 记录是由可变数目元素组成的结构类型数据b) 记录中的元素可以具有不同的数据类型c) 数组是由固定数目同类元素按一定顺序排列而成的结构类型数据d) 记录是由固定数目元素组成的结构类型数据18已知有说明语句Type datyear As Integermonth As IntegerEnd TypeType empname As String8sex As String*1birthday As datEnd TypeDim person As emp并假设变量per
10、son所表示职工的出生日期是“1968年6月”，则下列正确的赋值语句是（ d ）。a) year=1968：month=6b) birthday.Year=1968：birthday.month=6c) person.year=1968：person.month=6d) person.birthday.year=1968：person.birthday.month=619. 关于变量，不正确的说法是( C )。a) 同一模块中不同级的变量可以同名b) 局部变量只能在它说明的过程中使用c) 在窗体模块中各过程之外用Dim语句定义的变量全都是全局变量d) 不同模块中定义的变量可以同名20. （ a
11、 ）不能在标准模块中定义。a) 事件过程 b) 子过程 c) 函数过程 d) 公共过程答案栏：1. _ 2. _3. _ 4. _5. _ 6. _7. _8. _9. _10. _11. _12. _ 13. 14. 15. 16. _17. _ 18. 19. 20. 三.阅读下面程序，写出程序的运行结果。(共26分)1Private Sub Command1_Click()Dim x As Integer, y As IntegerFor x=1 To 10 Step 3 Select Case x*2Case Is 8 If a Mod 2 = 1 Then y = y * aElse
12、x = x * aEnd Ifa = a + 1 Loop Print “x=”;x,”y=”; yEnd Sub运行结果：x= 384 y= 1054Private Sub Command1_Click()Dim A(1 To 10) As Integer, x as IntegerFor x = 1 To 10 If x3 Then A(x) = x Mod 5 Else A（1）A（2）A（3）A（4）A（5）A(x) = x * 2 Mod 9 2 4 6 4 0 End IfNext xFor x = 1 To 9 A(x) = A(x) + A(x+1) 6 10 10 4 1 N
13、ext xFor x=1 To 10 Print A(x), If x Mod 4=1 Then PrintNext xEnd Sub运行结果：6101041357405Private Sub Command1_Click()Dim x as Integer, y As Integery = 1For x=1 To 10 Do While y20 Then Exit Do Loop If y25 Then Exit For Next x Print x, yEnd Sub 运行结果：3 26答案栏：1. 2. 3. 4. 5. 四程序填空题（每空2分，共20分）1下面事件过程的功能是：求满足1
14、*2*n 10000的最小n值。Private Sub Command1_Click() Dim n%, t& n = 0: t = 1 While （1） t = 10000 n = n + 1 t = （2） t*n Wend Print Tab(8); 最小n值为：; nEnd Sub2 在窗体设置一个名为List1的列表框，下面程序的功能是：当程序运行后，单击窗体，输出的结果为：计算机学院电子与信息学院自动化学院Private Sub Form_Click()Dim i%For i = 0 To （3） List1.ListCount - 1 If i Mod 2 = 0 Then P
15、rint （4） List1.List(i) End IfNext iEnd SubPrivate Sub Form_Load()List1.AddItem 计算机学院List1.AddItem 建筑学院List1.AddItem 电子与信息学院List1.AddItem 机械学院List1.AddItem 自动化学院End Sub3假设数组A和数组B都是已经按从小到大排好序的数组，下面子过程Merge的功能是把A和B合并到数组C中，合并后数组C也从小到大排好序。 Private Sub Merge(A%(), B%(), C%(), ByVal na%, ByVal nb%, ByVal n
16、c%) Dim i As Integer, j As Integer, k As Integer i = 1: j = 1: k = 1 Do While i = na And j = nb If （5） Then A(i) B(j) C(k) = A(i) i = i + 1 Else C(k) = B(j) j = j + 1 End If （6） k = k + 1 Loop Do While i = na （7） C(k) = A(i) k = k + 1 i = i + 1 Loop Do While j max Then max=score Wend Print 最高分数为：; m
17、ax Close #3End Sub答案栏：(1) (2) (3) (4) (5) (6) (7) (8) (9) (10) 五程序设计题（每题7分，共14分）1编写一个Command1_Click事件过程：产生20个100到999之间的随机数，按生成顺序保存在数组中，并按每行5个数的格式输出。用户任意输入一个数，如果该数出现在这20个数中，则输出该数的生成序号；否则，输出“没有找到”的信息。 答案栏：Private Sub Command1_Click() Dim A(20) As Integer, x As Integer, i As Integer For i = 1 To 20 A(i
18、) = Int(900 * Rnd) + 100 Print A(i); If i Mod 5 = 0 Then Print Next i Print x = InputBox(请输入一个数) For i = 1 To 20 If A(i) = x Then Exit For Next i If i 20 Then Print 没有找到 Else Print 该数的序号是:; i End IfEnd Sub2求s=的值。要求定义求f=函数过程，由命令按钮的单击事件过程输入m、n和p的值，调用f函数过程求s的值，然后在窗体上显示计算结果。答案栏：Option ExplicitPrivate Su
19、b Command1_Click() Dim m%, n%, p%, s# m = InputBox(m=) n = InputBox(n=) p = InputBox(p=) Print f(1, m), f(3, n), f(5, p) s = (f(1, m) + f(3, n) / f(5, p) Print s=; sEnd SubPrivate Function f(ByVal k%, ByVal x%) As Long Dim i%, sum As Long sum = 0 For i = 1 To x sum = sum + i k Next i f = sumEnd Function11