1、一、选择题：35 题,2 分_题,共 70 分一、选择题：35 题，2 分/题，共 70 分下列各题 A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。1.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（A）A)LoadB)ClickC)UnloadD)GotFocus2.无论何控件，都具有一个共同属性。这个属性是（C）A)TextB)FontC)NameD)Caption3.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（D）A)，B)；C)、D)：4.表达式 32*2+3 MOD 104 的值是（C）
2、A)18B)1C)19D)05.下面的变量名合法的是（A）A)k_nameB)k ameC)nameD)k-name6.设有如下变量声明 Dim time1 As Date,为变量 time1 正确赋值的表达式是（A）A)time1 = #11:34:04 #B)time1 = Format(Time,“yy:mm:dd“)C)time1 = #“11:34:04“#D)time1 = Format(“hh:mm:ss“,Time)7.表达式 12000 + “129“ Next jPrintNext iEnd Sub运行时输入出的结果是（D）A)1 2 32 4 64 6 8B)1 2 32
3、 4 63 6 9C)12 43 6 9D)1 2 34 6917.在窗体上画一个名称为 Command1 的命令按钮，编写如下程序：Private Sub Command1_Click()Print pl(3,7)End SubPublic Function pl(x As Single,n As Integer) As SingleIf n=0 Thenpl=1ElseIf n Mod 2=1 Thenpl=x*x+nElseP1=x*x-nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是（D）A)2B)1C)0D)1618.以下属性和方法中，
4、可重定义坐标系的是（C）A)DrawStyle 属性B)DrawWidth 属性C)Scale 方法D)ScaleMode 属性 19.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Load()Text1.Text = “Text1.SetFocusFor i = 1 To 5Sum = Sum +iNext iText1.text = SumEnd Sub上述程序的运行结果是（D）A)在文本框中输出 15B)在文本框中输出 0C)在文本框中输出不定值D)出错 20.已知 x 代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是（C）A)If x =
5、 60 ThenPrint “及格“ElseIf x = 70 ThenPrint “中“ElseIf x = 80 ThenPrint “良“ElseIf x = 90 ThenPrint “优“ElsePrint “不及格“End IfB)If x = 90 ThenPrint “优“ElseIf x = 80 ThenPrint “良“ElseIf x = 70 ThenPrint “中“ElseIf x = 60 ThenPrint “及格“ElsePrint “不及格“End IfD)Select Case xCase x = 90Print “优“Case x = 80Print
6、“良“Case x = 70Print “中“Case x = 60Print “及格“Case ElsePrint “不及格“End Select21.下面说法不正确的是(D)A)滚动条的重要事件是 Change 和 ScrollB)框架的主要作用是将控件进行分组，以完成各自相对独立的功能C)组合框是组合了文本框和列表框的特性而形成的一种控件D)计时器控件可以通过对 Visible 属性的设置，在程序运行期间显示在窗体上 22.在窗体上画一个名称为 Check1 复选框，在程序运行的过程中，若选中复选框，则 Check1.value 的值是（D）A)TrueB)2C)0D)123.在下列关于
7、菜单的说法中，错误的是（B）A)每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件B)除了 Click 事件之外，菜单项还能响应其他的如 DblClick 等事件过程C)菜单项的快捷键不可以任意设置D)在程序执行时，如果菜单项的 Enabled 属性为 False，则该菜单项变成灰色，不能被用户选择 24.下面关于多重窗体的叙述中，正确的是（B）A)作为启动对象的 Main 子过程只能放在窗体模块内B)如果启动对象是 Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体C)没有启动窗体，程序不能执行D)以上都不对 25.与键盘操作有关
8、的事件有 KeyPress、KeyUp 和KeyDown 事件，当用户按上并且释放一个键后，这三个事件发生的顺序是（A）A)KeyDown、KeyPress、KeyUpB)KeyDown、KeyUp、KeyPressC)KeyPress、KeyDown、 、KeyUpD)没有规律 26.要从磁盘上读入一个文件名为“c:filel.txt”的顺序文件，下面程序段正确的是（A）A)F=“c:filel.txt“Open F For Input As # 1B)F=“c:filel.txt“Open “F“ For Input As # 2C)Open “c:filel.txt“ For Outpu
9、t As # 2D)Open c:filel.txt For Input As # 127.下列关于过程叙述不正确的是（D）A)过程的传值调用是将实参的具体值传值递给形参B)过程的传址调用是将实参在内存的地址传递给形参C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D)无论过程传值调用还是过程传址调用，参数传递都是双向的 28.执行了下面程序后，组合框中数据项的值是（D）Private Sub Form_Click()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd SubA
10、)1 5 6B)1 3 5C)4 5 6D)2 4 629.若在 Shape 控件内以 FillStyle 属性所指定的图案填充区域，而填充图案的线条颜色由 FillColor 属性指定，非线条的区域由 Back Color 属性填充，则应（A）A)将 Shape 控件的 FillSte 属性设置为 2 至 7 间的某个值，BackStyle 属性设置为 1B)将 Shape 控件的 FillSte 属性设置为 0 或 1，BackStyle 属性设置为 1C)将 Shape 控件的 FillSte 属性设置为 2 至 7 间的某个值，BackStyle 属性设置为 0D)将 Shape 控件
11、的 FillSte 属性设置为 0 或 1，BackStyle 属性设置为 030.下列程序的执行结果是（A）Private Sub Form_Activate()Dim score(3) As Integer, total As IntegerDim aa_score As Variantscore(1)=50: score(2) =14：score(3)=36tota=0: i=0For Each aa_score In scorei=i+1total=tota + aa+_scorePrint i,aa_score,totalNextEnd SubA)1 0 02 50 503 14 6
12、44 36 100B)1 50 502 14 643 36 100C)0 50 501 14 642 36 100D)0 0 01 50 502 14 643 36 10031.在 Activate 事件过程中，写入下面的程序：Option Base 1Private Sub Form_Activate()Dim t As IntegerDim a( ) As Varianta=Array (2,4,6,8,10,1,3,5,7,9)For i=1 to 102t= a(i)a(i)=a(10 - i + 1)a(10 - i + 1)=tNext iFor j= 1 to 10Print a
13、(j);Next jEnd Sub运行程序后，显示的结果是（C）A)2 4 6 8 10 1 3 5 7 9B)1 3 5 7 9 2 4 6 8 10C)9 7 5 3 1 10 8 6 4 2D)10 8 6 4 2 9 7 5 3 132.在 Activate 事件过程中，写入下面的程序：Private Sub Form _Activate()Dim S As String, a As String, b As Stringa= “*“ : b =“ $“For i= 1 to 4If i / 2= Int(i / 2) ThenS=String(Len (a)+i , b)ElseS=
14、String(Len(a) + i, a)End IfPrint S;Next iEnd Sub运行程序后，显示结果是（C）A)$ *$*B)*$*$*$*$C)*$*$D)$*$*$*$*33.在窗体上设置相应的控件，并在代码窗口编写下列程序： Printe Sub Form_Click()Dim a As Long ,b As Longa=InputBox(“请输入若干个整数“)Call P(a,b)Print bEnd SubPrivate Sub P(x As Long, y As Long)Dim n As Integer, j As String*1, s As Stringk=L
15、en(Trim(Str(x)s=“For i= K To 1 Step -1j=Mid(x,i,1)s=s+jNext iy=Val(s)End Sub运行程序，在 InputBox 框中输入 123456,然后单击“确定“按钮，则输出结果是（B）A)123456B)654321C)135246D)24613534.设定文本框内的文字内容是否允许修改的属性是（B）A)TextB)LockedC)PasswordCharD)Multiline35.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩（百分制）组成，下列程序段正确的是（C）A)Type studlno
16、 As Integername AS Stringscore(1 to 3) As SingleEnd TypeB)Type studlno As Integername As String *10score() As SingleEnd TypeC)Type studlno As Integername As String *10score(1 to 3) As StngleEnd TypeD)Type studlno As Integername As Stringscore(1 to 3) As StringEnd Type 二、填空：每空 2 分，共 30 分。1.有一图书查询系统，当
17、在组合框中选择书名后，则在两个文本框中显示出作者和出版社，程序运行后的界面如图 2-1 所示，当单击“结束”按钮时，结束程序。程序中有一个组合框、两个文本框、三个标签及一个命令按钮。请_1_、_2_和_3_处填入适当的内容，将程序补充完整。Dim k As Integerdim author(),b_concernPrivage Sub Combol_Click()Dim n As Integern=Combol.ListIndexText(1)=1Text(2)=2End SubPrivate Sub Combol_Click()3End SubPrivate Sub Form_Load()
18、Combol.AddItem“哭泣的骆驼“Combol.AddItem“双城记“Combol.AddItem“窗外“Combol.AddItem“红与黑“Combol.AddItem“废都“author()=Array(“三毛“，“荻更斯“，“琼瑶“，“司汤达、“贾平凹“)b_concern()=Array(“作家“，“商务“，“香江文艺“，“外国文学“、“上海“)End Sub答案: author(n) ；b_concerm(n) ；End2.在窗体上画一个名称为Timer1 的计时器和一个名称为 Label1 的标签。当运行程序后，将在标签中显示当前时间的数字时钟（包括时：分：秒） 。程序
19、运行后的结果如图 2-2 所示。请在_4_处填入适当的内容，将程序补充完整。Private Sub Form_Load()Timer1.Interval=1000End SubPrivate Sub Timer1_timer()_4_End Sub答案: Labell.Caption=Time3.在刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对_5_的_6_属性进行设置。答案: Form 窗体 、 Font4.整形变量 M 中存放了一个两位数，要将两位数交换位置，例如 24 变成 42，实现的表达式为_7_答案:(M mod 10)*10 + M10)5.下列程序运行时
20、，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用 Asc 和 Chr 函数，Select Case 语句中禁用枚举值。请在_8_、_9_、_10和_11_ 处填入适当的内容，将程序补充完整。Private Sub Form_Load()Dim x As String*1X=_8_（“请输入单个字符” ， “字符” ）Select Case UCase（_9_）Case _10_Print X+“是字母字符”Case _11_Print X+“是数字字符”Case ElsePrint X+“是其他字符”End SelectE
21、nd Sub答案: InputBox; X“A“To“z“ “0“To“9“6.下列程序为求Sn=a+aa+aaa+aaa（n 个 a） ，其中 a 为一个随机数产生的19（包括 1、9）中的一个正整数，n 是一个随机数产生的510（包括 5、10）中的一个正整数，请在_12_和_13_处填入适当的内容，将程序补充完整。Private Sub Form_Load（）Dim a As Integer,n As Integer, S As Double,Sn As Doublea=Fix(9*Rnd)+1n=Fix(6*Rnd)+5Sn=0S=0For i=1 to _12_S=S+a*10(i-1)_13_print SnNext iEnd Sub答案: n；Sn = Sn + S7.如果菜单标题的某个字母前输入一个“_14_”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“_15；_16” ，那么显示时将形成一行分隔符。答案: & 、 - 、 _*JimiSoft: Unregistered Software ONLY Convert Part Of File! Read Help To Know How To Register.*
