《计算机程序设计基础》课后练习题参考答案

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

一．判断题

(1) （错）事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。 (2) （错）若X＝2, Y＝5，则表达式 Y－2>X AND X＋2＞Y 的结果为：True。 (3) （错）常量是指在程序运行过程中其值可以改变的那些量。

(4) （错，timer没有）VB工具箱中的所有控件都具有宽度（Width）和高度（Height）属

性。

(5) （错）定义变量：Dim max,min as Single , 则max 和 min 的数据类型均为Single。 (6) （对）如果创建的菜单项的标题是一个减号“-”，则该菜单项显示为一条分隔线。 (7) （错）标准模块文件的扩展名是“*.VBP”。

(8) （错，都不能）定时器控件可以响应Click事件，但不能响应DbClick事件。 (9) （错）在默认情况下，数组下标下界的缺省值为1。

(10) （对）在使用字体对话框时，需要对其Flags属性先进行相应设置。 二．单选题

(11) 在Visual Basic中，表示鼠标单击事件的是 C 。

A）Activate B）DoubleClick C）Click D）MouseDown (12) 用于设置计时器时间间隔的属性是 A 。

A）Interval B）Name C）Left D）Top (13) 函数Int(10*Rnd)是在 D 范围内的整数。

A）[1，10] B）[1，10]

C) [0，9) D）[0，9]

(14) Select case语句结构的结尾应使用 D 。

A）End B） End Case C） End Sub D） End Select (15) 改变了容器的坐标系后，该容器的 A 属性值不会改变。

A）left B）scaleleft C）scaletop D）scalewidth (16) 执行下列语句后，列表框中各表项顺序为 D List1.Clear

For i=1 to 4 : List1.AddItem i-1,0 ：Next i

A） B） C） D）

(17) 输入对话框InputBox的返回值的类型是 A 。

第 1 页 共 25 页

A）字符串 B）整数 C）浮点数 D）长整数 (18) 将焦点主动设置到指定的控件或窗体上，应采用 B 方法。

A）SetDate B）SetFocus C）SetText D）GetData (19) 有如下程序段：

Dim I As Integer , S As Integer S = 1

FOR I = 1 TO 8 STEP 2 S = S * I NEXT I

PRINT “S = “ ; S

运行结果为 B

A）S = 9 B）S = 105 C）S = 1 D）S = 16 (20) 利用以下___D____语句，可以输出日期和时间信息。

A）Print Date B）Print Month C）Print Time D）Print Now (21) 一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是___D____。

A）对象，属性，事件 B）对象，属性，方法 C）属性，对象，方法 D）属性，对象，事件

(22) 将通用对话框以“打开文件对话框”方式打开，则选以下 A 方法。

A) ShowOpen B）ShowColor

C）ShowSave D）ShowFont

(23) 执行语句“Line (100, 100)-(150, 200), vbBlue, B”,在窗体上绘制出一个矩形，

那么该矩形的面积 = A 。

A）5000 B）10000 C） 15000 D）20000 (24) 如何使一个标签或按钮控件在运行时不可用___C____。

A）把它的Visible属性设置成False B）把它的Visible属性设置成True C）把它的Enabled属性设置成False D）把它的Enabled属性设置成True (25) 下列 C 表达式的结果为\。

A）Trim(\）Ltrim(\C）Rtrim(\

D）Ltrim(\

(26) 将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，

____B____。

A）图形框中的图片自动改变大小适应图形框 B）图形框自动改变大小适应其中的图形

C）如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。 D）如果图片的大小比图形框小，则图形框大小不发生变化。 (27) 要获得当前驱动器应使用驱动器列表框的哪个属性 B 。

A）Path B）Drive C）Dir D）Pattern (28) 以下关于函数过程的叙述中，正确的是____A____。

第 2 页 共 25 页

A）函数过程形参的类型与函数返回值的类型没有关系 B）在函数过程中，过程的返回值可以有多个

C）数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递 D）如果不指明函数过程参数的类型，则该参数没有数据类型 (29) 单击滚动条的滚动箭头时，产生的事件是___C____。

A）Click B）Scroll C） Change D）Move (30) 以下能返回文件长度的函数是__B___。

A）BOF B）LOF C）LEN D）EOF 三．程序填空题

【程序填空1】在C盘当前文件夹下已存在名为Data.txt的文件，利用文本框（Text1）输入若干英文单词。要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然后清除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“END”时，则表示结束输入（对于单词“END”不论大小写都视为结束），最后将文件关闭。

Private Sub Form_Load() （31） A Text1.Text = \End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If （32） D = \

Close # End Else

（33） A（注意，Text1的默认属性为text，可省略不写） Text1.Text = \End If End If End Sub (31) A）Open \１

B）Open \１ C）Open \１ D）Open \１

(32) A）LCase(Text1.Text) B）Text1.Text

C）Str(Text1) D）UCase(Text1.Text) (33) A）Write #1, Text1 B）Write #1, Text

C）Write #3, Text1.Text D）Write #1, Text.Text

【程序填空2】程序运行后如下图所示，Label1的Caption显示为 \字体定时变大\，影响字体大小的属性每隔0.5秒增加1，数值在[8，72]之间变化。

第 3 页 共 25 页

Option Explicit

Private Sub Form_Load()

Timer1.Enabled = True （34）B

Label1.Caption = \字体定时变大\End Sub

Private Sub Timer1_Timer() Static i As Integer

If i < 7 Or i >= 72 Then i = 7 i = i + 1

（35）A End Sub

(34) A）Timer1.Interval=5/10

B） Timer1.Interval = 500

C）Timer1.Interval=True D）Timer1.Interval=False (35) A）Label1.FontSize = i B）Label1.Font = i

C）Label1.Size = i D）Label1.FontSize = i+1

【程序填空3】已知五个数存放在数组中，用冒泡法对该数组进行递减排序（冒泡法：一旦发现数组中两个数逆序马上交换这两个数）。 Private Sub Command1_Click()

Dim a(1 To 5) As Integer Dim n%, i%，j%, t%

a(1) = 53: a(2) = 34: a(3) = 45: a(4) = 89: a(5) = 23

For i = 1 To 4（确保第i轮循环后，a(i)位置上存放第i大的数） For j = 5 To i+1 Step -1

If （36） B Then t = a(j)

（37）D

a(j - 1) = t End If Next j Next i

For i = 1 To 5

Print a(i); Next i

第 4 页 共 25 页

End Sub

(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】在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后（如下图所示），当在组合框中输入一个新的项目按回车键时（回车键的ASCII码为13），如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项；如果存在，则在Label2中给出提示“输入项已在组合框中”。

Private Sub Combo1_ KeyPress (KeyAscii As Integer)

If _ (38) B Then For i=0 To Combo1.ListCount-1

If Combo1.Text= _ (39) B Then

Label2.Caption=\输入项已在组合框中\Exit Sub End If Next i

Label2.Caption=\已成功添加输入项\Combo1._ (40) C Combo1.Text End If End 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)RemoveItem C)AddItem D) ListIndex 四．程序阅读题

【程序阅读1】根据以下代码，单击窗体三次，那么第一次单击后输出的a、b、c的值为_____(41)_ C__，第二次单击后输出的a、b、c的值为_____(42)__D_，第三次单击后输出的a、b、c的值为_____(43) _A_。

第 5 页 共 25 页

a(1) = temp Next j

For i = 1 To 6 Print a(i); Next i End Sub

结果：

程序2．单击窗体后，在四个PictureBox控件中的图形分别是：（答案略）

Option Explicit

Private Sub Form_Click() Dim i%

For i = 0 To 3

Picture1(i).Scale (-10, 10)-(10, -10) Next i

Picture1(0).Line (-10, 10)-(0, 0) Picture1(0).Line -(-10, -10) Picture1(1).Circle (0, 0), 5

Picture1(2).Circle (0, 0), 5, , 0, 3.14159 Picture1(3).Circle (0, 0), 5, , , , 2 End Sub

Private Sub Form_Load() Dim i As Integer For i = 0 To 3

Picture1(i).FillStyle = (i + 1) Mod 2 Picture1(i).Cls Next i End Sub

结果：

程序3．事先将text1.text设为为空，在获得焦点后,从键盘上依次按下以下键:

\然后按回车键，写出输出结果。 Private Sub Text1_KeyPress(K As Integer) If K < Asc(\ K = 0

Print Text1.Text

第 16 页 共 25 页

End If End Sub

结果：

程序4．在窗体上画一个名称为Command1的命令按钮，然后编写相应的事件过程。程序运行后，如果单击命令按钮，则在窗体上显示的内容是

Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function

Private Sub Command1_Click() Static x As Integer x = 10 y = 5 y = f(x) Print x; y End Sub

结果：

第 17 页 共 25 页

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

一．判断题

1． （错）窗体或控件的事件的名称可以由编程人员确定。 2． （错）关系运算表达式\的运算结果为True。 3． （对）变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。 4． （对）控件的有些属性只能在运行时设置。 5． （对）数组在内存中占据一片连续的区域。

6． （错）驱动器列表框、目录列表框、文件列表框三者之间能够自动实现关联。 7． （错）当按钮的Default属性设置为True时，任何情况下按键，相当于单击

该按钮。

8． （错，dim定义的也可能是模块量）在过程中用Dim和Static定义的变量都是局部

变量。

9． （对）设置数组下标下界缺省值为1的语句为option base 1 。 10． （对）For-Next循环结构的默认步长为1。

二．单选题

11．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少个文件要保存？ B 个。

A) 1 B) 2 C)3 D) 4

12．能够将文本框控件隐藏起来的属性是 B 。

(A) Clear (B) Visible (C) Hide (D) New 13. 下列符号中，哪个是VB合法的变量名？ C 。

A) a 123 B) Integer C) X_yz D) π 14. inputBox函数返回值的类型为 B 。

A) 数值 B) 字符串 C) 变体 D) 数值或字符串（视输入的数据而定） 15. 表达式5+5 \\ 3 * 10 / 8 Mod 9 的值是 C .

A) 4 B) 5 6 D) 7

C)

16. 如果在立即窗口中执行以下操作：

a=4 (是回车键，

下同)

b=6

print a>b 则输出结果是 C 。

A) -1 B) 0 C) False D) True 17. 当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到的 C 。

A）MouseDown B）MouseUp C）Load D）Click

第 18 页 共 25 页

18. 在设计菜单时,如在菜单中加入一个菜单分隔项,则菜单分隔项的标题必须设置为

B 。 A）加号(+) B）减号(-) C）星号(*) D）感叹号(!)

19. Select Case 语句属于程序基本结构中的 注意：本题有问题，C和D均可 ：

A）顺序结构 B）循环结构 C）分支结构 D）选择结构 20. 为了把焦点移到某个指定的控件，所使用的方法是 A

A) SetFocus B) Visible C) Refresh D) GetFocus 21. 设a=3，则执行 x=IIf(a>5,-1,0)后，x 的值为 C（详见附录IIf函数定义） 。

A) 5 B) 6 C) 0 D) -1 22. 执行下面的程序段后，x 的值为 A 。

x=5

For i=1 To 10 Step 2

x=x+i\\5 Next i A) 8 B) 6 D) 12

10 C)

23. 在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() For i = 1 To 2 x = 2

For j = i To 3 x = x + 6 Next j Next i Print x End Sub

程序运行后，单击命令按钮，输出结果是 B 。

A) 20 B) 14 32 D) 38 24. 在窗体上画一个命令按钮，然后编写如下事件过程：

Prevate Sub Command1_Click()

b=0

Do While b<>-1

a = Val(InputBox(“请输入A的值”)) b = Val(InputBox(“请输入B的值”)) a = a+b Loop Print a End Sub

C)

第 19 页 共 25 页

程序运行后，单击命令按钮，依次在输入对话框中输入5、3、3、-1，则输出结果为 A 。 A) 2 B) 3 C) 14 D) 15

25. 将通用对话框以打开对话框打开，则选以下（ A ）方法。

A） ShowOpen B） ShowColor C） ShowSave D） ShowFont 26. 计时器控件能够引发的唯一事件是（ C ）

A．Keypress B．Click C．Timer D．Timer1

27. 用于设置计时器时间间隔的属性是 A ：

A、Interval B、Name C、Left D、Top 28. 在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name

属性为Command1)，然后编写如下事件过程：

Private Sub Command1_Click()

x=0

Do While x<40

x=(x+2)*(x+3) n=n+1 Loop

Text1.Text=Str(n) Text2.Text=Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为 B

A) 1和0 B) 2和72 C) 3和50 D) 4和168 29. 用下面语句定义的数组的元素个数是 D 。

Dim A (-2 To 6) As Integer A) 6 B) 7 8 D) 9

30. 循环语句For I= -3 To 20 Step 4 执行的次数为 C 。

A) 4 B) 5 6 D) 8

31. 函数Int(10*Rnd)是在（ D ）范围内的整数。 A．[0，1] B．[1，10] C．[1，9] D．[0，9] 32. 利用下面哪个函数可访问文件大小 。（ A ） A） LOF B） LOC C）EOF D）BOF 33. 假定有如下的Sub过程：

Sub S（x As Single,y As Single）

t = x x =t/y

C)

C)

第 20 页 共 25 页

本文来源：https://www.bwwdw.com/article/64yo.html