试卷编号：25所属语言：Visual Basic试卷方案：VB程序设计试卷总分：100分共有题型：4种一、单选共15题（共计30分）第1题（2.0分）题号:2299 难度:中第1章将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是().A:运行的机器上无VB系统所需的动态连接库B:缺少.frm窗体文件C:该可执行文件有病毒D:以上原因都不对答案：A第2题（2.0分）题号:2344 难度:中第2章下列字符串常量中,最大的是().A:"北京"B:"上海"C:"天津"D:"广州"答案：C第3题（2.0分）题号:2436 难度:中第2章能正确表达a≤1或a≥5的逻辑表达式是().A:a<=1或a>=5B:a<=1,a>=5C:a<=10 Or a>=5D:a<=l And a>=5答案：C第4题（2.0分）题号:2539 难度:中第2章用一个程序段对一个对象被单击(或双击)做出响应,从而实现指定的操作,称为().A:可视化程序设计B:事件驱动编程机制C:过程化程序实际方法D:非过程化程序设计语言答案：B第5题（2.0分）题号:2601 难度:中第3章在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1Private Sub Command1_Click()K = 3If X < 3 Then Print X + 3;If X < 4 Then Print X + 4;If X < 5 Then Print X + 5;If X< 6 Then Print K + 6;PrintEnd Sub程序运行后,单击命令按钮,则窗体上显示的内容是().A:6 7 8 9B:7 8 9C:8 9D:9答案：B第6题（2.0分）题号:2662 难度:中第3章运行下面程序后,在窗体中显示的是().Private Sub Form_Click()a$="*": b$="$"For k=1 To 3x$=String$(Len(a$)+k,b$)Print x$;Next kPrintEnd SubA:*** ** ****B:*$*$*$C:1*$2*$3*$D:$$$$$$$$$答案：D第7题（2.0分）题号:2722 难度:中第4章要分配存放如下方阵的数据:1.12.23.34.45.56.67.7 8.8 9.9数组声明语句能实现(不能浪费空间)的是().A:Dim a(9) As SingleB:Dim a(3,3) As SingleC:Dim a (-1 To 1,-5 To -3)As SingleD:Dim a (-3 To 1,-5 To 7)As Integer答案：C第8题（2.0分）题号:2742 难度:中第4章可以惟一标识控件数组中的每一个控件属性的是().A:NameB:CaptionC:IndexD:Enabled答案：C第9题（2.0分）题号:2769 难度:中第5章一个工程中包含两个名称分别为Forml,Form2的窗体,一个名称为mdlFunc的标准模块. 假定在Form1,Form2和mdlFunc中分别建立了一个自定义过程,其定义格式为:Form1中定义的过程:Private Sub frmFunc()End SubForm2中定义的过程:Public Sub mdlFunc()End Sub在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是(). A:上述3个过程都可以在工程中的任何窗体或模块中被调用B:frmFunc和mdlFunc过程能够在工作的各个窗体或模块中被调用C:上述3个过程都只能在各自被定义的模块中调用D:只有mdlFunc过程能够被工程中各个窗体或模块调用第10题（2.0分）题号:2782 难度:中第5章下述程序的运行结果是().Private Sub Command1_Click()y=10Print fnt(1+fnt(fnt(fnt(y)))*10)End SubPrivate Function fnt(X)fnt=1/xEnd FunctionA:0.5B:2C:909090D:1.001答案：A第11题（2.0分）题号:2853 难度:中第6章下列叙述中,正确的是().A:自己编写的程序主要是给自己使用的B:当前编写的程序主要是为当前使用的C:运行结果正确的程序一定具有易读性D:上述3种说法都不对答案：D第12题（2.0分）题号:3085 难度:中第6章在VB中过()属性来设置字体颜色.A:FontColorB:ForeColorC:BackColorD:ShowColor答案：B第13题（2.0分）题号:3124 难度:中第6章鼠标移动经过控件时,将触发控件的()事件.A:MouseDownB:MouseUpC:MouseMove答案：C第14题（2.0分）题号:3138 难度:中第7章下列选项中不正确的是().A:每个菜单项都是一个对象,所以也有属性和事件B:菜单项的属性可以在属性窗口中设计C:每个菜单项都只有一个Click事件D:菜单编辑器中,标题可不输入,而名称必须输入答案：B第15题（2.0分）题号:3186 难度:中第8章如果在图片框上使用绘图方法绘制一个圆,则图片框的()属性不会对该圆的外观产生影响.A:BackColorB:ForeColorC:DrawWidthD:DrawStyle答案：B二、程序填空共1题（共计20分）第1题（20.0分）题号:253 难度:中第25章'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'题目：输入任何一个英文字母x,若x的值为"a","c","d-f" ,则' 显示x的大写字母；若x的值为"m","o","p-z",则显示x的' 小写字母；若为其它的值,则显示xa（如输入的X的值是' g，则显示ga）。
'-------------------------------------------------------Private Sub Command1_Click()x = Text1.Text'**********SPACE**********【?】Case "a", "c", "d" To "f"Label1.Caption = UCase(x)'**********SPACE**********Case 【?】Label1.Caption = LCase(x)'**********SPACE**********【?】Label1.Caption = Trim(x) + "a"End SelectEnd Sub答案：=======(答案1)=======Select Case x=======(答案2)======="m", "o", "p" To "z"=======(答案3)=======Case Else三、程序改错共1题（共计20分）第1题（20.0分）题号:52 难度:中第1章'------------------------------------------------'【程序改错】'------------------------------------------------'题目:在窗体上有两个命令按钮和一个文本框，名称分别为' cmdstart（"开始"）、cmdend（"结束"）和Text1。
' 文本框Text1中的字符个数不超过200个。
程序刚开始' 运行时，"结束"按钮成灰色，单击"开始"按钮后，将' 文本框Text1.text中的字符按其ASCII码值由大到小自' 左而右重新组合，并在窗体上输出重组后的字符串，同' 时使"结束"按钮能响应而"开始"按钮不能响应。
'------------------------------------------------Option ExplicitPrivate Sub Form_load()'**********FOUND**********Cmdend.Enabled = TrueEnd SubPrivate Sub Cmdstart_click()Dim n As Integer, I As Integer, j As Integer, p As Integer Dim a(200) As String * 1, str1 As String, t As Stringstr1 = Text1.Textn = Len(str1)For I = 1 To na(I) = Mid(str1, I, 1)Next I'**********FOUND**********For I = 0 To n - 1p = IFor j = I + 1 To n'**********FOUND**********If a(p) < a(j) Then j = pNext jIf p <> I Then t = a(I): a(I) = a(p): a(p) = tNext IFor I = 1 To nPrint a(I);Next ICmdend.Enabled = TrueCmdstart.Enabled = FalseEnd SubPrivate Sub Cmdend_click()EndEnd Sub答案：=======(答案1)=======Cmdend.Enabled = False=========或=========Cmdend.Enabled = -1=======(答案2)=======For I = 1 To n - 1=========或=========For I = 1 To -1+n=======(答案3)=======If a(p) < a(j) Then p = j=========或=========If a(j) > a(p) Then p = j四、VB窗体设计共1题（共计30分）第1题（30.0分）题号:304 难度:中第1章1、如样张1所示设计窗体，其中包括1个菜单（包括4个菜单项），“设置”、名称为SZ“选中”、名称为XZ“取消”、名称为QX“加载”、名称为JZ要求设计为样张1左图所示下拉菜单，“取消”与“加载”中间加分隔线、分隔线名称为FGZ在窗体上添加1个框架名称为Fra、显示为“选项设置”，在框架内添加1个复选框名称为Chk、显示为“你好”，在框架右侧添加1个标签，名称为Lab。