最新网上农大VB语言程序的设计课程作业答案4套.docx

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

2、.只有控件才是 VB中的对象C.控件和窗体都是 VB中的对象D.控件和窗体都不是 VB中的对象参考答案：C您的答案：C5、 为了把窗体上的某个控件变为活动的，应执行的操作是（ ）。A.单击窗体的边框B.单击该控件的内部C.双击该控件D.双击窗体参考答案：B您的答案：B6、 确定一个控件在窗体上的位置的属性是（ ）。A.Width 或 HeightB.Width 和 HeightC.Top 或 LeftD.Top 和 Left参考答案：D您的答案：D7、 在窗体上面画一个名称为 Textl的文本框，然后编写如下的事件过程:Private Sub Text1_KeyPress（KeyAscii A

3、s In teger）End Sub若焦点位于文本框中，则能够触发 KeyPress事件的操作是（）。A.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键参考答案：D您的答案：D8、 为了装入一个 VB应用程序，应当（ ）。A.只装入窗体文件（.frm）B.只装入工程文件（.vbp）C. 分别装入工程文件和标准模块文件 （.bas）D.分别装入工程文件、窗体文件和标准模块文件参考答案：B您的答案：B9、当窗体最小化时缩小为一个图标，设置这个图标的属性是（ ）A.Mouselco nB.IconC.PictureD.MousePoi nt参考答案：B您的答案：B10、为了取消窗体的

4、最大化功能， 需要把它的一个属性设置为 False，这个属性是（）A.Co ntrolBoxB.Min Butt onC.En abledD.MaxButt on参考答案：D您的答案：D11、决定窗体有无控制菜单的属性是（ ）A.Co ntrolBoxB.Min Butt onC.En abledD.MaxButt on参考答案：A您的答案：A12、下列操作中不能向工程中添加窗体的是（ ）A.执行“工程”菜单中的“添加窗体”命令B.单击工具栏上的“添加窗体”按钮C.右击窗体，在弹出的菜单中选择“添加窗体”命令D.右击工程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择“添加窗

5、体”命令参考答案：C您的答案：C13、当一个工程含有多个窗体时，其中的启动窗体是（ ）A.启动Visual Basic 时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体参考答案：D您的答案：D14、为了在按下Esc键时执行某个命令按钮的事件过程，需要把该按钮的哪个属性设为True （）。A.ValueB.DefaultC.CancelD.En abled参考答案：C您的答案：C15、用菜单编辑器创建菜单时，如果要在菜单中添加一条分隔线， 正确的操作是（）。A.在标题输入框中输入“-”（减号）B.在名称输入框中输入“-”（减号）C.在标题输入框中输入“（

6、下划线）D.在名称输入框中输入“（下划线）参考答案：A您的答案：A16、在显示菜单时，菜单的哪个属性为 True时将用灰色显示该菜单项标题（ ）A.Captio nB.CheckedC.En abledD.Visible参考答案：C您的答案：C17、使文本框获得焦点的方法是（ ）A.ChangeB.GotFocusC.SetFocusD.LostFocus参考答案：C您的答案：C18、为了使标签框控件覆盖背景，应把 BackStyle属性设置为（）A.0B.1C.TrueD.False参考答案：B您的答案：B19、在窗体上画两个文本框（Name属性分别为Text1和Text2 ）和一个命令按钮

7、（Name 属性为Comma nd），然后编写如下两个事件过程:Private Sub Comma nd1_Click()a = Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text =Text2.Text =End Sub程序运行后，在Text1和Text2中分别输入123和321，然后单击命令按钮，则输出结果为（）。A.444B.321123C.123321D.132231参考答案：C您的答案：C20、当拖动滚动条中的滚动块时，将触发滚动条的事件是（ ）。A.MoveB.Cha ngeC.ScrollD.S

8、etFocus参考答案：C您的答案：CVB语言程序设计第2套您已经通过该套作业，请参看正确答案1、 以下语句 Print 3 + 4 5 * 6 / 7 Mod 8 的输出结果是（ ）A.3B.4C.5D.6参考答案：B您的答案：B2、 下面不是VB的数据类型的是（ ）。A.Curre ncyB.BoolC.ObjectD.Si ngle参考答案：B您的答案：B3、下列可作为VB的变量名的是（）A.3*DeltaB.BoolC.ObjectD.Si ngle参考答案：B您的答案：B4、下面的数2.65358979335278E-06写成普通的十进制数是（ ）A.0.00002653589793

9、35278B.0.00000265358979335278C.0.000265358979335278D.0.000000265358979335278参考答案：B您的答案：B5、下面的数1.21576654590569E+19写成普通的十进制数是（ ）A.12157665459056900B.121576654590569000C.1215766545905690000D.12157665459056900000参考答案：D您的答案：D6、设 a = 2， b = 3， c = 4， d = 5，下列表达式 Not a = c Or 4 c = bA2 And b a + c的值是（）。A.

10、-1B.1C.TrueD.False参考答案：D您的答案：D7、语句Print 5 5 5 / 5 的输出结果是（ ）A.5B.25C.0D.1参考答案：B您的答案：B的输出结果是（）8、语句 Print Sgn(-62) + Int(-6A2) + Int(6A2)A.-36B.1C.-1D.-72参考答案：C您的答案：C9、以下语句的输出结果是( )。a = Sqr(3)Print Format(a, $#.#)A.$1.732B.$1.732C.$1732D.$0001.732参考答案：B您的答案：B10、以下程序段的输出结果是(a = Sqr(3)b = Sqr(2)c = a bPr

11、i nt cA.$1.732B.$1,732C.$1732D.$0001.732参考答案：D您的答案：D11、表达式4 + 5 6 * 7 / 8 Mod 9 的值是（）A 4B.5C.6D.7参考答案：B您的答案：B12、一个语句如果在下一行继续写，应在本行尾部加符号（ ）A.,B.:C._D.;参考答案：C您的答案：C13、假定Picture1和Text1分别为图片框和文本框的名称， 下列不正确的语句是（）A Print 25B.Picture1.Pri nt 25C.Text1 .Print 25D.Debug.Pri nt 25）。（A表示空格）参考答案：C您的答案：C14、以下语句的

12、输出结果是（a = 27b = 65Pri nt a; bA.27 A 65B.A 27 A 65C.27AA 65D.A 27 AA 65参考答案：D您的答案：D15、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Comma nd1_Click()Dim a As In teger, b As In tegera = In putBox(E nter the First in teger)b = In putBox(E nter the Sec ond in teger)Print b + aEnd Sub程序运行后，单击命令按钮，先后在输入对话框中输入 456和12

13、3,则输出结果是()A.579B.123C.456D.123456参考答案：A您的答案：A16、执行下面的语句后，所产生的消息框的标题是（ ）a = MsgBox（AAAA, , BBBB, , 5）A.BBBBB.空C.AAAAD.实时错误，不能产生消息框参考答案：A您的答案：A17、对用MsgBox显示的消息框，以下叙述中错误的是（ ）a = MsgBox(AAAA, , BBBB, , 5)A.可以有一个按钮B.可以有两个按钮C.可以有三个按钮D.可以有任意多个按钮参考答案：D您的答案：D18、假定有如下的窗体事件过程：Private Sub Comma nd1_Click（）a = V

14、isual Basic 程序设计”b = Left（a, 6）c = Mid（a, 8）MsgBox b, 34, cEnd Sub程序运行后，单击命令按钮，则在弹出的消息框的标题栏中显示的信息是（ ）A.可以有一个按钮B.可以有两个按钮C.可以有三个按钮D.可以有任意多个按钮参考答案：C您的答案：C19、设有语句x = InputBox（ 输入数值,示例, 20） 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（ ）。A.变量x的值是数值型数据10B.变量x的值是字符串型数据10C.10是默认值D.在InputBox对话框标题栏中显示的是“输入数值参考答案：B您的答案：

15、B后，x的值为（）20、设 a = 6，贝V执行 x = llf(a 5,-1,0)A.5B.6C.0D.-1参考答案：D您的答案：DVB语言程序设计第3套您已经通过该套作业，请参看正确答案1、设有函数则下列能正确计算该函数值的语句是（）。A.If x 0 The nEnd IfB.If x 0 The nEnd IfC.If x 0 Thenr = 1Elser = 2End IfD.r = lf(x 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectLabel1.Capti on = xLabel2.Capti on = y

16、End Sub程序运行后，单击窗体，标签 Labell和Label2中显示的内容分别是()A -5 和-2B.-5 和-4C.-5 和-3D.-5 和-5参考答案：A您的答案：AA.AlignB.AlignmentC.SortedD.Value参考答案：B您的答案：B4、下列程序段的执行结果为（）。x = 2: y = 1*If x y 0A.TrueB.FalseC.-1D.1参考答案：B您的答案：B5、下列程序段的执行结果为（）x = 3: y = 4If x 0 The n a = 1If x 10 The n a = 2If x 20 The n a = 3If x 30 The n

17、a = 4Print aA.1B.2C.3D.4参考答案：B您的答案：B7、通过改变单选按钮控件的什么属性值，可以改变单选按钮的选取状态（ ）A.ValueB.StyleC.Appeara neeD.Captio n参考答案：A您的答案：A8、在窗体上画两个单选按钮，名称分别为 Option1和Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Cheekl,标题为粗体”；一个文本框，名称为Textl , Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选 框被选中，则能够实现上述要求的语句序列是（ ）。A.Optio nl.Value = TrueCh

18、eckl.Value = FalseB.Optio nl.Value = TrueCheckl.Value = TrueC.Optio n2.Value = FalseCheckl.Value = TrueD.Optio nl.Value = TrueCheckl.Value = 1参考答案：D您的答案：D9、 下面控件中，用于将对象分组的是( )A.窗体B.文本框C.复选框D.框架参考答案：D您的答案：D10、 下列代码的运行结果是()。If 3 - 2 The na = 10Elself (10 / 2) = 6 The na = 20Elsea = 30End IfPrint aA.10

19、B.20C.30D.不确定参考答案：A您的答案：A11、 阅读下面的程序：Private Sub Form_Click()Dim m, n As In tegerm = InputBox( 请输入M的值)m = Val(m)m1 = mn = InputBox( 请输入N 的值)n = Val( n)n1 = nDo While n v 0remin = m Mod nm = nn = reminLoopPri nt ml, n1, mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入 16和24,在程序在窗体上的输出结果为（)。A.16244B.16248C.24166D.24168

20、参考答案：B您的答案：B12、阅读下面的程序：Private Sub Form_Click()Dim Check, Cou nterCheck = TrueCoun ter = 0DoDo While Cou nter 20 Coun ter = Coun ter + 1 If Cou nter = 10 Then Check = False Exit DoEnd IfLoopLoop Un til Check = FalsePri nt Cou nter. CheckEnd Sub程序运行后，单击窗体，标签 Labell和Label2中显示的内容分别是（）A.150B.20-1C.10Tru

21、eD.10False参考答案：D您的答案：D13、 假定有以下循环结构Do Un til 条件循环体Loop则正确的描述是（）。A.如果“条件”是一个为 0的常数，则一次循环体也不执行B.如果“条件”是一个为 0的常数，贝阮限次执行循环体C.如果“条件”是一个不为 0的常数，则至少执行一次循环体D.不论“条件”是否为“真”，至少要执行一次循环体 参考答案：B您的答案：B14、 执行下面的程序段后，x的值为（）。x = 5For i = 1 To 20 Step 2x = x + i 5Next iA.20B.21C.24D.25参考答案：B您的答案：B15、在窗体上画一个命令按钮，然后编写如下

22、事件过程:Private Sub Comma nd1_Click()For i = 1 To 4x = 4Forj = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPri nt xEnd Sub程序运行后，单击命令按钮，输出结果是( )A.7B.15C.157D.538参考答案：B您的答案：B16、在窗体上画两个文本框 (其Name属性分别为Text1和Text2 )和一个命令按钮(其 Name属性为Comma nd)，然后编写如下事件过程：Private Sub Comma nd1_Click()x = 0Do While x 50

23、x = (x + 2) * (x + 3)n = n + 1LoopText1.Text = Str( n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为(A.1 和 0B.2 和 72C.3 和 50D.4 和 168参考答案：B您的答案：B17、在窗体上画一个命令按钮，名称为 Comma nd。然后编写如下程序:Private Sub Comma nd1_Click()For i = 1 To 4Forj = 0 To iPrint Chr$(65 + i);Next jPri ntNext iEnd Sub程序运行后，如果单击命

24、令按钮，则在窗体上显示的内容是( )A.BD.参考答案：A您的答案：A18、阅读下面的程序:Option Base 1Private Sub Form_Click()Dim Arr(4, 4) As In tegerFor i = 1 To 4Forj = 1 To 4Arr(i, j) = (i - 1) * 2 + jNext jNext iFor i = 3 To 4Forj = 3 To 4Pri nt Arr(j, i);Next jPri ntNext iEnd Sub程序运行后，单击窗体，输出结果是（ ）A.5768B.6879C.79810D.810811参考答案：C您的答案：

25、C19、用下面的语句所定义的数组的元素个数是（）。Dim arr(3 To 5,-2 To 2)A. 8B. 12C. 15D. 24参考答案：C您的答案：C20、在窗体上画一个命令按钮,Name属性为Command,1然后编写如下代码:Option Base 1Private Sub Comma nd1_Click()Dim Arr(3) As In tegerFori = 1 To 3Forj = 1 To 3Arr(j) = Arr(i) + 1Next jNext iPri nt Arr(3)End Sub程序运行后，单击命令按钮，输出结果是( )A.7B.6C.5D.4参考答案：C您

26、的答案：CVB语言程序设计第4套您已经通过该套作业，请参看正确答案1、在窗体上画一个名称为 Listl的列表框，一个名称为 Labell的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是( )。A.Private Sub List1_Click()Lbell.Capti on = List1. ListI ndexEnd SubB.Private Sub List1_Click()Label1.Name = List1.List In dexEnd SubC.Private Sub List1_Click()Labe

27、l1.Name = List1.TextEnd SubD.Private Sub List1_Click()Label1.Captio n = List1.TextEnd Sub参考答案：D您的答案：D2、删除列表框中指定的项目所使用的方法为(A.MoveB.RemoveC.MoveitemD.Removeitem参考答案：D您的答案：D3、可唯-标志控件数组中某一个控件的属性是()A.NameB.In dexC.Capti onD.Tab In dex参考答案：B您的答案：B4、阅读下面的程序：Function Fun c(x As In teger, y As In teger) As In tegerDim n As In tegerDo While n = 4x = x + yn = n + 1LoopFunc = xEnd FunctionPrivate Sub