《计算机程序设计基础》课后练习题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)执行下列语句后，列表框中各表项顺序为 DList1.ClearFor i=1 to 4 : List1.AddItem i-1,0 ：Next iA）B）C）D）(17)输入对话框InputBox的返回值的类型是 A 。
A）字符串 B）整数 C）浮点数 D）长整数(18)将焦点主动设置到指定的控件或窗体上，应采用 B 方法。
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运行结果为 BA）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属性设置成TrueC）把它的Enabled属性设置成False D）把它的Enabled属性设置成True (25)下列 C 表达式的结果为"1234556789"。
A）Trim("12345 "+" 56789") B）Ltrim("12345 ")+Rtrim(" 56789") C）Rtrim("12345 ") & ("56789")D）Ltrim("12345 ") & Rtrim(" 56789")(26)将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，____B____。
A）图形框中的图片自动改变大小适应图形框B）图形框自动改变大小适应其中的图形C）如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。
D）如果图片的大小比图形框小，则图形框大小不发生变化。
(27)要获得当前驱动器应使用驱动器列表框的哪个属性 B 。
A）Path B）Drive C）Dir D）Pattern(28)以下关于函数过程的叙述中，正确的是____A____。
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） AText1.Text = ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf （32） D = "END" ThenClose #EndElse（33） A（注意，Text1的默认属性为text，可省略不写）Text1.Text = ""End IfEnd IfEnd Sub(31)A）Open "C:\Data.txt" For Output As #１B）Open "C:\Data.txt" For Input #１C）Open "C:\Data.txt" Input As #１D）Open "C:\Data.txt" Output As #１(32)A）LCase(Text1.Text) B）Text1.TextC）Str(Text1) D）UCase(Text1.Text)(33)A）Write #1, Text1 B）Write #1, TextC）Write #3, Text1.Text D）Write #1, Text.Text【程序填空2】程序运行后如下图所示，Label1的Caption显示为"字体定时变大"，影响字体大小的属性每隔0.5秒增加1，数值在[8，72]之间变化。
Option ExplicitPrivate Sub Form_Load()Timer1.Enabled = True（34）BLabel1.Caption = "字体定时变大"End SubPrivate Sub Timer1_Timer()Static i As IntegerIf i < 7 Or i >= 72 Then i = 7i = i + 1（35）AEnd Sub(34)A）Timer1.Interval=5/10 B） Timer1.Interval = 500C）Timer1.Interval=True D）Timer1.Interval=False(35)A）Label1.FontSize = i B）Label1.Font = iC）Label1.Size = i D）Label1.FontSize = i+1【程序填空3】已知五个数存放在数组中，用冒泡法对该数组进行递减排序（冒泡法：一旦发现数组中两个数逆序马上交换这两个数）。
Private Sub Command1_Click()Dim a(1 To 5) As IntegerDim n%, i%，j%, t%a(1) = 53: a(2) = 34: a(3) = 45: a(4) = 89: a(5) = 23For i = 1 To 4（确保第i轮循环后，a(i)位置上存放第i大的数）For j = 5 To i+1 Step -1If （36）B Thent = a(j)（37）Da(j - 1) = tEnd IfNext jNext iFor i = 1 To 5Print a(i);Next iEnd Sub(36)A）a(j) <a(j - 1) B）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 ThenFor i=0 To Combo1.ListCount-1If Combo1.Text= _ (39) B ThenLabel2.Caption="输入项已在组合框中"Exit SubEnd IfNext iLabel2.Caption="已成功添加输入项"Combo1._ (40) C 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)RemoveItem C)AddItem D) ListIndex四．程序阅读题【程序阅读1】根据以下代码，单击窗体三次，那么第一次单击后输出的a、b、c的值为_____(41)_ C__，第二次单击后输出的a、b、c的值为_____(42)__D_，第三次单击后输出的a、b、c的值为_____(43) _A_。