精选大一VB语言程序期末考试题及答案

1、大一VB语言程序期末考试题及答案大一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 表

2、达式 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

3、(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,

4、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、

5、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 O

6、R 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 以

7、下数据类型中,占用内存最大的是(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

8、 ) )=( 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、 V

9、isual 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

10、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 不能正确表示条件两个整型变量

11、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、面向对

12、象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 一个具有图形用户界面的“标准

13、EXE工程必须包含的文件是 A 。 A、工程文件和窗体文件。 B、窗体文件和标准模块文件。C、工程文件和资源文件。D、工程文件和标准模块文件。59 数学式3X5写成VB表达式是 A 。A、3=X and X=3 and 5XC、3=X or X5D、3=XA 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(-

14、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.当程序运行时，

15、要求窗体中的文本框呈现空白，那么在设计时，应当在此文本框的_属性_窗口中，把此文本框的_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, sw

16、it 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

17、【学生答案】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*ERR

18、OR*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

19、 = 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 T

20、ab(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.【程序改错】-题目：下面程序可输出如以

21、下图形： * * * * *-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)【参考答案】Pri

22、nt 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*

23、 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(

24、请输入一个整数)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

25、 = 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) x1 = p + r x2 = p - r Else x1 = p x2 = p*FILL* _ Print x1=; x1, x2=; x2*FILL*_ q = Sqr(-d) / (2 * a) Print x1=; p; +; q; i, x2=; p; -; q; iEnd If答案 【学生答案】If _ Then【参考答案】d0【学

26、生答案】_【参考答案】End ifEnd Ifend if【学生答案】_【参考答案】elseElseELSE3.从键盘输入学生分数，统计学生总人数和各分数段人数，即优秀90-100、良好80-89、中等70-79、 及格60-69、不及格60以下的人数。Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = 请输入分数-1结束msgtitile = 输入数据score = Val(InputBox(msg, msgtitle)*FILL*While _ total = total + 1*FILL* Select Cas

27、e _ Case Is = 90 n1 = n1 + 1 Case Is = 80 n2 = n2 + 1 Case Is = 70 n3 = n3 + 1 Case Is = 60 n4 = n4 + 1 Case Else n5 = n5 + 1*FILL* _score = Val(InputBox(msg, msgtitle)WendPrint n1, n2, n3, n4, n5, totalEnd Sub答案 【学生答案】While _【参考答案】score=0 and score=0 and score=100score-1【学生答案】Select Case _【参考答案】sco

28、re【学生答案】_【参考答案】End Select4以下程序段用于实现：输入两个正整数m和n，求其最大公因数和最小公倍数。Private Sub Form_Click()Dim a%, b%, num1%, num2%, tempnum1 = InputBox(请输入一个正整数)num2 = InputBox(请输入一个正整数)*FILL*If _ Then temp = num1: num1 = num2: num2 = tempEnd Ifa = num1b = num2*FILL*Do While _ temp = a Mod b a = b*FILL* _LoopPrint 最大公因数

29、为：; aPrint 最小公倍数为：; num1 * num2 / a答案 【学生答案】If _ Then【参考答案】num1num1【学生答案】Do While _【参考答案】b0b00btemp0temp00tempNot b=0Not 0=b【学生答案】_【参考答案】b=temp5以下程序用于判断一个正整数3是否为素数。Private Sub Form_Click()n = InputBox(请输入一个正整数3)k = Int(Sqr(n)i = 2swit = 0*FILL*Do While i = k And _*FILL*If _ Then swit = 1Else*FILL* _

30、End IfLoopIf swit = 0 Then Print n; 是一个素数Else Print n; 不是素数End IfEnd Sub答案 【学生答案】Do While i = k And _【参考答案】swit=0【学生答案】If _ Then【参考答案】n Mod i = 0n i = n / in / i = int ( n / i)【学生答案】_【参考答案】i = i + 16题目：从键盘上输入一串字符，以?结束，统计输入字符中的 大、小写字母和数字的个数。Private Sub Form_Click()Dim ch$, n1%, n2%, n3%n1 = 0n2 = 0n3

31、 = 0ch = InputBox(请输入一个字符)*FILL*Do While _ Select Case ch Case a To z n1 = n1 + 1*FILL* Case _ n2 = n2 + 1 Case 0 To 9 n3 = n3 + 1 End Selectch = InputBox(请输入一个字符)*FILL* _Print n1, n2, n3答案 【学生答案】Do While _【参考答案】do while ch?Do While ch?【学生答案】Case _【参考答案】case A to ZCase A to Z【学生答案】_【参考答案】loopLoop窗体设

32、计1 在名称为Form1的窗体上画一个文本框，名称为Txt1；再画一个命令按钮，名称为C1，标题为移动，如图1所示。请编写适当的事件过程，使得在运行时，单击移动按钮，文本框水平移动到窗体的最左端如图2所示。程序中不得使用任何变量。注意：完成题目后，必须保存工程后再关闭。 【控件】VB.CommandButton_ 标准答案：Name=C1 学生答案：Name=【控件属性评分】错误 【控件】VB.CommandButton_ 标准答案：Caption=移动 学生答案：Caption=【控件属性评分】错误 【控件】VB.TextBox_ 标准答案：Name=Txt1 学生答案：Name=【事件评分

33、】错误 【事件】Private Sub C1_Click() 标准答案： Txt1.Left = 0 学生答案：二 1、 利用 VB设计上面的程序界面。窗体的标题为字体修改；其中包括一名称为Label1,标题为请输入文字的标签； 一名称为Text1，内容为空的文本框； 名称为Command1,标题为隶书，名称为Command2,标题为黑体的两个命令按钮。 2、程序功能： 单击隶书命令按钮时，文本框的字体设为隶书； 单击黑体命令按钮时，文本框的字体设置为黑体。提示：不能使用任何变量！ 【事件】Private Sub Command2_Click() 标准答案： Text1.Font = 黑体 学

34、生答案：【控件属性评分】错误 【控件】VB.CommandButton_ 标准答案：Caption=隶书 学生答案：Caption=【事件评分】错误 【事件】Private Sub Command1_Click() 标准答案： Text1.Font = 隶书 学生答案：【控件属性评分】错误 【控件】VB.Label_ 标准答案：Caption=请输入文字 学生答案：Caption= 三 在名称为Form1的窗体上建立一个名称为List1的列表框。要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem AAA，每当单击某个列表项时，都执行语句List

35、1.AddItem List1.Text一次，如下图。 【事件】Private Sub Form_Load() 标准答案： List1.AddItem AAA 学生答案：【事件评分】错误 【事件】Private Sub List1_Click() 标准答案： List1.AddItem List1.Text 四 在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value，如下图程序中不能使用任何变量 【事件】Private Sub HS1_Scroll() 标准答案： Prin

36、t HS1.Value 学生答案：【控件属性评分】错误 【控件】VB.HScrollBar_ 标准答案：Name=HS1 学生答案：Name=【控件属性评分】错误 【控件】VB.HScrollBar_ 标准答案：Max=100五 1、在名称为Form1的窗体上建立一个名称为l1的标签，并设置他不可见；两个名称为cmd1和cmd2， 标题分别为显示1和显示2的命令按钮。 2、编写适当的事件过程，要求程序运行后， 如果单击显示1命令按钮，那么标签可见并显示字符串aaa； 如果单击显示2命令按钮，那么标签可见并显示字符串bbb。 程序中不能使用任何变量，直接显示字符串；不能使用默认属性。程序开始运行

37、时界面如图1所示 标准答案：Caption=显示1 学生答案：Caption=【控件属性评分】错误 【控件】VB.Label_ 标准答案：Visible=0 False 学生答案：Visible=【控件属性评分】错误 【控件】VB.Label_ 标准答案：Name=l1 学生答案：Name=【控件属性评分】错误 【控件】VB.CommandButton_ 标准答案：Name=cmd2 学生答案：Name=【控件属性评分】错误 【控件】VB.CommandButton_ 标准答案：Name=cmd1 学生答案：Name=【事件评分】错误 【事件】Private Sub cmd1_Click()

38、标准答案： l1.Visible = True l1.Caption = aaa 学生答案：【事件评分】错误 【事件】Private Sub cmd2_Click() 标准答案： l1.Caption = bbb六 1、在名称为Form1的窗体上画一个文本框，名称为Text1,且不可见；再画两个命令按钮，名称分别为c1和c2， 标题分别为隐藏和显示。2、请编写适当的事件过程，使得在运行时，如果单击隐藏按钮，那么文本框消失； 如果单击显示按钮，那么文本框显示出来，如图1和图2所示。程序中不得使用任何变量。 【控件属性评分】错误 【控件】VB.CommandButton_ 标准答案：Name=c2

39、 学生答案：Name=【控件属性评分】错误 【控件】VB.CommandButton_ 标准答案：Caption=显示 学生答案：Caption=【控件属性评分】错误 【控件】VB.CommandButton_ 标准答案：Name=c1 学生答案：Name=【控件属性评分】错误 【控件】VB.CommandButton_ 标准答案：Caption=隐藏 学生答案：Caption=【控件属性评分】错误 【控件】VB.TextBox_ 标准答案：Visible=0 False 学生答案：Visible=【事件评分】错误 【事件】Private Sub c2_Click() 标准答案： Text1.

40、Visible = True 学生答案：【事件评分】错误 【事件】Private Sub c1_Click() 标准答案： Text1.Visible = False 学生答案：七 标题为输出的命令按钮，如图1-12所示。要求程序运行后，在文本框输入几个字符，单击输出按钮，那么在窗体上显示文本框中的文字。 注意：在程序中不能使用任何变量，不能使用默认属性。 控件属性评分】错误 【控件】VB.CommandButton_ 标准答案：Name=Cmd1 学生答案：Name=【控件属性评分】错误 【控件】VB.CommandButton_ 标准答案：Caption=输出 学生答案：Caption=【事件评分】错误 【事件】Private Sub Cmd1_Click() 标准答案： Print Text1.Text 学生答案：八 在名为Form1的窗体上画一个框架，名称为Frm1，标题为框架，高度为2500，宽度为4000，框架内建立一文本框，距左边框600，距框架的上边框1200，文本框中的初始内容设置为文本框，如下图。注意：完成试题后，必须保存，然后关闭窗口。 【控件属性评分】错误 【控件】VB.Frame_ 标准答案：Name=Frm1 学生答案：Name=【控件属性评分】错误 【控件】VB.Frame_ 标准答案：Height=2500 学生答案：Height=【控件属