VB练习题一、二合并.doc

《VB练习题一、二合并.doc》由会员分享，可在线阅读，更多相关《VB练习题一、二合并.doc（11页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、VB练习题1一、选择题（A、B、C、D 4选1） (1)下列叙述中错误的是_。 A)VB采用了事件驱动编程机制 B)VB是面向过程的程序设计语言 C)VB是可视化程序设计语言 D)VB是面向对象的程序设计语言 (2)以下能从字符串“VisualBasic”中直接取出字符串“Basic”的函数是_。 A)Left B)String C)Mid D)Instr (3)命令按钮Commandl的Caption属性为“退出(x)”，要将命令按钮的快捷键设为Alt+x，应修改Caption属性为_。 A)在x前插入& B)在x后插入& C)在x前插入df D)在x后插入df(4)表达式2 * 42-2

2、* 63 + 32的值是_。 A)34 B)29 C）30 D）28(5)数学表达式1n(exy+|arctan(z)|+ Cos3X)对应的Visual Basic算术表达式是_。 A)Ln(E(xy)+Abs(Tan(z)+ Cosx3) B)Log(Exp(xy)+Abs(Tan(z)+Cos(x)3) C)Ln(Exp(x-x-y)+Abs(Atn(z)+Cosx3)D)Log(Exp(x*y)+Abs(Atn(z)+Cos(x)3)(6)假定变量Logic类型是Boolean，下面赋值语句_是正确的。 A)Logic=false B)Logic=0 C)Logic=True D)Lo

3、gic=1(7)在程序设计阶段，当双击窗体上的某个控件时，所打开的窗口是_。A)工程资源管理器窗口 B)工具箱窗 C)代码窗口 D)属性窗口(8)在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序：Ptivate Sub Commandl_Click()For i=1 T04For j=0 To i Print Chr(65+i)；Next jPrintNext i EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。A) BB B) A CCC BB DDDD CCC EEEEE DDDDC) B D) AA CC BBB DDD CCCC EEEE DDDDD

4、（9）在窗体上有一个文本框控件，名称为TxtTime；有一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1._() TxtTime.Text=TimeEnd Sub在填空中应填入的内容是_。 A）Enabled B)Visible C)Interval D)Timer（10）在窗体中添加一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click() X=1:y=2:z=3 X=y:y=z:z=x Print z End Sub程序执行后，输出的结果是_。A）3 B）0 C）

5、2 D）1(11)Long类型的数据由_字节组成。 A)2 B)4 C)8 D)16(12)表达式3ABC B) THATTHE C)9H D) Aa(23)下列程序运行后的输出结果是_。 Private Sub Commandl_Click（）For k=3 TO 1 Step-1X= String(k，*)Print xNext K End SubA)* B)1* C)3* D)* * 2* 2* * * 3* 1* *(24)在VisualBasic中最基本的对象是_，它是应用程序的基石。 A)标签 B)窗体 C)文本框 D)命令按钮(25) 要在消息框中显示所示信息，编写的程序代码为

6、。A）MsgBox 信息提示, 32, 输入有误，请重新输入B）MsgBox 信息提示, 16, 输入有误，请重新输入 C）MsgBox 输入有误，请重新输入！, 32, 信息提示D）MsgBox 输入有误，请重新输入！, 16, 信息提示（26）要在键盘输入对话框中显示所示信息，编写的程序代码为 。A）InputBox( 请输入相关数据：,250,数组赋值)B）InputBox( 请输入相关数据：,数组赋值,250)C）InputBox(数组赋值,250, 请输入相关数据：)D）InputBox(数组赋值,请输入相关数据：, 250)(27)有下列程序：Privat sub Commandl

7、_Click()Dim MyWeek，MyDayMyWeek=Array(Mon,Tue,Wed,Thu,Fri,Sat,Sun)MyDay=MyWeek(2)MyDay=MyWeek(4)MsgBox MyDayEnd Sub运行后，弹出的消息窗口显示的是_。A)Fri B)Tue C)Wed D)Thu(28)在窗体中添加一个列表框(1istBoxl)和一个命令按钮，并编写如下代码：Private Sub Commandl_Click()Dim Entry,I，MsgMsg=Choose Ok to add 100 items to your list boxMsgBox MsgFor I

8、= 1 To 100Entry=Entry & IListlAddltem EntryNext IEndSub程序完成的功能是_。A)本示例使用Addltem方法增加100项给一个列表框B)本示例使用Addltem方法向一个列表框中添加的内容是1一100的罗列C)本示例使用Addltem方法向一个列表框中添加的内容是1100的和D)本示例使用Addltem方法增加101项给一个列表框(29)下列循环语句将执行_次。A=100DoPrint AA=A+1Loop Until A=10A)1 B)10 C)100 D)死循环（30）下面是一个循环结构的程序，循环体内的语句A = A + 1共执行_

9、次。Private Sub Form_Click() Dim i As Integer, j As Integer，A As Integer For i = 1 To 12 Step 3 For j = 5 To 0 Step -1 A = A + 1 Next j Next i Print AEnd SubA）18 B）24 C）26 D）32(31) 在以下程序中，循环体内的语句A = A + 1共执行_次。Private Sub Command1_Click() Dim i As Integer, j As Integer, A As Integer For i = 1 To 12 St

10、ep 3 i = i + 2 For j = 5 To 0 Step -1 A = A + 1 Next j Next i Print AEnd SubA）18 B）24 C）26 D）32（32）函数Int(7.5)与函数Fix(7.5)、函数Cint(7.5)的值分别是_。A. 8 7 7 B. 7 7 7 C. 7 7 8 D. 7 8 8二、填空题（1）已知下列程序运行结果是ABCD，请在_1_处将程序补充完整。Private Sub Command1_Click() A= For n=65 To 68 A=A+_1_ Next n Print aEnd Sub (2)下列程序用来计算

11、1+2+3+10的值，请补充完程序Dim t，k As SingleK=0While k10K=k+1 : _2_WendPrint t(3)设a=MicrosoftVisualBasic,则以下使变量b的值为VisualBasic的语句是_3_。A）b=Left(a,10) B）b=Mid(a,10) C）b=Right(a,10) D）b=Mid(a,11,10)(4)执行以下语句，输出结果是_4_。S=ABCDEFGHIJKPrint lnStr(S，efg)（5）执行下面的程序段后，b的值是_5_。 A=300:B=20:A=a+b:B=a-b:A=a-b（6）下面程序的作用是：当In

12、putBox函数输入一个整数，然后判断能否同时被2、5和7整除，如果能，则在窗体上输出该值与该平方值，请填空。Private Sub Command1_Click()Dim numx As Integer numx = Val(InputBox(请输入一个整数) If 6 Then Form1.Print 7 End IfEnd SubVB练习题之二一、选择题（A、B、C、D中4选1） (1)Function过程要由函数名返回一个值。如果不使用As数据类型选项来指定函数的类型，函数类型默认为_类型。A)Integer B)Variant C)Long D)String(2)运行程序产生死循环时

13、，按_键可以终止程序运行。 A)Ctrl+c B)Ctrl+z C)Ctrl+Break D)单击窗体(3)Function子程序模块用的结束语句是_。A）Eixt Sub B)Eixt Function C)End D)End Function (4)窗体中添加一个命令按钮，编写如下程序：Private Sub text(p,m,n) P=p+1:m=m+1:n=n+1 Print”Sub:”;P;M;NEnd SubPrivate Sub Command1_Click() A1=1:b1=2:c1=3 Call text(a1,b1+3,(c1) Print”Main:”;a1;b1;c1

14、End Sub程序运行后，输出结果为_。A) Sub：2 6 4 B) Sub：2 6 4 Main：2 6 4 Main：1 6 4C) Sub：2 6 4 D) Sub：2 6 4 Main：1 2 3 Main：2 2 3 (5)下面对语句OpenTextDatFor Output As #FreeFile的功能说明中错误的是_。 A)以顺序文件模式打开文件TextDatB)如果文件TextDat不存在，则建立一个新文件C)如果文件TextDat已存在，则打开该文件，新写入的数据将增添到该文件中D)如果文件TextDat已存在，则打开该文件，新写入的数据将覆盖原有的数据(6)要对顺序文件

15、进行写操作，下列打开文件语句中正确的是_。 A)Openfilel.txtFor Output AS #l B)Openfilel.txtFor lnput As #1 C)Openfilel.txtFor Random AS #1 D)Openfilel.txtFor Binary As #1(7)如果要向WORK.DAT文件中添加数据，那么下面打开该文件的语句中，正确的是_。A)OpenWORK.DAT FOR OUTPUT As #1B)OpenWORK.DATFOR APPEND As #1C)Open WORK.DAT FOR OUTPUT As #1D)Open WORK.DAT

16、FOR APPEND As #1（8）以下程序运行时输出的结果是_。 Private sub Command1_Click() Dim score as integer, k as string Score=Int(10*Rnd+80) Select Case Score Case Is a Print xEnd SubA0BTrueCFalseD-1（14）执行如下程序，其结果是_。Private Sub Command1_Click() Dim y As String y = 1 6 And a b Print yEnd SubA0BTrueCFalseD-1（15）在Do Loop Wh

17、ile循环语句中，下面那句正确_。A先执行循环体，后判断循环表达式，当表达式为真时退出循环。B先执行循环体，后判断循环表达式，当表达式为假时退出循环。C先判断循环表达式，为真时退出循环。D先判断循环表达式，为假时退出循环。（16）以下关于函数过程的叙述中，正确的是 。A)函数过程形参的数据类型与实参的数据类型是相同的B)在函数过程中，过程的返回值可以有多个选择C)当数组作为函数过程的参数时，既可以选择以传值方式传递,也可以选择以传址方式传递D)如果不指明函数过程参数的类型，则该参数没有数据类型（17）在下图中，要在窗体Form1上部有“二级VB考试”字样，可在程序代码中书写_。 AForm1.

18、Name = 二级VB考试 B.Form1.Visible = 二级VB考试 C. Form1.Caption = 二级VB考试 D.Form1.Show = 二级VB考试（18）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Move 800,800End Sub程序运行后，单击命令按钮，执行的操作为 。A) 窗体移动到距屏幕左边界、上边界各800的位置A) 命令按钮移动到距屏幕左边界、上边界各800的位置B) 命令按钮移动到距窗体左边界、上边界各800的位置D）窗体相对于命令按钮向左、上方向各移动800的位置（

19、19）函数Int(7.5)与函数Cint(7.5)的值分别是_。 A7 8 B.7 7 C.6 6 D.8 7（20）函数Cint(6.5)与函数Fix(6.5)的值分别是_。 A7 7 B.7 6 C.6 6 D.6 7(21)在VisualBasic中都可以作为容器的是 。AForm、TextBox、PictureBox BForm、TextBox、LabelCForm、PictureBox、Frame DPictureBox、textBox、ListBox(22)下面定义的Sub子过程的各个语句中，正确的是(22)。 Private Sub Sub1(A() As String) Pri

20、vate Sub Sub1(A(1 to 10) As String) Private Sub Sub1(S As String) Private Sub Sub1(S As String * 8)A. B. C. D.(23)多窗体程序由多个窗体组成。在缺省情况下，VB在执行应用程序时，总是把(23)指定为启动窗体。A不包含任何控件的窗体 B设计时的第一个窗体C.己命名为Frml的窗体 D包含控件最多的窗体(24)使用(24)方法可将新的列表项添加到一个列表框中。APrint BAddItem CClear DRemoveItem(25)若希望在离开某过程后，还能保存该过程中局部变量的值，则

21、应使用(25)关键字在该过程中定义局部变量。ADim BPrivate C.Public D.Static(26)下列表达式中，值为True的是(26)AUcase(ABCD)=abcd B.14/23Left(ABCD，2) D.Not(Sqr(4)-3=-2)(27)代数表达式对应Visual Basic表达式是(27)ASqr(x+Log(x)/(a+b)+Exp(-t)+Sin(x+y)/2)BSqr(x+Log(x)/(a+b)+Exp(-t)+Sin(x+y)/2)CSqr(x+Ln(x)/(a+b)+Exp(-t)+Sin(x+y)/2)DSqr(x+Log(x)/(a+b)+E

22、xp(-t)+Sin(x+y/2)(28)在程序中可以通过复选框和单选按钮的(28)属性值来判断它们的当前状态。ACaption BValue CCheched DSelected(29)在使用菜单编辑器创建菜单时，可在菜单标题中某字母前插入(29)符号，那么在运行程序时按Alt键和该字母键就可打开该命令菜单.A下划线 B& C$ D(30)在多窗体程序中，可以在标准模块或某个窗体模块的通用声明处，分别用(30)语句定义一个在所有窗体模块都可以引用的变量IntA。APrivate IntA As Integer Public IntA As IntegerBPublic IntA As Int

23、eger Private IntA As IntegerCPublic IntA As Integer Public IntA As IntegerDPrivate IntA As Integer Private IntA As Integer(31)在应用程序中用Private Function Fun(X As Integer，Y As Single) 定义了函数Fun。调用函数Fun的过程中的变量I、J均定义为Integer型，能正确引用函数Fun的是(31)。Fun(I，J) Call Fun(I，3.65)Fun(3.14，234) Fun(245，231.5)A， B， C， D，

24、(32)若在应用程序的标准模块、窗体模块和过程Subl的说明部分，分别用Public G As Integer、“Private G As Integer和Dim G As Integer语句说明了三个同名变量G。如果在过程Subl中使用赋值语句“G=3596”，则该语句是给在(32)说明部分定义的变量G赋值。A标准模块 B过程SublC窗体模块 D标准模块、窗体模块和过程Subl二、填空题1执行下面程序，第一行输出结果是(1)，第二行输出结果是(2)。Option ExplicitPrivate Sub Form_Click()Dim M As Integer，N As Integer，K

25、As Integer N=-3 For M=6 To 1 Step N M=M+1 N=N-M K=K+1 Next M Print K Print NEnd Sub2执行下面程序，第一行输出结果是(3)，第三行输出结果是(4) 。Private Sub Form_Click()Dim N As Integer，I As Integer N=2 For I=9 To 1 Step-1 Call Sub2(I,N) Print I，N Next IEnd SubPrivate Sub Sub2(X As Integer,Y As Integer)Static N As IntegerDim I

26、As Integer For I=3 To 1 Step-1 N=N+X X=X-1 Next I Y=Y+NEnd Sub3.执行下面程序，第一行输出结果是(5)，第二行输出结果是(6)。Option ExplicitPrivate Sub Form_C1ick()Dim A As Integer A=2 Call Sub1(A)End SubPrivate Sub Sub1(X As Integer) X=X*2+1 If X max Then max = com(i) ElseIf 10 Then min = 11 End If Next i Print 最大数是：； max Print

27、 最小数是：； minEnd SubPrivate Sub Command2_Click() Form1.ClsEnd Sub6.编制应用程序，计算公式为K=2！+4！+6！+ +（2n!）。运行该程序后，在文本框中输入项数，单击“计算”按钮，在另一个文本框中显示结果。单击“清除”按钮，清除二个文本框中的内容，光标聚焦在“输入项数”文本框中。单击“退出”按钮，结束应用程序的运行。Private Sub Command1_Click() Dim f As Double, s As Double, n As Integer Dim i As Integer, j As Integer n = Val(Text1.Text) For i = 2 To 2 * n 12 f = 1 For j = 1 To i f = f * j Next j s = 13 Next i Text2.Text = Str(s)End SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = 14 End SubPrivate Sub Command3_Click() Unload MeEnd Sub