VB语言程序设计4套作业参考答案.docx

1、VB语言程序设计4套作业参考答案窗体顶端第1套您已经通过该套作业,请参看正确答案1、与传统的程序设计语言相比，Visual Basic语言最突出的特点是（）。A结构化程序设计B程序开发环境C事件驱动编程机制D程序调试技术 参考答案：C 您的答案：C 2、Visual Basic集成环境的主窗口中不包括（）。A标题栏B菜单栏C状态栏D工具栏 参考答案：C 您的答案：C 3、Visual Basic窗体设计器的主要功能是（）。A建立用户界面B编写源程序代码C画图D显示文字 参考答案：A 您的答案：A 4、下列叙述中正确的是（）。A只有窗体才是VB中的对象B只有控件才是VB中的对象C控件和窗体都是V

2、B中的对象D控件和窗体都不是VB中的对象 参考答案：C 您的答案：C 5、为了把窗体上的某个控件变为活动的，应执行的操作是（）。A单击窗体的边框B单击该控件的内部C双击该控件D双击窗体 参考答案：B 您的答案：B 6、确定一个控件在窗体上的位置的属性是（）。AWidth或HeightBWidth和HeightCTop或LeftDTop和Left 参考答案：D 您的答案：D 7、在窗体上面画一个名称为Text1的文本框，然后编写如下的事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer).End Sub若焦点位于文本框中，则能够触发KeyPres

3、s事件的操作是（）。A单击鼠标B双击文本框C鼠标滑过文本框D按下键盘上的某个键 参考答案：D 您的答案：D 8、为了装入一个VB应用程序，应当（）。A只装入窗体文件(.frm) B只装入工程文件(.vbp)C分别装入工程文件和标准模块文件(.bas)D分别装入工程文件、窗体文件和标准模块文件 参考答案：B 您的答案：B 9、当窗体最小化时缩小为一个图标，设置这个图标的属性是（）。AMouseIcon BIconCPictureDMousePoint 参考答案：B 您的答案：B 10、为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（）。AControlBox BMinB

4、uttonCEnabledDMaxButton 参考答案：D 您的答案：D 11、决定窗体有无控制菜单的属性是（）。AControlBox BMinButtonCEnabledDMaxButton 参考答案：A 您的答案：A 12、下列操作中不能向工程中添加窗体的是（）。A执行“工程”菜单中的“添加窗体”命令 B单击工具栏上的“添加窗体”按钮C右击窗体，在弹出的菜单中选择“添加窗体”命令D右击工程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择“添加窗体”命令 参考答案：C 您的答案：C 13、当一个工程含有多个窗体时，其中的启动窗体是（）。A启动Visual Basic时建

5、立的窗体 B第一个添加的窗体C最后一个添加的窗体D在“工程属性”对话框中指定的窗体 参考答案：D 您的答案：D 14、为了在按下Esc键时执行某个命令按钮的事件过程，需要把该按钮的哪个属性设为True（）。AValue BDefaultCCancel DEnabled 参考答案：C 您的答案：C 15、用菜单编辑器创建菜单时，如果要在菜单中添加一条分隔线，正确的操作是（）。A在标题输入框中输入“-”（减号）B在名称输入框中输入“-”（减号）C在标题输入框中输入“_”（下划线） D在名称输入框中输入“_”（下划线） 参考答案：A 您的答案：A 16、在显示菜单时，菜单的哪个属性为True时将用灰

6、色显示该菜单项标题（）。ACaptionBCheckedCEnabled DVisible 参考答案：C 您的答案：C 17、使文本框获得焦点的方法是（）。AChangeBGotFocusCSetFocus DLostFocus 参考答案：C 您的答案：C 18、为了使标签框控件覆盖背景，应把BackStyle属性设置为（）。A0B1CTrue DFalse 参考答案：B 您的答案：B 19、在窗体上画两个文本框（Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a =

7、Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = End Sub程序运行后，在Text1和Text2中分别输入123和321，然后单击命令按钮，则输出结果为（）。A444 B321123C123321 D132231 参考答案：C 您的答案：C 20、当拖动滚动条中的滚动块时，将触发滚动条的事件是（）。AMoveBChange CScroll DSetFocus 参考答案：C 您的答案：C 窗体顶端第2套您已经通过该套作业,请参看正确答案1、以下语句Print 3 + 4 5

8、* 6 / 7 Mod 8的输出结果是（）。A3B4C5D6 参考答案：B 您的答案：B 2、下面不是VB的数据类型的是（）。ACurrencyBBool CObjectDSingle 参考答案：B 您的答案：B 3、下列可作为VB的变量名的是（）。A3*DeltaBBool CObjectDSingle 参考答案：B 您的答案：B 4、下面的数2.65358979335278E-06写成普通的十进制数是（）。A0.0000265358979335278B0.00000265358979335278 C0.000265358979335278D0.000000265358979335278 参

9、考答案：B 您的答案：B 参考答案：D 您的答案：D 6、设a = 2，b = 3，c = 4，d = 5，下列表达式Not a = c Or 4 * c = b2 And b a + c的值是（）。A-1B1 CTrue DFalse 参考答案：D 您的答案：D 7、语句Print 5 * 5 5 / 5的输出结果是（）。A5B25 C0 D1 参考答案：B 您的答案：B 8、语句Print Sgn(-62) + Int(-62) + Int(62)的输出结果是（）。A-36 B1 C-1 D-72 参考答案：C 您的答案：C 9、以下语句的输出结果是（）。a = Sqr(3)Print F

10、ormat(a, $#.#)A$1.732 B$1.732 C$1732 D$0001.732 参考答案：B 您的答案：B 10、以下程序段的输出结果是（）。a = Sqr(3)b = Sqr(2)c = a bPrint cA$1.732 B$1.732 C$1732 D$0001.732 参考答案：D 您的答案：D 11、表达式4 + 5 6 * 7 / 8 Mod 9的值是（）。A4 B5 C6 D7 参考答案：B 您的答案：B 12、一个语句如果在下一行继续写，应在本行尾部加符号（）。A, B: C_ D; 参考答案：C 您的答案：C 13、假定Picture1和Text1分别为图片框

11、和文本框的名称，下列不正确的语句是（）。APrint 25 BPicture1.Print 25 CText1.Print 25 DDebug.Print 25参考答案：C 您的答案：C 14、以下语句的输出结果是（）。 (表示空格)a = 27b = 65Print a; bA27 65 B 27 65 C27 65 D27 65参考答案：D 您的答案：D 15、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Integer, b As Integera = InputBox(Enter the First intege

12、r)b = InputBox(Enter the Second integer)Print b + aEnd Sub程序运行后，单击命令按钮，先后在输入对话框中输入456和123，则输出结果是（ ）。A579 B123 C456 D123456参考答案：A 您的答案：A 16、执行下面的语句后，所产生的消息框的标题是（ ）。a = MsgBox(AAAA, , BBBB, , 5)ABBBB B空 CAAAA D实时错误，不能产生消息框参考答案：A 您的答案：A 17、对用MsgBox显示的消息框，以下叙述中错误的是（ ）。a = MsgBox(AAAA, , BBBB, , 5)A可以有一个

13、按钮 B可以有两个按钮 C可以有三个按钮 D可以有任意多个按钮参考答案：D 您的答案：D 18、假定有如下的窗体事件过程：Private Sub Command1_Click()a = Visual Basic程序设计b = Left(a, 6)c = Mid(a, 8)MsgBox b, 34, cEnd Sub程序运行后，单击命令按钮，则在弹出的消息框的标题栏中显示的信息是（ ）。A可以有一个按钮 B可以有两个按钮 C可以有三个按钮 D可以有任意多个按钮参考答案：C 您的答案：C 19、设有语句x = InputBox(输入数值, 示例, 20)程序运行后，如果从键盘上输入数值10并按回车

14、键，则下列叙述中正确的是（ ）。A变量x的值是数值型数据10 B变量x的值是字符串型数据10 C10是默认值 D在InputBox对话框标题栏中显示的是“输入数值”参考答案：B 您的答案：B 20、设a = 6，则执行x = IIf(a 5, -1, 0)后，x的值为（ ）。A5 B6 C0 D-1参考答案：D 您的答案：D 窗体顶端第3套您已经通过该套作业,请参看正确答案1、设有函数则下列能正确计算该函数值的语句是（）。AIf x 0 Thenr = 2End IfBIf x 0 Thenr = 2End IfCIf x 0 Thenr = 1Elser = 2End IfDr = If(x

15、 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectLabel1.Caption = xLabel2.Caption = yEnd Sub程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是（ ）。A-5和-2B-5和-4C-5和-3 D-5和-5 参考答案：A 您的答案：A 3、设置复选框或单选按钮标题对齐方式的属性是（ ）。AAlign BAlignmentCSorted DValue 参考答案：B 您的答案：B 4、下列程序段的执行结果为（ ）。x = 2: y = 1If x * y 0ATrue BF

16、alseC-1 D1 参考答案：B 您的答案：B 5、下列程序段的执行结果为（ ）。x = 3: y = 4If x 0 Then a = 1If x 10 Then a = 2If x 20 Then a = 3If x 30 Then a = 4Print aA1B2C3 D4 参考答案：B 您的答案：B 7、通过改变单选按钮控件的什么属性值，可以改变单选按钮的选取状态（ ）。AValueBStyle CAppearance DCaption 参考答案：A 您的答案：A 8、在窗体上画两个单选按钮，名称分别为Option1和Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为C

17、heck1，标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是（ ）。AOption1.Value = True Check1.Value = FalseBOption1.Value = True Check1.Value = True COption2.Value = False Check1.Value = True DOption1.Value = True Check1.Value = 1参考答案：D 您的答案：D 9、下面控件中，用于将对象分组的是（ ）。A窗体 B文本框

18、 C复选框 D框架参考答案：D 您的答案：D 10、下列代码的运行结果是（ ）。If 3 - 2 Thena = 10ElseIf (10 / 2) = 6 Thena = 20Elsea = 30End IfPrint aA10B20 C30 D不确定参考答案：A 您的答案：A 11、阅读下面的程序：Private Sub Form_Click()Dim m, n As Integerm = InputBox(请输入 M 的值)m = Val(m)m1 = mn = InputBox(请输入 N 的值)n = Val(n)n1 = nDo While n 0remin = m Mod nm

19、= nn = reminLoopPrint m1, n1, mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入16和24，在程序在窗体上的输出结果为（）。A16244B16248C24166 D24168参考答案：B 您的答案：B 12、阅读下面的程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until

20、Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是（ ）。A150 B20-1C10True D10False 参考答案：D 您的答案：D 13、假定有以下循环结构Do Until 条件循环体Loop则正确的描述是（ ）。A如果“条件”是一个为0的常数，则一次循环体也不执行 B如果“条件”是一个为0的常数，则无限次执行循环体C如果“条件”是一个不为0的常数，则至少执行一次循环体 D不论“条件”是否为“真”，至少要执行一次循环体 参考答案：B 您的答案：B 14、执行下面的程序段后，x的值为（ ）

21、。x = 5For i = 1 To 20 Step 2x = x + i 5Next iA20B21C24 D25参考答案：B 您的答案：B 15、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A7B15C157 D538 参考答案：B 您的答案：B 16、在窗体上画两个文本框（其Name属性分别为Text1和

22、Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：Private Sub Command1_Click()x = 0Do While x 50x = (x + 2) * (x + 3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。A1和0B2和72C3和50 D4和168 参考答案：B 您的答案：B 17、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。ABCD 参考答案：A 您的答案：A 18、阅读下面的程序：Option Base 1Private Sub Form_Click()Dim Arr(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4Arr(i, j) = (i - 1) * 2 + jNext j