收藏 分享(赏)

《计算机程序设计基础》课后练习题.doc

上传人:dreamzhangning 文档编号:2738035 上传时间:2018-09-26 格式:DOC 页数:23 大小:289.50KB
下载 相关 举报
《计算机程序设计基础》课后练习题.doc_第1页
第1页 / 共23页
《计算机程序设计基础》课后练习题.doc_第2页
第2页 / 共23页
《计算机程序设计基础》课后练习题.doc_第3页
第3页 / 共23页
《计算机程序设计基础》课后练习题.doc_第4页
第4页 / 共23页
《计算机程序设计基础》课后练习题.doc_第5页
第5页 / 共23页
点击查看更多>>
资源描述

1、 第 1 页 共 23 页计算机程序设计基础课后练习题 1一判断题(1) 事件过程由某个用户事件或系统事件触发执行,但不能被其他过程调用。(2) 若 X2, Y5,则表达式 Y2X AND X2Y 的结果为:True。(3) 常量是指在程序运行过程中其值可以改变的那些量。(4) VB 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性。(5) 定义变量:Dim max,min as Single , 则 max 和 min 的数据类型均为 Single。(6) 如果创建的菜单项的标题是一个减号“- ”,则该菜单项显示为一条分隔线。(7) 标准模块文件的扩展名是“*.VBP”

2、。(8) 定时器控件可以响应 Click 事件,但不能响应 DbClick 事件。(9) 在默认情况下,数组下标下界的缺省值为 1。(10) 在使用字体对话框时,需要对其 Flags 属性先进行相应设置。二单选题(11) 在 Visual Basic 中,表示鼠标单击事件的是 。A)Activate B)DoubleClick C)Click D)MouseDown(12) 用于设置计时器时间间隔的属性是 。A)Interval B)Name C)Left D)Top(13) 函数 Int(10*Rnd)是在 范围内的整数。A)1,10 B)1,10 C) 0,9) D)0,9(14) Sel

3、ect case 语句结构的结尾应使用 _ 。A)End B) End Case C) End Sub D) End Select(15) 改变了容器的坐标系后,该容器的 属性值不会改变。A)left B)scaleleft C)scaletop D)scalewidth(16) 执行下列语句后,列表框中各表项顺序为 List1.ClearFor i=1 to 4 : List1.AddItem i-1,0 :Next iA) B) C) D)(17) 输入对话框 InputBox 的返回值的类型是 。A)字符串 B)整数 C)浮点数 D)长整数第 2 页 共 23 页(18) 将焦点主动设置

4、到指定的控件或窗体上,应采用 方法。A)SetDate B)SetFocus C)SetText D)GetData(19) 有如下程序段:Dim I As Integer , S As IntegerS = 1FOR I = 1 TO 8 STEP 2S = S * INEXT IPRINT “S = “ ; S运行结果为 A)S = 9 B)S = 105 C)S = 1 D)S = 16(20) 利用以下_语句,可以输出日期和时间信息。A)Print Date B)Print Month C)Print Time D)Print Now(21) 一只漂亮的酒杯被摔碎了,则漂亮,酒杯,摔是

5、_。A)对象,属性,事件 B)对象,属性,方法C)属性,对象,方法 D)属性,对象,事件(22) 将通用对话框以“打开文件对话框”方式打开,则选以下 方法。A) ShowOpen B)ShowColor C)ShowSave D)ShowFont(23) 执行语句“Line (100, 100)-(150, 200), vbBlue, B”,在窗体上绘制出一个矩形,那么该矩形的面积 = 。A)5000 B)10000 C) 15000 D)20000(24) 如何使一个标签或按钮控件在运行时不可用_。A)把它的 Visible 属性设置成 False B)把它的 Visible 属性设置成 T

6、rueC)把它的 Enabled 属性设置成 False D)把它的 Enabled 属性设置成 True(25) 下列 表达式的结果为“1234556789“。A)Trim(“12345 “+“ 56789“) B)Ltrim(“12345 “)+Rtrim(“ 56789“)C)Rtrim(“12345 “) Next iEnd Sub 第 5 页 共 23 页(36) A)a(j) a(j - 1) C)a(i) a(j) D)a(j) a(i) (37) A)a(i)=a(j) B) a(j-1)=a(j) C)a(j)=a(i) D) a(j) = a(j - 1)【程序填空 4】在

7、窗体上画一个名称为 Combol 的组合框,画两个名称分别 Label1 和Label2 及 Caption 属性分别为“城市名称”和空白的标签。程序运行后(如下图所示),当在组合框中输入一个新的项目按回车键时(回车键的 ASCII 码为 13),如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在 Label2 中给出提示“已成功添加输入项;如果存在,则在 Label2 中给出提示“输入项已在组合框中 ”。Private Sub Combo1_ KeyPress (KeyAscii As Integer)If _ (38) ThenFor i=0 To Combo1.List

8、Count-1If Combo1.Text= _ (39) ThenLabel2.Caption=“输入项已在组合框中“Exit SubEnd IfNext iLabel2.Caption=“已成功添加输入项“Combo1._ (40) Combo1.TextEnd IfEnd Sub(38) A)KeyAscii=0 B)KeyAscii=13 C)KeyAscii=8 D)KeyAscii=9(39) A)Combo1.ListIndex B)Combo1.List(i) C)Combo1.AddItem(i) D)Combo1.Clear(40) A)Selected B)RemoveI

9、tem C)AddItem D) ListIndex四程序阅读题【程序阅读 1】根据以下代码,单击窗体三次,那么第一次单击后输出的 a、b、c 的值为_(41)_,第二次单击后输出的 a、b、c 的值为_(42)_,第三次单击后输出的a、b、c 的值为_(43)_。Private a%, b%, c%Private Sub Form_Click()Dim a As Integerc = 2Call AA(c)第 6 页 共 23 页b = BB(a)Print a, b, cEnd SubPublic Sub AA(c%)a = c + bc = a + cEnd SubPublic Func

10、tion BB(ByVal b%)b = b + 1BB = a + bEnd Function(41) A)2 5 4 B)2 3 4 C)0 3 4 D)0 3 2(42) A)7 12 9 B)7 15 9 C)0 6 2 D)0 6 7(43) A)0 9 10 B)0 9 2 C)17 19 35 D)10 27 32【程序阅读2】阅读下列程序并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。Private Sub Form_Click()Form1.Scale (-10, 10)-(10, -10)Form1.Circle (0, 0), 5, , -3 * 3.14 /

11、 2, -3.14Form1.FillStyle = 0End Sub(44)运行以上程序,第一次单击窗体后,Form1 上的输出结果是 (44) ,A) B ) C) D)(45)第二次单击窗体后, Form1 上的输出结果是 (45) 。A) B) C) D)【程序阅读 3】阅读下列程序并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。 (:表示回车)Private Sub Form_Load()Text1.Text=“: Form1.ClsEnd SubPrivate Sub Text1_KeyPress(k As Integer)Static s As IntegerIf (

12、Chr(k) “9“) And k10 And Is1016. 执行语句 s=Len(Mid(“VisualBasic“,0,5)后,s 的值是_。A、Visual B、Basic C、6 D、表达式有错17. 以下关于函数过程的叙述中,正确的是_。A、函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中,过程的返回值可以有多个C、当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递D、如果不指明函数过程参数的类型,则该参数没有数据类型18. 在窗体上画一个名称为 TxtA 的文本框,然后编写如下的事件过程: Private Sub Txt_KeyPress(keyasc

13、ii as integer) End Sub若焦点位于文本框中,则能够触发 KeyPress 事件的操作是_。A、单击鼠标 B、按下键盘上的“A”键C、鼠标滑过文本框 D、按下键盘上的任意键19. 执行行下面的事件过程,在窗体显示的内容是_。Private Sub Command1_Click()Dim a As Varianta = Array(12, 23, 34, 45, 56)For i = 1 To 3Print Trim(a(i);Next IEnd SubA、122334 B、233445 C、12 23 34 D、23 34 4520. 将图形框(PictureBox)控件的

14、AutoSize 属性设置为 True 后,则对于图形框而言,_。A、图形框中的图片自动改变大小适应图形框B、图形框自动改变大小适应其中的图形C、如果图片的大小比图形框大,则图形框自动裁剪图象以适应图形框的大小。D、如果图片的大小比图形框小,则图形框大小不发生变化。21. 在图形框控件 picture1 上坐标(100,100)和(500,500)之间画一条红色直线,写作第 11 页 共 23 页_。A、Line (100,100)-(500,500) vbRed B、Line (100,100)-(500,500) RGB(0,255,0)C、picture1.Line (100,100)-

15、(500,500) RGB(255,0,0)D、picture1.Line (100,100)-(500,500) Red22. 下列赋值语句中,_是错误的。A、x=x+1 B、x=x+y C、x+y=x D、x=4623. 单击滚动条的滚动箭头时,产生的事件是_。A、Click B、Scroll C、 Change D、Move24. 在程序运行期间可以用_函数把图形装入窗体、图片或图象框。A、Autosize B、Stretch C、Picture D、LoadPicture25. 在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程:Private Sub Comma

16、nd1_Click()Dim num As Integernum = 1Do Until num 6Print num;num = num + 2.4LoopEnd Sub 程序运行后,单击命令按钮,则窗体上显示的内容是_。A、1 3.4 5.8 B、1 3 5 C、1 4 7 D、无数据输出26. _对象具有 Clear 方法。A、 窗体 B、 复选框 C、 列表框 D、 图片框27. 设 a=16,b=7,c=1,则表达式 a 3 + 2 = b And c = 91 Mod 3 的结果_。A、True B、False C、1 D、出错信息28. 设有如下通用过程:Public Sub F

17、un(a(), ByVal x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮,然后编第 12 页 共 23 页写如下的事件过程:Private Sub Command1_Click()Dim arr(5) As VariantDim n as IntegerFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr(), n)Text1.Text = nEnd Sub程序运行后,单击命令按钮,则在文本框中显示的内容是A、10

18、B、15 C、25 D、2429. 窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim num As IntegerFor num = 1 To 6 Step 3Print num;Next numPrint numEnd Sub 程序运行后,单击命令按钮,则窗体上显示的内容是_。A、1 4 4 B、1 3 5 C、1 4 7 D、无数据输出30. 以下_方式打开的文件只能读不能写。A、Input B、Output C、Append D、Random三、程序填空程序 1在 C 盘当前文件夹下建立一个名为 Dat

19、a.txt 的顺序文件,要求用文本框输入若干英文单词,每次按下回车键时将文本框中的内容写入文件,并清除文本框的内容,直到文本框输入 END 为止,最后关闭文件。Private Sub Form_Load()(31) Text1.Text = “End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)第 13 页 共 23 页If KeyAscii = 13 ThenIf (32) = “END“ Then(33) EndElse(34) Text1.Text = “End IfEnd IfEnd Sub31. A、Open “D:Data.t

20、xt“ For Output As #B、Open “C:Data.txt“ For Input #C、Open “C:Data.txt“ For Output As #D、Open “C:Data.txt“ Output As #32. A、LCaseText1.Text B、Text1.TextC、Str(Text1) D、UCase(Text1.Text)33. A、Quit #1 B、Close #1C、End #1 D、Exit #134. A、Write #1, Text1 B、Write #1, Text C、Write #3, Text1.Text D、Write #1, Te

21、xt.Text程序 2下面程序的作用是利用随机函数产生 100 个随机整数,范围在20,120之间(包含 20 和 120) ,打印其中为 5 或 7 的倍数的数,求出它们的总和并打印。请将下列程序补充完整。 Private Sub Command1_Click() SUM=0For i = 1 To 100 X = Int( (35) )If (36) ThenSUM=SUM+X(37) End If Next i Print “SUM=“; SUM End Sub35. A、Int(Rnd*100+20) B、Int(Rnd*101+20)C、Int(Rnd*101+19) D、Int(R

22、nd*100+21)36. A、X Mod 5 = 0 and X Mod 7 = 0B、X 5 = 0 and X 7 = 0第 14 页 共 23 页C、X 5 = 0 Or X 7 = 0D、X Mod 5 = 0 Or X Mod 7 = 037. A、Print X; B、Print SUM+X;C、Print SUM; D、Print SUM*X;程序 3单击窗体后,用输入对话框输入 x、n,然后按下式计算结果。要求:将计算结果以标签控件显示,且标签控件每秒随机变换一次颜色。S )!1(!4!23xOption Explicit Private Sub Form_Load()Tim

23、er1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Form_Click()Dim x As Single, n As Integer, i As Integer, t As Single(38) s = 0x = InputBox(“x=“)n = InputBox(“n=“)(39) for i= (40) t = t * x / is = s + tNext i(41) End SubPrivate Sub Timer1_Timer()Label1.BackColor = RGB(Rnd * 255, Rnd * 255,

24、 Rnd * 255)End Sub38. A、Static s As Single B、Dim s As SingleC、Option Base 1 D、Const s As Single39. A、t = -1 B、t = 0 C、t = 2 D、t = 140. A、2 To n+1 B、1 To n C、2 To n D、1 To n+141. A、Label1.Caption = x B、Label1.Caption = nC、Label1.Caption = s D、Label1.Caption = s+x程序 4设计一个程序,用于从文本框 Text1 输入课程名称,单击按钮,添加

25、到列表框(List1)中显示出来。第 15 页 共 23 页具体要求:单击“Command1”按钮,若文本框 Text1.Text 中不是空格串,并且列表中也没有,则将该课程添加列表框中,然后清除文本框 Text1 的内容,再将焦点返回到文本框Text1,以便再次在文本框 Text1 输入内容,继续添加。Private Sub Command1_Click()Dim I As IntegerDim AddFlag As Boolean(42) If (43) ThenFor i = 0 To (44) If List1.List(i) = Text1.Text ThenAddFlag = Fa

26、lseExit ForEnd IfNext iIf AddFlag Then List1.AddItem Text1.TextEnd IfText1.Text = “(45) End Sub42. A、AddFlag = -1 B、AddFlag = FalseC、AddFlag = 1 D、AddFlag = 043. A、text1.text = “” B、text1.text = “ ”C、text1.text “ NULL ”44. A、List1.ListIndex 1 B、List1.ListCount-1C、List1.ListIndex D、List1.ListCount45.

27、 A、text1.Clear B、text1.SetFocusC、text1.Move D、text1.ReFresh四、程序阅读程序 1写出下列程序运行结果,单击命令按钮控件后窗体上的显示结果Private Sub Command1_Click()Dim a(1 To 6) As IntegerFor i = 1 To 6a(i) = i * iNext iFor j = 1 To 3temp = a(6)For i = 6 To 2 Step -1a(i) = a(i - 1)第 16 页 共 23 页Next ia(1) = tempNext jFor i = 1 To 6Print a

28、(i);Next iEnd Sub程序 2单击窗体后,在四个 PictureBox 控件中的图形分别是:Option ExplicitPrivate Sub Form_Click()Dim i%For i = 0 To 3Picture1(i).Scale (-10, 10)-(10, -10)Next iPicture1(0).Line (-10, 10)-(0, 0)Picture1(0).Line -(-10, -10)Picture1(1).Circle (0, 0), 5Picture1(2).Circle (0, 0), 5, , 0, 3.14159Picture1(3).Cir

29、cle (0, 0), 5, , , , 2End SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 3Picture1(i).FillStyle = (i + 1) Mod 2Picture1(i).ClsNext iEnd Sub程序 3事先将 text1.text 设为为空,在获得焦点后,从键盘上依次按下以下键:“1“,“2“,“+“,“3“,“4“,“-“,“5“,“6“,“/“,“1“,“4“,然后按回车键,写出输出结果。Private Sub Text1_KeyPress(K As Integer)If K Asc(“9“

30、) ThenK = 0Print Text1.TextEnd IfEnd Sub程序 4在窗体上画一个名称为 Command1 的命令按钮,然后编写相应的事件过程。程序运行后,如果单击命令按钮,则在窗体上显示的内容是Public Function f(x As Integer)Dim y As Integer第 17 页 共 23 页x = 20y = 2f = x * yEnd FunctionPrivate Sub Command1_Click()Static x As Integerx = 10y = 5y = f(x)Print x; yEnd Sub第 18 页 共 23 页计算机程

31、序设计基础课后练习题 3一判断题1 窗体或控件的事件的名称可以由编程人员确定。2 关系运算表达式“1“+“2“=“3“的运算结果为 True。3 变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量。4 控件的有些属性只能在运行时设置。5 数组在内存中占据一片连续的区域。6 驱动器列表框、目录列表框、文件列表框三者之间能够自动实现关联。7 当按钮的 Default 属性设置为 True 时,任何情况下按键,相当于单击该按钮。8 在过程中用 Dim 和 Static 定义的变量都是局部变量。9 设置数组下标下界缺省值为 1 的语句为 option base 1 。10 For-Ne

32、xt 循环结构的默认步长为 1。二单选题11当建立好一个简单的应用程序后,假定该工程仅有一个窗体模块。问该工程涉及到多少个文件要保存? 个。A) 1 B) 2 C)3 D) 412能够将文本框控件隐藏起来的属性是 。(A) Clear (B) Visible (C) Hide (D) New13. 下列符号中,哪个是 VB 合法的变量名? 。A) a 123 B) Integer C) X_yz D) 14. inputBox 函数返回值的类型为 。A) 数值 B) 字符串 C) 变体 D) 数值或字符串(视输入的数据而定)15. 表达式 5+5 3 * 10 / 8 Mod 9 的值是 .A

33、) 4 B) 5 C) 6 D) 716. 如果在立即窗口中执行以下操作:a=4 (是回车键,下同)b=6 print ab 则输出结果是 。A) -1 B) 0 C) False D) True17. 当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到的。A)MouseDown B)MouseUp C)Load D)Click18. 在设计菜单时,如在菜单中加入一个菜单分隔项,则菜单分隔项的标题必须设置为 。A)加号(+) B)减号(-) C)星号(*) D)感叹号(!)第 19 页 共 23 页19. Select Case 语句属于程序基本结构中的:A)顺序结构 B)循环结构

34、C)分支结构 D)选择结构20. 为了把焦点移到某个指定的控件,所使用的方法是A) SetFocus B) Visible C) Refresh D) GetFocus21. 设 a=3,则执行 x=IIf(a5,-1,0)后,x 的值为 。A) 5 B) 6 C) 0 D) -122. 执行下面的程序段后,x 的值为 。x=5For i=1 To 10 Step 2x=x+i5Next iA) 8 B) 10 C) 6 D) 1223. 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()For i = 1 To 2x = 2For j =

35、i To 3x = x + 6Next jNext iPrint xEnd Sub程序运行后,单击命令按钮,输出结果是 。A) 20 B) 14 C) 32 D) 3824. 在窗体上画一个命令按钮,然后编写如下事件过程:Prevate Sub Command1_Click()b=0Do While b-1a = Val(InputBox(“请输入 A 的值”)b = Val(InputBox(“请输入 B 的值”)a = a+bLoopPrint aEnd Sub程序运行后,单击命令按钮,依次在输入对话框中输入 5、3、3、-1,则输出结果为 。A) 2 B) 3 C) 14 D) 1525

36、. 将通用对话框以打开对话框打开,则选以下()方法。A) ShowOpen B) ShowColor C) ShowSave D) ShowFont26. 计时器控件能够引发的唯一事件是( )AKeypress BClick CTimer DTimer1第 20 页 共 23 页27. 用于设置计时器时间间隔的属性是:A、Interval B、Name C、Left D、Top28. 在窗体上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name属性为 Command1),然后编写如下事件过程:Private Sub Command1_Click()x=0Do While x Asc(“9“) Then【13】End If(11) 假定建立了一个工程,该工程包括两个窗体,其名称(Name 属性)分别为 Form1 和Form2,启动窗体为 Form1。在 Form1 画一个命令按钮 Command1,程序运行后,要求当单击该命令按钮时,Form1 窗体消失,显示窗体 Form2,请在【14】和【15】处将程序补充完整。Private Sub Command1_Click()Form1.【14】 Form2. 【15】End Sub

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 高等教育 > 大学课件

本站链接:文库   一言   我酷   合作


客服QQ:2549714901微博号:道客多多官方知乎号:道客多多

经营许可证编号: 粤ICP备2021046453号世界地图

道客多多©版权所有2020-2025营业执照举报