《期末复习题_1》由会员分享，可在线阅读，更多相关《期末复习题_1（7页珍藏版）》请在金锄头文库上搜索。
1、第 1 页 共 8 页（VB 程序设计 A 卷）一、一、单项选择题（在每小题的四个备选答案中，选出单项选择题（在每小题的四个备选答案中，选出 一个正确的答案，并将其号码填在题干中的空内。本一个正确的答案，并将其号码填在题干中的空内。本 大题共大题共 1010 小题，每小题小题，每小题 1 1 分，共分，共 1010 分）分）1当运行 VB 程序时，系统自动执行启动窗体的（ ）事件过程。ALoadBClickCUnloadDGotGocus2改变窗体的标题时，应当在属性窗口中改变（ ）的属性。ACaptionBNameCTextDLabel3下列函数中，返回值是字符串的是( )。AMidBInS
2、trCValDLen4在声明一个变量时，下面可用的关键字是( )。AExitBAsCSubDEnd5以下程序段执行后，程序中的 i=i+1 语句共执行了多少次（ ） 。For j= 8 to 33 Step 3If j26 Then Exit Fori=i+1Next jA4B5C6D76使用 Visual Basic 进行程序设计时，控件可以被添加到( )模块中。A标准模块B窗体模块C类模块D工程模块7下面程序段求两个数中的大数，( )不正确。AMax=iif(xy, x, y)BIf xy Then Max=x Else Max=yCMax=x ： If y=x Then Max=y DI
3、f y=x Then Max=y ： Max=x8在某事件过程中，以下声明语句正确的是( )。AConst eps As Single BDim ivar = “ABC“CDim n As Integer, a(1 to n) As IntegerDStatic m As Integer9若要在同一窗口内安排两组相互独立的单选钮（OptionButton） ，可使用( )控件将它们分隔开。 TextBox PictureBox Image FrameA. B. C. D. 10为使计时器控件每隔 3 秒钟产生一个计时器事件（Timer 事件） ，则应将其 Interval属性的值设置为( )。
4、A3B300C3000D180得分得分评卷人评卷人第 2 页 共 8 页（VB 程序设计 A 卷）二、二、程序填空题（在每小题的程序填空题（在每小题的 2 2 个空中，填写缺少的个空中，填写缺少的 内容。本大题共内容。本大题共 5 5 小题，每空小题，每空 3 3 分，共分，共 3030 分）分）1 下面的程序实现将一张面值为 100 元的人民币等值换成 100 张 5 元、1 元和 0.5 元的零钞，要求每种零钞不少于 1 张，问有哪几种组合？程序段中有 2 处空缺，请在答题区将程序补充完整。Private Sub Form_Click()Dim i%, j%, k%Print “5 元 1
5、 元 0.5 元“For i = 1 To 20For j = 1 To 1k = 100 - i - jIf k0 and 5.0 * i + 1.0 * j + 2 = 100 ThenPrint i,j,kEnd IfNext jNext iEnd Sub答题区： 1： 2： 2 下面程序段先生成 10 个随机整数并存放在一数组中，求出其中最小元素值的下标。程序段中有 2 处空缺，请在答题区将程序补充完整。Dim A(1 To 10) As Single, I As Integer, Imin As IntegerFor I = 1 To 10 ： A(I) = Int(Rnd * 10
6、0) ： Next IImin = 1For I = 2 To 10If _ 1 Then Imin=I Next IPrint 2答题区： 1： 2： 得分得分评卷人评卷人第 3 页 共 8 页（VB 程序设计 A 卷）3 求 1100 之间的所有能被 5 整除的数之和。程序段中有 2 处空缺，请在答题区将程序补充完整。Dim I As Integer, S As IntegerS = 0For I = 5 12Next IPrint “S=“; S答题区： 1： 2： 4下面函数的功能是判断素数。基本思想：把 m 作为被除数，将 2int（m）作为除数，如果都除不尽，m 就是素数，否则就不
7、是素数。若为素数返回 True，否 则返回 False。程序段中有 2 处空缺，请在答题区将程序补充完整。Private Function Prime( m as Integer) As BooleanDim i% Prime= TrueFor i=2 To int (sqrt(m)If m 1 i = 0 Then Prime= 2Exit ForNext iEnd Function答题区： 1： 2： 5计算表达式 1!+2!+3!+.+k!的值,其中 K 的值由 InputBox 输入。计算的结果在窗体上输出后要写到 c:jiechenghe.txt 文件中，程序段中有 2 处空缺，请在
8、答题区将程序补充完整。Private Sub Command1_Click()Dim sum As Long, k As Integer, a As StringOpen “c:jiechenghe.txt“ For Output As #1sum = 0a = InputBox(“请输入 k 的值“, “提示“, 6)k = _1第 4 页 共 8 页（VB 程序设计 A 卷）For i = 1 To ksum = sum + FACT(i)NextPrint “sum=“; sumPrint #1, sumClose #1End SubFunction FACT(ByVal i As In
9、teger)Dim total As Integer, c As Integertotal = 1For c = 1 To itotal = total * cNext cFACT = 2End Function答题区： 1： 2： 三、三、程序改错（下列两段程序中有程序改错（下列两段程序中有 6 6 处错误，在错误的语处错误，在错误的语 句下画线，并在其右边写上正确语句。本大题共句下画线，并在其右边写上正确语句。本大题共 2 2 小小 题，每修改一处错误得题，每修改一处错误得 2 2 分，共分，共 1212 分）分）1下面的程序用于求 1/1+1/2+1/3+. .+1/n 的和。priva
10、te sub command1_click()dim p! , n%dim sum as integerp=0 : sum=0n=val(text1.text)do while p=nsum=sum+pp=p+1loopform1.print “和为：” x2Case 2Print “y = “; xCase 3Print “y = “; x3End Selectend sub运行结果：第 7 页 共 8 页（VB 程序设计 A 卷）5. 写出下列程序运行结果。Option ExplicitDim x%, y%Private Sub P(x%, ByVal y%)y=x+yx=y Mod 4P
11、rint x, yEnd SubPrivate Sub Command1_Click()x=4: y=5Call P(y, x): Print x, yCall P(x, x): Print x, yEnd Sub运行结果：五、五、编程序题（本大题共编程序题（本大题共 3 3 小题，前两个小题每题小题，前两个小题每题 1010 分，第分，第 3 3 小题小题 8 8 分，共分，共 2828 分）分）1、求 p=1*2*3*10 的值。2、有一个数列，它的前 3 个数为 0，0，1，从第 4 个数开始，以后的每一个数都是其 前 3 个数之和。编程输出这个数列的前 30 个数，或数列中的最后一个数超过 1000 为止。3、从键盘输入任意 3 个整数，按降序打印输出这 3 个数。得分得分评卷人评卷人第 8 页 共 8 页（VB 程序设计 A 卷）
