VisuaBasic程序设计智慧树知到超星尔雅网课答案.docx

1、VisuaBasic程序设计智慧树知到超星尔雅网课答案 VisualBasic程序设计2019智慧树知到超星尔雅网课答案 2019智慧树知到超星尔雅网课答案大全 第1章 单元测试 1、以下关于VB语言的说法中，正确的是（ ）。答案：VB是一种面向对象的语言2、在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（ ）。答案：新建一个工程3、以下可以构成语句的是（ ）。答案：对象名.方法名4、（ ）是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。答案：方法5、下列不是Visual Basic 文件的是

2、（ ）。答案：*.txt6、下列不能打开工具箱窗口的操作是 ()。答案：按 Alt+F8键7、下列可以打开立即窗口的操作是 ()。答案：Ctrl+G8、Visual Basic6.0集成环境的主窗口中不包括()。答案：状态栏9、在Visual Basic中，不能关闭的窗口是()。答案：工程窗口10、Visual Basic是一种面向对象的可视化程序设计语言，采取了()的编程机制。答案：事件驱动 第2章 单元测试 1、下列符号常量的声明中，_是不合法的。答案：C2、表达式“Turbo”+“c”“Ture”+“Basic”的值是（ ）。答案：3、执行下列语句后，V的值是（ ）。 A=“56789”

3、 V=Val（Mid（A，3，2）答案：784、表达式4+567/8 Mod 4的值是（ ）。答案：4.05、下列符号（ ）是Visual Basic中合法的变量名。答案：x236、在一行内写多条语句时，每个语句之间用 （ ） 来分隔。答案：7、在VB中，用Single来表示的数据类型是（ ）。答案：单精度型8、下列程序段的运行结果是（ ）。 Dim A As Integer , B As Integer A = 15 B = 4 Print 4 + A B答案：79、三种逻辑运算符号优先次序为（ ）。答案：NOT、AND、OR10、数学式3abc(d+e)改写为VB表达式为（ ）。答案：3a

4、bc(d+e) 第3章 单元测试 1、结构化程序设计的三种基本结构不包括（ ）。答案：倒序结构2、下面四个语句中，能打印显示2030字样的是（ ）。答案：Print“2030”3、关于MsgBox函数，以下说法不正确的是（ ）。答案：MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关4、语句 If x=1 Then y=1 ，下列说法正确的是（ ) 。答案：x=1 为关系表达式， y=1 为赋值语句5、下面程序段执行结果为( )。 x = 5 : y = 6If not x 0 Then x = y 3 Else y = x + 3End IfPrint x y; y x答

5、案：3 36、编写如下事件过程: Private Sub Form_Click() score=Int(Rnd10)+80 Select Case score Case Is 60 a$=”F” Case 60 To 69 a$=”D” Case 70 To 79 a$=”C” Case 80 To 89 a$=”B” Case Else a$=”A” End Select Print a$ End Sub 程序运行后,单击窗体,则窗体上显示的内容是( )。答案：end Sub7、循环结构For I%= 1 to 17 Step 2 共执行( )次。答案：98、下列程序段的执行结果为( )。

6、a=0:b=1 Do a=a+b b=b+1 Loop While a10 Print a;b答案：10 59、有如下程序,运行后输出的结果是( )。j=0:n=0 Do While n3 j=(j+1)(j+2) n=n+1 Loop Print j;n答案：182 310、下列的程序段执行后,x的值为（ ）。 x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i答案：55 第4章 单元测试 1、以下关于静态数组的描述正确的是（ ）。答案：静态数组的大小是固定的，可以有不同类型的数组元素2、执行下面程序段后，输出的结果为（ ）。 Dim m(

7、5) As Integer s = 0 For i = 0 To 5 m(i) = 5 Next i For j = 0 To 5 s = s + m(j) Next j Print s答案：303、下面程序：Private Sub Form_Click() Dim a(100) As Integer For i = 1 To 10 j = i i a(j) = j Next i Print a(25)End Sub运行后，单击窗体，则输出的结果是（ ）。答案：254、有如下语句：Option Base 1Private Sub Command1_Click() Dim A(2, 1 To 1

8、) As Integer End Sub 以上语句所定义的数组A为（ ）维数组，共有（ ）个元素，第一维下标从（ ）到（ ），第二维下标从（ ）到（ ）。答案：输出的是1和25、有如下程序： Const n = 5 Const m = 6 Dim a(n To m) As Integer For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next i Print a(LBound(a, 1); a(UBound(a, 1) 运行后输出的结果为（ ）。答案：5 66、下面关于控件数组与一般控件的叙述中正确的是 （ ）。答案：控件数组一定有1个以上同类型的

9、控件组成，而一般控件只有一个控件7、如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（ ）。答案：ReDim Preserve8、下列程序的输出结果为（ ）。 Private Sub Command1_Click() Dim a ReDim a(6) For j=1 To 5 a(j)=jj Next j Print a(a(2)a(3)a(4)2)+a(5) End Sub答案：419、执行下面程序段后，输出的结果为（ ）。 Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next

10、j Next i Print a(2, 5) + a(3, 4) + a(4, 5)答案：4210、要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（ ）。 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9答案：Dim a(1 To 1, 5 To 3) As Single 第5章 单元测试 1、假定有如下的Sub过程：Sub fun(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()

11、Dim a As Single Dim b As Single a = 6 b = 4 fun a, b Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。答案：1.5 22、假定有以下函数过程：Function Fun(s As String) As String Dim s1 As String For i = 1 To Len(s) s1 = UCase(Mid(s, i, 1) + s1 Next i Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim St

12、r1 As String Dim Str2 As String Str1 = InputBox(“请输入一个字符串”) Str2 = Fun(Str1) Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（ ）。答案：该问题答案暂未收录，请手动搜索。3、有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 y + z + 2 xEnd Function Private Sub Command1_

13、Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a)End Sub该程序的运行结果是（ ）。答案：194、有如下函数过程：Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer Dim quotients Do While y 0 quotients = x / y x = y y = quotients Loop Cys = xEnd Function以下是调用该函数的事件过程，该程序

14、的运行结果是（ ）。Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 10 b = 2 x = Cys(a, b) Print xEnd Sub答案：该问题答案暂未收录，请手动搜索。5、以下是一个能返回数组a中最大数的函数过程代码： Function maxval(a() As Integer) As Integer Dim max% max = 1 For i = 2 To 10 If a(i) a(max) Then max = i Next i maxval = max End Function Priv

15、ate Sub Command1_Click() Dim x(1 To 10) As Integer For i = 1 To 10 x(i) = Int(Rnd() 100) Print x(i); Next i Print Print maxval(x()End Sub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（ ）。答案：语句“maxval = max ”应改为“maxval = a(max)”6、在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer)

16、As Integer Dim t As Integer t = a b b = t + a Fun1 = t + bEnd Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x 1), x 1)End Sub程序运行后，单击命令按钮，输出结果是( )。答案：07、下面程序的运行结果为（ ）。Dim a%, b%, c%Sub p1(x%, y%) Dim c As Integer x = 2 x: y = y + 2: c = x + yEnd SubSub p2(

17、x%, ByVal y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Command1_Click() a = 2: b = 4: c = 6 Call p1(a, b) Call p2(a, b) Print a; b; cEnd Sub答案：8 6 68、下面程序：Function a(x) Static b As Integer b = b + x 2 Print bEnd Function Private Sub Command1_Click() Dim c% c = a(2)End Sub单击

18、两次命令按钮，第二次显示的结果是（ ）。答案：该问题答案暂未收录，请手动搜索。9、下列叙述中,正确的是()。答案：二进制正数的反码、补码和原码一致10、若已编写了一个 Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在 （ ）中。答案：标准模块 第6章 单元测试 1、若要求显示一个指定窗体 ,所用的方法是( )。答案：Show2、确定一个窗体或控件大小的属性是( )。答案：Width和Height3、当一个工程含有多个窗体时 ,其中的启动窗体是( )。答案：在“ 工程属性 ”对话框中指定的窗体4、每建立一个窗体 ,工程管理器窗口中就会增加一个( )。答案：窗体文

19、件5、当运行程序时,系统自动执行启动窗体的()事件过程。答案：A6、若要改变窗体中显示文本的颜色 ,应该使用的属性是( )。答案：ForeColor7、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是_。答案：代码窗口8、如果要改变窗体的标题 ,需要设置窗体对象的哪一属性( )。答案：Caption9、Cls方法可清除窗体或图片框中的信息是( )。答案：程序设计时产生的图形和文字10、窗体的 Enable属性的属性值是( )类型的数据。答案：逻辑型 第7章 单元测试 1、一般不用来触发事件的对象是 ( )。答案：标签2、如果将文本框的Locked属性设置为True,则以下说法( )是正确的

20、。答案：运行时用户不可以在界面上修改文本框中的内容3、单击命令按钮 Commandl必将调用的事件( )。答案：Click4、能够改变复选框中背景颜色的属性是 ( )。答案：BackColor5、以下不属于同类的是( )。答案：Click6、列表框中列表项的数目可通过( )属性的值获得。答案：ListCount7、组合框控件是将（）组合成一个控件。答案：列表框控件和文本框控件8、要在图片框 P1中打印字符串”How Are You”,应使用语句( )。答案：P1.Print”How Are You”9、在窗体上画一个名称为Timer1的计时器控件,要求每隔0.1秒发生一次计时器事件,则以下正确

21、的属性设置语句是( )。答案：Timer1.Interval=10010、以下控件中不属于容器的是 ( )。答案：Image 第8章 单元测试 1、刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是（）。答案：通用对话框2、将通用对话框类型 ,设置为字体对话框,可修改该控件的（） 属性 。答案：action3、下列属性属于颜色对话框的是（） 。答案：Color4、在窗体上建立通用对话框必须先将（ ）添加到工具箱中。答案：CommonDialog控件5、将通用对话框 CommandDialog1的类型设置成另存为对话框,可调用该控件的（） 方法 。答案：ShowSave6、下列事件过程可以

22、将打开对话框的标题改为”刑事案件卷宗”的是（ ）。答案：Private Sub Command1_Click() CommonDialogl.DialogTitle=”刑事案件卷宗” CommonDialogl.ShowOpen End Sub7、窗体上有一公共对话框 Commondialog1,和一个命令按钮Command1,当单击按钮时程序的功能是（）。 Private Sub Command1_Click() Commondialog1.ShowColor End Sub答案：打开颜色对话框8、在窗体上建立一个通用对话框，名称为 CommonDialog1，用下面的语句可以建立一个对话框

23、，CommonDialog1.Action=2 与该语句等价的语句是（）：答案：CommonDialog1.ShowSave9、在窗体上画一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialog1.Filter = “all files(.)|.|text files|.txt|bat files(.bat)|.bat”CommonDialog1.filterIndex = 2 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileNa

24、meEnd Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）：答案：Text Files(*.txt)10、以下叙述中错误的是（）。.答案：位图图像放大后，表示图像内容和颜色的像素数量相应增加 第9章 单元测试 1、下列选项中不正确的是( )。答案：菜单项的属性可以在属性窗口中设计2、在用菜单编辑器设计菜单时，必须输入的项是 。答案：D3、假定有一个菜单项 ,名称为MenuItem,为了运行时使该菜单项失效(变灰),应使用的语句为( ) 。答案：MenuItem.Enabled=False4、一个菜单项是不是一个分隔条,由( )属性决定。答案：Ca

25、ption5、要使用菜单项MentOne在程序运行时失效,使用的语句是( )。答案：MentOne.Enabled=False6、菜单控件仅支持下面哪一事件（）。答案：Click7、用键盘的光标键选中某一菜单项 ,并按回车将触发菜单的（）的事件。答案：Click8、设菜单中有一个菜单项为 “Open”.若要为该菜单命令设置访问键,即按下ALT及字母O 时,能够执行Open命令,则在菜单编辑器中设置”Open”命令的方式是（）。答案：把 Caption属性设置为&Open9、下列不能打开菜单编辑器的操作是（ ）。答案：按Shift+Alt+M键10、建立弹出式菜单使用的命令是（）。答案：Popu

26、pMenu 第10章 单元测试 1、使用 Circle (1000, 1000), 650 语句在窗体上绘制一个圆，则圆的线条颜色由窗体的( )属性决定。答案：ForeColor2、执行指令 “Line(1200,1200)Step(1000,500),B”后,CurrentX=( ) 。答案：22003、运行以下程序后 ,输出的图形是( ) 。 For r=0 To 150 Circle(320,240),r For i=1 To l000 Next i Next r答案：一个固定的实心圆5、以下的属性和方法中 ,可重定义坐标系的是( ) 。答案：Scale方法6、Line(100,100)

27、Step(400,400)将在窗体()画一直线。答案：(100,100)到(500,500)7、vb 中的坐标圆点位于（）。答案：容器左上角8、可用来改变坐标度量单位的是 （）。答案：ScaleMode属性9、在 VB的图形方法中,要绘制矩形,需要使用（）。答案：Line方法10、如果在图片框上使用绘图方法绘制一个实心圆 ,则图片框的（）属性决定了该圆填充的颜色。答案：FillColor 第11章 单元测试 1、当用户按键时，KeyPress、KeyDown、KeyUp事件的执行顺序为( )。答案：KeyDown事件、KeyPress事件、KeyUp事件2、文本框Textl的KeyDown事件

28、过程中参数KeyCode值表示( )。答案：所按的键盘键的键码3、编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub一般情况下(即不按住Shift和锁定大写)运行程序，如按“A”键则输出( )。答案：A a4、在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件

29、键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text=Ucase(SaveAll)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll= SaveAll+Chr(KeyAscii)End Sub程序运行后，在键盘上输入“abcdefg”,单击命令按钮，则文本框显示为( )。答案：ABCDEFG5、在上题中，如果把窗体的 KeyPreview设置为False，则文本框中显示的内容为( )。答案：不显

30、示任何信息6、下列关于 MouseMove事件，描述正确的是()。答案：伴随鼠标的移动而连续不断的发生7、当鼠标左键按下时，下列哪个事件被激发()。答案：MouseDown事件8、在鼠标事件中，语句If Button=2 成立的条件是()。答案：单击鼠标右键9、Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Shift = 6 And Button = 2 Then Print “BBBB”End IfEnd Sub程序运行后，为在窗体上输出“BBBB”，应执

31、行操作为()。答案：同时按下 Ctrl、Alt和鼠标右键10、编写如下事件过程：Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)If (Button And 3) = 3 Then Print “AAAA”End IfEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为()。答案：end Sub 第12章 单元测试 1、按文件中数据的编码方式，文件分为( )。答案：ASCII码文件和二进制文件2、关于顺序文件的描述，下面正确的是 ( )。答案：数据以ASCII码形式存放在文件中，所以可通过文本编辑软件显示3、文件号最大可取的值为（ ）。答案：5115、下面哪个函数可得到文件的长度( )。答案：LOF6、对语句Open“c:Test.txt”For Output As #2,以下错误叙述是()。答案：通过该语句打开文件后，可以对文件进行读操作7、Print #1,STR$中的Print是()。答案：文件的写语句8、在随机文件操作