09秋VB模拟试卷一

1、实用标准文案实用标准文案文档文档中国药科大学程序设计模拟试卷2009-2010学年第一学期专业 班级 学号 姓名一、基本概念(每小题1分，共25分)|请在答题卡上完成.已知a被定义为整型变量，执行语句a= 6 : a=a+6.5后，此时a的值为A. 0B . 1 C . 2D. 3.以下使用方法正确的语句是 。A. Combo1.Cls B . Form1.ClsC. Picture1.Clear D . Text1.Clear. A为整形变量，调用已定义的Sub过程：Private Sub change(B As Integer) ,以下不是按值传递的语句是 。A. Call Change

2、(A) B . change (A) C. Call Change (A) D . Change 1.若要定义一个变量，使它仅能够在当前过程中访问，可以将其定义为 静态变量局部变量 窗体/模块级变量全局变量A. B .C. D .在Select Case X 结构中，如果5X 10是其中的一个判断条件，则正确描述 5X 10的测试项应该写成。A. Case 5 To 10B. Case Is = 5C. Case 5 = X And X = 10D. Case 5 = X = 10.窗体上有一个文本框 Text1，假设已存在三个整型变量a、b和c,且变量a、b和c的值分别为1、2和3,以下 语

3、句可以使文本框中显示的内容为：3=1+2A . Text1.Text = c = a + bB. Text1.Text = c=a+bC. Text1.Caption= c & = & a & + & b D. Text1 = c & = & a &+ & b.以下叙述中错误的是 。VB中控件的某些属性只能在运行时通过代码来设置VB工具箱中的所有控件都具有宽度( Width)和高度(Height )属性VB的一个应用程序是由若干个不同类型的文件组成，即一个工程VB是事件驱动型的可视化编程工具.针对语句If X=True Then Y=False ,下列说法正确的是 。X= True是赋值语句，

4、Y= False是关系表达式X= True和Y= False都是关系表达式X= True和Y= False都是赋值语句X= True是关系表达式，Y= False是赋值语句.下列有关变量的说法，正确的共有 个。全局变量既可在窗体模块中定义，也可在标准模块中定义，访问时也一样当访问的变量存在同名变量时，优先访问作用范围小的变量静态变量，从本质上来说是一个全局变量所谓模块级变量，即专指在模块的通用声明中用Private定义的变量A. 1 B .2 C .3 D .4.在Visual Basic 中，以下叙述 是错误的。A.控件数组中的控件可以是不同类型的控件B.控件数组中的控件都有相同的名字C.控

5、件数组中的控件响应同一个事件D.控件数组中的控件可以在运行时用代码生成.以下叙述中正确的是 。A.可以在运行期间改变对象的Name属性的值B.窗体的NameW性的值是显示在窗体标题栏中的文本C.对象的NameW性值可以为空D.窗体的NameW性指定窗体的名称，用来标识一个窗体.若在一个应用程序的窗体上，先后创建Label、Frame、OptionButton 等控件,A.窗体13.定义三个变量 句Print k A.窗体13.定义三个变量 句Print k = i = jLabel C . Frame D . OptionButtoni,j,k 均为 Integer 类型，i = 3: j =

6、 3.4: k = 2.5,执行语后，窗体上显示的是 。A. True B . False C . -1D . 0.窗体上有一个名为Commandl的命令按钮，编写如下程序：Private Sub Commandl_Click()Static n As IntegerDim m As IntegerCls :m = 10 :m = m + 30 : n = m + n : Print m, nEnd Sub程序运行后，三次单击Commandl命令按钮，窗体上的显示结果为 A. 120 120 B . 40 40C. 40 120D, 120 40.在一个多窗体程序中，如果要将窗体Form1从内

7、存中卸载，其他窗体仍然可用，则下列语句正确的是 。A. Form1.Unload B . Form1.End C . Unload Form1D. Form1.Hide.列表框中的列表项的数目可通过以下 属性的值获得。A . CountB. ListCount C . ListindexD. Index.关于Visual Basic 的基本语句， 不是必须成对使用的。A. If 和 End If B . Do和 Loop C . Select Case 和 End Select D . For 和 Next.以下有关数组作为形参的说明中错误的是 。A.形参数组只能按地址传递B.实参为动态数组时

8、，可在过程中用ReDim语句改变形参数组的维界C.调用过程时，只需把要传递的数组名填入实参表D.形参若为数组就必须说明它的维界是多少.在默认状态下，若有数组声明：Dim a(5, 4 To 6) As Integer, 下面数组元素引用中正确的是。A. a(0,1)B . a(3,3)20.A. a(0,1)B . a(3,3)20.表示“ A、B之一为零但不得同时为零A. A=0 Or B=0BC. (A=0 Or B0) And (A0 Or B=0)B=0)21.以下有关对象属性的说法，错误的是a(6,6)D. a(0,4)的VB逻辑表达式是。.A=0 Xor B=0(A=0 And B

9、0) Or (A 2 Thenmoney = 0Elsemoney = (money(n + 1) + 10) / 2End IfPrint moneyEnd Function.A.A.A.3、执行下列程序,8.75B. 7.5单击按钮后窗体上打印的第一行为C.10D.C.CD.10D (32).6、第二行为(33)、第三行结果为(34)Private Sub Command1_Click()Dim a As Integer, i As Integer a = 7Fori = 1 To 3Function F(a As Integer) Dim b As Integer Static c As

10、 Integer b = b + 1 ： c = c + 2Next iEnd FunctionEn d S2bA .8B.6C. 4D.9(33)A .6B.5C. 4D.-1(34)A .-1B.4C. -2D.2Print F(a)F = a + b - cCommanding,4.执行下面的程序,当单击命令按钮窗体的第一行显示的是(35),第二行显示的是(36),第三行显示的是(37)Private Sub Command1_Click()Dim s As String, i As Integer, si As Stringi = Asc(a) : si = ADos = s1 + U

11、Case(Chr(i)s1 = Right(s, 2) & Mid(s, 2, 1)Print s1Loop Until i = 100End Sub.A.A.A.BABBCBCCB5、执行下列程序,第三行为(40)B.B.B.ABBABCDCB单击按钮后窗体上打印的第一行为C. BAABAB DC. BDC(38)D . ABA .CBAD . ABC、第二行为(39)Private Sub Command1_Click()To 3) As Integer, i As Integer,Dim a(1 To 9) As Integer, b(1 To 3, 1 j As IntegerTo 3

12、) As Integer, i As Integer,For i = 1 To 9a(i) = iNext iFori = 1 To 3Forj = 1 To 3b(i, j) = a(i * j)If j = i Then Print b(i, j);Next jPrintNext iEnd SubA. 1 2 3A. 4 5 6 BA. 3B. 2 3 C.4 6B. 6.3C. 5 6 DC. 8 DD. 3 2 1.2 4 9.9请在答题卡上完成三、完善程序（每小题2分，共30分）-|O| xj以内的完数1、找出10000以内的所有完数并在列表框中输出， 数的个数在Text1中输出。所

13、谓完数，是指它的所有23496清除的质因子之和等于它本身的数，如6=1+2+3。Private Sub 运算 _Click() Dim i As Integer For i = 1 To 10000 If wshu(i) Then Next i Text1 = List1. End Sub (41) A . List1.Print i D. List1.AddItem i (42) A.ListA.LongA.s = s+iFunctionA.wshu=nn2、本程序的功能是，利用下列公式求通项和 时结束累加。3572i 1x x xi 1 xsum 二 一 -一 一 -.(-1) 一1!2!

14、3!i!Private Sub Command1_Click() Dim sum As Single, x As Single Dim sign As Integer, t As Single Dim i As Integer x = Val(Text1)(41)(42)Private Function wshu(n As Integer) As (43)Dim i As Integer, s As IntegerFor i = 1 To n - 1If n Mod i = 0 Then (44)Next iIf s = n Then (45)End FunctionB. List1.text

15、= iB. ListCountB. IntegerB. s = s & iB. wshu = sC. List1= iC. ListIndexC. StringC. Exit ForC. wshu = TrueD. TextD. BooleanD . ExitD. wshu = s +S的近似值，规定通项的绝对值w10-5i=1,2,. 0 x 1e-5D. While t1e-5B. fact = a C . fact = 1 D . fact =B. x a (2 * i + 1)D. (-1) a i * x aB. While Abs(t)1e-5D. While t1e-5B. fa

16、ct = a C . fact = 1 D . fact =C. (-1) a (i + 1) * x a (2 i + 1) / fact(i) (2 * i + 1) / fact(i) (47) A . Until t=10 a (-5)A . If a = 1 then fact =1 03、编程实现求32和12这两个数的最大公约数，单击单选按钮“过程 1”或 “过 程2”都可以在文本框 Text1中显示如图所示的结果。Option ExplicitPrivate Sub Option1_Click(Index As Integer)Dim a As Integer, b As Int

17、eger, r As Integer a = 32: b = 12If Index = 0 Thenr = gcd1(a, b)ElseIf Index = 1 ThenEnd If的最大公数为& CStr(r)Private Function gcd2(x As Integer, y As Integer) As IntegerDim r As Integer的最大公数为& CStr(r)Private Function gcd2(x As Integer, y As Integer) As IntegerDim r As IntegerDor = x Mod yx = y: y = rLo

18、op While r 0(52)End FunctionEnd SubPrivate Function gcd1(ByVal x As Integer, ByVal y As Integer) As IntegerDim r As IntegerDo While r 0 x = y: y = rr = x Mod yLoopEnd Function.r = gcd1(a, b).r = gcd1(a, b)C . r = gcd1(a), (b) DA.A.r=0 Bgcd1 = x Br = x Mod y .gcd1 = y.gcd1(x,y) = x DD. r = y.gcd1 (x,

19、y)=y(52)A.gcd2 = x B.gcd2 = y.gcd2(x,y) = x D.gcd2 (x,y)=10个数，统计其中不相同数据的个数。Fori 10个数，统计其中不相同数据的个数。Fori = 1 To 104、本程序的功能是产生Option ExplicitDim a(10) As IntegerPrivate Sub Command1_Click() Dim i As Integer Randomizea(i) = Int(90 * Rnd) + 10Text1=Text1 & (53)Next iEnd Sub(53)A.B.C.D.(54)A.B.C.D.(55)A.C

20、Str(a(i) Str(a) CStr(a) Str(a(i) a(i) = a(j) a(i) = a(j) a(i+1) = a(j) a(i) a(j) Then temp = a(i) a(i) = a(j) a(j) = tempEnd If Fori = 1 To 9For j = 1 to iIf a(i) a(j+1) Then temp = a(j) a(j) = a(i) a(i) = tempEnd If Fori = 1 To 9 For i = 1 To 9For j = i + 1 To 10For j = i + 1 To 10If a(i) a(j) Then

21、If a(i) a(j) Thena(i) = a(i) + a(j)a(j) = a(i) + a(j)a(j) = a(i) a(j)a(i) = a(j) a(i)a(i) = a(i)-a(j)a(j) = a(j)-a(i)End IfEnd IfA.B.C.D.(58)以下正确的语句组合是(58)。 For i = 2 To x/2If x Mod i = 0 Then prime = FalseNext iprime = True For i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iprime = True For i = 2

22、To Sqr(x) If x Mod i = 0 ThenExit FunctionEnd IfNext iprime = True For i = 2 To x-1Ifx Modi = 0 Then Exit ForNext iIf i=x Then prime = TrueA.B.C.D.2、文本框1中有小写字母和数字混合的字符串，编程将其中的数字筛选出来，并求出它们的平均值显示在文本框 2中，结果必须保留两位有效位，对第3位四舍五入。Private Sub Command1_Click()Dim strl As String, str2 As String, st AsString, n

23、um() As Integer, i As Integer,k As Integer, s As Singlestr1 = Text1For i = 1 To Len(str1)st = Mid(str1, i, 1)Private Sub Command1_Click()Dim strl As String, str2 As String, st AsString, num() As Integer, i As Integer,k As Integer, s As Singlestr1 = Text1For i = 1 To Len(str1)st = Mid(str1, i, 1)If st = 0 And st = a And st = z Then请在(59)选项中选择正确的程序段End IfNext iIf str2 Thenk = k + 1ReDim Preserve num(k) num(k) = Val(str2)End IfF