大一VB语言程序期末考试题及答案.doc

大一VB语言程序设计期末考试题一、选择题1 下列常量中，是Integer类型常量的是（ C ）。A、123& B、-38844 C、123% D、327682 下面选项中()是字符连接运算符.（ A ）A、&B、AndC、%D、Mod3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。C、窗体设计 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的视图菜单中。4 len(“vb程序设计”)=( C ) 。A、 5 B、2 C、 6D、10 5 表达式 15 Mod 4 + 13 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2) 执行后，A=（ A ）。A、157B、12334C、123 D、12334 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C).A、,B、;C、:D、8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。A、将True转换为 1 ，将False转换为 0B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*45-SIN(X+1)/2中最先进行的运算是(D).A、SINB、45C、3*4D、x+110 如果x=2，则表达式x+12 Or sin(x)0.9 And 3x+3的值（ B ）。A、不能计算B、 True C、5D、False11 随机产生 10，50 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10)C、Round( Rnd*51) D、 10+Int(Rnd*41)12 每建立一个窗体,工程管理器窗口中就会增加一个(C).A、类模块文件B、工程文件C、窗体文件D、程序模块文件13 INT(100*RND(1)产生的随机整数的闭区间是(B).A、1,100B、0,99C、0,100D、1,9914 下列数据类型中,占用内存最小的是(D).A、IntegerB、SingleC、BooleanD、Byte15 VisualBasic是一种()程序设计语言.BA、过程式B、非过程式C、机器D、低级16 函数Int(10*Rnd)是在(A)范围内的整数. A、0,9B、0,1C、1,9D、1,1017 以下合法的一组Visual Basic用户标识符是 CA、Sum 和 8abcB、a#x 和 PiC、ForLoop 和 TotalD、Const 和 DoWhile18 函数Len(Str(Val(123.4)的值为(B).A、5B、6C、8D、1119 Int(198.555*100+0.5)/100的值为BA、199.6B、198.56C、200D、19820 以下各表达式中, 计算结果为0的是(A).A、FIX(12.4)+FIX(-12.6)B、CINT(12.4)+CINT(-12.6)C、INT(12.4)+INT(-12.6)D、FIX(13.6)+FIX(-12.6)21 MsgBox()的正确语法是（ D ）。A、 MsgBox(标题 ，提示信息 ，按钮类型)B、 MsgBox(提示信息，标题 ，按钮类型)C、MsgBox(标题 ，按钮类型 ，提示信息)D、 MsgBox(提示信息 ，按钮类型 ，标题)22 38-3 OR 10+2 5,-1,0)后,x的值为(D).A、5B、0C、6D、-125 下面关于VB的叙述中，不正确的是（ A ）。A、用VB编写的程序可以在任何操作系统环境中运行。B、VB是面向对象的可视化的软件开发工具。C、VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。 D、VB是由美国Microsoft（微软）公司开发程序设计语言。26 表达式16 / 4-25*8 / 4 Mod 5 2 = ( A )。A、4 B、0C、-2 D、 -627 声明符号常量应该用关键字(B).A、PrivateB、ConstC、StaticD、V26/ariant28 下列数据类型中,占用内存最大的是(D).A、BooleanB、IntegerC、ByteD、Single29 下列VB数据类型中，占用内存最少的是（ D ）。A、CurrencyB、Integer C、Boolean D、Byte 30 RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红.绿.蓝),括号中红、绿、蓝三基色的成分使用0255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置(B)属性.A、Scroll和ChangeB、Max和MinC、Smallchange和 LargeChangeD、Value31 k=12.5 ，len( str( k ) )=( B ) 。 A、 4 B、5 C、 3 D、 232 表达式Abs(-5)*55/5的值是 DA、1B、5C、-25D、2533 产生10,37之间的随机整数的VisualBasic表达式是(C).A、Int(Rnd(1)*27)+11B、Int(Rnd(1)*28)+11C、Int(Rnd(1)*28)+10D、In t(Rnd(1)*27)+1034 工具栏中的启动按钮的作用是(B).A、工程管理窗口B、运行一个应用程序C、打开被选中对象的代码窗口D、运行一个窗体35 不需要编译，计算机便可直接执行的程序是（ B ）。 A、C语言程序B、 机器语言程序C、 汇编语言程序 D、 Visual Basic语言程序 36 Val (“123ab”)=（ D ）。 A、0 B、 不能转换C、1230 D、123 37 表达式16/4-25*8/4MOD52的值为 AA、4B、2C、14D、2038 删除字符串前导和尾随空格的函数是(D).A、Rtrim( )B、Ltrim()C、LcaseD、Trim()39 下列表达式中,其值为0的是(C).A、15 mod 9B、7/9C、79D、7 mod 1540 表达式Len(123程序设计ABC)的值是 BA、17B、10C、14D、2041 Int(-3.1)+round (-4.6)=_C_。 A、-8B、-6 C、-9 D、-7 42 、/、Mod、*等4个算术运算符中,优先级最低的是(A).A、ModB、/C、*D、43 下面正确的赋值语句是（ D ）。A、x=y=1 B、x+2=y2+2C、x+y=1 D、x=y+z1 44 Len(实践应用能力)的值是(A).A、6B、4C、不能确定D、845 表达式Mid(SHANGHAI,6,3)的值是(C).A、ANGHB、SHAC、HAID、SHANGH46 表达式253 mod 3 *Int(4.5)的值为(B).A、1B、8C、4D、547 下面变量名称正确的是（ C ）。A、x 1 B、integer C、 x_1_y D、 x , y48 不能正确表示条件两个整型变量A和B之一为0,但不能同时为0的布尔表达式(D).A、A*B=0ANDABB、(A=0ORB=0)ANDABC、A=0ANDB0ORA0AND B=0D、A*B=0AND(A=0ORB=0)49 如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是(C).A、0.01*int(100*(x+0.05)B、0.01*int(x+0.05)C、0.01*int(100*(x+0.005)D、0.01*int(x+0.005)50 表达式X+1X是(D).A、非法表达式B、字符表达式C、算术表达式D、关系表达式51VisualBasic的编程机制是(B).A、面向图形B、事件驱动C、面向对象D、可视化52 下面4项中合法的变量名是(A).A、X_yzB、X-YC、123abcD、integer53 以下可以作为VB变量名的是(C).A、COS(X)B、X(-1)C、CO1D、SIN54 表达式(73+1)*(185-1)的值是(B).A、8.76B、6C、6.67D、7.855 下列哪个变量名的取法是不正确的(C).A、sTmeB、T_12C、T12%D、T_Temp56 可以同时删除字符串前导和尾部空白的函数是(B).A、LtrimB、TrimC、MidD、Rtrim57 VB窗体文件的扩展名是(A).A、FRMB、VBWC、VBPD、BAS58 一个具有图形用户界面的“标准EXE”工程必须包含的文件是（ A ）。 A、工程文件和窗体文件。 B、窗体文件和标准模块文件。C、工程文件和资源文件。D、工程文件和标准模块文件。59 数学式3X5写成VB表达式是（ A ）。A、3=X and X=3 and 5XC、3=X or X5D、3=X”A” and Ucase$(C$)=0 AND a+cb+3 OR NOT d的值是_false_。4.表示x是5的倍数或是9的倍数的逻辑表达式为_x mod 5 = 0 OR x mod 9 = 0_。5.在刚建立工程时，使窗体上的所有控件具有相同的字体格式，就对_font_的属性进行设置。6.Int(-2.6)、Int(2.6)、Fix(-2.6)、Fix(3.6)的值分别是_-3_、_2_、_-2_、_3_。7.Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用_label_控件；若允许用户输入文本，则应使用_Textbox_控件。8.若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。Private Sub Cmdopen_Click()_frm1.show_end sub9.表达式93 7 Mod 2 2 的值是_1_。10.表达式Ucase(Mid(“abcdefgh”,3,4)的值是_CDEF_。11.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的_属性_窗口中，把此文本框的_text_属性设置成空白。12.已知a=3，b=4，c=5，表达式ab and Not ca Or cb And ca And Not b 3000Print 从1 到:; i; 的和是; sEnd Sub答案 【学生答案】i = i + 2【参考答案】i=i+12. -【程序改错】-862题目：以下程序段用于输出100-300的所有素数-Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor n = 101 To 300 Step 2 k = Int(Sqr(n) i = 2*ERROR* swit = 1*ERROR* While swit = 0 If n Mod i = 0 Then swit = 1 Else*ERROR* i = i - 1 End If WendIf swit = 0 Then Print n;End IfNext nEnd Sub答案 【学生答案】swit = 1【参考答案】swit=0【学生答案】While swit = 0【参考答案】While i=i And swit=0 While swit=0 And i=i【学生答案】i = i - 1【参考答案】i=i+13.Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); 9*9 tablePrint: PrintPrint * ;For i = 1 To 9*ERROR* Print Tab(i * 6); iNext iPrintFor j = 1 To 9 Print j; ; For k = 1 To j Print Tab(k * 6); j * k; ; *ERROR* Next j Print*ERROR*Next k答案 【学生答案】Print Tab(i * 6); i【参考答案】 Print Tab(i * 6); i;【学生答案】Next j【参考答案】 Next k【学生答案】Next k【参考答案】Next j4.-【程序改错】-题目：以下程序段用于计算5的N次方。-Option ExplicitPrivate Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox( Input n )*ERROR* k = 0*ERROR* s = 0 Do While k = n s = s * 5 k = k + 1*ERROR* Next Print 5的; n次方是; sEnd Sub答案 【学生答案】k = 0【参考答案】k=1【学生答案】s = 0【参考答案】s=1【学生答案】Next【参考答案】loop-5.【程序改错】-题目：以下程序段用于打印如图1所示的九九乘法表：-Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); 9*9 tablePrint: PrintPrint * ;For i = 1 To 9*ERROR* Print Tab(i * 6); iNext iPrintFor j = 1 To 9 Print j; ;*ERROR* For k = 1 To 9*ERROR*Print Tab(j * 6); j * k; ; Next k PrintNext jEnd Sub答案 【学生答案】Print Tab(i * 6); i【参考答案】Print Tab(i*6);i;【学生答案】For k = 1 To 9【参考答案】For k = 1 To j【学生答案】Print Tab(j * 6); j * k; ;【参考答案】Print Tab(k*6);j*k; ;6.【程序改错】-题目：下面程序可输出如下图形： * * * * *-Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integern = 4m = 1s = *For i = 5 To 1 Step -1 *ERROR* Print Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print *ERROR* n = n + 1 *ERROR* m = m - 1Next i答案 【学生答案】Print Spc(n)【参考答案】Print Spc(n);Print Spc(i);?Spc(n);?Spc(i);【学生答案】n = n + 1【参考答案】n=n-1n=-1+n【学生答案】m = m - 1【参考答案】m=m+17.题目：以下程序段用于输出100-300的所有素数-Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor i = 101 To 299 k = Int(Sqr(i) For n = 2 To k If i Mod n = 0 Then *ERROR* Exit End If Next n *ERROR* If n k Then Print i; End If*ERROR*Next nPrint i答案 【学生答案】Exit【参考答案】exit for【学生答案】If n k ThenIf kn Then【学生答案】Next n【参考答案】next iNext i程序填空1.从键盘输入三个整数，从其中找出最大值并输出到窗口Private Sub Form_Click()Dim a%, b%, c%, max%a = Val(InputBox(请输入一个整数)b = Val(InputBox(请输入一个整数)c = Val(InputBox(请输入一个整数)max=a*FILL*If _Then max=bEnd IfIf max c Then*FILL* _End If*FILL*Print a; 、; b; 、; c; 中最大值是;_End Sub答案 【学生答案】If _Then【参考答案】maxbmaxmaxb=max【学生答案】_【参考答案】max=c【学生答案】Print a; 、; b; 、; c; 中最大值是;_【参考答案】max2.以下程序的功能。Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(请输入a的值)b = InputBox(请输入b的值)c = InputBox(请输入c的值)d = b * b - 4 * a * cp = -b / (2 * a)If d = 0 Then*FILL* If _ Then r = Sqr(d) / (2 * a)