09秋VB模拟试卷一VIP

中国药科大学 程序设计模拟试卷一2009-2010学年第一学期专业 班级 学号 姓名 请在答题卡上完成一、基本概念（每小题1分，共25分）1已知a被定义为整型变量，执行语句a=6 ：a=a+6.5后，此时a的值为 。A0 B1 C2 D32以下使用方法正确的语句是 。ACombo1.Cls BForm1.ClsCPicture1.ClearDText1. Clear3A为整形变量，调用已定义的Sub过程：Private Sub change(B As Integer)，以下不是按值传递的语句是 。ACall Change (A) Bchange (A)CCall Change (A) DChange 14若要定义一个变量，使它仅能够在当前过程中访问，可以将其定义为_ 静态变量 局部变量 窗体/模块级变量 全局变量 A B C D5在Select Case X结构中，如果5X10是其中的一个判断条件，则正确描述5X10的测试项应该写成 。ACase 5 To 10BCase Is = 5 CCase 5 = X And X = 10 DCase 5 = X = 106窗体上有一个文本框Text1，假设已存在三个整型变量a、b和c，且变量a 、b和c的值分别为1、2和3，以下_语句可以使文本框中显示的内容为：3=1+2 AText1.Text = c = a + b BText1.Text = c=a+b CText1.Caption= c & = & a & + & b DText1 = c & = & a & + & b7以下叙述中错误的是 。AVB中控件的某些属性只能在运行时通过代码来设置 BVB工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 CVB的一个应用程序是由若干个不同类型的文件组成，即一个工程 DVB是事件驱动型的可视化编程工具8针对语句If X=True Then Y=False，下列说法正确的是 。AX= True是赋值语句，Y= False是关系表达式 BX= True 和Y= False都是关系表达式CX= True 和Y= False都是赋值语句 DX= True是关系表达式，Y= False是赋值语句9下列有关变量的说法，正确的共有 个。全局变量既可在窗体模块中定义，也可在标准模块中定义，访问时也一样当访问的变量存在同名变量时，优先访问作用范围小的变量静态变量，从本质上来说是一个全局变量所谓模块级变量，即专指在模块的通用声明中用Private定义的变量A1 B2 C3 D410在Visual Basic中，以下叙述 是错误的。A控件数组中的控件可以是不同类型的控件 B控件数组中的控件都有相同的名字 C控件数组中的控件响应同一个事件 D控件数组中的控件可以在运行时用代码生成11以下叙述中正确的是 。 A可以在运行期间改变对象的Name属性的值B窗体的Name属性的值是显示在窗体标题栏中的文本C对象的Name属性值可以为空D窗体的Name属性指定窗体的名称，用来标识一个窗体12若在一个应用程序的窗体上，先后创建Label、Frame、OptionButton等控件，则运行程序显示该窗体时，会首先获得焦点是 。A窗体 BLabel CFrame DOptionButton13定义三个变量i,j,k 均为Integer类型，i = 3: j = 3.4: k = 2.5，执行语句Print k = i = j后，窗体上显示的是 。 ATrue BFalse C-1 D014窗体上有一个名为Commandl的命令按钮，编写如下程序：Private Sub Commandl_Click() Static n As Integer Dim m As Integer Cls :m = 10 :m = m + 30 : n = m + n : Print m, n End Sub 程序运行后，三次单击Commandl命令按钮，窗体上的显示结果为 。A120 120 B40 40 C 40 120 D 120 4015在一个多窗体程序中，如果要将窗体Form1从内存中卸载，其他窗体仍然可用，则下列语句正确的是 。AForm1.Unload BForm1.End CUnload Form1DForm1.Hide16列表框中的列表项的数目可通过以下 属性的值获得。 ACount BListCount CListIndex DIndex17关于Visual Basic的基本语句， 不是必须成对使用的。AIf和End If BDo和Loop CSelect Case和End Select DFor和Next 18以下有关数组作为形参的说明中错误的是 。A形参数组只能按地址传递B实参为动态数组时，可在过程中用ReDim语句改变形参数组的维界C调用过程时，只需把要传递的数组名填入实参表D形参若为数组就必须说明它的维界是多少19在默认状态下，若有数组声明：Dim a(5, 4 To 6) As Integer,下面数组元素引用中正确的是 。A a(0,1) Ba(3,3)Ca(6,6) Da(0,4)20表示“A、B之一为零但不得同时为零”的VB逻辑表达式是 。AA=0 Or B=0 BA=0 Xor B=0 C(A=0 Or B0) And (A0 Or B=0) D(A=0 And B0) Or (A 2 Then money = 0 Else money = (money(n + 1) + 10) / 2 End If Print moneyEnd Function(29)A0 B1 C10 D5 (30)A3 B15 C5 D10(31)A8.75 B7.5 C5 D63、执行下列程序，单击按钮后窗体上打印的第一行为 （32） 、第二行为 （33） 、第三行结果为 （34） 。Private Sub Command1_Click() Dim a As Integer, i As Integer a = 7 For i = 1 To 3 Print F(a) Next iEnd SubFunction F(a As Integer) Dim b As Integer Static c As Integer b = b + 1： c = c + 2F = a + b - c End Function（32） A8 B6 C4 D9（33） A6 B5 C4 D-1（34） A-1 B4 C-2 D24执行下面的程序，当单击命令按钮Command1时，窗体的第一行显示的是 (35) ，第二行显示的是 (36) ，第三行显示的是 (37) 。 Private Sub Command1_Click() Dim s As String, i As Integer, s1 As String i = Asc(a) : s1 = A Do i = i + 1 s = s1 + UCase(Chr(i) s1 = Right(s, 2) & Mid(s, 2, 1) Print s1 Loop Until i = 100End Sub (35)ABAB BABB CBAA DABA(36)ABCB BABC CBAB DCBA(37)ACCB BDCB CBDC DABC5、执行下列程序，单击按钮后窗体上打印的第一行为 （38） 、第二行为 （39） 、第三行为 （40） 。Private Sub Command1_Click() Dim a(1 To 9) As Integer, b(1 To 3, 1 To 3) As Integer, i As Integer, j As Integer For i = 1 To 9 a(i) = i Next i For i = 1 To 3 For j = 1 To 3 b(i, j) = a(i * j) If j = i Then Print b(i, j); Next j Print Next iEnd Sub（38） A1 2 3 B2 3 C3 D 3 2 1（39） A4 5 6 B4 6 C5 6 D 2 4 9（40） A3 B6 C8 D 9请在答题卡上完成三、完善程序（每小题2分，共30分）1、找出10000以内的所有完数并在列表框中输出，完数的个数在Text1中输出。所谓完数，是指它的所有的质因子之和等于它本身的数，如6=1+2+3。Private Function wshu(n As Integer) As （43） Dim i As Integer, s As Integer For i = 1 To n - 1 If n Mod i = 0 Then （44） Next i If s = n Then （45） End FunctionPrivate Sub 运算_Click() Dim i As Integer For i = 1 To 10000 If wshu(i) Then （41） Next i Text1 = List1. （42） End Sub(41) AList1.Print iBList1.text= iCList1= iD List1.AddItem i(42) AList BListCount CListIndexDText(43) ALongBInteger CString DBoolean (44) As = s + iBs = s & iCExit ForDExit Function (45) Awshu = nBwshu = sCwshu = TrueDwshu = s + n2、本程序的功能是，利用下列公式求通项和S的近似值，规定通项的绝对值10-5时结束累加。Private Function fact(a As Integer) As Long Dim i As Integer (48) For i = 1 To a fact = fact * i Next iEnd FunctionPrivate Sub Command1_Click() Dim sum As Single, x As Single Dim sign As Integer, t As Single Dim i As Integer x = Val(Text1) sum = 0: i = 1 Do t = (46) sum = sum + t i = i + 1 Loop (47) Text2 = Format(sum, #0.000)End Sub (46) A(-1) (i + 1) * x (2 * i + 1) / fact(i)Bx (2 * i + 1) / fact(i)C(-1) (i + 1) * x (2 i + 1) / fact(i)D(-1) i * x (2 * i + 1) / fact(i)(47) AUntil t1e-5CUntil Abs(t)=10 (-5)DWhile t1e-5(48) AIf a = 1 then fact =1Bfact = aCfact = 1Dfact = 0 3、编程实现求32和12这两个数的最大公约数，单击单选按钮“过程1”或 “过程2”都可以在文本框Text1中显示如图所示的结果。Option ExplicitPrivate Sub Option1_Click(Index As Integer) Dim a As Integer, b As Integer, r As Integer a = 32: b = 12 If Index = 0 Then r = gcd1(a, b) ElseIf Index = 1 Then (49) End If Text1 = CStr(a) & 和 & CStr(b) & 的最大公数为 & CStr(r)End SubPrivate Function gcd2(x As Integer, y As Integer) As Integer Dim r As Integer Do r = x Mod y x = y: y = r Loop While r 0 (52) End FunctionPrivate Function gcd1(ByVal x As Integer, ByVal y As Integer) As Integer Dim r As Integer (50) Do While r 0 x = y: y = r r = x Mod y Loop (51) End Function（49）Ar = gcd2(a, b) Br = gcd1(a, b) Cr = gcd1(a), (b) Dr = gcd2(a), (b)（50）Ar=0 Br = x Mod y Cr = x Dr = y（51）Agcd1 = x Bgcd1 = y Cgcd1(x,y) = x Dgcd1 (x,y) = y（52）Agcd2 = x Bgcd2 = y Cgcd2(x,y) = x Dgcd2 (x,y) = y4、本程序的功能是产生10个数,统计其中不相同数据的个数。Option ExplicitDim a(10) As IntegerPrivate Sub Command1_Click() Dim i As Integer Randomize For i = 1 To 10 a(i) = Int(90 * Rnd) + 10Private Sub Command2_Click() Dim i As Integer, j As Integer, f As Boolean, n As Integer For i = 1 To 10 f = True For j = i + 1 To 10 If (54) Then f = False Next j If f = True Then ( 55) Next i Text2 = nEnd Sub Text1 = Text1 & (53) Next iEnd Sub（53）ACStr(a(i) BStr(a) CCStr(a) DStr(a(i)（54）Aa(i) = a(j) Ba(i) = a(j) Ca(i+1) = a(j)Da(i) a(j) Thentemp = a(i) a(i) = a(j)a(j) = tempEnd If For i = 1 To 9 For j = 1 to iIf a(i) a(j+1) Thentemp = a(j) a(j) = a(i) a(i) = temp End If For i = 1 To 9 For j = i + 1 To 10If a(i) a(j) Thena(i) = a(i) + a(j)a(j) = a(i) a(j)a(i) = a(i) a(j) End If For i = 1 To 9 For j = i + 1 To 10If a(i) a(j) Thena(j) = a(i) + a(j)a(i) = a(j) a(i)a(j) = a(j) a(i) End IfA B C D（58）以下正确的语句组合是 （58） 。 For i = 2 To x/2 If x Mod i = 0 Then prime = False Next i prime = True For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next i prime = True For i = 2 To Sqr(x) If x Mod i = 0 Then Exit FunctionEnd If Next i prime = True For i = 2 To x-1 If x Mod i = 0 Then Exit For Next i If i=x Then prime = TrueA B C D2、文本框1中有小写字母和数字混合的字符串，编程将其中的数字筛选出来，并求出它们的平均值显示在文本框2中，结果必须保留两位有效位，对第3位四舍五入。If str2 Then k = k + 1 ReDim Preserve num(k) num(k) = Val(str2) End If For i = 1 To k s = s + num(i) Next i 请在（60）选项中选择正确的语句End SubPrivate Sub Command1_Click() Dim str1 As String, str2 As String, st AsString, num() As Integer, i As Integer,k As Integer, s As Single str1 = Text1 For i = 1 To Len(str1) st = Mid(str1, i,